📄 mainform.~pas

📁 是分布式粮库程序,是采用Delphi实现的
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit MainForm;

interface

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


  const CM_RESTORE = WM_USER + $1000; {自定义的“恢复”消息}
      myappname= 'test';//自定义一个窗口类名


type
  TFrmMain = class(TForm)
    StatusBar1: TStatusBar;
    ImageListChildForm: TImageList;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    TlBtnExitSystem: TToolButton;
    pnl: TPanel;
    ToolButton3: TToolButton;
    Timer1: TTimer;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N70: TMenuItem;
    N69: TMenuItem;
    StudentMngt: TMenuItem;
    InNotyDispose: TMenuItem;
    TransferNotyDispose: TMenuItem;
    N8: TMenuItem;
    TransferStore: TMenuItem;
    TransferInStack: TMenuItem;
    RecieveFdBill: TMenuItem;
    TransferOutStack: TMenuItem;
    SaleOutStack: TMenuItem;
    SaleBillDispose: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N25: TMenuItem;
    N49: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N24: TMenuItem;
    N60: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N26: TMenuItem;
    N6: TMenuItem;
    N12: TMenuItem;
    N80: TMenuItem;
    N4: TMenuItem;
    N16: TMenuItem;
    N20: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N23: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure TlBtnExitSystemClick(Sender: TObject);
    procedure EdtPswrdClick(Sender: TObject);
    procedure InNotyDisposeClick(Sender: TObject);
    procedure TransferStoreClick(Sender: TObject);
    procedure RecieveFdBillClick(Sender: TObject);
    procedure TransferInStackClick(Sender: TObject);
    procedure SaleBillDisposeClick(Sender: TObject);
    procedure TransferOutStackClick(Sender: TObject);
    procedure SaleOutStackClick(Sender: TObject);
    procedure TransferNotyDisposeClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure NServerClick(Sender: TObject);
    procedure NClientClick(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N73Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N76Click(Sender: TObject);
    procedure N77Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N83Click(Sender: TObject);
    procedure N79Click(Sender: TObject);
    procedure N80Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
  private
    { Private declarations }
     procedure DoEnterAsTab(var Msg:TMsg; var Handled:Boolean);
     function TestRptDataisNull(iUID : integer ;const pAttr : PChar):boolean;
     function TestRpt1Dataisnull(const pAttr : PChar):boolean;
  public
    { Public declarations }
    FrmFlag:string;
    procedure CreateParams(var Params: TCreateParams);override;
    Procedure RestoreRequest(var message: TMessage); message CM_RESTORE;
  end;

var
  FrmMain: TFrmMain;

implementation

uses UntStack,UntAdjustAttrDispose,Uuser,UPlanCase,UntAdjstAttr,UntTransferNotyDispose,UntTransferOutStack,UntSaleOutStack,UntSalBillDispose,UntTransferInStack,
     UntTransferStore,UntRecieveFdBill,UntInNotyDispose,UnitLoginForm,UntEdtPswrd,Global,
    UntBaseRight, UntUserRightSet, UntDptEmp, UntChooseReport,uRpt4,us_rpt2,URpt1_1,
   umakesales, umakenotice, unit1,ustockquery,uRPT2_UnitSel,
  unoticequery, Usalequery,Upackagequery,Uqualityquery,Uunitbase,ubunit,ubfoodtype,
   UntRptMonth;
{$R *.DFM}

procedure TFrmMain.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoEnterAsTab;
LoginForm:=TLoginForm.Create(self);
try
  if LoginForm.ShowModal=mrCancel then
    begin
      Application.Terminate;
      exit;
    end;
finally
  LoginForm.Free;
  LoginForm := nil;
end;
end;



procedure TFrmMain.TlBtnExitSystemClick(Sender: TObject);
begin
  close;
end;

procedure TFrmMain.EdtPswrdClick(Sender: TObject);
begin
  FrmEdtPswrd := TFrmEdtPsWrd.Create(Application);
  FrmEdtPswrd.Show;
end;



procedure TFrmMain.InNotyDisposeClick(Sender: TObject);
begin
  FrmInNotyDispose := TFrmInNotyDispose.Create(Application);
  FrmInNotyDispose.Show;
end;




procedure TFrmMain.TransferStoreClick(Sender: TObject);
begin
  FrmFlag:='出库移库单窗口';
  FrmTransferStore := TFrmTransferStore.Create(Application);
  FrmTransferStore.Show;
end;

procedure TFrmMain.RecieveFdBillClick(Sender: TObject);
begin
  FrmRecieveFdBill := TFrmRecieveFdBill.Create(Application);
  FrmRecieveFdBill.Show;
end;

procedure TFrmMain.TransferInStackClick(Sender: TObject);
begin
  FrmTransferInStack := TFrmTransferInStack.Create(Application);
  FrmTransferInStack.Show;
end;

procedure TFrmMain.SaleBillDisposeClick(Sender: TObject);
begin
  FrmSaleBillDispose := TFrmSaleBillDispose.Create(Application);
  FrmSaleBillDispose.Show;
end;

procedure TFrmMain.TransferOutStackClick(Sender: TObject);
begin
  FrmTransferOutStack := TFrmTransferOutStack.Create(Application);
  FrmTransferOutStack.Show;
end;

procedure TFrmMain.SaleOutStackClick(Sender: TObject);
begin
  FrmSaleOutStack := TFrmSaleOutStack.Create(Application);
  FrmSaleOutStack.Show;
end;

procedure TFrmMain.TransferNotyDisposeClick(Sender: TObject);
begin
  FrmTransferNotyDispose := TFrmTransferNotyDispose.Create(Application);
  FrmTransferNotyDispose.Show;
end;

procedure TFrmMain.N2Click(Sender: TObject);
begin
  FrmPlanCase := TFrmPlanCase.Create(Application);
  FrmPlanCase.Show;
end;

procedure TFrmMain.N11Click(Sender: TObject);
begin
  frmBaseRight:=TfrmBaseRight.Create(nil);
  frmBaseRight.Visible:=false;
  frmbaseRight.Showmodal;
end;

procedure TFrmMain.N12Click(Sender: TObject);
begin
  frmUserRightSet:=TfrmUserRightSet.Create(nil);
  frmUserRightSet.Visible:=false;
  frmUserRightSet.Showmodal;
end;

procedure TFrmMain.N57Click(Sender: TObject);
begin
  Application.CreateForm(TfrmDptEmp, frmDptEmp);
  frmDptEmp.Visible:=false;
  frmDptEmp.Showmodal;
end;

procedure TFrmMain.N36Click(Sender: TObject);
begin
  frmChooseReport:=TfrmChooseReport.Create(nil);
  frmChooseReport.Show;
end;

procedure TFrmMain.N49Click(Sender: TObject);
begin
  CreateReport_4;
  FreeReport_4;
end;

procedure TFrmMain.N60Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
  i:=g_user.UnitID;
  s := '代储';
  pattr := PChar(s);
  if not TestRptDataisNull(i,pattr) then exit;
  US_CreateReport2(i,pattr);
  US_FreeReport2;
end;

procedure TFrmMain.N62Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
 i:=g_user.UnitID;
  s := '定购粮';
  pattr := PChar(s);
  if not TestRptDataisNull(i,pattr) then exit;
  US_CreateReport2(i,pattr);
  US_FreeReport2;
end;

procedure TFrmMain.N63Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
  i:=g_user.UnitID;
  s := '国家储备';
  pattr := PChar(s);
  if not TestRptDataisNull(i,pattr) then exit;
  US_CreateReport2(i,pattr);
  US_FreeReport2;
end;

procedure TFrmMain.N65Click(Sender: TObject);
var pattr : PChar;
    i : integer;
    s,Unit_ID : string;
begin
  i:=g_user.UnitID;
  s := '市级储备';
  pattr := PChar(s);
  if not TestRptDataisNull(i,pattr) then exit;
  US_CreateReport2(i,pattr);
  US_FreeReport2;
end;
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -