main.pas

用delphi编的企业人事管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, ComCtrls, ToolWin, Menus, ImgList, StdActns,
  ExtActns, ActnList, DBActns, OleServer,ADOConEd;

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    X1: TMenuItem;
    E2: TMenuItem;
    ToolBar1: TToolBar;
    ToolButtonExit: TToolButton;
    Splitter1: TSplitter;
    DBNavigatorMain: TDBNavigator;
    ActionList1: TActionList;
    FileOpen1: TFileOpen;
    FilePrintSetup1: TFilePrintSetup;
    FileExit1: TFileExit;
    Splitter2: TSplitter;
    ToolButtonPrint: TToolButton;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    ImageList1: TImageList;
    N13: TMenuItem;
    N14: TMenuItem;
    B2: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Splitter3: TSplitter;
    ToolButton4: TToolButton;
    W1: TMenuItem;
    H1: TMenuItem;
    V1: TMenuItem;
    A1: TMenuItem;
    N17: TMenuItem;
    C1: TMenuItem;
    H2: TMenuItem;
    N1: TMenuItem;
    L1: TMenuItem;
    SQL1: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    ToolButtonSQL: TToolButton;
    N24: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    procedure X1Click(Sender: TObject);
    procedure E2Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure ToolButtonSQLClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N24Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation
uses login, MainData, renshi_Edit, RUNSQL, renshi_Brow, ygzlb;
{$R *.dfm}

procedure TFrmMain.X1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmMain.E2Click(Sender: TObject);
var MdiChild:TFrmrenshiEdit ;
begin
    MdiChild:=TFrmrenshiEdit.Create(Application);  //创建指定MDI子窗口
    MdiChild.AutoSize:=False;
end;

procedure TFrmMain.SQL1Click(Sender: TObject);
var MdiChild:TFrmSQL;
begin
    MdiChild:=TFrmSQL.Create(Application);  //创建指定MDI子窗口
   end;

procedure TFrmMain.N15Click(Sender: TObject);
var MdiChild:TFrmrenshiBrow ;
begin
    MdiChild:=TFrmrenshiBrow.Create(Application);  //创建指定MDI子窗口
end;
procedure TFrmMain.N23Click(Sender: TObject);  
begin
EditConnectionString(Datarenshi.ADOConnection1);
end;

procedure TFrmMain.ToolButtonSQLClick(Sender: TObject);
begin
  FrmMain.SQL1.Click;
end;

procedure TFrmMain.FormShow(Sender: TObject);
var Lform:tloginform;
i:integer;
begin
Lform:=tloginform.Create(self);
lform.ShowModal;
end;

procedure TFrmMain.N24Click(Sender: TObject);
var r:integer;
begin
r:=messagedlg('开始打印查询结果吗？',mtconfirmation,[mbok,mbcancel],0);
if  r=mrOk then
quickreport1.Print;
end;

end.