📄 formd6.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FormD6
BackColor = &H00FFFFC0&
Caption = " 重 整 帐 目"
ClientHeight = 8595
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8595
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H008080FF&
Caption = " 请修改 "
Height = 1815
Left = 3840
TabIndex = 26
Top = 4320
Visible = 0 'False
Width = 4095
Begin VB.CommandButton Command3
Caption = "放 弃"
Height = 320
Left = 2400
TabIndex = 30
Top = 1080
Width = 975
End
Begin VB.CommandButton Command2
Caption = "确 认"
Enabled = 0 'False
Height = 320
Left = 1200
TabIndex = 29
Top = 1080
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Left = 1800
TabIndex = 28
Text = "Text1"
Top = 480
Width = 1215
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "项目："
Height = 180
Left = 960
TabIndex = 27
Top = 540
Width = 540
End
End
Begin VB.Frame Frame3
BackColor = &H00C0FFC0&
Height = 3255
Left = 3720
TabIndex = 6
Top = 2760
Visible = 0 'False
Width = 5175
Begin VB.CommandButton Command7
BackColor = &H00C0E0FF&
Caption = "关 闭"
Height = 375
Left = 2880
MaskColor = &H00C0E0FF&
Style = 1 'Graphical
TabIndex = 20
Top = 2400
Width = 1095
End
Begin VB.CommandButton Command8
BackColor = &H00C0E0FF&
Caption = "继 续"
Height = 375
Left = 1560
Style = 1 'Graphical
TabIndex = 19
Top = 2400
Width = 1095
End
Begin VB.ComboBox Combo3
Height = 300
Index = 0
Left = 960
TabIndex = 18
Text = "Combo1"
Top = 600
Width = 1020
End
Begin VB.TextBox Text3
Height = 300
Index = 0
Left = 960
TabIndex = 17
Text = "Text3"
Top = 600
Width = 735
End
Begin VB.ComboBox Combo3
Height = 300
Index = 1
Left = 2400
TabIndex = 16
Text = "Combo1"
Top = 600
Width = 780
End
Begin VB.ComboBox Combo3
Height = 300
Index = 2
Left = 3600
TabIndex = 15
Text = "Combo1"
Top = 600
Width = 780
End
Begin VB.TextBox Text3
Height = 300
Index = 1
Left = 2400
TabIndex = 14
Text = "Text3"
Top = 600
Width = 495
End
Begin VB.TextBox Text3
Height = 300
Index = 2
Left = 3600
TabIndex = 13
Text = "Text3"
Top = 600
Width = 495
End
Begin VB.ComboBox Combo3
Height = 300
Index = 3
Left = 960
TabIndex = 12
Text = "Combo1"
Top = 1200
Width = 1020
End
Begin VB.ComboBox Combo3
Height = 300
Index = 4
Left = 2400
TabIndex = 11
Text = "Combo1"
Top = 1200
Width = 780
End
Begin VB.ComboBox Combo3
Height = 300
Index = 5
Left = 3600
TabIndex = 10
Text = "Combo1"
Top = 1200
Width = 780
End
Begin VB.TextBox Text3
Height = 300
Index = 5
Left = 3600
TabIndex = 9
Text = "Text3"
Top = 1200
Width = 495
End
Begin VB.TextBox Text3
Height = 300
Index = 4
Left = 2400
TabIndex = 8
Text = "Text3"
Top = 1200
Width = 495
End
Begin VB.TextBox Text3
Height = 300
Index = 3
Left = 960
TabIndex = 7
Text = "Text3"
Top = 1200
Width = 735
End
Begin VB.Label Label10
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 = 22
Top = 660
Width = 4140
End
Begin VB.Label Label11
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 = 21
Top = 1260
Width = 4140
End
End
Begin VB.Frame Frame2
BackColor = &H00C0C0FF&
Height = 1185
Left = 600
TabIndex = 2
Top = 6720
Width = 10575
Begin VB.CommandButton Command1
Caption = "重整帐目"
Height = 375
Left = 6960
TabIndex = 25
Top = 480
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "退 出"
Height = 375
Left = 8520
TabIndex = 24
Top = 480
Width = 1215
End
Begin VB.OptionButton Option2
BackColor = &H00C0C0FF&
Caption = "全部"
Height = 255
Index = 1
Left = 3360
TabIndex = 23
Top = 360
Value = -1 'True
Width = 855
End
Begin VB.OptionButton Option2
BackColor = &H00C0C0FF&
Caption = "按日期"
Height = 255
Index = 0
Left = 2400
TabIndex = 4
Top = 360
Width = 855
End
Begin VB.CheckBox Check1
BackColor = &H00C0C0FF&
Caption = "倒序"
Height = 255
Left = 4920
TabIndex = 3
Top = 360
Width = 735
End
Begin VB.Label Label9
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 = 600
TabIndex = 5
Top = 360
Width = 405
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4215
Left = 600
TabIndex = 0
Top = 720
Visible = 0 'False
Width = 10575
_ExtentX = 18653
_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 = 2280
TabIndex = 1
Top = 360
Width = 405
End
End
Attribute VB_Name = "FormD6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
' ┃ FormD6 重整帐目 ┃
' ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
Const intCy1 = &HC0FFFF, intCx1 = &HC0E0FF
Const intRou = 30, intRod = 24
Dim intRow As Integer, bytCol As Byte
Dim yy As String, Mm As String, Dd As String, intTs As Integer, bytFs As Byte, bytLx As Byte
Dim yyp As String, Mmp As String, Ddp As String, strTj 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
Dim Sj1 As String, Sj2 As String
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 arrLb() As String, arrZm()
'
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
StrT2 = "T_zm" ' 账目表 MyRs1
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
bytFs = 1: Call P_grid
Call P_init
intRow = 1
blnSp = False
End Sub
Private Sub P_grid() ' 显示 T_zm 表
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -