home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / insquery.pak / MAIN.DFM / MAIN.txt
Encoding:
Text File  |  1995-08-24  |  1.5 KB  |  79 lines
  1. object MainForm: TMainForm
  2.   Left = 236
  3.   Top = 99
  4.   AutoScroll = False
  5.   Width = 435
  6.   Height = 301
  7.   ActiveControl = Grid
  8.   Caption = 'SQL Insert & Delete Demo'
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Grid: TDBGrid
  16.     Left = 0
  17.     Top = 55
  18.     Width = 427
  19.     Height = 219
  20.     Align = alClient
  21.     BorderStyle = bsNone
  22.     DataSource = DataSource1
  23.     TabOrder = 0
  24.     TitleFont.Color = clBlack
  25.     TitleFont.Height = -11
  26.     TitleFont.Name = 'MS Sans Serif'
  27.     TitleFont.Style = []
  28.   end
  29.   object Panel1: TPanel
  30.     Left = 0
  31.     Top = 0
  32.     Width = 427
  33.     Height = 55
  34.     Align = alTop
  35.     TabOrder = 1
  36.     object Insert: TButton
  37.       Left = 12
  38.       Top = 12
  39.       Width = 61
  40.       Height = 33
  41.       Caption = 'Insert'
  42.       Default = True
  43.       TabOrder = 0
  44.       OnClick = InsertClick
  45.     end
  46.     object Delete: TButton
  47.       Left = 82
  48.       Top = 12
  49.       Width = 57
  50.       Height = 33
  51.       Caption = 'Delete'
  52.       TabOrder = 1
  53.       OnClick = DeleteClick
  54.     end
  55.   end
  56.   object GridQuery: TQuery
  57.     Active = True
  58.     DatabaseName = 'DBDEMOS'
  59.     SQL.Strings = (
  60.       'select * from country')
  61.     Left = 152
  62.     Top = 2
  63.   end
  64.   object DataSource1: TDataSource
  65.     DataSet = GridQuery
  66.     Left = 186
  67.     Top = 2
  68.   end
  69.   object DeleteQuery: TQuery
  70.     DatabaseName = 'DBDEMOS'
  71.     SQL.Strings = (
  72.       'delete from Country'
  73.       'where Name = :Name')
  74.     Params.Data = {01000100044E616D6500000000}
  75.     Left = 234
  76.     Top = 4
  77.   end
  78. end
  79.