ufmain.pas

来自「一整套的源代码」· PAS 代码 · 共 433 行

unit UFMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMainForm, Menus, ImgList, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, RzButton, StdCtrls, RzLabel, jpeg, RzBckgnd,
  ExtCtrls, RzPanel;

type
  TFMain = class(TMainForm)
    PMBase: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    BtnBase: TRzMenuButton;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    BtnCheckIn: TRzMenuButton;
    RzLabel4: TRzLabel;
    BtnCheckOut: TRzMenuButton;
    BtnCharge: TRzMenuButton;
    RzLabel5: TRzLabel;
    BtnOther: TRzMenuButton;
    RzLabel6: TRzLabel;
    PMCheckIn: TPopupMenu;
    MenuItem4: TMenuItem;
    PMCheckOut: TPopupMenu;
    PMCharge: TPopupMenu;
    MenuItem11: TMenuItem;
    PMOther: TPopupMenu;
    MenuItem13: TMenuItem;
    MenuItem15: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    BtnPurchase: TRzMenuButton;
    RzLabel7: TRzLabel;
    PMPurchase: TPopupMenu;
    MenuItem16: TMenuItem;
    N7: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N24: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem13Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure MenuItem16Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation
uses
  RzTabs,
  Factory,
  UVADGProvider,
  UVADGCheckInMethod,
  UVADGCheckOutMethod,
  UVMADGMedicine,
  UVADGMedicineStock,
  UVADGMedicineCatalog,
  UVADGMedicineStockDetail,
  UVMADGPCOMedicine,
  UVMADGPOMedicineDetail,
  UVMADGSCOMedicine,
  UVMADGSIOMedicineDetail,
  UVADGSOOMedicineDetail,
  UVADGUnits,
  UVADGUseMethod,
  UVADGManufacturer,
  UVMADGStockInOrder,
  UVMADGStockOutOrder,
  UVMADGPURChaseOrder,
  UVADGPurchaseMethod,
  UVMADGSCOMedicineHistory,
  UVMADGSCOMedicineApprove,
  UVADGPURchaseOrderHistory,
  UVADGPURchaseOrderRefer,
  UVADGPURchaseOrderApprove,
  UVADGPCOMedicineApprove,
  UVMADGPCOMedicineHistory,
  UVADGStockInOrderApprove,
  UVMADGStockInOrderHistory,
  UVADGStockInOrderDetail,
  UVADGStockOutOrderDetail,
  UVADGStockOutOrderApprove,
  UVMADGStockOutOrderHistory,
  UVADGStockInOrderDetailCheck,
  UVADGPURChaseOrderDetail,
  UVMADGPStockInOrderApprove;

{$R *.dfm}


procedure TFMain.N5Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGMedicine.Create(Page,MedicineFactory));
end;

procedure TFMain.N7Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGUseMethod.Create(Page,UseMethodFactory));
end;

procedure TFMain.N2Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGProvider.Create(Page,ProviderFactory));
end;

procedure TFMain.N8Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGManufacturer.Create(Page,ManufacturerFactory));
end;

procedure TFMain.MenuItem1Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGCheckInMethod.Create(Page,CheckInMethodFactory));
end;

procedure TFMain.MenuItem2Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGCheckOutMethod.Create(Page,CheckOutMethodFactory));
end;



procedure TFMain.N6Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGMedicineCatalog.Create(Page,MedicineCatalogFactory));
end;



procedure TFMain.MenuItem11Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPCOMedicine.Create(Page,PCOMedicineFactory));
end;

procedure TFMain.MenuItem13Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGMedicineStock.Create(Page, QMedicineStockFactory));
end;

procedure TFMain.N11Click(Sender: TObject);
var
  Page :  TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGSCOMedicine.Create(Page,SCOMedicineFactory));
end;

procedure TFMain.N19Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGSCOMedicineApprove.Create(Page,SCOMedicineFactory));
end;

procedure TFMain.N20Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGSCOMedicineHistory.Create(Page,SCOMedicineHistoryFactory));
end;

procedure TFMain.MenuItem16Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPURChaseOrder.Create(Page,PURChaseOrderFactory));
end;

procedure TFMain.N21Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGPurchaseMethod.Create(Page,PurchaseMethodFactory));
end;

procedure TFMain.N14Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGPURchaseOrderRefer.Create(Page,PURChaseOrderReferFactory));
  end;
procedure TFMain.N15Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGPURchaseOrderApprove.Create(Page,PURChaseOrderApproveFactory));
end;

procedure TFMain.N16Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGPURchaseOrderHistory.Create(Page,PURChaseOrderHistoryFactory));
end;

procedure TFMain.N12Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGPCOMedicineApprove.Create(Page,PCOMedicineFactory));
end;

procedure TFMain.N13Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPCOMedicineHistory.Create(Page, PCOMedicineHistoryFactory));
end;

procedure TFMain.MenuItem4Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGStockInOrder.Create(Page,StockInOrderFactory));
end;

procedure TFMain.N3Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGStockInOrderApprove.Create(Page,StockInOrderApproveFactory));
end;

procedure TFMain.N18Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGStockInOrderHistory.Create(Page,StockInOrderHistoryFactory));
end;

procedure TFMain.N10Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGStockOutOrder.Create(Page,StockOutOrderFactory));
end;

procedure TFMain.N22Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGStockInOrderDetail.Create(Page,StockInOrderFactory));
end;

procedure TFMain.N23Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGStockOutOrderDetail.Create(Page,StockOutOrderFactory));
end;

procedure TFMain.N4Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGStockOutOrderApprove.Create(Page,StockOutOrderApproveFactory));
end;

procedure TFMain.N17Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGStockOutOrderHistory.Create(Page,StockOutOrderHistoryFactory));
end;

procedure TFMain.N24Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGStockInOrderDetailCheck.Create(Page,StockInOrderFactory));
end;

procedure TFMain.N26Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page :=  PagesView.NewPage;
  PagesView.BandView(Page, TVADGPURChaseOrderDetail.Create(Page, PURChaseOrderFactory));
end;

procedure TFMain.N34Click(Sender: TObject);
begin
  Close;
end;

procedure TFMain.N36Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPStockInOrderApprove.Create(Page, PStockInOrderByNotApproveFactory));
end;

end.