📄 frmotherinfo.frm
字号:
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1260.284
EndProperty
BeginProperty Column01
ColumnWidth = 1365.165
EndProperty
BeginProperty Column02
ColumnWidth = 1665.071
EndProperty
BeginProperty Column03
ColumnWidth = 1395.213
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox RichTextBox2
Height = 4455
Left = -74640
TabIndex = 12
Top = 1080
Width = 5655
_ExtentX = 9975
_ExtentY = 7858
_Version = 393217
TextRTF = $"FrmOtherInfo.frx":00EC
End
Begin VB.Label Label4
Caption = "手机号码："
Height = 255
Left = -74520
TabIndex = 15
Top = 600
Width = 1095
End
Begin VB.Label Label3
Caption = "身份证号码："
Height = 255
Left = -74520
TabIndex = 8
Top = 600
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "查询内容"
Height = 195
Left = 3480
TabIndex = 7
Top = 4800
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "查询方式"
Height = 195
Left = 120
TabIndex = 6
Top = 4800
Width = 720
End
End
Begin VB.Label LblBack
BackStyle = 0 'Transparent
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6000
MouseIcon = "FrmOtherInfo.frx":0184
MousePointer = 99 'Custom
TabIndex = 1
Top = 6480
Width = 615
End
Begin VB.Image Image1
Height = 300
Left = 5400
Picture = "FrmOtherInfo.frx":048E
Top = 6480
Width = 300
End
End
Attribute VB_Name = "FrmOtherInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Select Case CmbMode.ListIndex
Case 0
Adodc1.RecordSource = "SELECT * FROM OtherData where 区号='" + Trim(TxtQury) + "' or 邮编='" + Trim(TxtQury) + "' or 县市名='" + Trim(TxtQury) + "' or 省名='" + Trim(TxtQury) + "'"
Case 1
Adodc1.RecordSource = "SELECT * FROM OtherData where 区号='" + Trim(TxtQury) + "'"
Case 2
Adodc1.RecordSource = "SELECT * FROM OtherData where 邮编='" + Trim(TxtQury) + "'"
Case 3
Adodc1.RecordSource = "SELECT * FROM OtherData where 县市名='" + Trim(TxtQury) + "'"
Case 4
Adodc1.RecordSource = "SELECT * FROM OtherData where 省名='" + Trim(TxtQury) + "'"
End Select
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Dim num As String
If Len(Trim(TxtIDcard)) = 15 Then
num = IDCode15to18(Trim(TxtIDcard))
ElseIf Len(Trim(TxtIDcard)) = 18 Then
num = Trim(TxtIDcard)
Else
MsgBox "所输入的身份证号有误"
Exit Sub
End If
'连接数据库
MyDB.openDB
SqlStmt = "SELECT * FROM IDcard WHERE BM='" + Left(num, 6) + "'"
'执行SQL语句
Dim Isexe As Boolean
Dim RS As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, RS, True)
If RS.RecordCount <> 0 Then
RichTextBox1.SetFocus
RichTextBox1.Text = vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "_____________身份证信息_____________" & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "查询内容：" & Trim(TxtIDcard) & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "原户籍地：" & RS.Fields("DQ") & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "新身份证号：" & num & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "出生日期：" & Mid(num, 7, 4) & "年" & Mid(num, 11, 2) & "月" & Mid(num, 13, 2) & "日" & vbCrLf
If Mid(num, 17, 1) Mod 2 = 1 Then
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "性别：男" & vbCrLf
Else
RichTextBox1.Text = RichTextBox1.Text & vbTab & vbTab & "性别：女" & vbCrLf
End If
End If
'断开与数据库的连接
MyDB.closeDB
End Sub
Private Sub Command3_Click()
Dim num As String
If Len(Trim(TxtMobile)) = 11 Then
num = Left(Trim(TxtMobile), 7)
Else
MsgBox "所输入的手机号有误"
Exit Sub
End If
'连接数据库
MyDB.openDB
SqlStmt = "SELECT * FROM Mobile WHERE 号码B<='" + num + "' and 号码E>='" + num + "'"
'执行SQL语句
Dim Isexe As Boolean
Dim RS As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, RS, True)
If RS.RecordCount <> 0 Then
RichTextBox2.SetFocus
RichTextBox2.Text = vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbTab & vbTab & "_____________手机号码信息_____________" & vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbTab & vbTab & "手机地区：" & RS.Fields("地区") & vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbTab & vbTab & "手机城市：" & RS.Fields("城市") & vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbTab & vbTab & "手机区号：" & RS.Fields("区号") & vbCrLf
RichTextBox2.Text = RichTextBox2.Text & vbTab & vbTab & "手机类型：" & RS.Fields("类型") & vbCrLf
End If
'断开与数据库的连接
MyDB.closeDB
End Sub
Private Sub Form_Load()
CmbMode.AddItem "全部字段"
CmbMode.AddItem "区号"
CmbMode.AddItem "邮编"
CmbMode.AddItem "县市名"
CmbMode.AddItem "省名"
CmbMode.ListIndex = 0
Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=CallerMIS"
Adodc1.RecordSource = "SELECT * FROM OtherData"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub LblBack_Click()
Unload Me
End Sub
Function IDCode15to18(sCode15 As String) As String
'* 功能:将15的身份证号升为18位(根据GB 11643-1999)
'* 参数:原来的号码
'* 返回:升位后的18位号码
Dim i As Integer
Dim num As Integer
Dim code As String
num = 0
IDCode15to18 = Left(sCode15, 6) + "19" + Right(sCode15, 9)
' 计算校验位
For i = 18 To 2 Step -1
num = num + (2 ^ (i - 1) Mod 11) * (Mid(IDCode15to18, 19 - i, 1))
Next i
num = num Mod 11
Select Case num
Case 0
code = "1"
Case 1
code = "0"
Case 2
code = "X"
Case Else
code = Trim(Str(12 - num))
End Select
IDCode15to18 = IDCode15to18 + code
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -