beifen1.pas

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

unit beifen1;

interface

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

type
  Tbeifen = class(TForm)
    Label3: TLabel;
    Edit1: TEdit;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button3: TSpeedButton;
    Button5: TSpeedButton;
    bitbtn1: TSpeedButton;
    procedure Button3Click(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure DriveComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure bitbtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  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
button5.Enabled:=false;
edit1.Text:=DirectoryListBox1.Directory;
 DirectoryListBox1.Directory:= re.ReadString('dir');
 DriveComboBox1.Drive:= DirectoryListBox1.Drive;
end;


procedure Tbeifen.Button5Click(Sender: TObject);
begin
if s=DirectoryListBox1.Directory then
begin
application.MessageBox('不能在当前目录中备份，请选择其他目录！','错误',mb_ok+mb_iconinformation);
end
else
begin
re.WriteString('dir',edit1.Text);
if application.MessageBox('信息已写入注册表，退出吗？退出请单击"确定"','',mb_okcancel+mb_iconinformation)=idok then
close;
end;
end;

procedure Tbeifen.FormShow(Sender: TObject);
begin
button5.Enabled:=false;
edit1.Text:=DirectoryListBox1.Directory;
DirectoryListBox1.Directory:= re.ReadString('dir');
DriveComboBox1.Drive:= DirectoryListBox1.Drive;
end;

procedure Tbeifen.Edit1Change(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure Tbeifen.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

procedure Tbeifen.bitbtn1Click(Sender: TObject);
begin
shellexecute(application.Handle,'open',pchar(s+'\help\lu_jing.htm'),'','',SW_SHOW);
end;

procedure Tbeifen.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.