Загрузка новосозданного Excel файла - Delphi БД - Ответ 9996169

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, StdCtrls;
 
type
  TForm1 = class(TForm)
    cbEnterprises: TComboBox;
    cbYears: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure cbEnterprisesChange(Sender: TObject);
    procedure cbYearsChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    List:TStringList;
    Years:TStringList;
    procedure FillEnterprisesCombo(list:TStrings);
    function GetFilesPath: string;
    procedure FillYearCombo(fileName: string);
    procedure GetYears(fileName: string; Years: TStrings);
  public
    ds1index:integer;
    ds2index:integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
resourcestring
  sSelectEnterprise = 'Выберите предприятие...';
  sNoAvailableData = 'Нет доступных данных';
  sForAllYears = 'За все годы';
 
{$R *.dfm}
 
procedure FindFiles(Path:string; List:TStrings);
var R:TSearchRec;
begin
  if FindFirst(path,faAnyFile and (not faDirectory),r)=0 then
  begin
    repeat
      List.Add(r.Name);
    until FindNext(r) <> 0;
    FindClose(r);
  end;
end;
 
 
function TForm1.GetFilesPath:string;
begin
  Result := ExtractFilePath(ParamStr(0))+'files\*.xlsx';
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  List:=TStringList.Create;
  Years:=TStringList.Create;
  FillEnterprisesCombo(list);
  FillYearCombo('');
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  list.Free;
  Years.Free;
end;
 
procedure TForm1.cbEnterprisesChange(Sender: TObject);
begin
  if cbEnterprises.ItemIndex<1 then
    FillYearCombo('');
end;
 
procedure TForm1.GetYears(fileName:string; Years:TStrings);
begin
  Years.Clear;
  if (FileName<>'')and(FileExists(GetFilesPath+FileName)) then
  begin
    // здесь код, который открывает файл GetFilesPath+Filename
    // смотрит, какие года в нем доступны
    // добавляет эти года в Years
  end;
end;
 
procedure TForm1.LoadData(FileName:string; Year:string);
begin
  // здесь код, который загружает данные из файла FileName за все годы
  // если Year=''
  // и за конкретный год, если Year заполнен
end;
 
procedure TForm1.FillYearCombo(fileName:string);
begin
  if (FileName<>'')and(FileExists(GetFilesPath+FileName)) then
  begin
    GetYears(fileName, Years);
    if Years.Count>0 then
    begin
      Years.Insert(0,sForAllYears);
      exit;
    end;
  end;
  // если что-то пошло не так, очищаем список доступных лет
  cbYears.Clear;
  cbYears.items.Add(sNoAvailableData);
  cbYears.ItemIndex := 0;
end;
 
procedure TForm1.cbYearsChange(Sender: TObject);
var
  fileName:string;
  year : string;
begin
  if cbYears.ItemIndex=-1 then
    exit;
 
  if cbEnterprises.ItemIndex<1 then
    exit;
 
  fileName := GetFilesPath + cbEnterprises.Items[cbEnterprises.ItemIndex];
  if cbYears.ItemIndex=0 then
  begin
    if cbYears.Items[0]<>sNoAvailableData then
    begin
      LoadData(fileName, '');
    end;
  end
  else
  begin
    Year := cbYears.Items[cbYears.ItemIndex];
  end;
end;
 
procedure TForm1.FillEnterprisesCombo(List:TStrings);
var
  i: Integer;
begin
  cbEnterprises.Clear;
  cbEnterprises.Items.Add(sSelectEnterprise);
  for i := 0 to List.Count-1 do
  begin
    cbEnterprises.Items.Add(list[i]);
  end;
  cbEnterprises.ItemIndex :=0;
end;
 
end.