sfsb_ic.dpr

来自「delphi写的人员登记系统IC卡版,还是一个不错的系统,初学员可以」· DPR 代码 · 共 42 行

program sfsb_IC;

uses
  Forms,
  controls,
  sfsb_u in 'sfsb_u.pas' {frm_sfsb},
  grxx_u in 'grxx_u.pas' {frm_grxx},
  zk_u in 'zk_u.pas' {frm_zk},
  cx_u in 'cx_u.pas' {frm_cx},
  public_u in 'public_u.pas',
  LOGIN_U in 'LOGIN_U.PAS' {login},
  LOGO_U in 'LOGO_U.PAS' {logo},
  qxgl_u in 'qxgl_u.pas' {frm_qxgl},
  xgmm_u in 'xgmm_u.pas' {frm_xgmm},
  bfsjk_u in 'bfsjk_u.pas' {frm_bfsjk},
  hfsjk_u in 'hfsjk_u.pas' {frm_hfsjk},
  comport_u in 'comport_u.pas' {frm_com},
  about_u in 'about_u.pas' {frm_About},
  surehope_api in 'surehope_api.pas',
  DES in 'DES.pas',
  lock in 'lock.pas' {lock_frm},
  CompressRePairMDB_u in 'CompressRePairMDB_u.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '张家界市特种行业人员登记系统';
  logo:=tlogo.Create(application);
  logo.ShowModal;  //以模式对话框方式显示窗体
  logo.Update;
  if logo.ModalResult=mrOK then
  begin
    logo.close;
    logo.Free;
    Application.CreateForm(Tlogin, login);
  Application.Run;
    //login:=tlogin.Create(application);
    //login.ShowModal;
  end;
end.