pjglmian.pas

delphi+sql server 我是delphi的初学者

unit pjglmian;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, jpeg, ExtCtrls, Menus, Buttons, ComCtrls;

type
  TFrmman = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    img1: TImage;
    N4: TMenuItem;
    N6: TMenuItem;
    pnl1: TPanel;
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    btn6: TSpeedButton;
    btn7: TSpeedButton;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    StatusBar1: TStatusBar;
    SpeedButton1: TSpeedButton;
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmman: TFrmman;

implementation
uses UDM,pjly,meum,person,serch,recived,me,insertperson,placeadd,Unitlistmore;

{$R *.dfm}

procedure TFrmman.N3Click(Sender: TObject);
begin
   btn5click(sender);
end;

procedure TFrmman.N4Click(Sender: TObject);
begin
  Frmmeum:=TFrmmeum.Create(self);
  Frmmeum.ShowModal;
  freeandnil(Frmmeum);
end;

procedure TFrmman.N2Click(Sender: TObject);
begin
  btn4click(sender);
end;

procedure TFrmman.N6Click(Sender: TObject);
begin
  frminsertperson:=Tfrminsertperson.Create(self);
  frminsertperson.ShowModal;
  freeandnil(frminsertperson);
end;

procedure TFrmman.btn1Click(Sender: TObject);
begin
  Foperson:=TFoperson.Create(self);
   Foperson.ShowModal;
   freeandnil(Foperson);
end;

procedure TFrmman.btn2Click(Sender: TObject);
begin
  Frmpjly:=TFrmpjly.Create(SELF);
  Frmpjly.ShowModal;
  freeandnil(Frmpjly);
end;

procedure TFrmman.btn3Click(Sender: TObject);
begin
  frmrecived:=Tfrmrecived.Create(self);
   frmrecived.ShowModal;
   freeandnil(frmrecived);
end;

procedure TFrmman.btn4Click(Sender: TObject);
begin
  frmme:=TFRMME.Create(self);
  frmme.ShowModal;
  freeandnil(frmme);
end;

procedure TFrmman.btn5Click(Sender: TObject);
begin
if Application.MessageBox('确认要退出系统吗？','系统提示',MB_ICONQUESTION+MB_OKCANCEL)=IDOK then
  application.Terminate;
end;

procedure TFrmman.N7Click(Sender: TObject);
begin
    FRMserch:=TFRMserch.Create(self);
    FRMserch.ShowModal;
    freeandnil(FRMserch);
end;

procedure TFrmman.N8Click(Sender: TObject);
begin
  Frmplaceadd:=TFrmplaceadd.Create(self);
  Frmplaceadd.ShowModal;
  freeandnil(Frmplaceadd);
end;

procedure TFrmman.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:='欢迎使用票据系统，此系统由本人独立完成。如有什么问题请予我联系，MY TEL:[phone]';
  StatusBar1.Panels[1].Text:='当前操作员为：'+dm.hname;
end;

procedure TFrmman.SpeedButton1Click(Sender: TObject);
begin
  Formlistmore:=TFormlistmore.Create(Self);
  Formlistmore.ShowModal;
  FreeAndNil(Formlistmore);
end;

end.