??xml version="1.0" encoding="utf-8" standalone="yes"?>
2. 出生日期码:表示~码对象出生的年、月、日Q按GB/T7408的规定执行,q、月、日分别?位?位?位数字表C,之间不用分隔W?/p>
3. 序码:表示在同一地址码所标识的区域范围内Q对同年、同月、同日出生的人编定的序P序码的奇数分配l男性,偶数分配l女性?/p>
校验的计方式:
1. 对前17位数字本体码加权求和
公式为:S = Sum(Ai * Wi), i = 0, ... , 16
其中Ai表示Wi位置上的w䆾证号码数字|Wi表示Wi位置上的加权因子Q其各位对应的gơؓQ?7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
2. ?1对计结果取?br /> Y = mod(S, 11)
3. Ҏ模的值得到对应的校验?br /> 对应关系为:
Y| 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2
用ADOq接Excel
讄属性ConnetionString
选择 Microsoft Jet 4.0 OLE DB provider
Select or enter a datasorce name -> 选择你要打开Excel文g
User name默认是Admin 密码默认为空,可以不用理会
Extended properties 设ؓQExcel 8.0
sql语句 select * from [yourtablename] (注意要有[])
更详l的Lq一?
在DELPHI中用ADO直接讉KExcel数据文g
摘 要:在DELPHI中用ADO直接讉KExcel数据文g
关键字:ADO Excel
cR别:数据?br />
要用DELPHI中的ADOpd控g讉KExcel数据文gQ首先应该徏立一些基本概c你需要将一个Excel数据文g惌
Z个关pL据库QExcel文g中的每个工作表就对应该数据库中的一个表Q而工作表中的每一列当然就是表的列了?br />然后Q按照下列面的秘诀q行可以?br />
1.讄ADOConnection的ConnectionString
构造ConnectionStringӞOLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider作ؓADO的驱动程序?br />q本来是用于q接Access数据库的驱动E序Q但也可打开Excel文g?br />q接的数据库名称当然是你要打开的Excel文gQ注意扩展名?.xlsQ而不?.mdb?br />最关键的一ҎQ还要设|扩展属性Extended Properties?Excel 8.0"Q否则,试q接时会报告无法识别数据格式
的错误。Extended Properties的属性值在"所?参数中输入?br />最后,讄完成后的ConnectionString中的各项参数为:
Provider=Microsoft.Jet.OLEDB.4.0
Data Source=MyExcelFile.xls
Extended Properties=Excel 8.0
Persist Security Info=False
2.讄ADODataSet或ADOTable
1ADODataSet或ADOTableq接到刚才的ADOConnection。如果不用ADOConnectionQ也可以参照上面的方法直接设|?br />ADODataSet或ADOTable的ConnectionString属性?br />2对于ADODataSetQ需要将CommandType属性设|ؓcmdTableDirectQ而对于ADOTableQ则TableDirect属性设|ؓTrue?br />因ؓQ访问Excel文g是直接的数据文g讉KQ不是通过SQL语句来操作游标访问的。如果不讄直接讉KQ则pȝ会报?br />SQL语句格式错误{信息?br />然后Q当你下拉ADODataSet中的CommandText属性或ADOTable的TableName属性时Q就可以选择到要打开的工作表了?br />注意Q表名后面多了加一?W号?br />3.打开ADODataSet或ADOTable
q接DBF数据
构造ado connection string
提供者选择 Microsoft Jet 4.0 OLEDB Provider
"所?那里~辑 Extended PropertiesQ?br />dbf文g的话讄为dBase 5.0Q注意dBase?.0之间必须有空|最好拷贝过ȝ_
db文g的话讄为Paradox 7.X
Qdbf是dbase或Vfox数据库,db是paradox数据库)
"q接"那里?数据库名U?输入的是目录名,不能包含文g名,
比如你的文g?c:tempaaa.dbf Q那么输入c:temp
同时CursorLocation 讄为: clUseServer
q可?
如果直接q的话,ADO的连接字串设为:
adoConnection1.ConnectionString:='Provider=MSDASQL.1;Extended Properties="Driver={Microsoft Visual Foxpro Driver};SourceType=DBF;SourceDB=c:mydb"';
如果是用ODBCQ先在ODBC中设一个DSNq接到该DBF库,然后Q在ADOConnection中设|连接ODBC的连接字串即?可以用向导帮助完?