?? 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 + -