📄 日记表查询.frm
字号:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form FrmBillBookQuery
BorderStyle = 3 'Fixed Dialog
Caption = "日记表查询"
ClientHeight = 3585
ClientLeft = 45
ClientTop = 330
ClientWidth = 4770
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3585
ScaleWidth = 4770
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.OptionButton Opt_Date
Caption = "2001年09月22日"
Height = 180
Index = 0
Left = 240
TabIndex = 0
Top = 180
Value = -1 'True
Width = 2235
End
Begin VB.Frame Frame1
Caption = "单据状态"
Height = 1515
Left = 180
TabIndex = 6
Top = 1260
Width = 2115
Begin VB.CheckBox Chk_Book
Caption = "已记账(&B)"
Height = 180
Left = 180
TabIndex = 9
Top = 1080
Width = 1335
End
Begin VB.CheckBox Chk_Check
Caption = "已审(&C)"
Height = 180
Left = 180
TabIndex = 8
Top = 720
Width = 1575
End
Begin VB.CheckBox Chk_Bill
Caption = "未审(&I)"
Height = 180
Left = 180
TabIndex = 7
Top = 360
Value = 1 'Checked
Width = 1695
End
End
Begin VB.Frame Frame2
Caption = "统计类型"
Height = 1515
Left = 2520
TabIndex = 10
Top = 1260
Width = 2115
Begin VB.OptionButton Opt_User
Caption = "按 操作员(&U)"
Height = 180
Left = 180
TabIndex = 11
Top = 360
Value = -1 'True
Width = 1695
End
Begin VB.OptionButton Opt_PayMode
Caption = "按 结算方式(&P)"
Height = 180
Left = 180
TabIndex = 12
Top = 720
Width = 1755
End
End
Begin VB.CommandButton Cmd_DateTo
Height = 252
Index = 1
Left = 3870
Style = 1 'Graphical
TabIndex = 5
Top = 510
Width = 264
End
Begin VB.CommandButton Cmd_Date
Height = 252
Index = 0
Left = 1830
Style = 1 'Graphical
TabIndex = 3
Top = 510
Width = 264
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 365
Index = 1
Left = 3480
Style = 1 'Graphical
TabIndex = 14
Top = 3000
Width = 1080
End
Begin VB.CommandButton Cmd_OK
Caption = "确定(&O)"
Default = -1 'True
Height = 365
Index = 0
Left = 2040
Style = 1 'Graphical
TabIndex = 13
Top = 3000
Width = 1080
End
Begin EDITLib.Edit Edt_Date
Height = 270
Left = 510
TabIndex = 2
Top = 510
Width = 1365
_Version = 65536
_ExtentX = 2408
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Edt_DateTo
Height = 270
Left = 2520
TabIndex = 4
Top = 510
Width = 1365
_Version = 65536
_ExtentX = 2408
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin VB.OptionButton Opt_Date
Height = 180
Index = 1
Left = 240
TabIndex = 1
Top = 555
Width = 1155
End
Begin VB.Line Line2
BorderColor = &H80000015&
BorderWidth = 3
X1 = 120
X2 = 4620
Y1 = 1020
Y2 = 1020
End
Begin VB.Line Line1
Index = 0
X1 = 2220
X2 = 2380
Y1 = 630
Y2 = 630
End
End
Attribute VB_Name = "FrmBillBookQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Cmd_Cancel_Click(Index As Integer)
Unload Me
End Sub
Private Sub Cmd_OK_Click(Index As Integer)
' if ...
' Quitfs = False
Unload Me
Dim mfm As Form
For Each mfm In Forms
If mfm.Name = FrmBillBookQuery.Name Then
mfm.sql = GetSQLScript
mfm.iType = 0
mfm.sType = ""
mfm.RefreshGrid
BringWindowToTop mfm.hWnd
Exit Sub
End If
Next mfm
Dim frm As FrmBillBookQuery
Set frm = New FrmBillBookQuery
mfm.sql = GetSQLScript
mfm.iType = 0
mfm.sType = ""
' frm.Tag = dqct
frm.Show
' End If
SaveProperty
End Sub
Public Function GetSQLScript() As String
Dim sql As String
Dim SQL_Select As String
Dim SQL_Where As String
Dim SQL_GroupBy As String
SQL_Select = " Select "
SQL_GroupBy = " Group By "
If Opt_User.Value Then
SQL_Select = SQL_Select & " cBillCode, iCen_ID, FD_AccDef.cExch_Name, Count(mMoney), Sum(mMoney) "
SQL_GroupBy = SQL_GroupBy & " cBillCode, iCen_ID, FD_AccDef.cExch_Name "
ElseIf Opt_PayMode.Value Then
SQL_Select = SQL_Select & " iCen_ID, cBillCode, FD_AccDef.cExch_Name, Count(mMoney), Sum(mMoney) "
SQL_GroupBy = SQL_GroupBy & " iCen_ID, cBillCode, FD_AccDef.cExch_Name "
End If
'
SQL_Where = " Where "
If Chk_Bill.Value = 0 Then
SQL_Where = SQL_Where & " (cBillCode Is NULL) "
Else
SQL_Where = SQL_Where & " (Not (cBillCode Is NULL)) "
End If
SQL_Where = SQL_Where & " AND "
If Chk_Check.Value = 0 Then
SQL_Where = SQL_Where & " (cCheckCode Is NULL) "
Else
SQL_Where = SQL_Where & " (Not (cCheckCode Is NULL)) "
End If
SQL_Where = SQL_Where & " AND "
If Chk_Book.Value = 0 Then
SQL_Where = SQL_Where & " (cBookCode Is NULL) "
Else
SQL_Where = SQL_Where & " (Not (cBookCode Is NULL)) "
End If
SQL_Where = SQL_Where & " AND "
If Opt_Date(0).Value Then
'当日
SQL_Where = SQL_Where & " dBill_Date = '" & Format$(Now, "YYYY-MM-DD") & "' "
Else
If IsDate(Edt_Date.Text) And Not IsDate(Edt_DateTo.Text) Then
'某日
SQL_Where = SQL_Where & " dBill_Date = '" & Format$(CDate(Edt_Date.Text), "YYYY-MM-DD") & "' "
Else
If IsDate(Edt_Date.Text) And IsDate(Edt_DateTo.Text) Then
'日期段
SQL_Where = SQL_Where & " dBill_Date >= '" & Format$(CDate(Edt_Date.Text), "YYYY-MM-DD") & "' AND dBill_Date <= '" & Format$(CDate(Edt_DateTo.Text), "YYYY-MM-DD") & "' "
Else
SQL_Where = SQL_Where & " True "
End If
End If
End If
sql = vbNullString
Dim sBillTable As Variant
Dim i As Long
sBillTable = Array("FD_SettAcc")
For i = LBound(sBillTable) To UBound(sBillTable)
If Not sql = vbNullString Then
sql = sql & vbCrLf & " UNION ALL " & vbCrLf
sql = sql & vbCrLf & " -- " & sBillTable(i) & " " & vbCrLf
End If
sql = SQL_Select & " From " & sBillTable(i) & " " & SQL_Where
sql = sql & " INNER JOIN FD_AccDef ON " & sBillTable(i) & ".cAccID = FD_AccDef.cAccID "
Next i
GetSQLScript = sql
End Function
Private Sub Edt_Date_Change()
If Not Opt_Date(1).Value Then Opt_Date(1).Value = True
End Sub
Private Sub Edt_DateTo_Click()
If Not Opt_Date(1).Value Then Opt_Date(1).Value = True
End Sub
Private Sub SaveProperty()
SaveControl_Check Chk_Bill
SaveControl_Check Chk_Check
SaveControl_Check Chk_Book
SaveControl_Option Opt_User
SaveControl_Option Opt_PayMode
End Sub
Private Sub LoadProperty()
LoadControl_Check Chk_Bill, True
LoadControl_Check Chk_Check
LoadControl_Check Chk_Book
LoadControl_Option Opt_User, True
LoadControl_Option Opt_PayMode
End Sub
Private Sub SaveControl_Check(oCheckBox As CheckBox)
With oCheckBox
SaveSetting App.EXEName, Me.Name, .Name, IIf(Not .Value = 0, "1", "0")
End With
End Sub
Private Sub LoadControl_Check(oCheckBox As CheckBox, Optional ByVal bDefault As Boolean = False)
With oCheckBox
.Value = IIf(GetSetting(App.EXEName, Me.Name, .Name, IIf(bDefault, "1", "0")) = "0", 0, 1)
End With
End Sub
Private Sub SaveControl_Option(oOptionButton As OptionButton)
With oOptionButton
SaveSetting App.EXEName, Me.Name, .Name, IIf(.Value, "1", "0")
End With
End Sub
Private Sub LoadControl_Option(oOptionButton As OptionButton, Optional ByVal bDefault As Boolean = False)
With oOptionButton
.Value = IIf(GetSetting(App.EXEName, Me.Name, .Name, IIf(bDefault, "1", "0")) = "0", False, True)
End With
End Sub
Private Sub Form_Load()
LoadProperty
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -