📄 main_jbxx_kh.frm
字号:
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 1320
TabIndex = 8
Top = 720
Width = 7350
End
Begin VB.TextBox kh
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 1320
TabIndex = 7
Top = 120
Width = 7335
End
Begin VB.Label Label7
Caption = "法定地址："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 37
Top = 1320
Width = 1335
End
Begin VB.Label Label6
Caption = "客户名称："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 36
Top = 840
Width = 1215
End
Begin VB.Label Label2
Caption = "传真号码："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 17
Top = 3120
Width = 1305
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "电话："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 4
Top = 2520
Width = 840
End
Begin VB.Label Label3
Caption = "邮政编码："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 120
TabIndex = 3
Top = 1920
Width = 1260
End
Begin VB.Label Label1
Caption = "客户编号: "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 120
TabIndex = 2
Top = 240
Width = 1200
End
End
End
End
Attribute VB_Name = "main_jbxx_kh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim X, i '定义变量
Public Sub viewdata() '定义显示数据的函数
For i = 0 To 5
If Data1.Recordset.Fields(i) <> "" Then
kh(i).Text = Data1.Recordset.Fields(i)
Else
kh(i).Text = ""
End If
Next i
End Sub
Private Sub Form_Activate()
' 向combo1添加查询项目列表
X = Array("客户编号", "客户名称", "联系人", "法定地址", "联系人电话", "邮政编码", "电话", "传真号码")
For i = 0 To 7
Combo1.AddItem (X(i))
Next i
Combo1.Text = "客户名称"
'初始化给客户信息表(i)赋值
If Data1.Recordset.RecordCount > 0 Then
Call viewdata '调用函数
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\xhgl.mdb" '自动识别数据库路径
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
Unload Me
End Sub
Private Sub ComFind_Click()
'查询客户信息
Data1.RecordSource = "select * from 客户信息表 where (客户信息表." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Call viewdata '调用函数
End Sub
Private Sub 客户信息表_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
'回车获得焦点
If KeyCode = vbKeyReturn And Index < 16 Then kh(Index + 1).SetFocus
If KeyCode = vbKeyReturn And Index = 9 Then SSTab1.Tab = 1
If KeyCode = vbKeyReturn And Index = 16 Then ComSaveM.SetFocus
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If Data1.Recordset.RecordCount > 0 Then
If SSTab1.Tab = 2 And ComAdd.Enabled = False Then
MsgBox ("您正在处理数据,请取消数据处理,再执行本操作!")
SSTab1.Tab = 0
Else
End If
End If
End Sub
Private Sub CmdMD_Click(Index As Integer)
Select Case Index
Case Is = 0 '移到第一条记录
If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
Case Is = 1 '移到上一条记录
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst
End If
Case Is = 2 '移到下一条记录
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
End If
Case Is = 3 '移到最后一条记录
If Data1.Recordset.RecordCount <> 0 Then
If Not Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End If
End Select
Call viewdata '调用函数
End Sub
Private Sub ComAdd_Click() '允许用户添加新记录
For i = 0 To 16
kh(i).Text = ""
kh(i).Enabled = True
Next i
ComSaveM.Visible = True: ComSaveA.Visible = False: ComSaveM.Enabled = True: ComEsc.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = False
Next i
ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False
SSTab1.Tab = 0: kh(0).SetFocus
End Sub
Private Sub ComModify_Click() '允许用户修改记录
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.Edit
For i = 0 To 16
kh(i).Enabled = True
Next i
ComSaveA.Visible = True: ComSaveA.Enabled = True: ComSaveM.Visible = False: ComEsc.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = False
Next i
ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False
Else
MsgBox ("没有要修改的数据!")
End If
End Sub
Private Sub ComSaveA_Click() '保存修改记录
Dim A As String
A = MsgBox("您确实要修改这条数据吗?", vbYesNo)
If A = vbYes Then
Data1.Recordset.Edit
For i = 0 To 16
If 客户信息表(i).Text <> "" Then Data1.Recordset.Fields(i) = 客户信息表(i).Text
客户信息表(i).Enabled = False
Next i
ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True: Data1.Recordset.Update
End If
End Sub
Private Sub ComSaveM_Click() '保存新增记录
Dim mydb As Database
Dim myrs1 As Recordset
If 客户信息表(0).Text <> "" And 客户信息表(1).Text <> "" Then
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\xhgl.mdb")
Set myrs1 = mydb1.OpenRecordset("客户信息表", dbOpenTable)
myrs1.AddNew
For i = 0 To 16
If 客户信息表(i).Text <> "" Then myrs1.Fields(i) = 客户信息表(i).Text
Next i
myrs1.Update: myrs1.Close: mydb1.Close: Data1.Refresh
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True
ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
Else
End If
End Sub
Private Sub ComDelete_Click() '删除客户信息
If Data1.Recordset.RecordCount > 0 Then
A = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If A = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True
ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
For i = 0 To 16
客户信息表(i).Text = ""
Next i
End If
Else
MsgBox ("没有要删除的数据!")
End If
End Sub
Private Sub ComEsc_Click() '取消操作
If Data1.Recordset.RecordCount > 0 Then
For i = 0 To 16
客户信息表(i).Enabled = False
If Data1.Recordset.Fields(i) <> "" Then 客户信息表(i).Text = Data1.Recordset.Fields(i)
Next i
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
ComModify.Enabled = True: ComDelete.Enabled = True: ComSaveA.Enabled = False
ComSaveM.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
End If
End Sub
Private Sub Comend_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -