📄 main_jbxx_gys.frm
字号:
End
Begin VB.TextBox gys
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 1350
TabIndex = 14
Top = 750
Width = 7350
End
Begin VB.TextBox gys
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1350
TabIndex = 13
Top = 345
Width = 7335
End
Begin VB.Label Label2
Caption = "业务联系人:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 195
TabIndex = 34
Top = 2850
Width = 1185
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = " 传真 : 电话 :"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 5790
TabIndex = 4
Top = 2520
Width = 840
End
Begin VB.Label Label3
Caption = "邮政编码:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5715
TabIndex = 3
Top = 2055
Width = 1020
End
Begin VB.Label Label1
Caption = "供应商编号: 供应商名称: 供应商简称: 供应商地址: 所属地区 : 供应商电话: "
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2400
Left = 180
TabIndex = 2
Top = 375
Width = 1200
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "main_jbxx_gys.frx":598F
Height = 3345
Left = -74895
OleObjectBlob = "main_jbxx_gys.frx":59A3
TabIndex = 38
Top = 495
Width = 8820
End
End
End
Attribute VB_Name = "main_jbxx_gys"
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 16
If Data1.Recordset.Fields(i) <> "" Then gys(i).Text = Data1.Recordset.Fields(i) Else gys(i).Text = ""
Next i
End Sub
Private Sub Form_Activate()
' 向combo1添加查询项目列表
x = Array("供应商编号", "供应商全称", "简称", "地址", "所属地区", "邮政编码", "电话", "传真")
For i = 0 To 7
Combo1.AddItem (x(i))
Next i
Combo1.Text = "供应商全称"
'初始化给gys(i)赋值
If Data1.Recordset.RecordCount > 0 Then
Call viewdata '调用函数
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\yyjxc.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 gys where (gys." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Call viewdata '调用函数
End Sub
Private Sub gys_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) '回车获得焦点
If KeyCode = vbKeyReturn And Index < 16 Then gys(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 Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
End If
End Select
Call viewdata '调用函数
End Sub
Private Sub ComAdd_Click() '允许用户添加新记录
For i = 0 To 16
gys(i).Text = ""
gys(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: gys(0).SetFocus
End Sub
Private Sub ComModify_Click() '允许用户修改记录
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.Edit
For i = 0 To 16
gys(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 gys(i).Text <> "" Then Data1.Recordset.Fields(i) = gys(i).Text
gys(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 gys(0).Text <> "" And gys(1).Text <> "" Then
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\yyjxc.mdb")
Set myrs1 = mydb1.OpenRecordset("gys", dbOpenTable)
myrs1.AddNew
For i = 0 To 16
If gys(i).Text <> "" Then myrs1.Fields(i) = gys(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
gys(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
gys(i).Enabled = False
If Data1.Recordset.Fields(i) <> "" Then gys(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 + -