unit5.pas

是用delphi与sql一块作的

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls, DB, ADODB,
  DBClientActns, DBActns, ActnList, Buttons, Menus;

type
  Tczb = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    ADOTable5: TADOTable;
    ADOTable6: TADOTable;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    TabSheet5: TTabSheet;
    DBGrid5: TDBGrid;
    TabSheet6: TTabSheet;
    DBGrid6: TDBGrid;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    ClientDataSetApply1: TClientDataSetApply;
    ClientDataSetRevert1: TClientDataSetRevert;
    ClientDataSetUndo1: TClientDataSetUndo;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure Button2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czb: Tczb;

implementation

uses Unit2, Unit4;

{$R *.dfm}

procedure Tczb.Button2Click(Sender: TObject);
begin
yh.ADOConnection1.Open;
yhb.adoquery1.SQL.Clear;
yhb.adoquery1.SQL.Add('select * from 用户信息 , 员工基本信息,员工考勤,员工工资,员工工作考评,企业工资制度');
yhb.adoquery1.SQL.Add('where (用户信息.系统用户名='''+yh.zh.Text+ ''') and (用户信息.工号=员工基本信息.工号)');
yhb.adoquery1.SQL.Add('and(用户信息.工号=员工考勤.工号) and (用户信息.工号=员工工资.工号) and (用户信息.工号=员工工作考评.工号)and (员工工资.工资等级=企业工资制度.工资等级)');
yhb.adoquery1.SQL.Add('and(员工基本信息.部门标识=部门.部门标识) and(用户信息.工号=员工学历及工作记录.工号)');
yhb.adoquery1.Open;
end;

procedure Tczb.BitBtn2Click(Sender: TObject);
begin
if messagedlg('',mtconfirmation,[mbok,mbcancel],0)=mrcancel then
close;
end;

procedure Tczb.BitBtn11Click(Sender: TObject);
begin
czb.Close;
end;

end.