📄 frm_finance.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Frm_History
AutoRedraw = -1 'True
Caption = "资料查询"
ClientHeight = 9705
ClientLeft = 1560
ClientTop = 780
ClientWidth = 12660
Icon = "Frm_Finance.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 9705
ScaleWidth = 12660
Begin VB.CommandButton Cmd_PreView
Caption = "打印预览"
Height = 255
Left = 7080
TabIndex = 38
Top = 9000
Width = 1575
End
Begin VB.Frame Frame_Labor
Caption = "人工"
Height = 3135
Left = 6480
TabIndex = 35
Top = 5040
Visible = 0 'False
Width = 6015
Begin MSFlexGridLib.MSFlexGrid Grid_Labor
Height = 2775
Left = 120
TabIndex = 36
Top = 240
Width = 5775
_ExtentX = 10186
_ExtentY = 4895
_Version = 393216
Appearance = 0
End
End
Begin VB.Frame Frame_Part
Caption = "零配件"
Height = 3135
Left = 240
TabIndex = 33
Top = 5040
Visible = 0 'False
Width = 6135
Begin MSFlexGridLib.MSFlexGrid Grid_Part
Height = 2775
Left = 120
TabIndex = 34
Top = 240
Width = 5895
_ExtentX = 10398
_ExtentY = 4895
_Version = 393216
Appearance = 0
End
End
Begin VB.CommandButton cmd_Print
Caption = "打印"
Height = 255
Left = 8880
TabIndex = 32
Top = 9000
Width = 1575
End
Begin VB.CommandButton Cmd_Count
Caption = "计算"
Height = 300
Left = 360
TabIndex = 31
Top = 9000
Width = 1215
End
Begin VB.ComboBox Comb_Sum
Height = 300
Left = 1680
TabIndex = 29
Text = "Combo1"
Top = 9000
Width = 1575
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 255
Left = 10680
TabIndex = 17
Top = 9000
Width = 1815
End
Begin MSFlexGridLib.MSFlexGrid Grid_History
Height = 3015
Left = 240
TabIndex = 5
Top = 1920
Width = 12255
_ExtentX = 21616
_ExtentY = 5318
_Version = 393216
GridColor = 8421504
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
End
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 1575
Left = 240
TabIndex = 0
Top = 120
Width = 12255
Begin VB.CheckBox Chk_Own
Caption = "仅显示欠款"
Height = 255
Left = 3480
TabIndex = 39
Top = 1200
Visible = 0 'False
Width = 1215
End
Begin VB.ComboBox Comb_DateField
Height = 300
Left = 5040
TabIndex = 28
Text = "Combo1"
Top = 360
Width = 1215
End
Begin VB.ComboBox Comb_Fields
Height = 300
Left = 5160
TabIndex = 26
Text = "Combo1"
Top = 840
Width = 1695
End
Begin VB.CheckBox Chk_ByField
Caption = "字段条件"
Height = 255
Left = 3480
TabIndex = 25
Top = 840
Width = 1455
End
Begin VB.TextBox Txt_Condition
Height = 270
Left = 7320
TabIndex = 19
Top = 840
Width = 2055
End
Begin VB.CheckBox Chk_ByTime
Caption = "按时间段查询"
Height = 255
Left = 3480
TabIndex = 18
Top = 360
Width = 1455
End
Begin VB.VScrollBar Vscro_Date
Height = 255
Index = 5
Left = 11400
Max = -32
Min = 32
TabIndex = 16
Top = 360
Width = 135
End
Begin VB.VScrollBar Vscro_Date
Height = 255
Index = 4
Left = 10440
Max = -12
Min = 12
TabIndex = 15
Top = 360
Width = 135
End
Begin VB.VScrollBar Vscro_Date
Height = 255
Index = 3
Left = 9600
Max = -20
Min = 20
TabIndex = 14
Top = 360
Width = 135
End
Begin VB.VScrollBar Vscro_Date
Height = 255
Index = 2
Left = 8400
Max = -32
Min = 32
TabIndex = 13
Top = 360
Width = 135
End
Begin VB.VScrollBar Vscro_Date
Height = 255
Index = 1
Left = 7560
Max = -12
Min = 12
TabIndex = 12
Top = 360
Width = 135
End
Begin VB.TextBox Txt_Date
Height = 270
Index = 5
Left = 11040
TabIndex = 11
Text = "2004"
Top = 360
Width = 495
End
Begin VB.TextBox Txt_Date
Height = 270
Index = 4
Left = 10080
TabIndex = 10
Text = "2004"
Top = 360
Width = 495
End
Begin VB.TextBox Txt_Date
Height = 270
Index = 3
Left = 9120
TabIndex = 9
Text = "2004"
Top = 360
Width = 495
End
Begin VB.TextBox Txt_Date
Height = 270
Index = 2
Left = 8040
TabIndex = 8
Text = "2004"
Top = 360
Width = 495
End
Begin VB.TextBox Txt_Date
Height = 270
Index = 1
Left = 7200
TabIndex = 7
Text = "2004"
Top = 360
Width = 495
End
Begin VB.ComboBox Comb_Condition
Height = 300
Left = 2040
TabIndex = 6
Text = "Combo1"
Top = 360
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "查询"
Height = 255
Left = 720
TabIndex = 4
Top = 360
Width = 975
End
Begin VB.VScrollBar Vscro_Date
Height = 255
Index = 0
Left = 6840
Max = -20
Min = 20
TabIndex = 2
Top = 360
Width = 135
End
Begin VB.TextBox Txt_Date
Height = 270
Index = 0
Left = 6360
TabIndex = 1
Text = "2004"
Top = 360
Width = 495
End
Begin VB.Label Lbl_Field
Caption = "有"
Height = 255
Left = 6960
TabIndex = 27
Top = 840
Width = 255
End
Begin VB.Label Lbl_Date
Caption = "日"
Height = 255
Index = 5
Left = 11520
TabIndex = 24
Top = 360
Width = 255
End
Begin VB.Label Lbl_Date
Caption = "月"
Height = 255
Index = 4
Left = 10560
TabIndex = 23
Top = 360
Width = 255
End
Begin VB.Label Lbl_Date
Caption = "年"
Height = 255
Index = 3
Left = 9720
TabIndex = 22
Top = 360
Width = 255
End
Begin VB.Label Lbl_Date
Caption = "日 至"
Height = 255
Index = 2
Left = 8520
TabIndex = 21
Top = 360
Width = 495
End
Begin VB.Label Lbl_Date
Caption = "月"
Height = 255
Index = 1
Left = 7680
TabIndex = 20
Top = 360
Width = 255
End
Begin VB.Label Lbl_Date
Caption = "年"
Height = 255
Index = 0
Left = 6960
TabIndex = 3
Top = 360
Width = 255
End
End
Begin VB.Label lbl_Custom
Height = 255
Left = 240
TabIndex = 37
Top = 8280
Width = 11895
End
Begin VB.Label Lbl_Sum
Caption = "总额="
Height = 255
Left = 3360
TabIndex = 30
Top = 9000
Width = 3135
End
Begin VB.Menu mnuFedBack
Caption = "填写反馈意见"
NegotiatePosition= 3 'Right
Visible = 0 'False
Begin VB.Menu mnuWrite
Caption = "填写反馈意见"
End
Begin VB.Menu mnuReadFedBack
Caption = "阅读反馈意见"
End
End
End
Attribute VB_Name = "Frm_History"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strTableName As String
Dim intPeriod(5) As Integer '查询时间段
Dim wksHistory As Workspace
Dim dbHistory As Database
Dim mrsHistory As Recordset
Public rsFedBack As Recordset
Dim strQwhat As String
Dim qdfHistory As QueryDef
Dim popMnu As Boolean
Private Sub Chk_ByField_Click()
If Chk_ByField.Value = 0 Then
Chk_ByField.Caption = "字段条件"
Comb_Fields.Visible = False
Txt_Condition.Visible = False
Lbl_Field.Visible = False
Else
Chk_ByField.Caption = "字段"
Comb_Fields.Visible = True
Txt_Condition.Visible = True
Lbl_Field.Visible = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -