gzchange.pas

这是一个小型的工资管理系统

unit gzchange;

interface

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

type
  Tinitiateform = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    Table1: TTable;
    procedure FormActivate(Sender: TObject);
    
    procedure suiForm1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  initiateform: Tinitiateform;

implementation
uses main1;
{$R *.dfm}

procedure Tinitiateform.FormActivate(Sender: TObject);
begin
table1.DatabaseName:='DBMS';
table1.TableName:='operator';
if table1.Exists then
begin
Table1.EmptyTable;
end;
table1.Active:=true;
table1.Append;
table1.Edit;
table1.FieldByName('name').AsString:='admin';
table1.FieldByName('password').AsString:='12345678';
table1.FieldByName('department').AsString:='财务处';
table1.FieldByName('time').AsDateTime:=date();
table1.FieldByName('right_1').AsBoolean:=true;
table1.FieldByName('right_2').AsBoolean:=true;
table1.FieldByName('right_3').AsBoolean:=true;
table1.Post;
table1.Active:=false;
table1.TableName:='salary';
if table1.Exists then
begin
Table1.EmptyTable;
end;
table1.TableName:='month_salary';
if table1.Exists then
begin
Table1.EmptyTable;
end;
table1.TableName:=str;
if table1.Exists then
begin
Table1.EmptyTable;
end;
label1.Caption:='初始化结束!点击任意键退出!';

end;



procedure Tinitiateform.suiForm1Click(Sender: TObject);
begin
close;
end;

end.