clientmain.dpr

学籍管理

{**********************************************************************}
{                    ===================                               }
{                         工程文件                                     }
{                   ===================                                }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{    客户端代码总行数： 2451 行                                        }
{                                                                      }
{**********************************************************************}
program ClientMain;

uses
  Forms,
  MainForm in 'MainForm.pas' {ClientMainForm},
  DataMoudle in 'DataMoudle.pas' {DataModule1: TDataModule},
  ErrorDlg in 'ErrorDlg.pas' {ReconcileErrorForm},
  fmDesignUnit in 'fmDesignUnit.pas' {fmDesign},
  PasswordUnit in 'PasswordUnit.pas' {fmPassword},
  DataBringUnit in 'DataBringUnit.pas' {fmBring},
  UseIniFile in 'UseIniFile.pas',
  HinForm in 'HinForm.pas' {fmHint},
  fmAout in 'fmAout.pas' {fmAbout},
  MidasMake in 'MidasMake.pas' {fmMIDASManager},
  MultiThreadPrintUnit in 'MultiThreadPrintUnit.pas',
  PasswordAndReg in 'PasswordAndReg.pas',
  fmLoginUnit in 'fmLoginUnit.pas' {fmLogin},
  SinglePrintUnit in '..\Server\SinglePrintUnit.pas';

{$R *.RES}

begin
  Application.Initialize;
  if ReadReg('登陆记录','NoMustPassword',True)=False then
  begin
    try
      fmLogin:=TfmLogin.Create(Application);
      fmLogin.edtName.Text:=ReadReg('登陆记录','用户名','');
      fmLogin.ShowModal;
      fmLogin.Update;
    finally
      fmLogin.Free;
    end;  
  end
  else
  begin
    Application.CreateForm(TClientMainForm, ClientMainForm);
    Application.CreateForm(TDataModule1, DataModule1);
    Application.Run;
  end;
end.