「天下為公」
《讀取/生成特定檔案》
此元件用途：ado連線字串
呼叫access庫的函式名：
readxbf_mdb
其具體的引數為:
function readxbf_mdb(dimrecord: integer;filename1:widestring):widestring;
呼叫窗體函式名：
procedure show55(h:thandle);
******************************==
呼叫sql庫的函式名：
readxbf
其具體的引數為:
function readxbf(dimrecord: integer;filename1:widestring):widestring;
呼叫窗體函式名：
procedure show5(h:thandle);
==code*****====
udefine.pas
unit udefine; inte***ce uses sysutils, classes; type ptfilehead=^tfilehead; tfilehead =packed record version : string[10]; author:string[10]; crc32:longword; //在檔案頭可以新增其他有用的資訊 updatedate: tdatetime; end; type ptfiledata=^tfiledata; tfiledata =packed record dbprovider:string[30]; // section6:integer; connectstr6:string[30]; section1:integer; connectstr1:string[30]; section3:integer; connectstr3:string[30]; section5:integer; connectstr5:string[30]; section2:integer; connectstr2:string[30]; section4:integer; connectstr4:string[30]; //分解 pi1:integer; pstr1:string[2]; pi2:integer; dbserver:string[20];//data head pstr2:string[2]; pi3:integer; pstr3:string[2]; dbuser : string[10];//data head pi4:integer; pstr4:string[2]; pi5:integer; dbname:string[30];//data head pstr5:string[2]; pi6:integer; pstr6:string[2]; //把資料頭的一些資訊移到這兒 password : string[10];//data head end; var filestream: tfilestream; filehead: tfilehead; filedata: tfiledata; filename: widestring; filesize: integer; connectionstring1:widestring; connectionstring2:widestring; connectionstring3:widestring; connectionstring4:widestring; connectionstring5:widestring; connectionstring6:widestring; implementation end.
ugenerate.pas