ufmain.pas

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

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)
    BtnRegister: TRzMenuButton;
    RzLabel2: TRzLabel;
    PMRegister: TPopupMenu;
    N4: TMenuItem;
    N3: TMenuItem;
    BtnManager: TRzMenuButton;
    RzLabel3: TRzLabel;
    PMManager: TPopupMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation

uses
  RzTabs,
  Factory,
  UVADGReckoning,
  UVADGRmaterial,
  UVADGRMedicine,
  UVADGRoperation,
  UVADGRservice,
  UVADGTollStation,
  UVADGTollStationCharge,
  UVMADGRecipe,
  UVMADGSick,
  UVADIRecipeCharge,
  UVADGSickTollQuery,
  UVADGVPStockMedicine,
  UVADGService;

{$R *.dfm}

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

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

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

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

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

end.