📄 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)
    BtnBaseInfo: TRzMenuButton;
    BtnChgInfo: TRzMenuButton;
    BtnEmpOrg: TRzMenuButton;
    BtnHospitalInfo: TRzMenuButton;
    BtnSickBaseInfo: TRzMenuButton;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N2: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N3: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    PMBaseInfo: TPopupMenu;
    PMChgInfo: TPopupMenu;
    PMEmpOrg: TPopupMenu;
    PMHospitalInfo: TPopupMenu;
    PMSickBaseInfo: TPopupMenu;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    N1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation

uses
  RzTabs,
  Factory,
  UVADGDepartment,
  UVADGDoctor,
  UVMADGDoctorAdvice,
  UVADGDoctorAdviceType,
  UVADGDoctorCatalog,
  UVADGEmployee,
  UVADGPersonrelation,
  UVADGSectionOffice,
  UVADGSectionOfficeChargeItem,
  UVADGService,
  UVADGServiceCatalog,
  UVADGTimes,
  UVADGArea,
  UVADGChargeCatalog,
  UVADGChargeItem,
  UVADGCountry,
  UVADGDose,
  UVADGJob,
  UVADGNation,
  UVADGNativePlace,
  UVADGOperation,
  UVADGOperationCatalog,
  UVADGPaymentMethod,
  UVADGPrepayMehtod,
  UVADGProfession,
  UVADGSickness,
  UVADGSickNesscatalog,
  UVADGSickRoom,
  UVADGSickroomChargeItem,
  UVADGSickType,
  UVADGTollStationCharge,
  UVADGUnits,
  UVADGUseMethod,
  UVADGWedlock,
  UVADGTollStation,
  UVADGMedicineCatalog,
  UVMADGMedicine,
  UVADGFrequencyWeek,
  UVADGTendLevel,
  UVADGSickNessState,
  UVADGFood,
  UVADGApproach,
  UVADGBed,
  UVADGSickNessLevel,
  UVADGDiagnose;

{$R *.dfm}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TFMain.N19Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGProfession.Create(Page,ProfessionFactory));
end;

procedure TFMain.N20Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGPaymentMethod.Create(Page, PaymentMethodFactory));
end;

procedure TFMain.N21Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGPrepayMehtod.Create(Page,PrepayMehtodFactory));
end;

procedure TFMain.N22Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGOperationCatalog.Create(Page, OperationCatalogFactory));
end;

procedure TFMain.N23Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGOperation.Create(Page, OperationFactory));
end;

procedure TFMain.N24Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGNation.Create(Page, NationFactory));
end;

procedure TFMain.N25Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGNativePlace.Create(Page, NativePlaceFactory));
end;

procedure TFMain.N26Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGCountry.Create(Page, CountryFactory));
end;

procedure TFMain.N27Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page,TVADGPersonrelation.Create(Page,PersonrelationFactory));
end;

procedure TFMain.N28Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGChargeCatalog.Create(Page, ChargeCatalogFactory));
end;

procedure TFMain.N29Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGChargeItem.Create(Page, ChargeItemFactory));
end;

procedure TFMain.N30Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGSectionOfficeChargeItem.Create(Page, SectionOfficeChargeItemFactory));
end;

procedure TFMain.N31Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGDose.Create(Page, DoseFactory));
end;

procedure TFMain.N32Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGSickroomChargeItem.Create(Page, SickroomChargeItemFactory));
end;

procedure TFMain.N33Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGTollStationCharge.Create(Page, TollStationChargeFactory));
end;

procedure TFMain.N34Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGSickRoom.Create(Page, SickRoomFactory));
end;

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

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

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

procedure TFMain.N35Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGTendLevel.Create(Page, TendLevelFactory));
end;

procedure TFMain.N36Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGSickNessState.Create(Page, SickNessStateFactory));
end;

procedure TFMain.N37Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGFood.Create(Page, FoodFactory));
end;

procedure TFMain.N38Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGDoctorAdviceType.Create(Page, DoctorAdviceTypeFactory));
end;

procedure TFMain.N39Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGApproach.Create(Page, ApproachFactory));
end;

procedure TFMain.N40Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGBed.Create(Page, BedFactory));
end;

procedure TFMain.N43Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGSickNessLevel.Create(Page, SickNessLevelFactory));
end;

procedure TFMain.N44Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGDiagnose.Create(Page, DiagnoseFactory));
end;

procedure TFMain.N45Click(Sender: TObject);
var
  Page: TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGArea.Create(Page, AreaFactory));
end;

end.

{
  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVMADGDoctorAdvice.Create(Page, DoctorAdviceFactory));

  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGDoctorAdviceType.Create(Page, DoctorAdviceTypeFactory));

  Page := PagesView.NewPage;
  PagesView.BandView(Page, TVADGTimes.Create(Page, TimesFactory));
}
⌨️ 快捷键说明

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