📄 +
字号:
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 = 2760
ItemData = "基础设置_资产负债表设置.frx":78EC
Left = 555
List = "基础设置_资产负债表设置.frx":78F3
TabIndex = 9
Top = 690
Width = 4890
End
Begin VB.CommandButton cmdOK
Caption = "保存(&O)"
Height = 300
Left = 810
TabIndex = 8
Top = 4980
Width = 1120
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 300
Left = 2010
TabIndex = 7
Top = 4980
Width = 1120
End
Begin VB.TextBox txtExp
Height = 315
Left = 540
MaxLength = 100
TabIndex = 6
Top = 3750
Width = 4905
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "科目:"
Height = 180
Left = 555
TabIndex = 11
Top = 330
Width = 450
End
Begin VB.Label labList
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "---------------"
Height = 180
Left = 1110
TabIndex = 10
Top = 345
Width = 1350
End
End
Begin VSFlex8Ctl.VSFlexGrid CzxsGrid
Height = 6060
Left = -74925
TabIndex = 0
Top = 360
Width = 9210
_cx = 5080
_cy = 5080
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
AutoSearchDelay = 2
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
ShowComboButton = 1
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
AccessibleName = ""
AccessibleDescription= ""
AccessibleValue = ""
AccessibleRole = 24
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
'*************************************************************
'* 模 块 名 称 :资产负债表设置
'* 功 能 描 述 :对资产负债表的一些项目和科目名称进行设置
'* 程序员姓名 : 魏永生
'* 最后修改人 :
'* 最后修改时间:2002/01/21
'* 备 注:
'* 需要预置所有表项目名称，录入项目栏。
'* 数据来源栏提供生成公式：公式设定方法：
'* 系统提示总帐系统的会计科目和编码，用户选择相应的编码确定计算公式。
'*************************************************************
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 Str_RightEdit As String '编辑(新增、修改、删除)权限索引
'以下为固定使用变量
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
'编辑(新增、修改、删除)权限索引
Str_RightEdit = "cwfx_Balacen_Edit"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -