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)
    RzLabel2: TRzLabel;
    BtnManager: TRzMenuButton;
    RzLabel3: TRzLabel;
    BtnCharge: TRzMenuButton;
    BtnQuery: TRzMenuButton;
    RzLabel4: TRzLabel;
    PMManager: TPopupMenu;
    PMCharge: TPopupMenu;
    PMQuery: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation
uses
  RzTabs,
  Factory,
  UVADGPrepayOp,
  UVADGDAQuery,
  UVADGSickTollQuery,
  UVADISInpatientCharge;
{$R *.dfm}



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

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

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

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

end.