📄 fbwt_kehu.frm
字号:
VERSION 5.00
Begin VB.Form UfrmKeHu
Appearance = 0 'Flat
BackColor = &H80000000&
BorderStyle = 1 'Fixed Single
Caption = "客户输入"
ClientHeight = 2415
ClientLeft = 45
ClientTop = 330
ClientWidth = 5130
ControlBox = 0 'False
Icon = "fbwt_KeHu.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2415
ScaleWidth = 5130
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdOk
Caption = "确定&Y"
Default = -1 'True
Height = 285
Left = 3120
TabIndex = 18
Top = 2040
Width = 870
End
Begin VB.CommandButton cmdExit
Caption = "退出&E"
Height = 285
Left = 4080
TabIndex = 17
Top = 2040
Width = 870
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 1800
Left = 225
TabIndex = 0
Top = 135
Width = 4800
Begin VB.TextBox txtTelDanWei
Appearance = 0 'Flat
DataField = "单位电话"
DataSource = "Adodc1"
Height = 270
Left = 960
TabIndex = 16
Top = 1050
Width = 1140
End
Begin VB.TextBox txtDanWei
Appearance = 0 'Flat
DataField = "单位"
DataSource = "Adodc1"
Height = 270
Left = 2805
TabIndex = 15
Top = 750
Width = 1815
End
Begin VB.TextBox txtYouBian
Appearance = 0 'Flat
DataField = "邮编"
DataSource = "Adodc1"
Height = 270
Left = 2805
TabIndex = 14
Top = 435
Width = 1815
End
Begin VB.TextBox txtAdder
Appearance = 0 'Flat
DataField = "联系地址"
DataSource = "Adodc1"
Height = 270
Left = 960
TabIndex = 13
Top = 1395
Width = 3675
End
Begin VB.TextBox txtTelShou
Appearance = 0 'Flat
DataField = "手机号码"
DataSource = "Adodc1"
Height = 270
Left = 960
TabIndex = 12
Top = 720
Width = 1140
End
Begin VB.TextBox txtTel
Appearance = 0 'Flat
DataField = "电话号码"
DataSource = "Adodc1"
Height = 270
Left = 960
TabIndex = 11
Top = 420
Width = 1140
End
Begin VB.TextBox txtSheFenZhen
Appearance = 0 'Flat
DataField = "身份证号码"
DataSource = "Adodc1"
Height = 270
Left = 2805
TabIndex = 10
Top = 1050
Width = 1815
End
Begin VB.TextBox txtName
Appearance = 0 'Flat
DataField = "姓名"
DataSource = "Adodc1"
Height = 270
Left = 675
TabIndex = 9
Top = 105
Width = 1425
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "单位电话："
Height = 180
Left = 45
TabIndex = 8
Top = 1095
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "单位："
Height = 180
Left = 2250
TabIndex = 7
Top = 795
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "邮编："
Height = 180
Left = 2250
TabIndex = 6
Top = 480
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "联系地址："
Height = 180
Left = 45
TabIndex = 5
Top = 1425
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "手机号码："
Height = 180
Left = 45
TabIndex = 4
Top = 795
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "电话号码："
Height = 180
Left = 45
TabIndex = 3
Top = 480
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Left = 45
TabIndex = 2
Top = 180
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "身份证"
Height = 180
Left = 2250
TabIndex = 1
Top = 1095
Width = 540
End
End
End
Attribute VB_Name = "UfrmKeHu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOk_Click()
'On Error Resume Next
If Trim(txtName.Text) = "" Then
MsgBox "请输入姓名！", vbExclamation
Exit Sub
End If
Me.MousePointer = 11
Dim aa(10)
Dim a As String
a = "procInsertIntoKeHu"
aa(0) = txtName.Text
aa(1) = txtSheFenZhen.Text
aa(2) = txtTel.Text
aa(3) = txtTelShou.Text
aa(4) = txtDanWei.Text
aa(5) = txtAdder.Text
aa(6) = txtYouBian.Text
aa(7) = txtTelDanWei.Text
aa(8) = strLoginName
Select Case strKeHuWay
Case "Add"
aa(9) = txtName.Text
aa(10) = "添加"
Case "Update"
aa(10) = "修改"
aa(9) = UfrmMain.ListView1.SelectedItem
Case Else
Me.MousePointer = 0
Unload Me
Exit Sub
End Select
a = Execproc(a, 12, aa())
MsgBox a, vbInformation
'添加成功，显示出新的数据
If a = "添加成功" Then
Call InListItemsNext(UfrmMain.ListView1, UfrmMain.ImageList1, 5, aa())
End If
If a = "修改成功" Then
'更新显示时的数据
UfrmMain.ListView1.SelectedItem.Text = txtName.Text
For i = 1 To 4
UfrmMain.ListView1.SelectedItem.ListSubItems(i).Text = aa(i)
Next
End If
Me.MousePointer = 0
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
strKeHuWay = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -