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 frmRuntimeparameters Caption = "Runtime parameters" ClientHeight = 5370 ClientLeft = 60 ClientTop = 345 ClientWidth = 5655 LinkTopic = "Runtime_parameters" ScaleHeight = 5370 ScaleWidth = 5655 StartUpPosition = 3 'Windows Default Begin MSDataGridLib.DataGrid DGRuntimeparameters Bindings = "Runtimeparameters.frx":0000 Height = 615 Left = 0 TabIndex = 0 Top = 0 Width = 3855 _ExtentX = 6800 _ExtentY = 1085 _Version = 393216 AllowUpdate = -1 'True HeadLines = 1 RowHeight = 15 AllowAddNew = -1 'True AllowDelete = -1 'True 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 Begin MSAdodcLib.Adodc AdodcRuntimeparameters Height = 495 Left = 240 Top = 4680 Width = 1815 _ExtentX = 3201 _ExtentY = 873 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 3 LockType = 3 CommandType = 8 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 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 End Attribute VB_Name = "frmRuntimeparameters" 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() AdodcRuntimeparameters.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sesimpath & _ "\source\sesim.mdb" & ";Persist Security Info=False" ' The "fr_variables"-query is used in order to obtain a sorted list ' of variables AdodcRuntimeparameters.RecordSource = "Runtimeparameters" AdodcRuntimeparameters.Refresh DGRuntimeparameters.Col = 0 DGRuntimeparameters.Row = 0 End Sub
Private Sub Form_Resize() DGRuntimeparameters.Width = frmRuntimeparameters.Width - 300 DGRuntimeparameters.Height = frmRuntimeparameters.Height - 500 DGRuntimeparameters.Refresh End Sub