unit1.pas

用友二次开发 服装行业颜色尺码定义工具

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxControls,
  cxContainer, cxCheckListBox, Comobj,inifiles;

type
  TfrMain = class(TForm)
    OpenDialog: TOpenDialog;
    FileList: TcxCheckListBox;
    AddExcelFile: TcxButton;
    StartUpdate: TcxButton;
    procedure AddExcelFileClick(Sender: TObject);
    procedure StartUpdateClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure UpdateExcelData(FileName:string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frMain: TfrMain;
  INI:Tinifile;
  Excel: OleVariant;

implementation

{$R *.dfm}

procedure TfrMain.AddExcelFileClick(Sender: TObject);
begin
    OpenDialog.Execute;
    if OpenDialog.FileName<>'' then
    begin
      filelist.Items.Add ;
      filelist.Items.Items[filelist.Items.Count-1].Text    :=OpenDialog.FileName;
      filelist.Items.Items[filelist.Items.Count-1].Checked :=True;
    end;


end;

procedure TfrMain.StartUpdateClick(Sender: TObject);
var
  i : integer;
begin

    try
      Excel := CreateOLEObject('Excel.Application');
    except
      Application.MessageBox('Excel 没有安装! ', 'Wait!', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
      Exit;
    end;

    Excel.Visible := True;
//    Excel.Visible := False;

    for i := 0 to filelist.Items.Count-1 do
      if filelist.Items.Items[i].Checked then
      begin
          UpdateExcelData(filelist.Items.Items[i].Text);
      end;

    Excel.Visible := True;
end;

procedure TfrMain.FormCreate(Sender: TObject);
var
  i : integer ;
  List : TstringList ;
begin
    List:=TstringList.Create ;
    INI:=Tinifile.create(GetCurrentDir+'\sys.ini');
    INI.ReadSections(List);
    for i:=0 to List.Count-1 do
    begin
      filelist.Items.Add ;
      filelist.Items.Items[i].Text    :=INI.ReadString(InttoStr(i),'FileName','');
      filelist.Items.Items[i].Checked :=INI.ReadBool  (InttoStr(i),'bUpdate',True);
     end;
end;

procedure TfrMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i : integer;
begin
    for i := 0 to filelist.Items.Count-1 do
    begin
      INI.WriteBool  (InttoStr(i),'bUpdate',filelist.Items.Items[i].Checked);
      INI.WriteString(InttoStr(i),'FileName',filelist.Items.Items[i].Text );
      INI.WriteString(InttoStr(i),'Memo','未更新');
    end;
end;


procedure TfrMain.UpdateExcelData(FileName:string);
var
  i,j : integer;
begin
//    Excel.WorkBooks.open(FileName);
//      i := Excel.worksheet.count;
//      j := Excel.WorkSheets[i].PivotTables.Count;
//      showmessage(inttostr(i)+'   '+inttostr(j));
//      Excel.WorkSheets[i].PivotTables(1).PivotCache.Refresh;
//    Excel.WorkBooks.close ;
end;


end.