mainunit.~pas

来自「批发商品管理系统 目前我正在潜心研究」· ~PAS 代码 · 共 161 行

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzGroupBar, ExtCtrls, RzPanel, RzSplit, cxControls, cxPC, Menus,
  XPMenu, RzStatus, ComCtrls, ToolWin, ImgList, ActnList, Grids, DBGrids,
  StdCtrls, RzLabel, RzGrids, RzEdit, Mask, RzDTP, RzButton, ADODB, DB,
  RzCmboBx, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxCalendar, dxCntner, dxEditor, dxExEdtr, dxEdLib, RzPopups, cxBlobEdit,
  cxGroupBox, cxGraphics, cxCheckComboBox, RzListVw;

type
  TMainForm = class(TForm)
    RzSizePanel: TRzSizePanel;
    RzGroupBar2: TRzGroupBar;
    RzGroup8: TRzGroup;
    RzGroup9: TRzGroup;
    RzGroup10: TRzGroup;
    RzGroup11: TRzGroup;
    RzGroup12: TRzGroup;
    RzGroup13: TRzGroup;
    RzGroup14: TRzGroup;
    RzGroup15: TRzGroup;
    XPMenu1: TXPMenu;
    MainMenu: TMainMenu;
    cbMain: TCoolBar;
    tbMain: TToolBar;
    ToolButton8: TToolButton;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    Exit5: TToolButton;
    RzStatusBar: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzKeyStatus1: TRzKeyStatus;
    RzKeyStatus2: TRzKeyStatus;
    RzStatusPane2: TRzStatusPane;
    MainPanel: TPanel;
    ImageList2: TImageList;
    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;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: 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;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    ToolButton12: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton22: TToolButton;
    MainPC: TcxPageControl;
    TranList: TActionList;
    RequisitionPurchase: TAction;
    OrderformPurchase: TAction;
    InputwarehousePurchase: TAction;
    RetrunOutputPurchase: TAction;
    RD: TADODataSet;
    RDs: TADODataSet;
    CMD: TADOCommand;
    RequisitionNewProduct: TAction;
    cxTabSheet1: TcxTabSheet;
    RzListView1: TRzListView;
    ImageList1: TImageList;
    ProductManage: TAction;
    ProductManageSetup: TAction;
    FlowManage: TAction;
    procedure RequisitionNewProductExecute(Sender: TObject);
    procedure ProductManageExecute(Sender: TObject);
    procedure RequisitionPurchaseExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
uses
  DataModule,NewProductUnit, ProductManageUnit ,FlowCourseUnit,RequisitionUnit;
{$R *.dfm}

procedure TMainForm.RequisitionNewProductExecute(Sender: TObject);
begin
    NewProductForm := TNewProductForm.Create(Self);
    NewProductForm.Show;
    NewProductForm.Top := cbMain.Height + 39 ;
    NewProductForm.Left:= RzSizePanel.Width + 3 ;
    NewProductForm.Height := MainPC.Height -1 ;
    NewProductForm.Width := MainPC.Width -4;
    UserName := 'D002';
    FlowNO := 1;
end;

procedure TMainForm.ProductManageExecute(Sender: TObject);
begin
    ProductManageForm := TProductManageForm.Create(Self);
    ProductManageForm.Show;
    ProductManageForm.Top := cbMain.Height + 39 ;
    ProductManageForm.Left:= RzSizePanel.Width + 3 ;
    ProductManageForm.Height := MainPC.Height -1 ;
    ProductManageForm.Width := MainPC.Width -4;
end;

procedure TMainForm.RequisitionPurchaseExecute(Sender: TObject);
begin

    RequisitionForm := TRequisitionForm.Create(Self);
    RequisitionForm.Show;
    RequisitionForm.Top := cbMain.Height + 39 ;
    RequisitionForm.Left:= RzSizePanel.Width + 3 ;
    RequisitionForm.Height := MainPC.Height -1 ;
    RequisitionForm.Width := MainPC.Width -4;
    end;
end.