main.pas

这是用delphi开发的一个物资管理信息系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, ExtCtrls, StdCtrls,Login, ComCtrls, jpeg,
  Buttons, ToolWin,usertable_unit;

type
  Tmainfrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    Timer1: TTimer;
    N23: TMenuItem;
    N24: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton9: TSpeedButton;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    StatusBar1: TStatusBar;
    Timer2: TTimer;
    N25: TMenuItem;
    N33: TMenuItem;
    N32: TMenuItem;
    N34: TMenuItem;
    Image2: TImage;
    procedure N19Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer2Timer(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N32Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfrm: Tmainfrm;

implementation

uses  supplier, placefind, storeoperate, instore, stat, production,
  place, instorefind, plan, outstorefind, userhold, backup, useradd,
  outstore, storefind, operator,shellapi, store_table, inout_table, serial;

{$R *.dfm}

procedure Tmainfrm.N19Click(Sender: TObject);
begin
mainfrm.Close;
loginfrm.Show;
end;

procedure Tmainfrm.N2Click(Sender: TObject);
begin
supplierfrm:=tsupplierfrm.Create(application);
supplierfrm.showmodal;
end;

procedure Tmainfrm.N20Click(Sender: TObject);
begin
if messagedlg('确定退出吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  application.Terminate  ;
end;

procedure Tmainfrm.N11Click(Sender: TObject);
begin
placefindfrm:=tplacefindfrm.Create(application);
placefindfrm.showmodal;
end;

procedure Tmainfrm.N16Click(Sender: TObject);
begin
storeoperatefrm:=tstoreoperatefrm.Create(application); 
storeoperatefrm.showmodal;
end;

procedure Tmainfrm.N9Click(Sender: TObject);
begin
instorefrm:=tinstorefrm.create(application);
instorefrm.showmodal;
end;

procedure Tmainfrm.N21Click(Sender: TObject);
begin
statfrm:=tstatfrm.create(application);
statfrm.showmodal;
end;

procedure Tmainfrm.N3Click(Sender: TObject);
begin
productionfrm:=tproductionfrm.create(application);
productionfrm.showmodal;
end;

procedure Tmainfrm.N4Click(Sender: TObject);
begin
placefrm:=tplacefrm.create(application);
placefrm.showmodal;
end;

procedure Tmainfrm.N13Click(Sender: TObject);
begin
instorefindfrm:=tinstorefindfrm.create(application);
instorefindfrm.showmodal;
end;

procedure Tmainfrm.N22Click(Sender: TObject);
begin
planfrm:=tplanfrm.create(application);
planfrm.showmodal;
end;

procedure Tmainfrm.N14Click(Sender: TObject);
begin
outstorefindfrm:= toutstorefindfrm.create(application);
outstorefindfrm.showmodal;
end;

procedure Tmainfrm.N17Click(Sender: TObject);
begin
userholdfrm:=tuserholdfrm.create(application);
userholdfrm.showmodal;
end;

procedure Tmainfrm.N18Click(Sender: TObject);
begin
backupfrm:=tbackupfrm.create(application);
backupfrm.showmodal;
end;

procedure Tmainfrm.N12Click(Sender: TObject);
begin
useraddfrm:=tuseraddfrm.create(application);
useraddfrm.showmodal;
end;

procedure Tmainfrm.N10Click(Sender: TObject);
begin
outstorefrm:=toutstorefrm.create(application);
outstorefrm.showmodal;
end;

procedure Tmainfrm.N15Click(Sender: TObject);
begin
storefindfrm:= tstorefindfrm.create(application);
storefindfrm.showmodal;
end;

procedure Tmainfrm.N23Click(Sender: TObject);
begin
operatorfrm:=toperatorfrm.create(application);
operatorfrm.showmodal;
end;

procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
mainfrm.Caption :='欢迎进入物资管理系统！';
end;

procedure Tmainfrm.FormActivate(Sender: TObject);
begin
  Application.CreateForm(Tsupplierfrm, supplierfrm);
  Application.CreateForm(Tproductionfrm, productionfrm);
  Application.CreateForm(Tplacefrm, placefrm);
  Application.CreateForm(Toperatorfrm, operatorfrm);
  Application.CreateForm(Tinstorefrm, instorefrm);
  Application.CreateForm(Toutstorefrm, outstorefrm);
  Application.CreateForm(Tplanfrm, planfrm);
  Application.CreateForm(Tuserholdfrm, userholdfrm);
  Application.CreateForm(Tstorefindfrm,storefindfrm);
  Application.CreateForm(Tstatfrm,statfrm);
  if login.userlevel='系统管理员'  then
  begin
    supplierfrm.BitBtn3 .Enabled:=true;
    supplierfrm.modify_btn .Enabled:=true;
    supplierfrm.delete_btn .Enabled:=true;
    statfrm.Button5.Enabled :=true;
    productionfrm.modify_Pro.Enabled :=true;
    productionfrm.delete_Pro .Enabled :=true;
    placefrm.BitBtn1.Enabled  :=true;
    placefrm.Place_Mod .Enabled :=true;
    placefrm.Place_Del .Enabled :=true;
    operatorfrm.Button2.Enabled :=true;
    operatorfrm.Button3.Enabled :=true;
    operatorfrm.Button4.Enabled :=true;
    instorefrm.Instore.Enabled :=true;
    instorefrm.Instore_Change .Enabled :=true;
    instorefrm.Instore_Del.Enabled   :=true;
    instorefrm.BitBtn1.Enabled :=true;
     outstorefrm.save_btn.Enabled :=true;
     outstorefrm.modify_btn.Enabled :=true;
     outstorefrm.delete_btn .Enabled :=true;
     mainfrm.N16.Enabled :=true;
     mainfrm.N12.Enabled :=true;
     mainfrm.N18.Enabled :=true;
     mainfrm.N17.Enabled :=true;
     planfrm.New_Plan.Enabled :=true;
     planfrm.Plan_Mod.Enabled :=true;
     planfrm.Del_Plan.Enabled :=true;
     userholdfrm.Edit1.Enabled :=false;
     userholdfrm.delete_btn.Enabled :=true;
end
  else
 begin
    supplierfrm.BitBtn3 .Enabled:=false;
    supplierfrm.modify_btn .Enabled:=false;
    supplierfrm.delete_btn .Enabled:=false;
    statfrm.Button5.Enabled :=false;
    productionfrm.modify_Pro.Enabled :=false;
    productionfrm.delete_Pro .Enabled :=false;
    placefrm.BitBtn1.Enabled  :=false;
    placefrm.Place_Mod .Enabled :=false;
    placefrm.Place_Del .Enabled :=false;
    operatorfrm.Button2.Enabled :=false;
    operatorfrm.Button3.Enabled :=false;
    operatorfrm.Button4.Enabled :=false;
    instorefrm.Instore.Enabled :=false;
    instorefrm.Instore_Change .Enabled :=false;
    instorefrm.Instore_Del.Enabled   :=false;
    instorefrm.BitBtn1.Enabled :=false;
     outstorefrm.save_btn.Enabled :=false;
     outstorefrm.modify_btn.Enabled :=false;
     outstorefrm.delete_btn .Enabled :=false;
     outstorefrm.BitBtn1.Enabled :=false;
     mainfrm.N16.Enabled :=false;
     mainfrm.N12.Enabled :=false;
     mainfrm.N18.Enabled :=false;
     mainfrm.N17.Enabled :=false;
     planfrm.New_Plan.Enabled :=false;
     planfrm.Plan_Mod.Enabled :=false;
     planfrm.Del_Plan.Enabled :=false;
     userholdfrm.Edit1.Enabled :=true;
     userholdfrm.delete_btn.Enabled :=false;

  end;
end;

procedure Tmainfrm.N24Click(Sender: TObject);
begin
 loginfrm.user_ed.Text:='';
 loginfrm.pwd_ed.Text:='';
 loginfrm.Show ;
 mainfrm.Hide;
end;

procedure Tmainfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
 IF KEY=#27 then
   application.Terminate ;
end;

procedure Tmainfrm.FormCreate(Sender: TObject);
begin
  keypreview:=true;
end;

procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
begin
if messagedlg('确定退出吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate ;
end;

procedure Tmainfrm.SpeedButton5Click(Sender: TObject);
begin
 planfrm.Show ;
end;

procedure Tmainfrm.SpeedButton3Click(Sender: TObject);
begin
store_tablefrm.Show ;
end;

procedure Tmainfrm.SpeedButton2Click(Sender: TObject);
begin
 supplierfrm.Show ;
end;

procedure Tmainfrm.SpeedButton6Click(Sender: TObject);
begin
  outstorefrm.Show ;
end;

procedure Tmainfrm.SpeedButton7Click(Sender: TObject);
begin
 inout_tablefrm.show;
end;

procedure Tmainfrm.SpeedButton8Click(Sender: TObject);
begin
  useraddfrm.Show  ;
end;

procedure Tmainfrm.SpeedButton9Click(Sender: TObject);
begin
 userholdfrm.Show ;
end;

procedure Tmainfrm.N29Click(Sender: TObject);
begin
 store_tablefrm:=tstore_tablefrm.create(application);
 store_tablefrm.showmodal;
end;

procedure Tmainfrm.N31Click(Sender: TObject);
 var
  WinHWnd:integer;
begin
  WinHWnd:=FindWindow(nil,'计算器');
  if WinHWnd=0 then
    winexec('c:\WINNT\system32\calc.exe',SW_SHOWNORMAL)
  else
    messagedlg('计算器已经打开!',mtwarning,[mbok],0);
 end;

procedure Tmainfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if messagedlg('确定退出吗?',mtconfirmation,[mbyes,mbno],0)=mrno then
    action:=caNone;
end;

procedure Tmainfrm.Timer2Timer(Sender: TObject);
 var
  year,month,day:word;
  hour,minute,second,msecond:word;
  week:string;
begin
  case dayofweek(date()) of
  1:week:='星期天';
  2:week:='星期一';
  3:week:='星期二';
  4:week:='星期三';
  5:week:='星期四';
  6:week:='星期五';
  7:week:='星期六';
  end;
  decodedate(now,year,month,day);
  decodetime(now,hour,minute,second,msecond);
  statusbar1.Panels[0].Text:=' 系统日期：'+inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日'+'   ('+week+')   '+'     系统时间：'+inttostr(hour)+'点'+inttostr(minute)+'分'+inttostr(second)+'秒';
  statusbar1.Panels[1].Text:= '操作员 :    '+loginfrm.user_ed.Text ;
  statusbar1.Panels[2].Text:=' 作者：黄菊    电子邮件：[e-mail]';

end;

procedure Tmainfrm.N25Click(Sender: TObject);
begin
 Shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure Tmainfrm.N33Click(Sender: TObject);
begin
inout_tablefrm:=tinout_tablefrm.create(application);
 inout_tablefrm.showmodal;
end;

procedure Tmainfrm.N34Click(Sender: TObject);
begin
  serialfrm.show;
end;

procedure Tmainfrm.SpeedButton4Click(Sender: TObject);
begin
  instorefrm.Show ;
end;

procedure Tmainfrm.N32Click(Sender: TObject);
begin
 APPLICATION.HelpFile :='F:\数据库（黄菊）STOREHELP.HLP';
 //F:\数据库（黄菊）STOREHELP.HLP为编译好的帮助文件路径
 application.HelpJump('materialmg_content');
 //storemg_content位帮助文件目录业上的主题标识符 
end;

end.