📄 formd2.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FormD2
BackColor = &H00C0C0FF&
Caption = " 条 目 增 改"
ClientHeight = 6900
ClientLeft = 60
ClientTop = 345
ClientWidth = 9915
LinkTopic = "Form7"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6900
ScaleWidth = 9915
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H00FFFF80&
BorderStyle = 0 'None
Height = 5655
Left = 1320
TabIndex = 3
Top = 480
Visible = 0 'False
Width = 8655
Begin VB.TextBox Text1
BeginProperty DataFormat
Type = 1
Format = "yyyy.MM.dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Index = 1
Left = 3720
TabIndex = 18
Text = "text1(1)"
Top = 840
Visible = 0 'False
Width = 1455
End
Begin VB.OptionButton Option1
Caption = "支出"
Height = 255
Index = 1
Left = 4440
TabIndex = 17
Top = 840
Value = -1 'True
Width = 735
End
Begin VB.OptionButton Option1
Caption = "收入"
Height = 255
Index = 0
Left = 3720
TabIndex = 16
Top = 840
Width = 735
End
Begin VB.TextBox Text1
BeginProperty DataFormat
Type = 1
Format = "yyyy.MM.dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Index = 2
Left = 3720
TabIndex = 9
Text = "Text1(2)"
Top = 1320
Width = 975
End
Begin VB.TextBox Text1
BeginProperty DataFormat
Type = 1
Format = "yyyy.MM.dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Index = 0
Left = 3720
TabIndex = 8
Text = "Text1(0)"
Top = 360
Width = 2655
End
Begin VB.CommandButton Command4
BackColor = &H00C0C0FF&
Caption = "删 除"
Enabled = 0 'False
Height = 375
Left = 4080
TabIndex = 7
Top = 4800
Width = 1086
End
Begin VB.CommandButton Command2
BackColor = &H00C0C0FF&
Caption = "排 序"
Enabled = 0 'False
Height = 375
Left = 1680
TabIndex = 6
Top = 4800
Width = 1100
End
Begin VB.CommandButton Command3
Caption = "存 盘"
Enabled = 0 'False
Height = 375
Left = 2880
TabIndex = 5
Top = 4800
Width = 1100
End
Begin VB.CommandButton Command5
BackColor = &H00C0C0FF&
Caption = "返 回"
Height = 375
Left = 5280
TabIndex = 4
Top = 4800
Width = 1100
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 1935
Left = 1560
TabIndex = 10
Top = 2040
Visible = 0 'False
Width = 4905
_ExtentX = 8652
_ExtentY = 3413
_Version = 393216
BackColor = 8454143
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "代号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 2880
TabIndex = 15
Top = 1320
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收支："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 2880
TabIndex = 14
Top = 840
Width = 780
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请输入条目名称："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 1590
TabIndex = 13
Top = 360
Width = 2055
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 = &H00FF0000&
Height = 180
Left = 1560
TabIndex = 12
Top = 1680
Width = 600
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请用鼠标拖动 ...."
Height = 180
Left = 1560
TabIndex = 11
Top = 4200
Width = 1530
End
End
Begin VB.CommandButton Command1
Caption = "姓 名"
Height = 375
Index = 2
Left = 960
TabIndex = 2
Top = 1800
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "类 别"
Height = 375
Index = 1
Left = 960
TabIndex = 1
Top = 1200
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "退 出"
Height = 375
Index = 0
Left = 960
TabIndex = 0
Top = 5640
Width = 1215
End
End
Attribute VB_Name = "FormD2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const intClx = &HFFFF80, intCly = &H80FFFF
Dim strT0 As String, bytMod As Byte
Dim strDm As String, strDh As String, Sz As String
Dim strDmt As String, strXhd As String
Dim strDmd As String, strMcd As String, strJcd As String, strBzd As String
Dim strDmk As String, strBzk As String
Dim strDmp As String, strXhp As String, strMcp As String, strJcp As String, strBzp As String
Dim arrLb() As String, arrTmp() As String, strTmm As String, s As String
Dim y0 As Integer, yu As Integer, yd As Integer, Yuu As Integer, Ydd As Integer, Rd As Byte
Dim bytRoy As Byte, bytRok As Byte, bytRow As Byte
Dim blnJh As Boolean, bytDh As Byte, strBzs As String
Dim arrTx() As String, arrTy() As String
'
Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 ' 窗口置前
Text1(0) = "": Text1(0).Enabled = True
Text1(2) = ""
Label5 = ""
Frame1.Left = 960
Frame1.Width = 7580 + 480
With MSFlexGrid1
.Cols = 5
.Row = 0
.Col = 0: .Text = " 序号": .ColWidth(0) = 580
.Col = 1: .Text = " 代 码": .ColWidth(1) = 680
.Col = 2: .Text = " 名 称": .ColWidth(2) = 1600
.Col = 3: .Text = " 收支": .ColWidth(3) = 800
.Col = 4: .Text = " 代号": .ColWidth(4) = 1140
End With
strT0 = "T_tm"
bytRoy = 1
bytDh = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -