📄 frmaccount.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmAccount
Caption = "帐簿输出"
ClientHeight = 7935
ClientLeft = 60
ClientTop = 345
ClientWidth = 11115
Icon = "frmAccount.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7935
ScaleWidth = 11115
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin VB.PictureBox picBackground
Height = 7935
Left = 0
Picture = "frmAccount.frx":014A
ScaleHeight = 7875
ScaleWidth = 11115
TabIndex = 0
Top = 0
Width = 11175
Begin VB.CommandButton cmdSearch
Caption = "查询"
Height = 375
Left = 8160
TabIndex = 7
Top = 1440
Width = 1215
End
Begin VB.Frame frameMain
BackColor = &H80000018&
Caption = "帐簿输出"
Height = 4215
Left = 3120
TabIndex = 5
Top = 2280
Width = 6615
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 3135
Left = 600
TabIndex = 6
Top = 600
Width = 5415
_ExtentX = 9551
_ExtentY = 5530
_Version = 393216
End
End
Begin MSComctlLib.TreeView TreeSubject
Height = 4095
Left = 480
TabIndex = 3
Top = 2400
Width = 2535
_ExtentX = 4471
_ExtentY = 7223
_Version = 393217
Style = 7
Appearance = 1
End
Begin VB.TextBox txtSearch
Height = 270
Left = 5880
TabIndex = 2
Text = "现金"
Top = 1560
Width = 1815
End
Begin VB.Label lbiTitle
BackStyle = 0 'Transparent
Caption = "账簿输出 "
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 495
Left = 360
TabIndex = 4
Top = 480
Width = 3135
End
Begin VB.Label Label1
BackColor = &H000000C0&
BackStyle = 0 'Transparent
Caption = "请输入科目编码或科目名称："
ForeColor = &H000000FF&
Height = 255
Left = 2760
TabIndex = 1
Top = 1560
Width = 2535
End
End
End
Attribute VB_Name = "frmAccount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mNode As Node
Private Sub Picture1_Click()
End Sub
Private Sub cmdSearch_Click()
Dim i As Integer
Dim strSearch As String
strSearch = checkSqlFlag(txtSearch.Text)
Call IsIDorName(strSearch)
'/****************************初始化MSFlexGrid表格*****************************/
MSFlexGrid1.Clear '清空
MSFlexGrid1.Rows = 0 '行数
MSFlexGrid1.Cols = 5 '列数
Dim colWidth As Integer
colWidth = MSFlexGrid1.Width / 15
MSFlexGrid1.colWidth(0) = colWidth * 4.15
MSFlexGrid1.colWidth(1) = colWidth * 3
MSFlexGrid1.colWidth(2) = colWidth * 3
MSFlexGrid1.colWidth(3) = colWidth * 3
MSFlexGrid1.colWidth(4) = colWidth * 1.5
'设置表格标题栏: 科目名称，凭证号，借方，贷方，余额
strRecord = "科目名称" + vbTab + "凭证号" + vbTab + "借方" + vbTab + "贷方" + vbTab + "余额"
MSFlexGrid1.AddItem strRecord
'/*************************************************************************************/
For i = 0 To numCredence
MSFlexGrid1.AddItem DnyArraySubjectName(i) + vbTab + Str(DnyArrayCredenceID(i)) + vbTab + Str(DnyArrayDebitMoney(i)) + vbTab + Str(DnyArrayLenderMoney(i)) + vbTab + Str(DnyArrayBalanceMoney(i))
Next i
End Sub
Private Sub Form_Load()
Dim ADOrs As New Recordset '定义一个记录集，记录科目类型
Dim rsSubject As New Recordset '定义一个记录集，记录每种科目类型中的科目
Dim strSQL As String '定义一个字符串，将查询科目类型的sql语句付给它
Dim strSQLQuery As String '定义一个字符串，将查询每种科目类型下的科目的sql语句付给它
Dim strSubjectType(5) As String '定义一个数组，存储科目类型
Dim strSubject As String '定义字符串，将每种科目类型下的科目附值给它
Dim intIndex(5) As Integer '定义一个数组，记录根节点index
Dim numSubjectType As Integer '定义一个整数，存储第numSubjectType个科目种类
Dim i As Integer '定义一个整数，存储是第i个根节点
'/***********************************TreeVeiwStart********************************************/
Set ADOrs.ActiveConnection = ADOcn
strSQL = "Select distinct 科目类别 from kmzd "
ADOrs.Open strSQL
TreeSubject.Sorted = True
Set mNode = TreeSubject.Nodes.Add()
mNode.Text = "会计科目"
Do Until ADOrs.EOF
Set mNode = TreeSubject.Nodes.Add(1, tvwChild)
strSubjectType(numSubjectType) = ADOrs.Fields("科目类别")
mNode.Text = strSubjectType(i)
intIndex(i) = mNode.Index
i = i + 1
numSubjectType = numSubjectType + 1
ADOrs.MoveNext
Loop
ADOrs.Close
Set rsSubject.ActiveConnection = ADOcn
For numSubjectType = 0 To 5
strSQLQuery = "Select 科目名称,科目代码 from kmzd where 科目类别='" + strSubjectType(numSubjectType) + "'"
rsSubject.Open strSQLQuery
Do Until rsSubject.EOF
Set mNode = TreeSubject.Nodes.Add(intIndex(numSubjectType), tvwChild)
strSubject = rsSubject.Fields("科目代码") + " " + rsSubject.Fields("科目名称")
mNode.Text = strSubject
rsSubject.MoveNext
Loop
rsSubject.Close '关闭记录集，一定要记住，折磨了我两个小时
numSubjectType = numSubjectType + 1
Next numSubjectType
'/********************************TreeViewEnd***********************************/
'/****************************初始化MSFlexGrid表格*****************************/
MSFlexGrid1.Clear '清空
MSFlexGrid1.Rows = 0 '行数
MSFlexGrid1.Cols = 5 '列数
Dim colWidth As Integer
colWidth = MSFlexGrid1.Width / 15
MSFlexGrid1.colWidth(0) = colWidth * 4.15
MSFlexGrid1.colWidth(1) = colWidth * 3
MSFlexGrid1.colWidth(2) = colWidth * 3
MSFlexGrid1.colWidth(3) = colWidth * 3
MSFlexGrid1.colWidth(4) = colWidth * 1.5
'设置表格标题栏: 科目名称，凭证号，借方，贷方，余额
strRecord = "科目名称" + vbTab + "凭证号" + vbTab + "借方" + vbTab + "贷方" + vbTab + "余额"
MSFlexGrid1.AddItem strRecord
'/*************************************************************************************/
End Sub
Private Sub Form_Paint()
picBackground.Height = frmAccount.ScaleHeight
picBackground.Width = frmAccount.ScaleWidth
End Sub
Private Sub Form_Resize()
picBackground.Height = frmAccount.ScaleHeight
picBackground.Width = frmAccount.ScaleWidth
TreeSubject.Height = Me.ScaleHeight / 1.5
frameMain.Height = Me.ScaleHeight / 2
frameMain.Width = Me.ScaleWidth / 2
MSFlexGrid1.Width = frameMain.Width / 1.3
MSFlexGrid1.Height = frameMain.Height / 1.5
'/*******************************focus*************************************************/
txtSearch.SetFocus
'/**************************************************************************************/
End Sub
Private Sub TreeSubject_NodeClick(ByVal Node As MSComctlLib.Node)
txtSearch = Right(Trim(Node.Text), (Len(Trim(Node.Text)) - InStr(Trim(Node.Text), " ")))
End Sub
Private Sub txtSearch_Change()
If checkLength(txtSearch) = False Then
txtSearch = Left(txtSearch, 10)
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -