?? 系統_網格顯示項目定義.frm
字號:
VERSION 5.00
Object = "{C5DE3F80-3376-11D2-BAA4-04F205C10000}#1.0#0"; "Vsflex6d.ocx"
Begin VB.Form XT_BgxsxmszFrm
Caption = "表格顯示項目設置"
ClientHeight = 4680
ClientLeft = 60
ClientTop = 345
ClientWidth = 4515
Icon = "系統_網格顯示項目定義.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4680
ScaleWidth = 4515
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton QdCommand
Caption = "確定(&O)"
Height = 300
Left = 2070
TabIndex = 1
Top = 4350
Width = 1120
End
Begin VB.CommandButton QxCommand
Cancel = -1 'True
Caption = "取消(&C)"
Height = 300
Left = 3360
TabIndex = 2
Top = 4350
Width = 1120
End
Begin VSFlex6DAOCtl.vsFlexGrid XmxzGrid
Height = 4245
Left = 30
TabIndex = 0
Top = 30
Width = 4455
_ExtentX = 7858
_ExtentY = 7488
_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
Attribute VB_Name = "XT_BgxsxmszFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'* 模 塊 名 稱 :網格顯示項目選擇
'* 功 能 描 述 :用戶可以根據需要選擇哪些項目顯示,哪些不顯示
'*
'* 參數:需要設置網格代碼,通過Xtcdcs全局變量傳入
'*
'* 程序員姓名 :張建忠
'* 最后修改人 :張建忠
'* 最后修改時間:2001/06/21
'* 備 注:封版
'****************************************************************
Dim Xsxmrec As New ADODB.Recordset '網格顯示參數動態集
Dim Szwgdm As String '設置網格網格代碼
'以下為固定使用變量
Dim Cxnrrec As New ADODB.Recordset '顯示查詢內容動態集
Dim Dyymctbl As New DY_Dyymsz '打印頁面窗體變量
Dim GridCode As String '顯示網格網格代碼
Dim GridInf() As Variant '整個網格設置信息
Dim Szbbzbt As String '報表主標題
Dim Tsxx As String '系統提示信息
Dim Sfxshjwg As Boolean '是否顯示合計網格
Dim Qslz As Long '網格隱藏(非操作顯示)列數
Dim Sjhgd As Double '網格數據行高度
Dim GridBoolean() As Boolean '網格列信息(布爾型)
Dim GridStr() As String '網格列信息(字符型)
Dim GridInt() As Integer '網格列信息(整型)
Dim Shsfts As Boolean '刪除記錄行是否提示
Dim Szzls As Integer '數組總列數(網格列數-1)
Private Sub Form_Load()
'讀入需要設置網格代碼
Szwgdm = Xtcdcs
'調 入 網 格
GridCode = "wgxsxm"
Call BzWgcsh(XmxzGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Shsfts = GridInf(6)
Sfxshjwg = GridInf(7)
Szzls = XmxzGrid.Cols - 1
'初 始 化 網 格
Call Cshwg
End Sub
Private Sub Cshwg() '初 始 化 網 格
If Xsxmrec.State = 1 Then Xsxmrec.Close
Xsxmrec.Open "select * from xt_grid where Grid_Code='" + Szwgdm + "' and ColId>=1 order by ColId", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
With Xsxmrec
XmxzGrid.Rows = XmxzGrid.FixedRows + .RecordCount
jsqte = XmxzGrid.FixedRows
Do While Not .EOF
If jsqte > XmxzGrid.Rows Then
XmxzGrid.AddItem ""
End If
XmxzGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("ColTitle1") & "")
XmxzGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("ColTitle2") & "")
If Not .Fields("ColHidden") Then
XmxzGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = "√"
End If
If Val("" & .Fields("NotAllowEmpty_Type")) <> 0 Then
XmxzGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = "√"
End If
jsqte = jsqte + 1
.MoveNext
Loop
End With
End Sub
Private Sub XmxzGrid_DblClick() '選 擇 顯 示 項 目(雙擊網格)
With XmxzGrid
If XmxzGrid.TextMatrix(.Row, Sydz("003", GridStr(), Szzls)) = "√" And XmxzGrid.TextMatrix(.Row, Sydz("004", GridStr(), Szzls)) <> "√" Then
XmxzGrid.TextMatrix(.Row, Sydz("003", GridStr(), Szzls)) = ""
Else
XmxzGrid.TextMatrix(.Row, Sydz("003", GridStr(), Szzls)) = "√"
End If
End With
End Sub
Private Sub QdCommand_Click() '確 定
Dim Lng_ItemCount As Long '顯示項目計數器
With XmxzGrid
'判斷用戶選擇項目個數是否為零
Lng_ItemCount = 0
For jsqte = .FixedRows To .Rows - 1
If XmxzGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = "√" Then
Lng_ItemCount = Lng_ItemCount + 1
End If
Next jsqte
If Lng_ItemCount = 0 Then
Tsxx = "網格顯示項目個數不能為0!"
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
End If
'將用戶選擇設置存盤
Cw_DataEnvi.DataConnect.BeginTrans
Xsxmrec.MoveFirst
For jsqte = .FixedRows To .Rows - 1
If XmxzGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = "√" Then
Xsxmrec.Fields("ColHidden") = 0
Else
Xsxmrec.Fields("ColHidden") = 1
End If
Xsxmrec.Update
Xsxmrec.MoveNext
Next jsqte
End With
Cw_DataEnvi.DataConnect.CommitTrans
Unload Me
End Sub
Private Sub QxCommand_Click() '取 消
Unload Me
End Sub
Private Sub XmxzGrid_KeyPress(KeyAscii As Integer) '用戶按空格鍵(焦點在網格上)
If KeyAscii = vbKeyReturn Then
XmxzGrid.TextMatrix(XmxzGrid.Row, Sydz("003", GridStr(), Szzls)) = "√"
End If
If Chr(KeyAscii) = " " Then
Call XmxzGrid_DblClick
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -