home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / ruzkomp / BDEERROR.ZIP / MAIN.DFM / MAIN.txt
Text File  |  1996-04-18  |  2KB  |  96 lines
  1. object Form1: TForm1
  2.   Left = 314
  3.   Top = 104
  4.   Width = 386
  5.   Height = 284
  6.   Caption = 'Error Handling Example'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   Position = poScreenCenter
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object DBGrid1: TDBGrid
  16.     Left = 0
  17.     Top = 0
  18.     Width = 378
  19.     Height = 240
  20.     Align = alClient
  21.     DataSource = DataSource1
  22.     TabOrder = 0
  23.     TitleFont.Color = clWindowText
  24.     TitleFont.Height = -11
  25.     TitleFont.Name = 'MS Sans Serif'
  26.     TitleFont.Style = []
  27.   end
  28.   object Table1: TTable
  29.     Active = True
  30.     TableName = 'Customer.DB'
  31.     Left = 44
  32.     Top = 12
  33.     object Table1CustNo: TFloatField
  34.       FieldName = 'CustNo'
  35.     end
  36.     object Table1Company: TStringField
  37.       FieldName = 'Company'
  38.       Size = 30
  39.     end
  40.     object Table1City: TStringField
  41.       FieldName = 'City'
  42.       Required = True
  43.       Size = 15
  44.     end
  45.   end
  46.   object MainMenu1: TMainMenu
  47.     Left = 112
  48.     Top = 12
  49.     object Exceptions1: TMenuItem
  50.       Caption = '&Raise Exception'
  51.       ShortCut = 0
  52.       object KeyViolationPrimary1: TMenuItem
  53.         Caption = 'Key Violation (&Primary)'
  54.         ShortCut = 0
  55.         OnClick = KeyViolationPrimary1Click
  56.       end
  57.       object KeyViolationSecondary1: TMenuItem
  58.         Caption = 'Key Violation (&Secondary)'
  59.         ShortCut = 0
  60.         OnClick = KeyViolationSecondary1Click
  61.       end
  62.       object FieldMissing1: TMenuItem
  63.         Caption = '&Field Missing'
  64.         ShortCut = 0
  65.         OnClick = FieldMissing1Click
  66.       end
  67.       object NotinEditMode1: TMenuItem
  68.         Caption = '&Not in Edit Mode'
  69.         ShortCut = 0
  70.         OnClick = NotinEditMode1Click
  71.       end
  72.       object InterBaseLoginFail1: TMenuItem
  73.         Caption = '&InterBase Login Fail'
  74.         ShortCut = 0
  75.         OnClick = InterBaseLoginFail1Click
  76.       end
  77.     end
  78.   end
  79.   object DataSource1: TDataSource
  80.     DataSet = Table1
  81.     Left = 76
  82.     Top = 12
  83.   end
  84.   object Database1: TDatabase
  85.     AliasName = 'IBLOCAL'
  86.     DatabaseName = 'xxx'
  87.     LoginPrompt = False
  88.     Params.Strings = (
  89.       'username=notindb'
  90.       'password=noconnecT')
  91.     SessionName = 'Default'
  92.     Left = 8
  93.     Top = 12
  94.   end
  95. end
  96.