delphiora8.dpr

可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息

program DelphiOra8;

uses
  Forms,
  Windows,
  uStudent in 'Program\uStudent.pas' {frmStudent},
  uDm in 'Program\uDm.pas' {DMSchool: TDataModule},
  uMain in 'Program\uMain.pas' {frmMain},
  uAbout in 'Program\uAbout.pas' {frmAbout},
  uSplash in 'Program\uSplash.pas' {frmSplash},
  uPubProg in 'Program\uPubProg.pas',
  uChgPwd in 'Program\uChgPwd.pas' {frmChgPwd},
  uGrade in 'Program\uGrade.pas' {frmGrade},
  uCourse in 'Program\uCourse.pas' {frmCourse},
  uGetCNo in 'Program\uGetCNo.pas' {frmGetCNo},
  uGetSNo in 'Program\uGetSNo.pas' {frmGetSNo},
  uQryInfo in 'Program\uQryInfo.pas' {frmQryInfo},
  uPrint in 'Program\uPrint.pas' {frmPrint},
  uStuGrRep in 'Program\uStuGrRep.pas' {frmStuGrRep},
  uCredit in 'Program\uCredit.pas' {frmCredit};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '数据库课程设计示例程序';
  Application.HelpFile := '';
  frmSplash:=TfrmSplash.Create(Application);
  frmSplash.lblSplash.Caption := '正在打开 ORACLE 数据库 ……';
  frmSplash.Show;
  frmSplash.Update;
  frmSplash.ProgressBar1.StepBy(35);

  try
//    Application.CreateForm(TDMSchool, DMSchool);
  Application.CreateForm(TDMSchool, DMSchool);
  except
    Application.MessageBox(PCHAR('不能连接数据库服务器！' + #13 + #13
                        + '1. 检查网络物理连接；' + #13
                        + '2. 检查网络配置；    ' + #13
                        + '3. 检查数据库客户端配置。'),
                          '解决方法', MB_ICONINFORMATION+MB_OK);
    Exit;
  end;   

  frmSplash.lblSplash.Caption := '正在启动主程序 ……';
  frmSplash.Show;
  frmSplash.Update;
  frmSplash.ProgressBar1.StepBy(35);
  Sleep(500);
  frmSplash.ProgressBar1.StepBy(10);
  frmSplash.ProgressBar1.StepBy(20);
  frmSplash.Free;

  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;

end.