mainut.~pas

仓库的进销存,及查询,供应商的管理.和库存的查询及管理.

unit mainut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, jpeg, ImgList, XPMan;

type
  Tmainfm = class(TForm)
    MainMenu: 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;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N40: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    mainpl: TPanel;
    CoolBar: TCoolBar;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    mainimage: TImage;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    StatusBar: TStatusBar;
    PopupMenu: TPopupMenu;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    Timer1: TTimer;
    PrinterSetupDialog1: TPrinterSetupDialog;
    ImageList1: TImageList;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N37Click(Sender: TObject);
  private

    { Private declarations }
  public
   logined:boolean;
   id,username,userpas:string;
    { Public declarations }
  end;

var
  mainfm: Tmainfm;
  
implementation


uses loginut, inut, Unit1, infindut, chcxut, kccxut, perut, czyglut,
  clbhut, ghsut, bfhyut, xgmmut, gyut, yjcut, ybb, ckybbut, kcmxut;

{$R *.dfm}


procedure Tmainfm.FormCreate(Sender: TObject);
var
i:integer;
begin
logined:=false;
i:=0;
autoscroll:=false;
windowstate:=wsMaximized;
logined:=false;
statusbar.Panels.Items[3].Text:=datetostr(date())+'  '+timetostr(time());
end;

procedure Tmainfm.FormActivate(Sender: TObject);
begin
if not logined then
begin
loginfm.showmodal;
logined:=true;
end;
end;
procedure Tmainfm.N2Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n2.Caption;
infm:=Tinfm.create(self);
infm.showmodal;
infm.free;
end;

procedure Tmainfm.N4Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n4.Caption;
outfm:=Toutfm.create(self);
outfm.showmodal;
outfm.free;
end;

procedure Tmainfm.N7Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n7.Caption;
rkcxfm:=Trkcxfm.create(self);
rkcxfm.showmodal;
rkcxfm.free;
end;

procedure Tmainfm.N9Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n9.Caption;
ckcxfm:=Tckcxfm.create(self);
ckcxfm.showmodal;
ckcxfm.free;
end;

procedure Tmainfm.N44Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n44.Caption;
if messagedlg('确定退出吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;
end;

procedure Tmainfm.N11Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n11.Caption;
kccxfm:=Tkccxfm.create(self);
kccxfm.showmodal;
kccxfm.free;
end;

procedure Tmainfm.N23Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n23.Caption;
ryglfm:=Tryglfm.create(self);
ryglfm.showmodal;
ryglfm.free;
end;

procedure Tmainfm.N25Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n25.Caption;
czyglfm:=Tczyglfm.create(self);
czyglfm.showmodal;
czyglfm.free;
end;

procedure Tmainfm.N27Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n27.Caption;
clbhfm:=Tclbhfm.create(self);
clbhfm.showmodal;
clbhfm.free;
end;

procedure Tmainfm.N29Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n29.Caption;
ghsglfm:=Tghsglfm.create(self);
ghsglfm.showmodal;
ghsglfm.free;
end;

procedure Tmainfm.N31Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n31.Caption;
sjbffm:=Tsjbffm.create(self);
sjbffm.showmodal;
sjbffm.free;
end;

procedure Tmainfm.N33Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n33.Caption;
xgmmfm:=Txgmmfm.create(self);
xgmmfm.showmodal;
xgmmfm.free;
end;

procedure Tmainfm.N42Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n42.Caption;
gyfm:=Tgyfm.create(self);
gyfm.showmodal;
gyfm.free;
end;

procedure Tmainfm.Timer1Timer(Sender: TObject);
begin
statusbar.Panels.Items[3].Text:=datetostr(date())+'  '+timetostr(time());

statusbar.Panels.Items[2].Text:=chr(13)+'欢迎使用博坤鞋业库存管理系统!!';

end;

procedure Tmainfm.N13Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n13.Caption;
jcfm:=Tjcfm.create(self);
jcfm.showmodal;
jcfm.free;
end;

procedure Tmainfm.N15Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n15.Caption;
rkybbfm.quickrep1.preview;
end;

procedure Tmainfm.N17Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n17.Caption;
ckybbfm.quickrep1.preview;
end;

procedure Tmainfm.N19Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n19.Caption;
kcmxfm.quickrep1.preview;
end;

procedure Tmainfm.N35Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n35.Caption;
loginfm.ShowModal;
end;

procedure Tmainfm.N40Click(Sender: TObject);
begin
mainfm.statusbar.Panels.Items[1].Text:='当前操作：'+n40.Caption;
printersetupdialog1.Execute;
end;

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

procedure Tmainfm.N37Click(Sender: TObject);
begin
showmessage('请查看帮助文件!');
end;

end.