dataload.pas

这个工资管理系统是我今年的毕业设计

unit dataload;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Gauges, jpeg, Grids, DBGridEh, SkinCtrls, StdCtrls,
  DB, ADODB;

type
  TLoading = class(TForm)
    spSkinToolBar1: TspSkinToolBar;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    spSkinBevel3: TspSkinBevel;
    spSkinSpeedButton5: TspSkinSpeedButton;
    spSkinBevel4: TspSkinBevel;
    spSkinSpeedButton6: TspSkinSpeedButton;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel6: TPanel;
    Image1: TImage;
    Gauge1: TGauge;
    Timer1: TTimer;
    procedure spSkinSpeedButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    //procedure myopen(name:string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Loading: TLoading;

implementation
uses login;
{$R *.dfm}

procedure TLoading.spSkinSpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure TLoading.FormShow(Sender: TObject);
begin
label2.Caption:=datetostr(date);
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into gongz(员工代码,员工姓名,所在部门) select 员工代码,姓名,所在部门 from jibenxinxi where 员工代码 not in (select 员工代码 from gongz)');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from gongz order by 员工代码');
adoquery1.Open;
dbgrideh1.Columns[10].Title.caption:='扣出款项|个人所得税';
dbgrideh1.Columns[11].Title.caption:='扣出款项|缺勤扣款';
dbgrideh1.Columns[12].Title.caption:='扣出款项|扣款合计';
gauge1.MaxValue:=adoquery1.Recordset.RecordCount;
end;

procedure TLoading.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery1.Close;
end;

procedure TLoading.Timer1Timer(Sender: TObject);
begin
gauge1.Progress:=gauge1.Progress+1;
if gauge1.Progress=adoquery1.Recordset.RecordCount then
begin
timer1.Enabled:=false;
panel6.Visible:=false;
spskintoolbar1.Enabled:=true;
dbgrideh1.Visible:=true;
end;
end;

end.