home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Db / Dberrors / MAIN.DFM / MAIN.txt
Encoding:
Text File  |  1999-08-11  |  2.6 KB  |  131 lines
  1. object FmMain: TFmMain
  2.   Left = 263
  3.   Top = 191
  4.   BorderStyle = bsSingle
  5.   Caption = 'Database Errors Demo'
  6.   ClientHeight = 352
  7.   ClientWidth = 359
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Label1: TLabel
  16.     Left = 8
  17.     Top = 32
  18.     Width = 74
  19.     Height = 16
  20.     Caption = 'Customers'
  21.     Font.Color = clWindowText
  22.     Font.Height = -13
  23.     Font.Name = 'MS Sans Serif'
  24.     Font.Style = [fsBold]
  25.     ParentFont = False
  26.   end
  27.   object Label3: TLabel
  28.     Left = 8
  29.     Top = 121
  30.     Width = 48
  31.     Height = 16
  32.     Caption = 'Orders'
  33.     Font.Color = clWindowText
  34.     Font.Height = -13
  35.     Font.Name = 'MS Sans Serif'
  36.     Font.Style = [fsBold]
  37.     ParentFont = False
  38.   end
  39.   object Label4: TLabel
  40.     Left = 8
  41.     Top = 209
  42.     Width = 38
  43.     Height = 16
  44.     Caption = 'Items'
  45.     Font.Color = clWindowText
  46.     Font.Height = -13
  47.     Font.Name = 'MS Sans Serif'
  48.     Font.Style = [fsBold]
  49.     ParentFont = False
  50.   end
  51.   object DBNavigator1: TDBNavigator
  52.     Left = 5
  53.     Top = 4
  54.     Width = 240
  55.     Height = 25
  56.     TabOrder = 0
  57.   end
  58.   object GridCustomers: TDBGrid
  59.     Left = 8
  60.     Top = 47
  61.     Width = 342
  62.     Height = 73
  63.     Columns = <
  64.       item
  65.         FieldName = 'CustNo'
  66.       end
  67.       item
  68.         FieldName = 'Company'
  69.       end>
  70.     DataSource = DM.CustomerSource
  71.     TabOrder = 1
  72.     TitleFont.Color = clWindowText
  73.     TitleFont.Height = -11
  74.     TitleFont.Name = 'MS Sans Serif'
  75.     TitleFont.Style = []
  76.     OnEnter = GridCustomersEnter
  77.     OnExit = GridCustomersExit
  78.   end
  79.   object GridOrders: TDBGrid
  80.     Left = 8
  81.     Top = 136
  82.     Width = 341
  83.     Height = 75
  84.     Columns = <
  85.       item
  86.         FieldName = 'OrderNo'
  87.       end
  88.       item
  89.         FieldName = 'CustNo'
  90.       end
  91.       item
  92.         FieldName = 'SaleDate'
  93.       end
  94.       item
  95.         FieldName = 'ShipDate'
  96.       end
  97.       item
  98.         FieldName = 'EmpNo'
  99.         Width = 47
  100.       end>
  101.     DataSource = DM.OrdersSource
  102.     TabOrder = 2
  103.     TitleFont.Color = clWindowText
  104.     TitleFont.Height = -11
  105.     TitleFont.Name = 'MS Sans Serif'
  106.     TitleFont.Style = []
  107.     OnEnter = GridOrdersEnter
  108.   end
  109.   object GridItems: TDBGrid
  110.     Left = 8
  111.     Top = 224
  112.     Width = 341
  113.     Height = 120
  114.     DataSource = DM.ItemsSource
  115.     TabOrder = 3
  116.     TitleFont.Color = clWindowText
  117.     TitleFont.Height = -11
  118.     TitleFont.Name = 'MS Sans Serif'
  119.     TitleFont.Style = []
  120.     OnEnter = GridItemsEnter
  121.   end
  122.   object MainMenu1: TMainMenu
  123.     Left = 296
  124.     object About1: TMenuItem
  125.       Caption = '&About'
  126.       ShortCut = 0
  127.       OnClick = About1Click
  128.     end
  129.   end
  130. end
  131.