📄 ufmain.pas

📁 Delphi6开发的HIS程序
💻 PAS
字号:
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.
⌨️ 快捷键说明

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