umain.~pas

在公司做的一个小的系统源代码

unit Umain;

interface

uses
  Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    N1: TMenuItem;
    Q1: TMenuItem;
    A2: TMenuItem;
    N2: TMenuItem;
    B1: TMenuItem;
    S1: TMenuItem;
    N3: TMenuItem;
    U1: TMenuItem;
    H1: TMenuItem;
    H2: TMenuItem;
    A3: TMenuItem;
    ToolBar1: TToolBar;
    Sptnluru: TSpeedButton;
    sptnquery: TSpeedButton;
    Sptnliulan: TSpeedButton;
    SpeedButton1: TSpeedButton;
    N4: TMenuItem;
    E1: TMenuItem;
    PopupMenu1: TPopupMenu;
    L1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    l2: TMenuItem;
    N7: TMenuItem;
    H3: TMenuItem;
    A4: TMenuItem;
    ImageList1: TImageList;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    E2: TMenuItem;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    N11: TMenuItem;
    Timer1: TTimer;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    procedure N9Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure A3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation

uses  Uinsert, Ulogin, Ulgb, Uquery, Udm,  Uliulan,
  Uabout, Uusergl, Uuserchange, Uzzjjgb, Ufwq, Uprint, Uxiugai;


{$R *.dfm}


procedure Tfrmmain.N9Click(Sender: TObject);
begin
application.CreateForm(tfrmzzjjgb,frmzzjjgb);
frmzzjjgb.ShowModal ;
end;


procedure Tfrmmain.N1Click(Sender: TObject);
begin
application.CreateForm(tfrminsert,frminsert);
frminsert.ShowModal ;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
  //Application.CreateForm(Tfrmlogin, frmlogin);
 
  frmmain.Label1.Caption:=gjgmc+'      ';
  
end;

procedure Tfrmmain.SpeedButton1Click(Sender: TObject);
begin
 if Messagebox(GetforegroundWindow,'谢谢您的使用，真的要退出吗？',
    '系统信息', mb_okcancel+mb_iconinformation) = idok then
   begin
   application.Terminate;
   end;
end;

procedure Tfrmmain.E1Click(Sender: TObject);
begin
if Messagebox(GetforegroundWindow,'谢谢您的使用，真的要退出吗？',
    '系统信息', mb_okcancel+mb_iconinformation) = idok then
   begin
   application.Terminate;
   end;
end;

procedure Tfrmmain.A2Click(Sender: TObject);
begin
application.CreateForm(tfrmquery,frmquery);
frmquery.ShowModal ;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
var
   yonghu:string;
begin
 if Gpower='1' then
    yonghu:='超级用户'
 else yonghu:='普通用户';
 statusbar1.Panels[0].Text := '操作人：' + trim(gstrname)+'('+yonghu+')' ;
 statusbar1.Panels[1].Text := '招标采购药品管理系统  版本 v1.0';
 statusbar1.Panels[2].Text := datetimetostr(now);
 if gpower<>'1' then
   begin
   n3.Visible:=false;
   n9.Visible:=false;
   n11.Visible:=false;
  
   end;
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
application.CreateForm(tfrmusergl,frmusergl);
frmusergl.ShowModal ;
end;

procedure Tfrmmain.U1Click(Sender: TObject);
begin
application.CreateForm(Tfrmuserchange,frmuserchange);
frmuserchange.ShowModal   ;
end;

procedure Tfrmmain.B1Click(Sender: TObject);
begin
application.CreateForm(tfrmliulan,frmliulan);
frmliulan.ShowModal ;
end;

procedure Tfrmmain.A3Click(Sender: TObject);
begin
application.CreateForm(tfrmabout,frmabout);
frmabout.ShowModal ;
end;

procedure Tfrmmain.N11Click(Sender: TObject);
begin
application.CreateForm(tfrmsjfwq,frmsjfwq);
frmsjfwq.ShowModal ;
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[2].Text := datetimetostr(now);

end;

end.