unit9.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, cmpGFXComboBox, Buttons, ExtCtrls, TB97,
  LsFileExplorer,filectrl;

type
  Tbkform = class(TForm)
    StatusBar1: TStatusBar;
    Toolbar971: TToolbar97;
    Panel13: TPanel;
    link: TLabel;
    Image6: TImage;
    SpeedButton16: TSpeedButton;
    Panel14: TPanel;
    Dock971: TDock97;
    Panel1: TPanel;
    LsFileListView1: TLsFileListView;
    DateTimePicker1: TDateTimePicker;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    Image5: TImage;
    Label1: TLabel;
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton16Click(Sender: TObject);
    procedure LsFileListView1DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bkform: Tbkform;

implementation

uses Unit1;

{$R *.DFM}
 var
 dir :string;


procedure Tbkform.DateTimePicker1Change(Sender: TObject);
begin
 forcedirectories(dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+form1.ComboBox1.Text+datetostr(dateTimePicker1.date));
 LsFileListView1.Directory:=dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+form1.ComboBox1.Text+datetostr(dateTimePicker1.date);
end;

procedure Tbkform.FormCreate(Sender: TObject);
begin
dir:=extractFilePath(ParamStr(0)) ;
DateTimePicker1.Date:=date;
end;

procedure Tbkform.FormActivate(Sender: TObject);
begin
 forcedirectories(dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+form1.ComboBox1.Text+datetostr(dateTimePicker1.date));
 LsFileListView1.Directory:=dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+form1.ComboBox1.Text+datetostr(dateTimePicker1.date);
 form1.Enabled:=false;
end;

procedure Tbkform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Enabled:=true;
end;

procedure Tbkform.SpeedButton16Click(Sender: TObject);
var
ret:integer;
i:integer;

begin


if form1.bkstyle.caption='out' then
begin
{===========================================================================}

ret:=application.MessageBox(pchar('确定要把你选择的数据导入此文件夹内,如果此文件内有和你将导入相重名的文件，将被过写?'),'确定导入',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
if ret=1 then
begin

     form1.ClientDataSet1.Close;

            for i:=0 to form1.filelistbox1.Items.Count-1 do
                begin
                if form1.filelistbox1.Selected[i] then
                                begin
                                try
                                deletefile(dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+form1.ComboBox1.Text+datetostr(dateTimePicker1.date)+'\'+form1.filelistbox1.Items.Strings[i]);
                                copyfile(pchar(form1.DirectoryListBox1.Directory+'\'+form1.filelistbox1.Items.Strings[i]),pchar(dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+form1.ComboBox1.Text+datetostr(dateTimePicker1.date)+'\'+form1.filelistbox1.Items.Strings[i]),false);
                                DeleteFile(form1.DirectoryListBox1.Directory+'\'+form1.filelistbox1.Items.Strings[i]);
                                LsFileListView1.UpdateFileList;
                                except

                                end;


                                end;
                end;

      form1.filelistbox1.Update;

end;
{==================================================================================}
    end else
    begin
   {===========================================================================}
   if trim(LsFileListView1.FileName)='' then exit;
  
ret:=application.MessageBox(pchar('确定要把文件 '+ExtractFileName(LsFileListView1.FileName)+' 导出,如果此文件内有和你将导出相重名的文件，将被过写?'),'确定导出',MB_OKCANCEL+MB_DEFBUTTON2+MB_ICONQUESTION);
if ret=1 then
begin

     form1.ClientDataSet1.Close;

                                try

                               deletefile(dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+ExtractFileName(LsFileListView1.FileName));
                               copyfile(pchar(LsFileListView1.FileName),pchar(dir+'dat\cdx0'+inttostr(form1.ComboBox1.ItemIndex+1)+'\'+ExtractFileName(LsFileListView1.FileName)),false);
                               DeleteFile(LsFileListView1.FileName);
                               LsFileListView1.UpdateFileList;
                               LsFileListView1.FileName:='';
                                except
                                 LsFileListView1.FileName:='';
                                end;


      form1.filelistbox1.Update;

end;
{==================================================================================}






    end;

end;

procedure Tbkform.LsFileListView1DblClick(Sender: TObject);
begin
if form1.bkstyle.caption='in' then
SpeedButton16Click(nil);
end;

procedure Tbkform.SpeedButton2Click(Sender: TObject);
begin
LsFileListView1.DeleteFiles;
end;

procedure Tbkform.FormResize(Sender: TObject);
begin
// if bkform.WindowState=wsMinimized    then  bkform.WindowState:=wsNormal;
end;


end.