pi.dpr

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

program PI;

uses
  Forms,
  untMain in 'untMain.pas' {frmMain},
  untBase in 'Base\untBase.pas' {frmBase},
  untBaseDialog in 'Base\untBaseDialog.pas' {frmBaseDialog},
  untBaseSingle in 'Base\untBaseSingle.pas' {frmBaseSingle},
  untBaseSingleEdit in 'Base\untBaseSingleEdit.pas' {frmBaseSingleEdit},
  untBaseMD in 'Base\untBaseMD.pas' {frmBaseMD},
  untLocateOption in 'public\untLocateOption.pas' {frmLocateOption},
  untGlobalFun in 'public\untGlobalFun.pas',
  untGlobalVar in 'public\untGlobalVar.pas',
  untDM in 'DM\untDM.pas' {DM: TDataModule},
  untSelectRecord in 'public\untSelectRecord.pas' {frmSelectRecord},
  untMeasureCase in 'Measure\untMeasureCase.pas' {frmMeasureCase},
  untFormulaEdit in 'Measure\untFormulaEdit.pas' {frmFormulaEdit},
  untMeasure in 'Measure\untMeasure.pas' {frmMeasure},
  untAnswerInput in 'Measure\untAnswerInput.pas' {frmAnswerInput},
  untQuestionGrp in 'Measure\untQuestionGrp.pas' {frmQuestionGrp},
  untQuestionGrpSet in 'Measure\untQuestionGrpSet.pas' {frmQuestionGrpSet},
  untJudgeStd in 'BaseInfo\untJudgeStd.pas' {frmJudgeStd},
  untVarSelect in 'Measure\untVarSelect.pas' {frmVarSelect},
  untBaseMDEdit in 'Base\untBaseMDEdit.pas' {frmBaseMDEdit},
  untMessage in 'public\untMessage.pas' {frmMessage},
  untJudgeStdSet in 'BaseInfo\untJudgeStdSet.pas' {frmJudgeStdSet},
  untMeaSureSet in 'Measure\untMeaSureSet.pas' {frmMeasureSet},
  untSchool in 'BaseInfo\untSchool.pas' {frmSchool},
  UntSchoolSet in 'BaseInfo\UntSchoolSet.pas' {frmSchoolSet},
  untQuestions in 'Measure\untQuestions.pas' {frmQuestions},
  untQuestionsSet in 'Measure\untQuestionsSet.pas' {frmQuestionSet},
  untImportData in 'Daily\untImportData.pas' {frmImportData},
  untReportText in 'BaseInfo\untReportText.pas' {frmReportText},
  untReportTextAdd in 'BaseInfo\untReportTextAdd.pas' {frmReportTextAdd},
  untReportTextSet in 'BaseInfo\untReportTextSet.pas' {frmReportTextSet},
  untStudentCondition in 'Daily\untStudentCondition.pas' {frmStudentCondition},
  untSelectStudent in 'Daily\untSelectStudent.pas' {frmSelectStudent},
  untSuggestWord in 'BaseInfo\untSuggestWord.pas' {frmSuggestWord},
  untExportCondition in 'Daily\untExportCondition.pas' {frmExportCondition},
  untExportData in 'Daily\untExportData.pas' {frmExportData},
  untRepQZ in 'Daily\untRepQZ.pas' {repQZ: TQuickRep},
  untRepXW in 'Daily\untRepXW.pas' {repXW: TQuickRep},
  untDeleteData in 'Daily\untDeleteData.pas' {frmDeleteData},
  untStudent in 'Daily\untStudent.pas' {frmStudent},
  untStudentSet in 'Daily\untStudentSet.pas' {frmStudentSet},
  untStudentResult in 'Daily\untStudentResult.pas' {frmStudentresult},
  untLogin in 'untLogin.pas' {frmLogin},
  untWorkSet in 'BaseInfo\untWorkSet.pas' {frmworkset},
  UntEduSet in 'BaseInfo\UntEduSet.pas' {frmEduset},
  untEditPWD in 'untEditPWD.pas' {frmEditPWD},
  untUserSet in 'untUserSet.pas' {frmUserSet},
  untUser in 'untUser.pas' {frmUser},
  untExportExecl in 'Daily\untExportExecl.pas' {frmExportExecl};

{$R *.res}
var
  FLoginInfo: TUserRec;
begin
  Application.Initialize;
  Application.Title := '幼儿园心理卫生调查';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TDM, DM);
  if GetLoginInfo(DM.cnn, FLoginInfo) then
  begin
    frmMain.LoginInfo := FLoginInfo;
    Application.Run;
  end
  else
    Application.Terminate;
end.