📄 formc1.frm
字号:
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "年月"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 240
TabIndex = 25
Top = 360
Width = 405
End
End
Begin VB.Frame Frame1
BackColor = &H0080C0FF&
Height = 2475
Left = 2160
TabIndex = 1
Top = 5280
Visible = 0 'False
Width = 9135
Begin VB.TextBox Text1
Height = 300
Index = 3
Left = 1080
TabIndex = 37
Text = "Text1(3)"
Top = 840
Width = 2055
End
Begin VB.TextBox Text1
Height = 300
Index = 7
Left = 1080
TabIndex = 18
Text = "Text1(7)"
Top = 1800
Width = 2415
End
Begin VB.TextBox Text1
Height = 300
Index = 6
Left = 1080
TabIndex = 17
Text = "Text1(6)"
Top = 1320
Width = 1215
End
Begin VB.TextBox Text1
Height = 300
Index = 5
Left = 7200
TabIndex = 16
Text = "Text1(5)"
Top = 840
Width = 1215
End
Begin VB.TextBox Text1
Height = 300
Index = 4
Left = 4440
TabIndex = 15
Text = "Text1(4)"
Top = 840
Width = 1455
End
Begin VB.TextBox Text1
Height = 300
Index = 2
Left = 7200
TabIndex = 14
Text = "Text1(2)"
Top = 360
Width = 1215
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 1080
TabIndex = 13
Text = "Text1(1)"
Top = 360
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "返 回"
Height = 375
Left = 7320
TabIndex = 12
Top = 1800
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "收入"
Height = 255
Index = 0
Left = 4440
TabIndex = 10
Top = 360
Width = 735
End
Begin VB.OptionButton Option1
Caption = "支出"
Height = 255
Index = 1
Left = 5160
TabIndex = 9
Top = 360
Value = -1 'True
Width = 735
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收支："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 3840
TabIndex = 11
Top = 420
Width = 600
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类别："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 6600
TabIndex = 8
Top = 420
Width = 600
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "名称："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 480
TabIndex = 7
Top = 900
Width = 600
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 480
TabIndex = 6
Top = 1860
Width = 600
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 480
TabIndex = 5
Top = 420
Width = 600
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单价："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 3840
TabIndex = 4
Top = 900
Width = 600
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "金额： 元"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 480
TabIndex = 3
Top = 1365
Width = 2160
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数量："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 6600
TabIndex = 2
Top = 900
Width = 600
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4215
Left = 2160
TabIndex = 0
Top = 720
Visible = 0 'False
Width = 9135
_ExtentX = 16113
_ExtentY = 7435
_Version = 393216
BackColor = 12648447
BackColorBkg = 12648447
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "标题"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 180
Left = 2640
TabIndex = 45
Top = 360
Width = 405
End
End
Attribute VB_Name = "FormC1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
' ┃ FormC1 帐目查询 ┃
' ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
Const intCy1 = &HC0FFFF, intCx1 = &HC0E0FF
Const intCy2 = &HC0FFFF, intCx2 = &HC0E0FF
Const intCy3 = &H80000005, intCx3 = &HC0E0FF
Dim intRo1 As Integer, intRo3 As Integer, intRou As Integer, intRod As Integer
Dim yy As String, Mm As String, Dd As String, intTs As Integer, bytFs As Byte
Dim yyp As String, Mmp As String, Ddp As String, strTj As String, strLtj As String
Dim strDm As String, strSz As String, StrLb As String, strXm As String, strMc As String
Dim Xh As Integer, Rq As String, Sz As String, Lb As String, Mc As String, Bz As String
Dim Dj As Single, Sl As Single, Sr As Single, Zc As Single, Je As Single, Ye As Single
Dim sigSr As Single, sigZc As Single, Ny As String
Dim Sj1 As String, Sj2 As String, bytGrd As Byte
Dim Xhp As Integer, Rqp As String, Szp As String, Lbp As String, Mcp As String, Bzp As String
Dim Djp As Single, Slp As Single, Srp As Single, Zcp As Single, Jep As Single, Yep As Single
Dim strFs As String, blnXg As Boolean, blnSp As Boolean
Dim arrSl() As String, arrLb() As String, arrZm(), arrTm(10, 2) As String
'
Private Sub Form_Load()
Db_fN2 = App.Path & StrDir & Db_Name2
StrCrq = Format(Date, "yyyy.mm.dd")
If myF_ConnT(Db_fN2) = False Then Unload Me: Exit Sub ' 连接库 T
StrT1 = "T_tm" ' 条目表 MyRs1
StrT2 = "T_zm" ' 账目表 MyRs2
StrT3 = "T_sf" ' 报销表 MyRs3
arrTm(0, 1) = " 日期 ": arrTm(0, 2) = " 日期 "
arrTm(1, 1) = " 收入 ": arrTm(1, 2) = " 收入 "
arrTm(2, 1) = " 支出 ": arrTm(2, 2) = " 支出 "
arrTm(3, 1) = " 医药费 ": arrTm(3, 2) = " 医药费 "
arrTm(4, 1) = " 工资 ": arrTm(4, 2) = " 工资 "
arrTm(5, 1) = " 其它 ": arrTm(5, 2) = " 其它 "
Label9 = StrCrq
blnSp = True
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
End Sub
Private Sub Form_Activate()
If blnTc = True Then Unload Me: Exit Sub
intRou = 30
intRod = 18
Call P_szlb
Call P_grd1
Call P_init
blnSp = False
End Sub
Private Sub P_szlb()
StrSQL = "Select * From " & StrT1 & _
" Where Dm Like 'Lb%' And (Jc Like 's' Or Jc Like 'z')" & _
" Order By Xh"
Set MyRs5 = New Recordset
MyRs5.Open StrSQL, cnnTce, adOpenKeyset, adLockOptimistic
If MyRs5.RecordCount > 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -