rsglxt.pas

一个比较实用的人事管理系统,Delphi+SQL开发

unit rsglxt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, ComCtrls, ToolWin, jpeg, ExtCtrls,gsxxgl,bmjcxxgl,
  yhxxgl,rylbxxgl,xtdl3, StdCtrls, Buttons;

type
  TForm74 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure TreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form74: TForm74;
  czymc : String;
implementation

uses ygxxgl, ygddgl, tjyusc;

{$R *.dfm}

procedure TForm74.FormShow(Sender: TObject);
begin
  Application.CreateForm(TFormb,Formb);
  Formb.ShowModal;
  Formb.Free;
end;

procedure TForm74.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    Close;
end;

procedure TForm74.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TForm38,Form38);
  Form38.ShowModal;
  Form38.Free;
end;

procedure TForm74.SpeedButton2Click(Sender: TObject);
begin
  Application.CreateForm(TForm42,Form42);
  Form42.ShowModal; 
  Form42.Free;
end;

procedure TForm74.SpeedButton3Click(Sender: TObject);
begin
  Application.CreateForm(TForm76,Form76);
  Form76.ShowModal;
  Form76.Free;
end;

procedure TForm74.SpeedButton4Click(Sender: TObject);
begin
  Application.CreateForm(TForm75,Form75);
  Form75.ShowModal;
  Form75.Free;
end;

procedure TForm74.SpeedButton5Click(Sender: TObject);
begin
  Application.CreateForm(TForm11,Form11);
  Form11.ShowModal;
  Form11.Free;
end;

procedure TForm74.SpeedButton6Click(Sender: TObject);
begin
  Application.CreateForm(TForm80,Form80);
  Form80.ShowModal;
  Form80.Free;
end;

procedure TForm74.SpeedButton7Click(Sender: TObject);
begin
  Application.CreateForm(TForm4,Form4);
  Form4.ShowModal;
  Form4.Free;
end;

procedure TForm74.SpeedButton8Click(Sender: TObject);
begin
  Close;
end;

end.