📄 +
字号:
Top = 120
Width = 840
End
Begin VB.OptionButton OptAdd
Caption = "加项"
Height = 270
Left = 2040
TabIndex = 14
Top = 180
Value = -1 'True
Width = 810
End
Begin VB.CommandButton cmdSel
Caption = "选定(&S)"
Height = 300
Left = 210
TabIndex = 13
Top = 150
Width = 1485
End
End
Begin VB.ListBox LstCodeList
Height = 2940
ItemData = "基础设置_资产负债表设置.frx":78EC
Left = 405
List = "基础设置_资产负债表设置.frx":78F3
TabIndex = 9
Top = 690
Width = 4890
End
Begin VB.CommandButton cmdOK
Caption = "确定(&O)"
Height = 300
Left = 2280
TabIndex = 8
Top = 4980
Width = 1120
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 300
Left = 3480
TabIndex = 7
Top = 4980
Width = 1120
End
Begin VB.TextBox txtExp
Height = 315
Left = 390
MaxLength = 100
TabIndex = 6
Top = 3750
Width = 4905
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "科目:"
Height = 180
Left = 405
TabIndex = 11
Top = 330
Width = 450
End
Begin VB.Label labList
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "---------------"
Height = 180
Left = 960
TabIndex = 10
Top = 345
Width = 1350
End
End
Begin VSFlex6DAOCtl.vsFlexGrid CzxsGrid
Height = 6060
Left = -74925
TabIndex = 0
Top = 360
Width = 9210
_ExtentX = 16245
_ExtentY = 10689
_ConvInfo = 1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = 8421504
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 5000
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
End
End
Begin VB.Label Lab_OperStatus
BackColor = &H000080FF&
Caption = "1"
Height = 345
Left = 9540
TabIndex = 1
Top = 270
Visible = 0 'False
Width = 345
End
End
Attribute VB_Name = "JC_FrmBalSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'--------------------单张视图变量声明--------------------------
Public bExpChange As Boolean '如果确认公式所做的修改 则此值为True
'否则为False
Private CodeListRs As New ADODB.Recordset
'----------------------------------------------------------------------
'=================列表视图程序开始==========================
Dim ReportTitle As String
Dim iRow As Integer '网格行
Dim iCol As Integer '网格列
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim Sfxshjwg As Boolean '是否显示合计网格
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Szzls As Integer '数组总列数(网格列数-1)
Dim Bln_Stop As Boolean '停止输出查询结果
Dim Cxnrrec As New ADODB.Recordset
Private frmExp As New JC_Expressions '公式设置窗体
Private Sub Form_Load()
'调入打印页面设置窗体
XtReportCode = "cwfx_BalSetup"
Load Dyymctbl
ReportTitle = "资产负债表设置"
'调 入 网 格
GridCode = "cwfx_BalSetup"
Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Sfxshjwg = GridInf(7)
Szzls = CzxsGrid.Cols - 1
Call Cxnrtcwg
Call OldForm_Load
StTab.Tab = 0
StTab.TabEnabled(1) = False
End Sub
Private Sub Cxnrtcwg() '查 询 内 容 填 充 网 格
Dim SqlStr As String
Dim Jsqte As Long
'查询连接串
SqlStr = "SELECT * FROM cwfx_BalanceInitial ORDER BY ID"
Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(SqlStr)
With Cxnrrec
CzxsGrid.Clear 1
CzxsGrid.Rows = .RecordCount + CzxsGrid.FixedRows
If .EOF And .BOF Then
Exit Sub
End If
Jsqte = CzxsGrid.FixedRows
Do While Not .EOF
If Jsqte >= CzxsGrid.Rows Then
CzxsGrid.AddItem ""
End If
Call Jltcwg(Cxnrrec, Jsqte)
CzxsGrid.RowHeight(Jsqte) = Sjhgd
.MoveNext
Jsqte = Jsqte + 1
Loop
End With
End Sub
Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long) '记录内容填充网格
'[以下为自定义部分
With Jlbrec
CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("ID"))
CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Item"))
CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Account")) & ""
CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Editable"))
CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = RTrim(.Fields("comment"))
CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("AccntOrItem"))
End With
'以上为自定义部分]
End Sub
Private Sub SaveData()
Dim strSql As String '查询字符串
Dim i As Integer
With Cxnrrec
!Account = Me.Tag
.Update
End With
End Sub
Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '表格格式设置(通用)
Select Case Button.Key
Case "bcgs" '保存表格格式
Call Bcwggs(CzxsGrid, GridCode)
Case "hfmrgs" '恢复默认格式
Call Hfmrgs(CzxsGrid, GridCode)
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Cxnrrec.State <> adStateClosed Then Cxnrrec.Close
Set Cxnrrec = Nothing
Set frmExp = Nothing
'---------原公式窗体Form_Unload--------------
Call OldForm_Unload(Cancel)
'-----------------------
End Sub
Private Sub CzxsGrid_DblClick()
Call Xgdqjl
End Sub
Private Sub bbyl(bbylte As Boolean) '报表打印预览
Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -