mainut.pas

本系统主要划分为11个子模块：与操作员有关的文献刊物入库、出库、库结存和文献刊物查询

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;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N19: TMenuItem;
    N22: 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;
    N41: TMenuItem;
    N42: TMenuItem;
    N40: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    mainpl: TPanel;
    CoolBar: TCoolBar;
    ToolBar: TToolBar;
    mainimage: TImage;
    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;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);

 
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N11Click(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);
    procedure N46Click(Sender: TObject);
 //   procedure ToolButton14Click(Sender: TObject);
  private

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

var
  mainfm: Tmainfm;
  
implementation

uses loginut, infindut, chcxut, kccxut, czyglut, clbhut, ghsut,
  bfhyut, xgmmut, gyut, yjcut, 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.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.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;
//kcmxfm.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;

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



end.