beifen1.pas

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

unit beifen1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, jpeg, ExtCtrls, DB,registry, 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 Edit1Change(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure bitbtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  beifen: Tbeifen;
  s:string;
  re:Tregistry;
implementation
{$R *.dfm}
uses start1;
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);
var f:Tstart;
begin
getdir(0,s);
re:=Tregistry.create();
re.RootKey:=HKEY_USERS;
if re.OpenKey('.default\software\wo\date',false)=false then
begin
application.MessageBox('职工工资管理系统未注册,请注册系统','信息',mb_ok+mb_iconinformation);
re.Free;
halt;
end
else
if (re.ValueExists('bak')=false) or (re.ValueExists('dir')=false)or (re.ValueExists('username')=false) or(re.ValueExists('complay')=false) then
begin
application.MessageBox('注册信息丢失或被破坏!请重装系统','错误',mb_ok+mb_iconinformation);
re.Free;
halt;
end
else
begin
f:=tstart.Create(self);
f.ShowModal;
button5.Enabled:=false;
edit1.Text:=DirectoryListBox1.Directory;
DirectoryListBox1.Directory:= re.ReadString('dir');
DriveComboBox1.Drive:= DirectoryListBox1.Drive;
end;
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.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\bei_fen.htm'),'','',SW_SHOW);
end;

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

end.