cgxtclient.dpr

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

program cgxtclient;

uses
  Forms,
  Windows,
  Messages,
  SysUtils,
  inifiles,
  cgmain in 'cgmain.pas' {Form1},
  loads in 'loads.pas' {OKBottomDlg},
  indata in 'indata.pas' {Form2},
  selectdata in 'selectdata.pas' {Form3},
  selectkan in 'selectkan.pas' {OKBottomDlg1},
  load in 'load.pas' {OKBottomDlg2},
  passs in 'passs.pas' {DataModule1: TDataModule},
  managers in 'managers.pas' {OKBottomDlg3},
  sales in 'sales.pas' {OKBottomDlg4},
  Unit8 in 'Unit8.pas' {QuickReport8: TQuickRep},
  Unit6 in 'Unit6.pas' {QuickReport6: TQuickRep},
  Unit7 in 'Unit7.pas' {QuickReport7: TQuickRep},
  Unit5 in 'Unit5.pas' {OKRightDlg1},
  mainthread in 'mainthread.pas',
  pic in 'pic.pas' {OKBottomDlg5},
  prints in 'prints.pas',
  Unit9 in 'Unit9.pas' {QuickReport1: TQuickRep},
  views in 'views.pas' {OKBottomDlg6},
  man_check in 'man_check.pas' {OKBottomDlg7},
  zlmanage in 'zlmanage.pas' {OKBottomDlg8},
  sfmanage in 'sfmanage.pas' {OKBottomDlg9},
  mandd in 'mandd.pas' {OKBottomDlg10},
  sfhd in 'sfhd.pas' {OKBottomDlg11},
  downdatathread in 'downdatathread.pas',
  Unit1 in 'Unit1.pas' {PasswordDlg};

function SQLConfigDataSource(hwndParent:integer;frequest:integer;lpszdriverstring:string;lpszattributes:string):integer;stdcall;external 'ODBCCP32.DLL';
const
  ODBC_ADD_DSN=1;
  ODBC_CONFIG_DSN=2;
  ODBC_REMOVE_DSN=3;
  ODBC_ADD_SYS_DSN=4;
  ODBC_CONFIG_SYS_DSN=5;
  ODBC_REMOVE_SYS_DSN=6;
var
  Ti:Tinifile;
  str:string;
{$R *.res}

begin
  Application.Initialize;
  Application.Title := '长沙市人行道违章停车系统';
   Ti:= Tinifile.create(extractfilepath(paramstr(0))+'\setup.ini');
   str:=Ti.ReadString('SYSTEM','database','');
   Ti.free;

  if not directoryexists(extractfilepath(paramstr(0))+'\database') then
      forcedirectories(extractfilepath(paramstr(0))+'\database');
  if  not fileexists(extractfilepath(paramstr(0))+'\database\cgclient.mdb') then
 {  if not directoryexists(str) then
      forcedirectories(str);
  if  not fileexists(str+'\cgclient.mdb') then  }
   begin
   application.messagebox('程序检测本地数据库不存在','提示',mb_ok);
   exit;
   end;
  //SQLConfigDataSource(0,ODBC_ADD_SYS_DSN,'Microsoft Access Driver (*.mdb)','DSN=CG_Data;DBQ='+str+'\cgclient.mdb');
  SQLConfigDataSource(0,ODBC_ADD_SYS_DSN,'Microsoft Access Driver (*.mdb)','DSN=CG_Data;DBQ='+Extractfilepath(paramstr(0))+'database\'+'cgclient.mdb');
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TOKBottomDlg2, OKBottomDlg2);
  Application.CreateForm(TOKBottomDlg, OKBottomDlg);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TOKBottomDlg1, OKBottomDlg1);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TOKBottomDlg3, OKBottomDlg3);
  Application.CreateForm(TOKBottomDlg4, OKBottomDlg4);
  Application.CreateForm(TQuickReport8, QuickReport8);
  Application.CreateForm(TQuickReport6, QuickReport6);
  Application.CreateForm(TQuickReport7, QuickReport7);
  Application.CreateForm(TOKRightDlg1, OKRightDlg1);
  Application.CreateForm(TOKBottomDlg5, OKBottomDlg5);
  Application.CreateForm(TQuickReport1, QuickReport1);
  Application.CreateForm(TOKBottomDlg6, OKBottomDlg6);
  Application.CreateForm(TOKBottomDlg7, OKBottomDlg7);
  Application.CreateForm(TOKBottomDlg8, OKBottomDlg8);
  Application.CreateForm(TOKBottomDlg9, OKBottomDlg9);
  Application.CreateForm(TOKBottomDlg10, OKBottomDlg10);
  Application.CreateForm(TOKBottomDlg11, OKBottomDlg11);
  Application.CreateForm(TPasswordDlg, PasswordDlg);
  Application.Run;
 SQLConfigDataSource(0,ODBC_REMOVE_SYS_DSN,'Microsoft Access Driver (*.mdb)','DSN=CG_Data;DBQ='+Extractfilepath(paramstr(0))+'database\'+'cgclient.mdb');
 { SQLConfigDataSource(0,ODBC_REMOVE_SYS_DSN,'Microsoft Access Driver (*.mdb)','DSN=CG_Data;DBQ='+str+'\cgclient.mdb');   }
 end.