dy.pas

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

unit dy;

interface

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

type
  TForm8 = class(TForm)
    spSkinToolBar1: TspSkinToolBar;
    spSkinPageControl1: TspSkinPageControl;
    spSkinTabSheet1: TspSkinTabSheet;
    spSkinTabSheet2: TspSkinTabSheet;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    spSkinPanel1: TspSkinPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure spSkinSpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
uses login,shuil;
{$R *.dfm}

procedure TForm8.spSkinSpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure TForm8.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from shuil');
adoquery1.Open;
end;

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

procedure TForm8.spSkinSpeedButton1Click(Sender: TObject);
begin
form33:=tform33.Create(application);
form33.Caption:='个人所得税修改';
form33.ShowModal;
end;

procedure TForm8.DBGridEh1DblClick(Sender: TObject);
begin
form33:=tform33.Create(application);
form33.Caption:='个人所得税修改';
form33.ShowModal;
end;

procedure TForm8.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var i:integer;
begin
for i:=0 to dbgrideh1.Columns.Count-1 do
begin
dbgrideh1.Columns[i].Title.Alignment:=tacenter;
end;
end;

end.