2025-01-18 01:55:33
15-16位为顺序号,现在根本就没规律可循,以前跟派出所有一定关系,现在户口迁移这么频繁,早就没规律可查了. 15-17位都是系统自动给出或者认为编号,没什么规律,只是第17位上男单数,女双数.
第18位是校验码,把前17位代入公式计算得出,计算的结果为0-10,10用X表示,校验码用来保证身份证号的唯一性。
工具/原料
电脑 ai
方法/步骤
1、打开AI软件2113。
2、键盘按下【ctrl+n】新建画布。
3、在左侧的工具栏5261,点击【圆角矩4102形工具】。
4、在新的画布中,点击鼠标左键,根据需1653要输入“圆角半径”数值。
5、画出一个圆角矩形。
6、如果画出的效果不满意,点击选中版不满意的矩形,修改上方的边角,即可在ai中改变圆角的大小权了。
国服可以的吧
steam的话你没网上不去
但是你提前上的 在断网 也可以打ai
这个没法直接“连接”,需要你用代码读取数据,根据数据结构正确显示数据。
给你个代码参考,直接复制到VB里。代码使用 DAO,需要在“工程”-“引用”里先引用DAO,如果用的是 ADO,自行修改相关代码。
Private Function BuildTree() As Boolean
'地区列表树 AICode 长度6位数字(字符类型),第一位表示大区,2-3位表示省份,4-6表示城市
'华东地区 1
' 上海 101
' 浙江 102
' 杭州 102001
' 绍兴 102002
' 福建 103
'华北地区 2
' 北京 201
' 河北 203
Dim strCode As String
Dim daoDB As DAO.Database, daoRs As DAO.Recordset '这里要引用 DAO
Dim nodeRoot As Node, nodeTemp As Node
'打开数据库文件,根据实际情况修改
Set daoDB = OpenDatabase(App.Path & \cust.mdb)
'打开记录集,根据实际情况修改
Set daoRs = daoDB.OpenRecordset(Select AICode, AIName, AINote from areainfo Order by AICode, dbOpenForwardOnly, dbReadOnly)
With tvwArea.Nodes
'清空列表
.Clear
Do Until daoRs.EOF
strCode = Trim(daoRs(AICode))
Select Case Len(strCode)
Case 1
tvwArea.Nodes.Add , , A & strCode, daoRs(AIName) 'Treeview 的 Key 用于直接访问节点。不能是数字,前面要加一个字符
Case 3
Set nodeTemp = .Item(A & Mid(strCode, 1, 1))
If nodeTemp Is Nothing Then Exit Do 'error
tvwArea.Nodes.Add nodeTemp, tvwChild, A & strCode, daoRs(AIName)
Case 6
Set nodeTemp = .Item(A & Mid(strCode, 1, 3))
If nodeTemp Is Nothing Then Exit Do 'error
tvwArea.Nodes.Add nodeTemp, tvwChild, A & strCode, daoRs(AIName)
Case Else 'error
Exit Do
End Select
daoRs.MoveNext
Loop
daoRs.Close
daoDB.Close
End With
Set daoRs = Nothing
Set daoDB = Nothing
End Function
如果您对知了谷科技的「BIM+AR」系列产品感兴趣,欢迎扫码与我们联系,也可申请预约演示,我们会提供专业的线上/线下操作演示。