ygxxgl.pas

用delphi编写的人事管理系统

unit ygxxgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB, Grids, DBGrids,
  ImgList, ToolWin,ryxxgl,xgryda,scryda;

type
  TForm11 = class(TForm)
    Panel2: TPanel;
    Label7: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm;
implementation
  uses dataa;
{$R *.dfm}

procedure TForm11.FormShow(Sender: TObject);
begin
  with Data3.ADOQuery5 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 员工基础信息表');
    Open;
  end;
  if Data3.ADOQuery5.RecordCount>0 then
    DataSource1.DataSet := Data3.ADOQuery5;
end;

procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TForm79,Form79);
  Form79.ShowModal;
  Form79.Free;
end;

procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
  Application.CreateForm(TForm77,Form77);
  Form77.ShowModal;
  Form77.Free;
end;

procedure TForm11.SpeedButton3Click(Sender: TObject);
begin
  Application.CreateForm(TForm78,Form78);
  Form78.ShowModal;
  Form78.Free;
end;

procedure TForm11.SpeedButton4Click(Sender: TObject);
begin
  Close;
end;

end.