mainfm.pas

库房管理系统

unit MainFm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ToolWin, ImgList, DB, ExtCtrls, Buttons,
  StdCtrls, Grids, DBGrids,    ADODB,  jpeg;
 
type
  TMain = class(TForm)
    status: TStatusBar;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    Open1: TMenuItem;
    New1: TMenuItem;
    Edit1: TMenuItem;
    N5: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    Contents1: TMenuItem;
    Window1: TMenuItem;
    Edit2: TMenuItem;
    N9: TMenuItem;
    Report1: TMenuItem;
    stockanalysisreport1: TMenuItem;
    departdictionary1: TMenuItem;
    stockin1: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    DataSource1: TDataSource;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Splitter2: TSplitter;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton24: TSpeedButton;
    Timer1: TTimer;
    moneydict1: TMenuItem;
    invoice1: TMenuItem;
    analysis1: TMenuItem;
    goodsinput1: TMenuItem;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton9: TSpeedButton;
    BTNRPT: TSpeedButton;
    BTNQUT: TSpeedButton;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    BOM1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ADO_tmp: TADOQuery;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    pnlTop: TPanel;
    ImgTop: TImage;
    Label1: TLabel;
    lbType: TLabel;
    Label2: TLabel;
    lbEdition: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    pnlClient: TPanel;
    ImgMain: TImage;
    spbSystem: TSpeedButton;
    spbPurchase: TSpeedButton;
    spbSell: TSpeedButton;
    stockrpt: TSpeedButton;
    moneybtn: TSpeedButton;
    mtrcodebtn: TSpeedButton;
    invicebtn: TSpeedButton;
    stockstatus: TSpeedButton;
    loginbtn: TSpeedButton;
    contractbtn: TSpeedButton;
    bombtn: TSpeedButton;
    optbtn: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    shipbtn: TSpeedButton;
    mtrbtn: TSpeedButton;
    stockbtn: TSpeedButton;
    N16: TMenuItem;
    Bevel1: TBevel;
    tUnit: TSpeedButton;
    ProductBtn: TSpeedButton;
    ProductAdjust: TSpeedButton;
    stockin: TSpeedButton;
    N17: TMenuItem;
    N18: TMenuItem;
    SpeedButton21: TSpeedButton;
    SpeedButton25: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    Label5: TLabel;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    SpeedButton31: TSpeedButton;
    SpeedButton32: TSpeedButton;
    SpeedButton34: TSpeedButton;
    SpeedButton37: TSpeedButton;
    SpeedButton36: TSpeedButton;
    SpeedButton35: TSpeedButton;
    SpeedButton33: TSpeedButton;
    SpeedButton39: TSpeedButton;
    SpeedButton40: TSpeedButton;
    SpeedButton41: TSpeedButton;
    SpeedButton45: TSpeedButton;
    SpeedButton46: TSpeedButton;
    SpeedButton10: TSpeedButton;
    procedure Exit1Click(Sender: TObject);
    procedure stockanalysisreport1Click(Sender: TObject);
    procedure stockin1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure analysis1Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure goodsinput1Click(Sender: TObject);
    procedure SpeedButton35Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure moneydict1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure BTNRPTClick(Sender: TObject);
    procedure SpeedButton45Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure loginbtnClick(Sender: TObject);
    procedure bombtnClick(Sender: TObject);
    procedure contractbtnClick(Sender: TObject);
    procedure invicebtnClick(Sender: TObject);
    procedure mtrbtnClick(Sender: TObject);
    procedure moneybtnClick(Sender: TObject);
    procedure stockstatusClick(Sender: TObject);
    procedure mtrcodebtnClick(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure spbPurchaseClick(Sender: TObject);
    procedure spbSellClick(Sender: TObject);
    procedure spbSystemClick(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure ProductBtnClick(Sender: TObject);
    procedure optbtnClick(Sender: TObject);
    procedure stockrptClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure BOM1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure SpeedButton40Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure tUnitClick(Sender: TObject);
    procedure ProductAdjustClick(Sender: TObject);
    procedure stockinClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton37Click(Sender: TObject);
    procedure stockbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

  const
  MsgShw     = '提示';
  MsgWar     = '警告';
  MsgErr     = '错误';
  MsgQst     = '询问';
  Msg1OKINFO = MB_OK + MB_ICONINFORMATION;
  Msg1OKWarn = MB_OK + MB_ICONWARNING;
  Msg2YNINFO = MB_YESNO + MB_ICONINFORMATION;
  Msg2YNQUST = MB_YESNO + MB_ICONQUESTION;
  Msg2YNWARN = MB_YESNO + MB_ICONWARNING;
  Msg3YNCQST = MB_YESNOCANCEL + MB_ICONQUESTION;

 implementation
uses un_utl,UNRPTX,stockinform,stockoutform,rptfm,login,spzlgl,jhdgl,xstj,dm,jldwgl,purchaseOrderFM,outForm,
     UNABOUT,MoneyFM,providerfm,MaterialFM,shellAPI,stockFM,takeMtrFM,productINFM,
     storgecheckFM,BOMFM,contractAdjFM,ProductCodeFM,InoutForm;

{$R *.dfm}

procedure TMain.Exit1Click(Sender: TObject);
begin
    if messagebox(Handle,'Sure to exit?',Pchar(MsgShw),mb_iconinformation+mb_OKCancel)=idok then
    Application.Terminate;
end;

procedure TMain.stockanalysisreport1Click(Sender: TObject);
begin
  // reportfm.ShowModal;
end;

procedure TMain.stockin1Click(Sender: TObject);
begin
  jhdglfrm.ShowModal;

end;

procedure TMain.N9Click(Sender: TObject);
begin
  //  stockOutfm.ShowModal;
    stockINfm.ShowModal;
end;

procedure TMain.New1Click(Sender: TObject);
begin
  loginfrm.ShowModal;
end;

procedure TMain.Timer1Timer(Sender: TObject);
begin
 status.Panels[2].Text:=formatdatetime('YYYY-MM-DD HH:MM:SS',now());   
end;

procedure TMain.N5Click(Sender: TObject);
begin
   jldwglfrm.ShowModal;
end;

procedure TMain.analysis1Click(Sender: TObject);
begin
 // xstjfrm.ShowModal;
end;

procedure TMain.SpeedButton32Click(Sender: TObject);
begin
   jhdglfrm.ShowModal;
end;

procedure TMain.SpeedButton31Click(Sender: TObject);
begin
   spzlglfrm.ShowModal;
end;

procedure TMain.goodsinput1Click(Sender: TObject);
begin
   spzlglfrm.ShowModal;
end;

procedure TMain.SpeedButton35Click(Sender: TObject);
begin
 stockINfm.ShowModal;
end;

procedure TMain.About1Click(Sender: TObject);
begin
  FMABOUT.ShowModal;
end;

procedure TMain.SpeedButton25Click(Sender: TObject);
begin
   loginfrm.ShowModal;
end;

procedure TMain.SpeedButton7Click(Sender: TObject);
begin
   loginfrm.ShowModal;
end;

procedure TMain.BTNQUTClick(Sender: TObject);
begin
 if MessageBox(Handle, PChar('sure to exit?'), MsgQst, Msg3YNCQST) = IDYES then

  Application.Terminate;
end;

procedure TMain.SpeedButton3Click(Sender: TObject);
begin
  jhdglfrm.ShowModal;
//  jhdglfrm.ShowModal;

end;

procedure TMain.SpeedButton34Click(Sender: TObject);
begin
  //  jhdglfrm.ShowModal;
   contractAdjust.showModal;
end;

procedure TMain.SpeedButton26Click(Sender: TObject);
begin
   jldwglfrm.ShowModal;
end;

procedure TMain.SpeedButton27Click(Sender: TObject);
begin
  Mform.ShowModal;
end;

procedure TMain.moneydict1Click(Sender: TObject);
begin
    Mform.ShowModal;
end;

procedure TMain.SpeedButton5Click(Sender: TObject);
begin
   stockINfm.ShowModal;
end;

procedure TMain.SpeedButton28Click(Sender: TObject);
begin
  provider.ShowModal;
end;

procedure TMain.SpeedButton33Click(Sender: TObject);
begin
   material.showmodal;
end;

procedure TMain.SpeedButton6Click(Sender: TObject);
begin
  material.Showmodal;
end;

procedure TMain.FormShow(Sender: TObject);
begin
//   loginfrm.ShowModal;
end;

procedure TMain.SpeedButton4Click(Sender: TObject);
begin
//   jhdglfrm.ShowModal;
   contractAdjust.ShowModal;
end;

procedure TMain.SpeedButton29Click(Sender: TObject);
begin
   material.showmodal;
end;

procedure TMain.BTNRPTClick(Sender: TObject);
begin
  FMRPTX.ShowModal;
end;

procedure TMain.SpeedButton45Click(Sender: TObject);
begin
  // stockform.ShowModal;
  storgecheck.ShowModal;
end;

procedure TMain.SpeedButton10Click(Sender: TObject);
begin
  takeMtr.ShowModal;
end;

procedure TMain.SpeedButton36Click(Sender: TObject);
begin
   // productIN.ShowModal;
   stockOut.ShowModal;
end;

procedure TMain.N4Click(Sender: TObject);
begin
   //  purchaseOrder.ShowModal;
        jhdglfrm.contract_rpt.ShowReport;
end;

procedure TMain.loginbtnClick(Sender: TObject);
begin
      loginfrm.ShowModal;
end;

procedure TMain.bombtnClick(Sender: TObject);
begin
     material.Showmodal;
end;

procedure TMain.contractbtnClick(Sender: TObject);
begin
  jhdglfrm.ShowModal;
end;

procedure TMain.invicebtnClick(Sender: TObject);
begin

  //    jhdglfrm.ShowModal;
   stockOut.ShowModal;

end;

procedure TMain.mtrbtnClick(Sender: TObject);
begin
 stockINfm.ShowModal;
end;

procedure TMain.moneybtnClick(Sender: TObject);
begin
  Mform.ShowModal;
end;

procedure TMain.stockstatusClick(Sender: TObject);
begin
  //  storgecheck.ShowModal;
        stockOut.stock_rpt.ShowReport;
end;

procedure TMain.mtrcodebtnClick(Sender: TObject);
begin
  spzlglfrm.ShowModal;
end;

procedure TMain.SpeedButton8Click(Sender: TObject);
begin
    spzlglfrm.ShowModal;
end;

procedure TMain.SpeedButton15Click(Sender: TObject);
begin

   stockbtn.Visible:=true;
//   stockstatus.Enabled:=true;
   stockstatus.Visible:=true;
//   stockrpt.Enabled:=true;
   stockrpt.Visible:=true;
   stockin.Visible:=true;
end;

procedure TMain.spbPurchaseClick(Sender: TObject);
begin
  contractbtn.Enabled:=true;
  invicebtn.Enabled:=true;
  mtrbtn.Enabled:=true;
  contractbtn.visible:=true;
  invicebtn.visible:=true;
  mtrbtn.visible:=true;
  ProductAdjust.visible:=true;
end;

procedure TMain.spbSellClick(Sender: TObject);
begin
    moneybtn.Enabled:=true;
    bombtn.Enabled:=true;
    mtrcodebtn.Enabled:=true;
    moneybtn.visible:=true;
    bombtn.visible:=true;
    mtrcodebtn.visible:=true;
    ProductBtn.Visible:=true;
end;

procedure TMain.spbSystemClick(Sender: TObject);
begin
//   optbtn.Enabled:=true;
   optbtn.Visible:=true;
//   loginbtn.Enabled:=true;
   loginbtn.Visible:=true;
//   shipbtn.Enabled:=true;
   shipbtn.Visible:=true;
   tUnit.Visible:=true;
end;

procedure TMain.SpeedButton9Click(Sender: TObject);
begin
  stockOut.ShowModal;
end;

procedure TMain.ProductBtnClick(Sender: TObject);
begin
  ProductCode.ShowModal;
end;

procedure TMain.optbtnClick(Sender: TObject);
begin
   showmessage('先录入基础数据:如币种,单位,物料及成品代码等');
   showmessage('然后合同申请...料件入库,成品出库...料件出库...');
end;

procedure TMain.stockrptClick(Sender: TObject);
begin
   FMRPTX.ShowModal;
end;

procedure TMain.N2Click(Sender: TObject);
begin
      contractAdjust.ShowModal;
end;

procedure TMain.BOM1Click(Sender: TObject);
begin
        material.Showmodal;
end;

procedure TMain.N10Click(Sender: TObject);
begin
     stockOut.ShowModal;
end;

procedure TMain.N16Click(Sender: TObject);
begin
     spzlglfrm.ShowModal;
end;

procedure TMain.N17Click(Sender: TObject);
begin
     ProductCode.ShowModal;
end;

procedure TMain.SpeedButton40Click(Sender: TObject);
begin
      stockOut.stock_rpt.ShowReport;
end;

procedure TMain.N18Click(Sender: TObject);
begin
        stockOut.stock_rpt.ShowReport;
end;

procedure TMain.N7Click(Sender: TObject);
begin
     stockINfm.mtr_rpt.ShowReport;
end;

procedure TMain.N6Click(Sender: TObject);
begin
     stockOut.out_put.ShowReport;
end;

procedure TMain.tUnitClick(Sender: TObject);
begin
     jldwglfrm.ShowModal;
end;

procedure TMain.ProductAdjustClick(Sender: TObject);
begin
//     contractAdjust.ShowModal;
     contractAdjust.ShowModal;
//     jhdglfrm.ShowModal;
end;

procedure TMain.stockinClick(Sender: TObject);
begin
  INstockOut.ShowModal;
end;

procedure TMain.SpeedButton1Click(Sender: TObject);
begin
    INstockOut.ShowModal;
end;

procedure TMain.SpeedButton37Click(Sender: TObject);
begin
  INstockOut.ShowModal;
end;

procedure TMain.stockbtnClick(Sender: TObject);
begin
   storgecheck.ShowModal;
end;

end.