home *** CD-ROM | disk | FTP | other *** search
- object ProcParams: TProcParams
- Left = 240
- Top = 106
- ActiveControl = ParamList
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Stored Procedure'
- ClientHeight = 226
- ClientWidth = 378
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object GroupBox1: TGroupBox
- Left = 7
- Top = 4
- Width = 365
- Height = 176
- Caption = 'Define Parameters'
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 20
- Width = 96
- Height = 13
- Caption = '&Parameter name:'
- FocusControl = ParamList
- end
- object Label2: TLabel
- Left = 147
- Top = 86
- Width = 37
- Height = 13
- Caption = '&Value:'
- FocusControl = ParamValue
- end
- object Label3: TLabel
- Left = 147
- Top = 63
- Width = 60
- Height = 13
- Caption = 'Data t&ype:'
- FocusControl = TypeList
- end
- object Label4: TLabel
- Left = 147
- Top = 38
- Width = 90
- Height = 13
- Caption = 'Parameter &type:'
- FocusControl = ParamTypeList
- end
- object ParamValue: TEdit
- Left = 244
- Top = 85
- Width = 110
- Height = 20
- TabOrder = 3
- OnExit = ParamValueExit
- end
- object NullValue: TCheckBox
- Left = 147
- Top = 111
- Width = 79
- Height = 17
- Caption = '&Null Value'
- TabOrder = 4
- OnClick = NullValueClick
- end
- object TypeList: TComboBox
- Left = 244
- Top = 60
- Width = 110
- Height = 20
- Style = csDropDownList
- ItemHeight = 13
- Sorted = True
- TabOrder = 2
- OnChange = TypeListChange
- end
- object ParamTypeList: TComboBox
- Left = 244
- Top = 35
- Width = 110
- Height = 20
- Style = csDropDownList
- ItemHeight = 13
- Sorted = True
- TabOrder = 1
- OnChange = ParamTypeListChange
- end
- object ParamList: TListBox
- Left = 8
- Top = 35
- Width = 119
- Height = 93
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- OnClick = ParamListChange
- end
- object AddButton: TBitBtn
- Left = 54
- Top = 138
- Width = 77
- Height = 27
- Caption = '&Add'
- Enabled = False
- TabOrder = 5
- OnClick = AddButtonClick
- end
- object DeleteButton: TBitBtn
- Left = 143
- Top = 138
- Width = 77
- Height = 27
- Caption = '&Delete'
- Enabled = False
- TabOrder = 6
- OnClick = DeleteButtonClick
- end
- object ClearButton: TBitBtn
- Left = 234
- Top = 138
- Width = 77
- Height = 27
- Caption = '&Clear'
- Enabled = False
- TabOrder = 7
- OnClick = ClearButtonClick
- end
- end
- object OkBtn: TBitBtn
- Left = 67
- Top = 189
- Width = 77
- Height = 27
- TabOrder = 1
- OnClick = OkBtnClick
- Kind = bkOK
- end
- object CancelBtn: TBitBtn
- Left = 151
- Top = 189
- Width = 77
- Height = 27
- TabOrder = 2
- Kind = bkCancel
- end
- object HelpBtn: TBitBtn
- Left = 235
- Top = 189
- Width = 77
- Height = 27
- TabOrder = 3
- Kind = bkHelp
- end
- end
-