📄 form22.frm
字号:
Y1 = 4183.186
Y2 = 0
End
Begin VB.Line Line2
Index = 9
X1 = 8640
X2 = 8640
Y1 = 3391.772
Y2 = 0
End
Begin VB.Line Line2
Index = 7
X1 = 7560
X2 = 7560
Y1 = 4070.126
Y2 = 0
End
Begin VB.Line Line2
Index = 5
X1 = 6720
X2 = 6720
Y1 = 4070.126
Y2 = 0
End
Begin VB.Line Line2
Index = 3
X1 = 5520
X2 = 5520
Y1 = 4070.126
Y2 = 0
End
Begin VB.Line Line2
Index = 2
X1 = 4680
X2 = 4680
Y1 = 3730.949
Y2 = 0
End
Begin VB.Line Line2
Index = 1
X1 = 3840
X2 = 3840
Y1 = 4070.126
Y2 = 0
End
Begin VB.Line Line1
Index = 9
X1 = 2280
X2 = 9840
Y1 = 2713.418
Y2 = 2713.418
End
Begin VB.Line Line1
Index = 8
X1 = 2280
X2 = 9840
Y1 = 2374.24
Y2 = 2374.24
End
Begin VB.Line Line1
Index = 7
X1 = 2280
X2 = 9840
Y1 = 2035.063
Y2 = 2035.063
End
Begin VB.Line Line1
Index = 6
X1 = 2280
X2 = 9840
Y1 = 1695.886
Y2 = 1695.886
End
Begin VB.Line Line1
Index = 5
X1 = 2280
X2 = 9840
Y1 = 1356.709
Y2 = 1356.709
End
Begin VB.Line Line1
Index = 4
X1 = 2280
X2 = 9840
Y1 = 1017.532
Y2 = 1017.532
End
Begin VB.Line Line1
Index = 3
X1 = 2280
X2 = 9840
Y1 = 1017.532
Y2 = 1017.532
End
Begin VB.Line Line1
Index = 2
X1 = 2280
X2 = 9840
Y1 = 678.354
Y2 = 678.354
End
Begin VB.Line Line1
Index = 1
X1 = 2280
X2 = 9840
Y1 = 339.177
Y2 = 339.177
End
Begin VB.Line Line2
Index = 0
X1 = 2280
X2 = 2280
Y1 = 4070.126
Y2 = 0
End
Begin VB.Line Line1
Index = 0
X1 = 2280
X2 = 9840
Y1 = 0
Y2 = 0
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = " 差 额"
ForeColor = &H00FF0000&
Height = 255
Left = 5720
TabIndex = 143
Top = 4080
Width = 855
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = " 预收款"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 142
Top = 4075
Width = 855
End
End
Attribute VB_Name = "Form22"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9 As String
Dim i As Integer
grs.CursorLocation = adUseClient
grs.Open biaoming, gconn, adOpenKeyset, adLockPessimistic
If Form22.Text1.Text = "" Then
MsgBox "单位不能为空！", vbOKOnly + vbExclamation, "警告！"
grs.Close
Exit Sub
End If
If Form22.Text3.Text <> "" Then
If Not IsDate(Form22.Text3.Text) Then
MsgBox "时间格式(yyyy-mm-dd)！", vbOKOnly + vbExclamation, "警告！"
grs.Close
Exit Sub
End If
Else
MsgBox "时间不能为空！", vbOKOnly + vbExclamation, "警告！"
grs.Close
Exit Sub
End If
For i = 1 To grs.RecordCount
If grs.Fields(1).Value = Text2.Text Then
If Text1.Text = "" Then
a1 = 0
Else
a1 = Text1.Text
End If
If Text2.Text = "" Then
a2 = 0
Else
a2 = Text2.Text
End If
If Text3.Text = "" Then
a3 = 0
Else
a3 = Text3.Text
End If
If Combo1.Text = "" Then
a4 = 0
Else
a4 = Combo1.Text
End If
If Combo2.Text = "" Then
a5 = 0
Else
a5 = Combo2.Text
End If
If Text6.Text = "" Then
a6 = 0
Else
a6 = Text6.Text
End If
If Text7.Text = "" Then
a7 = 0
Else
a7 = Text7.Text
End If
If Text8.Text = "" Then
a8 = 0
Else
a8 = Text8.Text
End If
If Text9.Text = "" Then
a9 = 0
Else
a9 = Text9.Text
End If
If Text10.Text = "" Then
a10 = 0
Else
a10 = Text10.Text
End If
If Combo3.Text = "" Then
a11 = 0
Else
a11 = Combo3.Text
End If
If Combo4.Text = "" Then
a12 = 0
Else
a12 = Combo4.Text
End If
If Text13.Text = "" Then
a13 = 0
Else
a13 = Text13.Text
End If
If Text14.Text = "" Then
a14 = 0
Else
a14 = Text14.Text
End If
If Text15.Text = "" Then
a15 = 0
Else
a15 = Text15.Text
End If
If Text16.Text = "" Then
a16 = 0
Else
a16 = Text16.Text
End If
If Text17.Text = "" Then
a17 = 0
Else
a17 = Text17.Text
End If
If Combo5.Text = "" Then
a18 = 0
Else
a18 = Combo5.Text
End If
If Combo6.Text = "" Then
a19 = 0
Else
a19 = Combo6.Text
End If
If Text20.Text = "" Then
a20 = 0
Else
a20 = Text20.Text
End If
If Text21.Text = "" Then
a21 = 0
Else
a21 = Text21.Text
End If
If Text22.Text = "" Then
a22 = 0
Else
a22 = Text22.Text
End If
If Text23.Text = "" Then
a23 = 0
Else
a23 = Text23.Text
End If
If Text24.Text = "" Then
a24 = 0
Else
a24 = Text24.Text
End If
If Combo7.Text = "" Then
a25 = 0
Else
a25 = Combo7.Text
End If
If Combo8.Text = "" Then
a26 = 0
Else
a26 = Combo8.Text
End If
If Text27.Text = "" Then
a27 = 0
Else
a27 = Text27.Text
End If
If Text28.Text = "" Then
a28 = 0
Else
a28 = Text28.Text
End If
If Text29.Text = "" Then
a29 = 0
Else
a29 = Text29.Text
End If
If Text30.Text = "" Then
a30 = 0
Else
a30 = Text30.Text
End If
If Text31.Text = "" Then
a31 = 0
Else
a31 = Text31.Text
End If
If Combo9.Text = "" Then
a32 = 0
Else
a32 = Combo9.Text
End If
If Combo10.Text = "" Then
a33 = 0
Else
a33 = Combo10.Text
End If
If Text34.Text = "" Then
a34 = 0
Else
a34 = Text34.Text
End If
If Text35.Text = "" Then
a35 = 0
Else
a35 = Text35.Text
End If
If Text36.Text = "" Then
a36 = 0
Else
a36 = Text36.Text
End If
If Text37.Text = "" Then
a37 = 0
Else
a37 = Text37.Text
End If
If Text38.Text = "" Then
a38 = 0
Else
a38 = Text38.Text
End If
If Combo11.Text = "" Then
a39 = 0
Else
a39 = Combo11.Text
End If
If Combo12.Text = "" Then
a40 = 0
Else
a40 = Combo12.Text
End If
If Text41.Text = "" Then
a41 = 0
Else
a41 = Text41.Text
End If
If Text42.Text = "" Then
a42 = 0
Else
a42 = Text42.Text
End If
If Text43.Text = "" Then
a43 = 0
Else
a43 = Text43.Text
End If
If Text44.Text = "" Then
a44 = 0
Else
a44 = Text44.Text
End If
If Text45.Text = "" Then
a45 = 0
Else
a45 = Text45.Text
End If
If Combo13.Text = "" Then
a46 = 0
Else
a46 = Combo13.Text
End If
If Combo14.Text = "" Then
a47 = 0
Else
a47 = Combo14.Text
End If
If Text48.Text = "" Then
a48 = 0
Else
a48 = Text48.Text
End If
If Text49.Text = "" Then
a49 = 0
Else
a49 = Text49.Text
End If
If Text50.Text = "" Then
a50 = 0
Else
a50 = Text50.Text
End If
If Text51.Text = "" Then
a51 = 0
Else
a51 = Text51.Text
End If
If Text52.Text = "" Then
a52 = 0
Else
a52 = Text52.Text
End If
If Text53.Text = "" Then
a53 = 0
Else
a53 = Text53.Text
End If
If Combo19.Text = "" Then
a54 =⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -