beifen2.pas

职工信息管理系统的源代码

unit beifen2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, jpeg, ExtCtrls, DB, DBTables;

type
  Tbeifen = class(TForm)
    Label3: TLabel;
    Edit1: TEdit;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button5: TButton;
    Button3: TButton;
    dir: TTable;
    dirDir: TStringField;
    f: TTable;
    procedure Button3Click(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure DriveComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  beifen: Tbeifen;

implementation
 uses quan;
{$R *.dfm}

procedure Tbeifen.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tbeifen.DirectoryListBox1Change(Sender: TObject);
begin
edit1.Text:=DirectoryListBox1.Directory;
end;

procedure Tbeifen.DriveComboBox1Change(Sender: TObject);
begin
DirectoryListBox1.Drive:= DriveComboBox1.Drive;
end;

procedure Tbeifen.FormCreate(Sender: TObject);
begin
getdir(0,s);
dir.Active:=false;
dir.DatabaseName:=s;
dir.TableName:='dir.db';
dir.Active:=true;
f.Active:=false;
f.DatabaseName:=s;
f.TableName:='f.db';
f.Active:=true;
if f.FieldByName('f').AsString='0' then
begin
f.Edit;
dir.Edit;
f.FieldByName('f').AsString:='1';
dir.FieldByName('dir').AsString:=s+'\bak';
dir.Post;
f.Post;
end;
edit1.Text:=DirectoryListBox1.Directory;
 DirectoryListBox1.Directory:= dir.FieldByName('dir').AsString;
 DriveComboBox1.Drive:= DirectoryListBox1.Drive;
end;


procedure Tbeifen.Button5Click(Sender: TObject);
begin
dir.Active:=false;
dir.DatabaseName:=s;
dir.TableName:='dir.db';
dir.Active:=true;
dir.Active:=true;
if s=edit1.Text then
begin
application.MessageBox('不能在当前目录中备份，请还其他目录！','错误',mb_ok+mb_iconinformation);
close;
end
else
begin
dir.Edit;
dir.FieldByName('dir').AsString:=trim(edit1.Text);
dir.Post;
close;
end;
end;

procedure Tbeifen.FormShow(Sender: TObject);
begin
dir.Active:=false;
dir.DatabaseName:=s;
dir.TableName:='dir.db';
dir.Active:=true;
edit1.Text:=DirectoryListBox1.Directory;
 DirectoryListBox1.Directory:= dir.FieldByName('dir').AsString;
 DriveComboBox1.Drive:= DirectoryListBox1.Drive;
end;

end.