jkyh.dpr

此功能是集资对付系统,为一单位要求而做,此能实现了实时对付

program jkyh;

uses
  Forms,
  SysUtils,
  main in 'main.pas' {frmMain},
  frmselectitem in '..\public.pas\frmselectitem.pas' {fmselectitem},
  md5 in '..\public.pas\md5.pas',
  PubFunction in '..\public.pas\PubFunction.pas',
  PubProCess in '..\public.pas\PubProCess.pas',
  un_utl in '..\public.pas\UN_UTL.PAS',
  uProgress in '..\public.pas\uProgress.pas' {frmProgress},
  Variable in '..\public.pas\Variable.pas',
  Bios in '..\public.pas\Bios.pas',
  fm_utl in '..\public.pas\FM_UTL.PAS',
  CommonFunc in '..\public.pas\CommonFunc.pas',
  uDm in 'uDm.pas' {dm: TDataModule},
  login in 'login.pas' {frmLogin},
  Gen_Q in 'Gen_q.pas' {F_Query},
  GenQ3 in 'Genq3.pas';

{$R *.res}

begin
  Application.Initialize;
  MainDir:=ExtractFilePath(Application.Exename);
  if copy(MainDir,length(MainDir),1)<>'\'
        then MainDir:=MainDir+'\';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(TfrmProgress, frmProgress);
  Application.Run;
end.