home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / insquery.pak / INSFORM.DFM / INSFORM.txt
Encoding:
Text File  |  1995-08-24  |  2.2 KB  |  121 lines
  1. object InsertForm: TInsertForm
  2.   Left = 231
  3.   Top = 123
  4.   AutoScroll = False
  5.   ActiveControl = NameEdit
  6.   BorderStyle = bsDialog
  7.   Caption = 'New Record'
  8.   ClientHeight = 200
  9.   ClientWidth = 211
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 30
  19.     Top = 12
  20.     Width = 28
  21.     Height = 13
  22.     Caption = 'Name'
  23.   end
  24.   object Label2: TLabel
  25.     Left = 26
  26.     Top = 41
  27.     Width = 32
  28.     Height = 13
  29.     Caption = 'Capital'
  30.   end
  31.   object Label3: TLabel
  32.     Left = 13
  33.     Top = 69
  34.     Width = 45
  35.     Height = 13
  36.     Caption = 'Continent'
  37.   end
  38.   object Label4: TLabel
  39.     Left = 36
  40.     Top = 98
  41.     Width = 22
  42.     Height = 13
  43.     Caption = 'Area'
  44.   end
  45.   object Label5: TLabel
  46.     Left = 8
  47.     Top = 126
  48.     Width = 50
  49.     Height = 13
  50.     Caption = 'Population'
  51.   end
  52.   object NameEdit: TEdit
  53.     Left = 72
  54.     Top = 8
  55.     Width = 121
  56.     Height = 20
  57.     TabOrder = 0
  58.   end
  59.   object CapitalEdit: TEdit
  60.     Left = 72
  61.     Top = 37
  62.     Width = 121
  63.     Height = 20
  64.     TabOrder = 1
  65.   end
  66.   object ContinentEdit: TEdit
  67.     Left = 72
  68.     Top = 65
  69.     Width = 121
  70.     Height = 20
  71.     TabOrder = 2
  72.   end
  73.   object AreaEdit: TEdit
  74.     Left = 72
  75.     Top = 94
  76.     Width = 121
  77.     Height = 20
  78.     TabOrder = 3
  79.   end
  80.   object PopulationEdit: TEdit
  81.     Left = 72
  82.     Top = 122
  83.     Width = 121
  84.     Height = 20
  85.     TabOrder = 4
  86.   end
  87.   object InsertBtn: TButton
  88.     Left = 42
  89.     Top = 156
  90.     Width = 73
  91.     Height = 33
  92.     Caption = '&Insert'
  93.     Default = True
  94.     TabOrder = 5
  95.     OnClick = InsertBtnClick
  96.   end
  97.   object CancelBtn: TButton
  98.     Left = 121
  99.     Top = 156
  100.     Width = 73
  101.     Height = 33
  102.     Cancel = True
  103.     Caption = '&Cancel'
  104.     ModalResult = 2
  105.     TabOrder = 6
  106.   end
  107.   object InsertQuery: TQuery
  108.     DatabaseName = 'DBDEMOS'
  109.     SQL.Strings = (
  110.       'insert '
  111.       '  into Country (Name, Capital, Continent, Area,  Population)'
  112.       '  values (:Name, :Capital, :Continent, :Area, :Population)'
  113.       '  ')
  114.     Params.Data = {
  115.       01000500044E616D6500000000074361706974616C0000000009436F6E74696E
  116.       656E74000000000441726561000000000A506F70756C6174696F6E00000000}
  117.     Left = 6
  118.     Top = 156
  119.   end
  120. end
  121.