main.~pas

1、系统环境要求：WindowsXP/2000 2、DELPHI7.0企业版 3、如果数据库为SQL Server数据库

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ActnMan, ActnColorMaps, XPStyleActnCtrls, ActnList,
  ComCtrls, ToolWin, ActnCtrls, ActnMenus, jpeg, ExtCtrls,Login,updatepass,
  operator,bookkind,bookinfo,storageinfo,providerinfo,counter,indepot,bookfix,
  adjustprice,outdepot,bookmove,booksell,cancelbook,checkprinter,check,bookdeliver,
  indepotquery,outdepotquery,sellquery,cancelquery,depotquery, StdCtrls;
  
type
  Tf_main = class(TForm)
    Image1: TImage;
    ActionMainMenuBar1: TActionMainMenuBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    Bar: TStatusBar;
    ActionList1: TActionList;
    Login: TAction;
    SysExit: TAction;
    Operator: TAction;
    Updatepass: TAction;
    Bookkind: TAction;
    bookinfo: TAction;
    Depotinfo: TAction;
    providerinfo: TAction;
    Bookin: TAction;
    Fixprice: TAction;
    updateprice: TAction;
    outbook: TAction;
    counter: TAction;
    bookmove: TAction;
    booksell: TAction;
    bookcancel: TAction;
    checkprint: TAction;
    check: TAction;
    inbookquery: TAction;
    outbookquery: TAction;
    sellquery: TAction;
    cancelquery: TAction;
    ActionManager1: TActionManager;
    XPColorMap1: TXPColorMap;
    ImageList1: TImageList;
    deliver: TAction;
    depotquery: TAction;
    deliverquery: TAction;
    Action1: TAction;
    procedure LoginExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure UpdatepassExecute(Sender: TObject);
    procedure SysExitExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure OperatorExecute(Sender: TObject);
    procedure BookkindExecute(Sender: TObject);
    procedure bookinfoExecute(Sender: TObject);
    procedure DepotinfoExecute(Sender: TObject);
    procedure providerinfoExecute(Sender: TObject);
    procedure counterExecute(Sender: TObject);
    procedure BookinExecute(Sender: TObject);
    procedure FixpriceExecute(Sender: TObject);
    procedure updatepriceExecute(Sender: TObject);
    procedure outbookExecute(Sender: TObject);
    procedure bookmoveExecute(Sender: TObject);
    procedure booksellExecute(Sender: TObject);
    procedure bookcancelExecute(Sender: TObject);
    procedure checkprintExecute(Sender: TObject);
    procedure checkExecute(Sender: TObject);
    procedure deliverExecute(Sender: TObject);
    procedure inbookqueryExecute(Sender: TObject);
    procedure outbookqueryExecute(Sender: TObject);
    procedure sellqueryExecute(Sender: TObject);
    procedure cancelqueryExecute(Sender: TObject);
    procedure depotqueryExecute(Sender: TObject);
    procedure deliverqueryExecute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetHint(Sender:TObject);
    { Public declarations }
  end;

var
  f_main: Tf_main;
  Username: String;
const
  bartitle = 0;
  barcontent = 1;
  oper = 2;
  opercontent = 3;
  logdate = 4;
  logdatecon = 5;
  logtime = 6;
  logtimecon = 7;
implementation

uses deliverquery;

{$R *.dfm}

procedure Tf_main.LoginExecute(Sender: TObject);
begin
  Application.CreateForm(Tt_Login,t_login);
  t_login.ShowModal;
  t_login.Free;
end;

procedure Tf_main.FormShow(Sender: TObject);
begin
  Login.Execute;
  Application.OnHint := SetHint;
  Bar.Panels[logdatecon].Text := FormatDateTime('yyyy-mm-dd',Now);
  Bar.Panels[logtimecon].Text := FormatDateTime('hh:mm:ss',Now);
end;

procedure Tf_main.UpdatepassExecute(Sender: TObject);
begin
  Application.CreateForm(Tt_updatepass,t_updatepass);
  t_updatepass.ShowModal;
  t_updatepass.Free;
end;

procedure Tf_main.SysExitExecute(Sender: TObject);
begin
  Close;
end;

procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('确实要退出系统吗?','提示',mb_yesno)= ID_No then
    Action := caNone;
end;

procedure Tf_main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Escape then
    Close;
end;

procedure Tf_main.OperatorExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_operator,f_operator);
  f_operator.ShowModal;
  f_operator.Free;
end;

procedure Tf_main.BookkindExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_bookkind,f_bookkind);
  f_bookkind.ShowModal;
  f_bookkind.Free;
end;

procedure Tf_main.bookinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_bookinfo,f_bookinfo);
  f_bookinfo.ShowModal;
  f_bookinfo.Free;
end;

procedure Tf_main.DepotinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_Storage,f_Storage);
  f_Storage.ShowModal;
  f_Storage.Free;
end;

procedure Tf_main.providerinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_provider,f_provider);
  f_provider.ShowModal;
  f_provider.Free;
end;

procedure Tf_main.counterExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_counter,f_counter);
  f_counter.ShowModal;
  f_counter.Free;
end;

procedure Tf_main.BookinExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_indepot,f_indepot);
  f_indepot.ShowModal;
  f_indepot.Free;
end;

procedure Tf_main.FixpriceExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_bookfix,f_bookfix);
  f_bookfix.ShowModal;
  f_bookfix.Free;
end;

procedure Tf_main.updatepriceExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_adjustprice,f_adjustprice);
  f_adjustprice.ShowModal;
  f_adjustprice.Free;
end;

procedure Tf_main.outbookExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_outdepot,f_outdepot);
  f_outdepot.ShowModal;
  f_outdepot.Free;
end;

procedure Tf_main.bookmoveExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_bookmove,f_bookmove);
  f_bookmove.ShowModal;
  f_bookmove.Free;
end;

procedure Tf_main.booksellExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_booksell,f_booksell);
  f_booksell.ShowModal;
  f_booksell.Free;
end;

procedure Tf_main.bookcancelExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_cancelbook,f_cancelbook);
  f_cancelbook.ShowModal;
  f_cancelbook.Free;
end;

procedure Tf_main.checkprintExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checkprinter,f_checkprinter);
  f_checkprinter.ShowModal;
  f_checkprinter.Free;
end;

procedure Tf_main.checkExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_check,f_check);
  f_check.ShowModal;
  f_check.Free;
end;

procedure Tf_main.deliverExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_bookdeliver,f_bookdeliver);
  f_bookdeliver.ShowModal;
  f_bookdeliver.Free;
end;

procedure Tf_main.inbookqueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_indepotquery,f_indepotquery);
  f_indepotquery.ShowModal;
  f_indepotquery.Free;
end;

procedure Tf_main.outbookqueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_outdepotquery,f_outdepotquery);
  f_outdepotquery.ShowModal;
  f_outdepotquery.Free;
end;

procedure Tf_main.sellqueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_sellquery,f_sellquery);
  f_sellquery.ShowModal;
  f_sellquery.Free;
end;

procedure Tf_main.cancelqueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_cancelquery,f_cancelquery);
  f_cancelquery.ShowModal;
  f_cancelquery.Free;
end;

procedure Tf_main.depotqueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_depotquery,f_depotquery);
  f_depotquery.ShowModal;
  f_depotquery.Free;
end;

procedure Tf_main.deliverqueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_deliverquery,f_deliverquery);
  f_deliverquery.ShowModal;
  f_deliverquery.Free;
end;

procedure Tf_main.SetHint(Sender: TObject);
begin
  Bar.Panels[barcontent].Text := Application.Hint;
end;

procedure Tf_main.Action1Execute(Sender: TObject);
begin
  Application.CreateForm(Tf_deliverquery,f_deliverquery);
  f_deliverquery.ShowModal;
  f_deliverquery.Free;
end;

end.