jeansim.dpr

delphi框架可以学习, 写的很好的

{*******************************************************}
{                                                       }
{       牛仔布信息系统                                  }
{                                                       }
{       版权所有 (C) 2006 前进牛仔布有限公司            }
{                                                       }
{单元名称：JeansIM.dpr                                  }
{最后修改：由 肖博 于 2006-10-7 2:16:26                 }
{工程名称：JeansIM                                      }
{*******************************************************}

program JeansIM;

uses
  Forms,
  main in 'main.pas' {frmMain},
  Basic in 'Basic.pas' {frmBasic},
  MyPublic in '..\Public\MyPublic.pas',
  Test in 'Test.pas' {frmTest},
  Mess in 'Mess.pas' {frmMess},
  Login in 'Login.pas' {frmLogin},
  md5 in 'md5.pas',
  BasicFind in 'BasicFind.pas' {frmBasicFind},
  dm32 in 'dm32.pas' {dm: TDataModule},
  TempLock in 'TempLock.pas' {frmSysLock},
  PersonInfo in 'PersonInfo.pas' {frmPersonInfo},
  DateProcess in 'DateProcess.pas',
  SQLControl in 'SQLControl.pas' {frmSQL},
  SysLog in 'SysLog.pas' {frmSysLog},
  dmc32 in 'dmc32.pas' {dmc: TDataModule},
  BasicData in 'BasicData.pas' {frmBaseData},
  UserManager in 'UserManager.pas' {frmUserManager},
  BasePower in 'BasePower.pas' {frmBasePower},
  yldm in 'yldm.pas' {frmYldm},
  SendMess in 'SendMess.pas' {frmSendMess},
  ChangePassword in 'ChangePassword.pas' {frmChangePassword},
  AddUpdateFile in 'AddUpdateFile.pas' {frmAddUpdateFile},
  PrvDlg in 'PrvDlg.pas' {frmPrvDlg},
  rbLib in 'rbLib.pas',
  CraftCheck in 'CraftCheck.pas' {frmCraftCheck},
  CraftInput in 'CraftInput.pas' {frmCraftInput},
  QuoteFind in 'QuoteFind.pas' {frmQuoteFind},
  pExpression in 'pExpression.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '牛仔布信息管理系统';
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(Tdmc, dmc);
  LOGINOK := False;
  frmLogin := TfrmLogin.Create(Application);
  frmLogin.ShowModal;
  if LOGINOK then
  begin
    Application.CreateForm(TfrmMain, frmMain);
    Application.CreateForm(TfrmPersonInfo, frmPersonInfo);  //打开个人门户
    frmLogin.Free;
  end;

  Application.Run;
end.