medicine1.~dpr

基于DELPHI+SQL的药品管理系统

program medicine1;

uses
  Forms,
  medicine in 'medicine.pas' {main},
  medicine_form1 in 'medicine_form1.pas' {med_form},
  medicine_form2 in 'medicine_form2.pas' {sale_form},
  medicine_form3 in 'medicine_form3.pas' {find_form},
  medicine_form4 in 'medicine_form4.pas' {config_Form},
  Common in 'Common.pas',
  login in 'login.pas' {frmLogin},
  RP_medicine in 'RP_medicine.pas' {QR_medicine: TQuickRep},
  medicine_form5 in 'medicine_form5.pas' {rep_form},
  medicine_form6 in 'medicine_form6.pas' {Form1},
  medicine_form7 in 'medicine_form7.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit1 in 'Unit1.pas' {QuickReport1: TQuickRep},
  rp_DateSaleSum in 'rp_DateSaleSum.pas' {qrDateSaleSum: TQuickRep},
  rp_MonthSaleSum in 'rp_MonthSaleSum.pas' {qrMonthSaleSum: TQuickRep},
  rp_YearSaleSum in 'rp_YearSaleSum.pas' {qrYearSaleSum: TQuickRep},
  rp_SaleSum in 'rp_SaleSum.pas' {qrSaleSum: TQuickRep};

{$R *.RES}

begin
  Application.Initialize;
  frmLogin := TfrmLogin.Create(nil);
  frmlogin.ShowModal;
  if gUserInfo.UserPope = '' then
     application.Terminate
  else
  begin
    Application.CreateForm(Tmain, main);
  Application.CreateForm(TQR_medicine, QR_medicine);
  Application.CreateForm(Trep_form, rep_form);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TQuickReport1, QuickReport1);
  Application.CreateForm(TqrDateSaleSum, qrDateSaleSum);
  Application.CreateForm(TqrMonthSaleSum, qrMonthSaleSum);
  Application.CreateForm(TqrYearSaleSum, qrYearSaleSum);
  Application.CreateForm(TqrSaleSum, qrSaleSum);
  Application.Run;
  end;
end.