📄 main_xgkhxx.frm
字号:
End
End
Begin VB.Frame Frame3
Height = 3405
Left = -74910
TabIndex = 1
Top = 510
Width = 8610
Begin VB.TextBox kh
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 = 10
Left = 1410
TabIndex = 8
Top = 330
Width = 7000
End
Begin VB.TextBox kh
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 = 11
Left = 1410
TabIndex = 7
Top = 735
Width = 7000
End
Begin VB.TextBox kh
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 = 12
Left = 1410
TabIndex = 6
Top = 1155
Width = 7000
End
Begin VB.TextBox kh
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 = 13
Left = 1410
TabIndex = 5
Top = 1575
Width = 7000
End
Begin VB.TextBox kh
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 = 14
Left = 1410
TabIndex = 4
Top = 2010
Width = 7000
End
Begin VB.TextBox kh
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 = 15
Left = 1410
TabIndex = 3
Top = 2430
Width = 7000
End
Begin VB.TextBox kh
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 = 16
Left = 1410
TabIndex = 2
Top = 2850
Width = 7000
End
Begin VB.Label Label5
Caption = "开户银行 : 银行账号 : 纳税人登记:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1200
Left = 165
TabIndex = 10
Top = 360
Width = 1200
End
Begin VB.Label Label8
Caption = "预付金额 : 应付金额 : 实际欠款 : 网址或信箱:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1560
Left = 165
TabIndex = 9
Top = 1650
Width = 1200
End
End
Begin VB.Label czjl
BackStyle = 0 'Transparent
Height = 285
Left = 4050
TabIndex = 22
Top = -585
Width = 4905
End
End
End
Attribute VB_Name = "main_xgkhxx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Private Sub Form_Load()
frm_main.StatusBar1.Panels(1) = Me.Caption
Data1.DatabaseName = App.Path & "\khgl.mdb"
Data1.Connect = ";pwd=" & 73322
Data1.RecordSource = "select * from kh"
Data1.Refresh
Data1.Recordset.MoveFirst
For i = 0 To 16
kh(i).Enabled = False
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
Next i
ComSave.Enabled = False
ComCancel.Enabled = False
End Sub
Private Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
'运用数组
Select Case Index
Case 0
If Index = 0 And KeyCode = vbKeyReturn Then
kh(1).SetFocus
End If
Case 1
If Index = 1 And KeyCode = vbKeyReturn Then
kh(2).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(1).SetFocus
End If
Case 2
If Index = 2 And KeyCode = vbKeyReturn Then
kh(3).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(1).SetFocus
End If
Case 3
If Index = 3 And KeyCode = vbKeyReturn Then
kh(4).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(2).SetFocus
End If
Case 4
If Index = 4 And KeyCode = vbKeyReturn Then
kh(5).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(3).SetFocus
End If
Case 5
If Index = 5 And KeyCode = vbKeyReturn Then
kh(6).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(4).SetFocus
End If
Case 6
If Index = 6 And KeyCode = vbKeyReturn Then
kh(7).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(5).SetFocus
End If
Case 7
If Index = 7 And KeyCode = vbKeyReturn Then
kh(8).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(6).SetFocus
End If
Case 8
If Index = 8 And KeyCode = vbKeyReturn Then
kh(9).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(7).SetFocus
End If
Case 9
If Index = 9 And KeyCode = vbKeyReturn Then
SSTab1.Tab = 1
kh(10).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(8).SetFocus
End If
Case 10
If Index = 10 And KeyCode = vbKeyReturn Then
kh(11).SetFocus
End If
If KeyCode = vbKeyUp Then
SSTab1.Tab = 0
kh(9).SetFocus
End If
Case 11
If Index = 11 And KeyCode = vbKeyReturn Then
kh(12).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(10).SetFocus
End If
Case 12
If Index = 12 And KeyCode = vbKeyReturn Then
kh(13).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(11).SetFocus
End If
Case 13
If Index = 13 And KeyCode = vbKeyReturn Then
kh(14).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(12).SetFocus
End If
Case 14
If Index = 14 And KeyCode = vbKeyReturn Then
kh(15).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(13).SetFocus
End If
Case 15
If Index = 15 And KeyCode = vbKeyReturn Then
kh(16).SetFocus
End If
If KeyCode = vbKeyUp Then
kh(14).SetFocus
End If
Case 16
If Index = 16 And KeyCode = vbKeyReturn Then
ComSave.SetFocus
End If
If KeyCode = vbKeyUp Then
kh(15).SetFocus
End If
End Select
End Sub
Private Sub Command1_Click()
If Not Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
For i = 0 To 16
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
Next i
End If
End Sub
Private Sub Command2_Click()
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst
For i = 0 To 16
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
Next i
End If
End Sub
Private Sub Command3_Click()
If Data1.Recordset.RecordCount <> 0 Then
If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
For i = 0 To 16
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
Next i
End If
End Sub
Private Sub Command4_Click()
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
For i = 0 To 16
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
Next i
End If
End Sub
Private Sub ComUpdate_Click()
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.Edit
For i = 0 To 16
kh(i).Enabled = True
Next i
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
ComSave.Enabled = True
ComCancel.Enabled = True
ComUpdate.Enabled = False
Else
MsgBox ("没有要修改的客户")
End If
End Sub
Private Sub ComSave_Click()
Dim a As String
a = MsgBox("您确实要修改该客户吗？", vbYesNo)
If a = vbYes Then
Data1.Recordset.Edit
For i = 0 To 16
If kh(i).Text <> "" Then Data1.Recordset.Fields(i) = kh(i).Text
kh(i).Enabled = False
Next i
ComUpdate.Enabled = True
ComSave.Enabled = False
ComCancel.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Data1.Recordset.Update
End If
End Sub
Private Sub ComCancel_Click()
For i = 0 To 16
kh(i).Enabled = False
Next i
ComUpdate.Enabled = True
ComSave.Enabled = False
ComCancel.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
frm_main.StatusBar1.Panels(1) = "长春市明日科技有限责任公司"
End Sub
Private Sub ComEnd_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -