unit16.pas

劳保管理 ACCESS数据库 作为设计的一个参考

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl,Filecopy1, Buttons, ExtCtrls;

type
  TForm16 = class(TForm)
    FileCopy1: TFileCopy;
    Panel1: TPanel;
    Panel2: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    Panel4: TPanel;
    BitBtn5: TBitBtn;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label4: TLabel;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Panel5: TPanel;
    BitBtn4: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;
  drive: String;

implementation

uses Unit1, f_access, Unit3;

{$R *.DFM}
  {$I-}
procedure TForm16.FormShow(Sender: TObject);
begin
//form1.Database1.KeepConnection :=false;
form1.Database1.close;
form3.table1.close;
form3.table2.close;
form3.table3.close;
form3.table4.close;
form3.table5.close;
form3.table6.close;
form3.table7.close;
form3.table8.close;
form3.table9.close;
form3.table10.close;
form3.query1.close;
form3.query2.close;
form3.query3.close;
form3.query4.close;
form3.query5.close;
form3.query6.close;
form3.query7.close;
form3.query8.close;
form3.query9.close;
form3.query10.close;
form3.query11.close;
form3.query12.close;
form3.query13.close;
form3.query14.close;
form3.query15.close;
form3.query16.close;
form3.query17.close;
form3.query18.close;
form3.query19.close;
form3.query20.close;
form3.query21.close;
form3.query22.close;
form3.query23.close;
form3.query24.close;
form3.query25.close;
form3.query26.close;
form3.query27.close;
Drive := ExtractFilePath(ParamStr (0));
dir:=drive;
edit1.text:= drive+'lklb.mdb';

end;

procedure TForm16.BitBtn3Click(Sender: TObject);
begin
dir:=drive;
Screen.Cursor := crHourGlass;
if not RepairDataBaseDao(trim(edit1.text)) then
  MessageDlg('修复过程出现错误！请确认数据库没有被使用、数据库是否存在！',mtWarning, [mbOk], 0)
  else   MessageDlg('修复完毕！', mtInformation, [mbOk], 0);
Screen.Cursor := crDefault;
end;

procedure TForm16.BitBtn4Click(Sender: TObject);
begin
form16.close;
end;

procedure TForm16.BitBtn2Click(Sender: TObject);
begin
dir:=drive;
Screen.Cursor := crHourGlass;
if not CompactDataBaseDao(trim(edit1.text)) then
  MessageDlg('压缩过程出现错误！请确认数据库没有被使用、数据库是否存在！',mtWarning, [mbOk], 0)
  else   MessageDlg('压缩完毕！！', mtInformation, [mbOk], 0);
 Screen.Cursor := crDefault;
end;

procedure TForm16.BitBtn1Click(Sender: TObject);
var
dfpath:string;
begin
if not DirectoryExists(trim(edit2.text)) then
 begin
  if MessageDlg('目录还不存在，是否要创建此目录？',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes
    then
    begin
    mkdir(trim(edit2.text));
    if IOResult <> 0 then
    MessageDlg('不能创建目录，请检查输入的路径是否正确！', mtWarning, [mbOk], 0);
    exit;
    end
    else exit;
 end;
dfpath:=trim(edit2.text);
if dfPath[Length(dfPath)] <> '\' then dfPath := dfPath + '\';
FileCopy1.SourceFile :=trim(edit1.Text) ;
FileCopy1.TargetFile :=dfpath+'lklb.mdb';
FileCopy1.ExecCopy;
MessageDlg('OK!',mtInformation, [mbOk], 0);

end;
procedure TForm16.Button1Click(Sender: TObject);
var s:string;
begin
if openDialog1.Execute then
   begin
   s:=ExtractFilePath(opendialog1.FileName);
   edit3.text:=s+'lklb.mdb';
   end;
end;

procedure TForm16.BitBtn5Click(Sender: TObject);
begin
FileCopy1.SourceFile :=trim(edit3.Text) ;
FileCopy1.TargetFile :=trim(edit1.Text) ;;
FileCopy1.ExecCopy;
MessageDlg('OK!',mtInformation, [mbOk], 0);
end;

end.