📄 单面查询1.frm
字号:
Width = 1605
End
Begin VB.Label Label5
BackColor = &H00FFFFC0&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 16
Left = 6870
TabIndex = 59
Top = 1500
Width = 1605
End
Begin VB.Label Label4
BackColor = &H00FFFFC0&
Caption = "Label4"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 16
Left = 5880
TabIndex = 58
Top = 1500
Width = 1005
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 15
Left = 6870
TabIndex = 57
Top = 1080
Width = 1605
End
Begin VB.Label Label4
BackColor = &H00C0FFC0&
Caption = "Label4"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 15
Left = 5880
TabIndex = 56
Top = 1080
Width = 1005
End
Begin VB.Label Label5
BackColor = &H00FFFFC0&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 14
Left = 6870
TabIndex = 55
Top = 645
Width = 1605
End
Begin VB.Label Label4
BackColor = &H00FFFFC0&
Caption = "Label4"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 14
Left = 5880
TabIndex = 54
Top = 645
Width = 1005
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
Height = 450
Index = 13
Left = 6870
TabIndex = 53
Top = 210
Width = 1605
End
Begin VB.Label Label4
BackColor = &H00C0FFC0&
Caption = "Label4"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 450
Index = 13
Left = 5880
TabIndex = 52
Top = 210
Width = 1005
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "1234567890"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 435
Index = 14
Left = 9885
TabIndex = 23
Top = 165
Width = 1710
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "入 院"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C000&
Height = 435
Index = 14
Left = 8910
TabIndex = 22
Top = 165
Width = 960
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
Height = 435
Index = 4
Left = 9990
TabIndex = 39
Top = 255
Width = 1710
End
Begin VB.Label Label4
BackColor = &H80000010&
Caption = "Label4"
Height = 435
Index = 4
Left = 9015
TabIndex = 38
Top = 255
Width = 960
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 8
Left = 4290
TabIndex = 81
Top = 210
Width = 1605
End
Begin VB.Label Label5
BackColor = &H00FFFFC0&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 9
Left = 4290
TabIndex = 80
Top = 645
Width = 1605
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 10
Left = 4290
TabIndex = 79
Top = 1080
Width = 1605
End
Begin VB.Label Label5
BackColor = &H00FFFFC0&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 11
Left = 4290
TabIndex = 78
Top = 1515
Width = 1605
End
Begin VB.Label Label5
BackColor = &H80000010&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 12
Left = 4290
TabIndex = 77
Top = 1950
Width = 1605
End
Begin VB.Label Label5
BackColor = &H00FFFFC0&
Caption = "Label5"
ForeColor = &H0000C000&
Height = 450
Index = 18
Left = 4380
TabIndex = 71
Top = 2295
Width = 1575
End
End
Attribute VB_Name = "frmSingle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public RecString As String
Public db As Database
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim s As String
Dim i As Integer
Dim STRlen As Integer
Dim Hyid As String
Dim HzRs As Recordset
Dim rs As Recordset
If KeyAscii = 27 Then '27=ESC
Picture1.Visible = True
Picture1.SetFocus
HzZyh = ""
End If
If KeyAscii = 13 Then
If Right(RecString, 4) = "QUIT" Then
Unload Me
End If
RecString = ""
End If
If KeyAscii = 59 Then '59=;
RecString = ""
STRlen = 0
End If
RecString = RecString & Chr(KeyAscii)
If KeyAscii = 63 Then '63=?
Debug.Print RecString
Hyid = ""
i = 2
While i < 30
s = Mid(RecString, i, 1)
If s = "?" Then
GoTo ZyhOk
End If
i = i + 1
Hyid = Hyid + s
Wend
End If
Exit Sub
ZyhOk:
Set HzRs = db.OpenRecordset("select * from zy_ckCX where ck_id='" + Hyid + "'")
If HzRs.EOF Then
Exit Sub
End If
HzZyh = HzRs!zy_id
'HzZyh = Hyid
HzRs.Close
Set HzRs = db.OpenRecordset("select * from zy_in_out where zy_id='" + HzZyh + "'")
If HzRs.EOF Then
Exit Sub
End If
Label2(10).Caption = HzRs!zy_id
Label2(11).Caption = HzRs!zy_name
Set rs = db.OpenRecordset("select ks_name from ks_table where ks_id='" + HzRs!ks_id + "'")
Label2(12).Caption = rs!ks_name
rs.Close
Set rs = db.OpenRecordset("select ys_name from ys_table where ys_id='" + HzRs!ys_id + "'")
Label2(13).Caption = rs!ys_name
rs.Close
Label2(14).Caption = Left(HzRs!zy_ryrq, 10)
Label2(15).Caption = Space(10 - Len(Left(Format(HzRs!premoney, "0.00"), 10))) + Format(HzRs!premoney, "0.00")
Label2(16).Caption = Space(10 - Len(Left(Format(HzRs!usemoney, "0.00"), 10))) + Format(HzRs!usemoney, "0.00")
Label2(17).Caption = Space(10 - Len(Left(Format(HzRs!restmoney, "0.00"), 10))) + Format(HzRs!restmoney, "0.00")
HzRs.Close
Data1.RecordSource = "select skrq as 收款日期,zje as 收款金额,sky_id as 收款员,xm_name as 项目名称 from zy_allfy where zy_id='" + HzZyh + "'"
Data1.Refresh
Set rs = db.OpenRecordset("select sum(zje) as je,jsbz from zy_allfy,xm_table where left(xmdm,2)=xm_id and zy_id='" + HzZyh + "' group by jsbz")
If Not rs.EOF Then
rs.MoveFirst
End If
While Not rs.EOF
If rs!JSBZ <> 11 Then
Label2((rs!JSBZ Mod 10)).Caption = Format(Val(Label2((rs!JSBZ Mod 10)).Caption) + rs!je, "0.00")
rs.MoveNext
Else
Label2(18).Caption = Format(Val(Label2(18).Caption) + rs!je, "0.00")
rs.MoveNext
End If
Wend
rs.Close
Picture1.Visible = False
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Top = 0
Me.Left = 0
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
Picture1.Top = 0
Picture1.Left = 0
Label7.Left = Label6.Left + Label6.Width
Set db = OpenDatabase("BAhis", False, False, "odbc;uid=zwj;pwd=qqq")
Data1.DatabaseName = "BAhis"
Data1.Connect = "odbc;uid=zwj;pwd=qqq;database=netba"
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveNext
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Dim i As Integer
Picture1.Visible = True
For i = 0 To Label2.Count - 1
Label2(i).Caption = ""
Next i
HzZyh = ""
RecString = ""
Hyid = ""
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
'封面标签移动
Label6.Left = ((Label6.Left - 50)) Mod (Label6.Width + Label7.Width)
Label7.Left = (Label6.Left + Label6.Width) ' Mod Screen.Width
Label8.Left = Label7.Left + Label7.Width
Label9.Left = Label8.Left + Label8.Width
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -