PC Format Collection 48/SENT14D.ISO/tech/delphi/disk15/mastapp.pak/EDPARTS.DFM/EDPARTS.txt

Text File | 1995-08-24 | 6.3 KB | 290 lines

object EdPartsForm: TEdPartsForm
  Left = 261
  Top = 114
  AutoScroll = False
  HelpContext = 6
  ActiveControl = DBEdit2
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Edit Parts'
  ClientHeight = 207
  ClientWidth = 313
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 313
    Height = 36
    Align = alTop
    TabOrder = 0
    object PrintBtn: TSpeedButton
      Left = 209
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Print form image'
      Glyph.Data = {
        2A010000424D2A010000000000007600000028000000130000000F0000000100
        0400000000000000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333F0EFF3300000000000003333F00FF37877777777777703330000030F8
        8888888888870333003330F9988888888887703F11EE37FFFFFFFFFFFFF77039
        0910330888888888888F703865F03330870000000078F03765F03333000FFFFF
        F000033865F03333330F44448033333765F033333330FFFFFF03333865F03333
        3330F4444803333765F0333333330FFFFFF0333865F033333333000000003336
        66C0333333333333333333300000}
      OnClick = PrintBtnClick
    end
    object Navigator: TDBNavigator
      Left = 8
      Top = 9
      Width = 191
      Height = 18
      HelpContext = 6
      DataSource = PartsSource
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object DoneBtn: TButton
      Left = 246
      Top = 4
      Width = 59
      Height = 27
      Caption = 'C&lose'
      Default = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = DoneBtnClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 36
    Width = 313
    Height = 171
    Align = alClient
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 12
      Width = 33
      Height = 13
      Caption = 'PartNo'
    end
    object Label2: TLabel
      Left = 8
      Top = 31
      Width = 53
      Height = 13
      Caption = 'Description'
    end
    object Label3: TLabel
      Left = 8
      Top = 50
      Width = 34
      Height = 13
      Caption = 'Vendor'
    end
    object Label4: TLabel
      Left = 8
      Top = 70
      Width = 40
      Height = 13
      Caption = 'OnHand'
    end
    object Label5: TLabel
      Left = 8
      Top = 89
      Width = 40
      Height = 13
      Caption = 'OnOrder'
    end
    object Label7: TLabel
      Left = 8
      Top = 127
      Width = 21
      Height = 13
      Caption = 'Cost'
    end
    object Label8: TLabel
      Left = 8
      Top = 146
      Width = 40
      Height = 13
      Caption = 'ListPrice'
    end
    object Label6: TLabel
      Left = 8
      Top = 108
      Width = 61
      Height = 13
      Caption = 'Backordered'
    end
    object DBEdit2: TDBEdit
      Left = 80
      Top = 27
      Width = 225
      Height = 20
      HelpContext = 6
      DataField = 'Description'
      DataSource = PartsSource
      MaxLength = 30
      TabOrder = 0
    end
    object DBEdit4: TDBEdit
      Left = 80
      Top = 66
      Width = 82
      Height = 20
      HelpContext = 6
      DataField = 'OnHand'
      DataSource = PartsSource
      MaxLength = 0
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 80
      Top = 85
      Width = 82
      Height = 20
      HelpContext = 6
      DataField = 'OnOrder'
      DataSource = PartsSource
      MaxLength = 0
      TabOrder = 4
    end
    object DBEdit7: TDBEdit
      Left = 80
      Top = 123
      Width = 102
      Height = 20
      HelpContext = 6
      DataField = 'Cost'
      DataSource = PartsSource
      MaxLength = 0
      TabOrder = 5
    end
    object DBEdit8: TDBEdit
      Left = 80
      Top = 142
      Width = 102
      Height = 20
      HelpContext = 6
      DataField = 'ListPrice'
      DataSource = PartsSource
      MaxLength = 0
      TabOrder = 6
    end
    object DBLookupCombo2: TDBLookupCombo
      Left = 80
      Top = 46
      Width = 225
      Height = 21
      HelpContext = 6
      DataField = 'VendorNo'
      DataSource = PartsSource
      LookupSource = VendorSource
      LookupDisplay = 'VendorName'
      LookupField = 'VendorNo'
      TabOrder = 1
    end
    object DBEdPartNo: TDBEdit
      Left = 80
      Top = 8
      Width = 102
      Height = 20
      HelpContext = 6
      Color = clSilver
      DataField = 'PartNo'
      DataSource = PartsSource
      MaxLength = 0
      ReadOnly = True
      TabOrder = 7
    end
    object DBEdit3: TDBEdit
      Left = 80
      Top = 104
      Width = 45
      Height = 20
      HelpContext = 6
      DataField = 'BackOrd'
      DataSource = PartsSource
      MaxLength = 0
      TabOrder = 2
    end
  end
  object Parts: TTable
    Active = True
    BeforeOpen = PartsBeforeOpen
    AfterInsert = PartsAfterInsert
    AfterPost = PartsAfterPost
    AfterCancel = PartsAfterCancel
    OnCalcFields = PartsCalcFields
    DatabaseName = 'MAST'
    TableName = 'PARTS'
    Left = 204
    Top = 32
    object PartsPartNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'PartNo'
    end
    object PartsDescription: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object PartsVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object PartsOnHand: TFloatField
      FieldName = 'OnHand'
    end
    object PartsOnOrder: TFloatField
      FieldName = 'OnOrder'
    end
    object PartsBackOrd: TBooleanField
      Calculated = True
      FieldName = 'BackOrd'
      DisplayValues = 'Yes;No'
    end
    object PartsCost: TCurrencyField
      FieldName = 'Cost'
      Currency = True
    end
    object PartsListPrice: TCurrencyField
      FieldName = 'ListPrice'
      Currency = True
    end
  end
  object PartsSource: TDataSource
    DataSet = Parts
    Left = 233
    Top = 32
  end
  object Vendors: TTable
    Active = True
    DatabaseName = 'MAST'
    TableName = 'VENDORS'
    Left = 212
    Top = 108
  end
  object VendorSource: TDataSource
    DataSet = Vendors
    Left = 240
    Top = 108
  end
end