📄 form1.frm
字号:
Begin VB.Label Label19
Caption = "份"
Height = 240
Left = 2010
TabIndex = 29
Top = 4065
Width = 180
End
Begin VB.Label Label18
Caption = "一季度"
Height = 240
Left = 390
TabIndex = 27
Top = 4065
Width = 600
End
Begin VB.Label Label17
Caption = "金额"
Height = 240
Left = 3810
TabIndex = 26
Top = 3705
Width = 420
End
Begin VB.Label Label16
Caption = "单价"
Height = 240
Left = 2280
TabIndex = 24
Top = 3675
Width = 420
End
Begin VB.Label Label15
Caption = "份"
Height = 240
Left = 1995
TabIndex = 23
Top = 3690
Width = 180
End
Begin VB.Label Label14
Caption = "半年期"
Height = 240
Left = 375
TabIndex = 21
Top = 3690
Width = 600
End
Begin VB.Label Label13
Caption = "金额"
Height = 240
Left = 3810
TabIndex = 20
Top = 3330
Width = 420
End
Begin VB.Label Label12
Caption = "单价"
Height = 240
Left = 2280
TabIndex = 18
Top = 3330
Width = 420
End
Begin VB.Label Label11
Caption = "份"
Height = 240
Left = 1980
TabIndex = 17
Top = 3315
Width = 180
End
Begin VB.Label Label10
Caption = "一年期"
Height = 240
Left = 375
TabIndex = 15
Top = 3330
Width = 600
End
Begin VB.Label Label9
Caption = "开始日期"
Height = 240
Left = 165
TabIndex = 14
Top = 2940
Width = 735
End
Begin VB.Label Label7
Caption = "邮政编码"
Height = 240
Left = 165
TabIndex = 12
Top = 2550
Width = 735
End
Begin VB.Label Label6
Caption = "地址"
Height = 240
Left = 150
TabIndex = 10
Top = 2190
Width = 510
End
Begin VB.Label Label5
Caption = "电话"
Height = 240
Left = 165
TabIndex = 8
Top = 1800
Width = 660
End
Begin VB.Label Label4
Caption = "联系人"
Height = 240
Left = 165
TabIndex = 6
Top = 1440
Width = 795
End
Begin VB.Label Label3
Caption = "订户名称"
Height = 240
Left = 165
TabIndex = 4
Top = 1065
Width = 795
End
Begin VB.Label Label2
Caption = "订户编号"
Height = 240
Left = 165
TabIndex = 2
Top = 720
Width = 795
End
End
Begin VB.Line Line1
X1 = -225
X2 = 11475
Y1 = 5205
Y2 = 5205
End
Begin VB.Label Label1
Caption = "刊名"
Height = 225
Left = 150
TabIndex = 0
Top = 270
Width = 405
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
MS1.ColWidth(0) = 12 * 25 * 0
MS1.ColWidth(1) = 12 * 25 * 0
MS1.ColWidth(2) = 12 * 25 * 3
MS1.ColWidth(3) = 12 * 25 * 6
MS1.ColWidth(4) = 12 * 25 * 3
MS1.ColWidth(5) = 12 * 25 * 3
For i = 6 To 17
MS1.ColWidth(i) = 0
Next i
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\msdb.mdb"
Data1.Connect = ";pwd=" & 73322
End Sub
Private Sub bk_Change(Index As Integer)
Select Case Index
Case 2
bk(2).Text = Format(bk(2).Text, "#00000000")
End Select
End Sub
Private Sub bk_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0
If KeyCode = vbKeyReturn Then
bk(1).SetFocus
End If
Case 1
If KeyCode = vbKeyReturn Then
bk(2).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(0).SetFocus
End If
Case 2
If KeyCode = vbKeyReturn Then
bk(3).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(1).SetFocus
End If
Case 3
If KeyCode = vbKeyReturn Then
bk(4).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(2).SetFocus
End If
Case 4
If KeyCode = vbKeyReturn Then
bk(5).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(3).SetFocus
End If
Case 5
If KeyCode = vbKeyReturn Then
bk(6).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(4).SetFocus
End If
Case 6
If KeyCode = vbKeyReturn Then
bk(7).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(5).SetFocus
End If
Case 7
If KeyCode = vbKeyReturn Then
DTP1.SetFocus
End If
If KeyCode = vbKeyUp Then
bk(6).SetFocus
End If
Case 8
If KeyCode = vbKeyReturn Then
bk(9).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(7).SetFocus
End If
Case 9
If KeyCode = vbKeyReturn Then
ynje.Text = Val(bk(9).Text) * Val(yndj.Text)
bk(12).Text = Val(bk(9).Text) + Val(bk(10).Text) + Val(bk(11).Text)
bk(13).Text = Val(ynje.Text) + Val(bnje.Text) + Val(yjje.Text)
bk(10).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(10).SetFocus
End If
Case 10
If KeyCode = vbKeyReturn Then
yjje.Text = Val(bk(10).Text) * Val(yjdj.Text)
bk(12).Text = Val(bk(11).Text) + Val(bk(9).Text) + Val(bk(10).Text)
bk(13).Text = Val(ynje.Text) + Val(bnje.Text) + Val(yjje.Text)
bk(11).SetFocus
End If
If KeyCode = vbKeyUp Then
bk(9).SetFocus
End If
Case 11
If KeyCode = vbKeyReturn Then
yjje.Text = Val(bk(11).Text) * Val(yjdj.Text)
bk(12).Text = Val(bk(11).Text) + Val(bk(9).Text) + Val(bk(10).Text)
bk(13).Text = Val(ynje.Text) + Val(bnje.Text) + Val(yjje.Text)
Command2.SetFocus
End If
If KeyCode = vbKeyUp Then
bk(10).SetFocus
End If
End Select
End Sub
Private Sub Combo3_Click()
MonthView1.Visible = True
End Sub
Private Sub Command1_Click()
bk(1).Enabled = True
bk(1).SetFocus
Command1.Enabled = False
Command3.Enabled = True
Command2.Enabled = True
For i = 1 To 13
bk(i).Enabled = True
Next i
End Sub
Private Sub Command2_Click()
Dim mydb1 As Database
Dim myrs1 As Recordset
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\msdb.mdb")
Set myrs1 = mydb1.OpenRecordset("bkdd", dbOpenTable)
myrs1.AddNew
If bk(0).Text <> "" Then myrs1.Fields("km") = bk(0).Text
If bk(1).Text <> "" Then myrs1.Fields("zd") = bk(1).Text
If bk(2).Text <> "" Then myrs1.Fields("dhbh") = bk(2).Text
If bk(3).Text <> "" Then myrs1.Fields("dhmc") = bk(3).Text
If bk(4).Text <> "" Then myrs1.Fields("lxr") = bk(4).Text
If bk(5).Text <> "" Then myrs1.Fields("dh") = bk(5).Text
If bk(6).Text <> "" Then myrs1.Fields("dz") = bk(6).Text
If bk(7).Text <> "" Then myrs1.Fields("yb") = bk(7).Text
If bk(8).Text <> "" Then myrs1.Fields("ksrq") = bk(8).Text
If bk(9).Text <> "" Then myrs1.Fields("ynfs") = bk(9).Text
If bk(10).Text <> "" Then myrs1.Fields("bnfs") = bk(10).Text
If bk(11).Text <> "" Then myrs1.Fields("yjfs") = bk(11).Text
If bk(12).Text <> "" Then myrs1.Fields("zfs") = bk(12).Text
If bk(13).Text <> "" Then myrs1.Fields("zje") = bk(13).Text
myrs1.Update
myrs1.Close
mydb1.Close
For i = 1 To 13
bk(i) = ""
Next i
Data1.Refresh
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command1.SetFocus
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub
Private Sub DTP1_Change()
bk(8).Text = DTP1.Value
End Sub
Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
bk(9).SetFocus
bk(8).Text = DTP1.Value
End If
If KeyCode = vbKeyUp Then
bk(7).SetFocus
End If
End Sub
Private Sub Command4_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -