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)
    PMInpatient: TPopupMenu;
    PMStation: TPopupMenu;
    RzLabel2: TRzLabel;
    BtnInpatient: TRzMenuButton;
    RzLabel3: TRzLabel;
    BtnStation: TRzMenuButton;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    BtnFile: TRzMenuButton;
    RzLabel4: TRzLabel;
    BtnCharge: TRzMenuButton;
    BtnQuery: TRzMenuButton;
    RzLabel5: TRzLabel;
    PMFile: TPopupMenu;
    PMCharge: TPopupMenu;
    N8: TMenuItem;
    N9: TMenuItem;
    RzLabel6: TRzLabel;
    N10: TMenuItem;
    N11: TMenuItem;
    PMQuery: TPopupMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    BtnMedicine: TRzMenuButton;
    RzLabel7: TRzLabel;
    PMMedicine: TPopupMenu;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation
uses
  RzTabs,
  Factory,
  UVADIInpatientIN,
  UVADGInpatientStationOut,
  UVADGSickNessHistoryModify,
  UVADGSickNessHistoryQuery,
  UVADGDAInput,
  UVADGDAExecuted,
  UVADGDAQuery,
  UVADGSickTollQuery,
  UVADGService,
  UVMADGMedicine,
  UVADGPStockMedicine,
  UVMADGPStockOutOrder;

{$R *.dfm}

procedure TFMain.N1Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADIInpatientIN.Create(Page, SickStationFactory));
end;

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

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

procedure TFMain.N9Click(Sender: TObject);
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGSickNessHistoryQuery.Create(Page, SickNessHistoryModifyFactory));
end;

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

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

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

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

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

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

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

end.