ufmain.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

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)
    BtnToll: TRzMenuButton;
    RzLabel2: TRzLabel;
    BtnHospital: TRzMenuButton;
    RzLabel3: TRzLabel;
    BtnSIO: TRzMenuButton;
    RzLabel4: TRzLabel;
    BtnOther: TRzMenuButton;
    RzLabel5: TRzLabel;
    PMToll: TPopupMenu;
    PMHospital: TPopupMenu;
    PMSIO: TPopupMenu;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    PMSOO: TPopupMenu;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    RzLabel6: TRzLabel;
    BtnSOO: TRzMenuButton;
    PMOther: TPopupMenu;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N12: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N2: TMenuItem;
    procedure MenuItem13Click(Sender: TObject);
    procedure MenuItem14Click(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure MenuItem8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation
uses
  RzTabs,
  Factory,
  UVMADGPSCOMedicine,
  UVADGPsiodetail,
  UVADGPsoodetail,
  UVMADGPStockInOrder,
  UVADGPstockmedicine,
  UVMADGPStockOutOrder,
  UVMADGPSCOMedicineApprove,
  UVMADGPSCOMedicineHistory,
  UVMADGPStockOutOrderApprove,
  UVMADGPStockOutOrderHistory,
  UVMADGPStockInOrderApprove,
  UVMADGPStockInOrderHistory,
  UVADGVRecipeToday,
  UVADGVRecipeTodayApprove,
  UVADGDepartmentList,
  UVADGDepartmentBack;



{$R *.dfm}

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

procedure TFMain.MenuItem14Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPSCOMedicine.Create(Page, PscomedicineFactory));
end;

procedure TFMain.MenuItem10Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPStockOutOrder.Create(Page, PstockoutorderFactory));
end;

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

procedure TFMain.MenuItem7Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPStockInOrder.Create(Page, PstockInorderFactory));
end;

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

procedure TFMain.N14Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPSCOMedicineApprove.Create(Page, PscomedicineFactory));
end;

procedure TFMain.N15Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGPSCOMedicineHistory.Create(Page, PscomedicineHistoryFactory));
end;

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

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



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

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

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

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

end.