home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / mastapp.pak / BRPARTS.DFM / BRPARTS.txt
Encoding:
Text File  |  1995-08-24  |  3.4 KB  |  152 lines
  1. object BrPartsForm: TBrPartsForm
  2.   Left = 238
  3.   Top = 110
  4.   AutoScroll = False
  5.   HelpContext = 4
  6.   ActiveControl = PartsGrid
  7.   BorderIcons = [biSystemMenu, biMinimize]
  8.   BorderStyle = bsSingle
  9.   Caption = 'Browse Parts'
  10.   ClientHeight = 248
  11.   ClientWidth = 383
  12.   Font.Color = clBlack
  13.   Font.Height = -11
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   PixelsPerInch = 96
  17.   Position = poScreenCenter
  18.   TextHeight = 13
  19.   object Panel1: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 383
  23.     Height = 248
  24.     HelpContext = 4
  25.     Align = alClient
  26.     TabOrder = 0
  27.     object ActivateBtn: TSpeedButton
  28.       Left = 156
  29.       Top = 7
  30.       Width = 77
  31.       Height = 21
  32.       AllowAllUp = True
  33.       GroupIndex = 1
  34.       Caption = '&Backorders'
  35.       OnClick = ActivateQuery
  36.     end
  37.     object Navigator: TDBNavigator
  38.       Left = 8
  39.       Top = 7
  40.       Width = 136
  41.       Height = 21
  42.       DataSource = PartsSource
  43.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
  44.       ParentShowHint = False
  45.       ShowHint = True
  46.       TabOrder = 0
  47.     end
  48.     object PartsGrid: TDBGrid
  49.       Left = 8
  50.       Top = 36
  51.       Width = 367
  52.       Height = 173
  53.       DataSource = PartsSource
  54.       Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect]
  55.       TabOrder = 1
  56.       TitleFont.Color = clBlack
  57.       TitleFont.Height = -11
  58.       TitleFont.Name = 'MS Sans Serif'
  59.       TitleFont.Style = []
  60.       OnDblClick = EditBtnClick
  61.     end
  62.     object EditBtn: TButton
  63.       Left = 207
  64.       Top = 216
  65.       Width = 79
  66.       Height = 25
  67.       Caption = '&Edit'
  68.       Font.Color = clBlack
  69.       Font.Height = -11
  70.       Font.Name = 'MS Sans Serif'
  71.       Font.Style = [fsBold]
  72.       ModalResult = 1
  73.       ParentFont = False
  74.       TabOrder = 2
  75.       OnClick = EditBtnClick
  76.     end
  77.     object CloseBtn: TButton
  78.       Left = 301
  79.       Top = 216
  80.       Width = 74
  81.       Height = 25
  82.       Cancel = True
  83.       Caption = '&Close'
  84.       Default = True
  85.       Font.Color = clBlack
  86.       Font.Height = -11
  87.       Font.Name = 'MS Sans Serif'
  88.       Font.Style = [fsBold]
  89.       ModalResult = 2
  90.       ParentFont = False
  91.       TabOrder = 3
  92.       OnClick = CloseBtnClick
  93.     end
  94.   end
  95.   object Parts: TTable
  96.     Active = True
  97.     DatabaseName = 'MAST'
  98.     ReadOnly = True
  99.     TableName = 'PARTS'
  100.     Left = 76
  101.     Top = 213
  102.     object PartsPartNo: TFloatField
  103.       Alignment = taLeftJustify
  104.       DisplayWidth = 6
  105.       FieldName = 'PartNo'
  106.     end
  107.     object PartsDescription: TStringField
  108.       DisplayWidth = 29
  109.       FieldName = 'Description'
  110.       Size = 30
  111.     end
  112.     object PartsOnHand: TFloatField
  113.       DisplayWidth = 10
  114.       FieldName = 'OnHand'
  115.     end
  116.     object PartsOnOrder: TFloatField
  117.       DisplayWidth = 10
  118.       FieldName = 'OnOrder'
  119.     end
  120.   end
  121.   object PartsSource: TDataSource
  122.     DataSet = Parts
  123.     Left = 108
  124.     Top = 213
  125.   end
  126.   object PartsQuery: TQuery
  127.     DatabaseName = 'MAST'
  128.     SQL.Strings = (
  129.       'select * from parts'
  130.       ' where (parts.OnOrder > parts.OnHand)'
  131.       '')
  132.     Left = 136
  133.     Top = 213
  134.     object PartsQueryPartNo: TFloatField
  135.       Alignment = taLeftJustify
  136.       DisplayWidth = 6
  137.       FieldName = 'PartNo'
  138.     end
  139.     object PartsQueryDescription: TStringField
  140.       DisplayWidth = 29
  141.       FieldName = 'Description'
  142.       Size = 30
  143.     end
  144.     object PartsQueryOnHand: TFloatField
  145.       FieldName = 'OnHand'
  146.     end
  147.     object PartsQueryOnOrder: TFloatField
  148.       FieldName = 'OnOrder'
  149.     end
  150.   end
  151. end
  152.