VERSION 5.00 Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX" Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX" Begin VB.Form FrmVarList Caption = "Variable definitions" ClientHeight = 5190 ClientLeft = 60 ClientTop = 345 ClientWidth = 6615 LinkTopic = "Form1" ScaleHeight = 5190 ScaleWidth = 6615 Begin MSAdodcLib.Adodc AdodcVarList Height = 375 Left = 120 Top = 4680 Width = 1815 Visible = 0 'False _ExtentX = 3201 _ExtentY = 661 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 3 LockType = 3 CommandType = 2 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = 0 Connect = "" OLEDBString = "" OLEDBFile = "" DataSourceName = "" OtherAttributes = "" UserName = "" Password = "" RecordSource = "" Caption = "Adodc1" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End Begin MSDataGridLib.DataGrid DGVarList Bindings = "Var_list.frx":0000 CausesValidation= 0 'False Height = 5115 Left = 0 TabIndex = 0 Top = 0 Width = 6495 _ExtentX = 11456 _ExtentY = 9022 _Version = 393216 AllowUpdate = 0 'False AllowArrows = 0 'False Enabled = -1 'True HeadLines = 1 RowHeight = 15 BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ColumnCount = 2 BeginProperty Column00 DataField = "" Caption = "" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1053 SubFormatType = 0 EndProperty EndProperty BeginProperty Column01 DataField = "" Caption = "" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1053 SubFormatType = 0 EndProperty EndProperty SplitCount = 1 BeginProperty Split0 BeginProperty Column00 EndProperty BeginProperty Column01 EndProperty EndProperty End End Attribute VB_Name = "FrmVarList" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Option Base 1 Private Sub Form_Load() AdodcVarList.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sesimpath & _ "\source\sesimdesign.mdb" & ";Persist Security Info=False" ' The "fr_variables"-query is used in order to obtain a sorted list ' of variables AdodcVarList.RecordSource = "fr_variables" AdodcVarList.Refresh DGVarList.Col = 0 DGVarList.Row = 0 End Sub
Private Sub Form_Resize() DGVarList.Width = FrmVarList.Width - 300 DGVarList.Height = FrmVarList.Height - 500 DGVarList.Refresh End Sub