?? frmfw.frm
字號:
VERSION 5.00
Object = "{E684D8A3-716C-4E59-AA94-7144C04B0074}#1.1#0"; "GridEX20.ocx"
Begin VB.Form frmFW
Caption = "發文"
ClientHeight = 8190
ClientLeft = 60
ClientTop = 345
ClientWidth = 9405
LinkTopic = "Form3"
ScaleHeight = 8190
ScaleWidth = 9405
StartUpPosition = 3 '窗口缺省
Begin GridEX20.GridEX GridEX1
Height = 7575
Left = 120
TabIndex = 0
Top = 120
Width = 9735
_ExtentX = 17171
_ExtentY = 13361
Version = "2.0"
BoundColumnIndex= ""
ReplaceColumnIndex= ""
ScrollToolTipColumn= ""
HeaderFontSize = 8.25
FontSize = 8.25
ColumnHeaderHeight= 270
IntProp1 = 0
IntProp2 = 0
IntProp7 = 0
ColumnsCount = 2
Column(1) = "frmFW.frx":0000
Column(2) = "frmFW.frx":00C8
FormatStylesCount= 6
FormatStyle(1) = "frmFW.frx":016C
FormatStyle(2) = "frmFW.frx":024C
FormatStyle(3) = "frmFW.frx":0390
FormatStyle(4) = "frmFW.frx":0440
FormatStyle(5) = "frmFW.frx":04F4
FormatStyle(6) = "frmFW.frx":05CC
ImageCount = 0
PrinterProperties= "frmFW.frx":0684
End
End
Attribute VB_Name = "frmFW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
ption Explicit
Dim view As NotesView
Private Sub Form_Load()
Call ShowGridEX1
Exit Sub
err_main:
MsgBox "系統連接數據庫失敗,可能是以下原因:" & _
Chr(13) & Chr(10) & _
"1、數據庫服務沒有啟動!" & _
Chr(13) & Chr(10) & _
"2、數據庫連接參數設置不正確!" & _
Chr(13) & Chr(10) & _
"3、網絡連接不正確!" & _
Chr(13) & Chr(10) & _
Chr(13) & Chr(10) & _
"請檢查無誤后重新運行系統。" & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & "詳細錯誤信息如下:" & Chr(13) & Chr(10) & "[" & Err.Number & "]" & Err.Description, vbInformation + vbOKOnly, "信息"
End Sub
Private Sub ShowGridEX1()
Dim rs As New ADODB.Recordset
rs.Open "Select * from " & txtfwTable, Gcon_main, adOpenDynamic, adLockReadOnly
Set GridEX1.ADORecordset = rs
If GridEX1.Columns(GridEX1.Columns.count).Caption = "ID" Then GridEX1.Columns(GridEX1.Columns.count).Width = 0 '隱含ID
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -