unit4.~pas

是用delphi与sql一块作的

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ComCtrls, Grids, DBGrids;

type
  Tyhb = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    StatusBar1: TStatusBar;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit15: TDBEdit;
    Label12: TLabel;
    TabSheet3: TTabSheet;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yhb: Tyhb;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure Tyhb.Button1Click(Sender: TObject);
begin
yhb.Close;
end;

procedure Tyhb.FormShow(Sender: TObject);
begin
yh.ADOConnection1.Open;
yhb.adoquery1.SQL.Clear;
yhb.adoquery1.SQL.Add('select * from 用户信息 , 员工基本信息,员工考勤,员工工资,员工工作考评,企业工资制度 where (用户信息.系统用户名='''+yh.zh.Text+ ''') and (用户信息.工号=员工基本信息.工号) and(用户信息.工号=员工考勤.工号) and (用户信息.工号=员工工资.工号) and (用户信息.工号=员工工作考评.工号)and (员工工资.工资等级=企业工资制度.工资等级)');
yhb.adoquery1.Open;
dbedit4.DataField:='工号';
dbedit5.DataField:='部门标识';
dbedit6.DataField:='工资等级';
dbedit8.DataField:='性别';
dbedit9.DataField:='学历';
dbedit10.DataField:='入部门时间';
dbedit7.DataField:='姓名';
dbedit11.DataField:='职务';
dbedit12.DataField:='民族';
dbedit13.DataField:='政治面貌';
dbedit14.DataField:='家庭住址';
dbedit15.DataField:='创建时间';
dbedit16.DataField:='工号';
dbedit17.DataField:='部门标识';
dbedit18.DataField:='职务';
dbedit19.DataField:='工资等级';
dbedit20.DataField:='本薪';
dbedit21.DataField:='福利及奖金';
dbedit22.DataField:='合计';
dbedit1.DataField:='考评主题';
dbedit2.DataField:='考评内容';
dbedit3.DataField:='考评结果';
dbedit23.DataField:='考评时间';
dbedit24.DataField:='旷工';
dbedit25.DataField:='病假';
dbedit26.DataField:='事假';
end;

procedure Tyhb.TabSheet1Show(Sender: TObject);
begin
statusbar1.Panels[0].Text:='现在状态为：';
statusbar1.Panels[1].Text:='用户基本信息查看！';
end;

procedure Tyhb.TabSheet2Show(Sender: TObject);
begin
statusbar1.Panels[0].Text:='现在状态为：';
statusbar1.Panels[1].Text:='员工工资查看！';
end;

procedure Tyhb.TabSheet3Show(Sender: TObject);
begin
statusbar1.Panels[0].Text:='现在状态为：';
statusbar1.Panels[1].Text:='员工考勤查看！';
end;

end.