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

Text File | 1995-08-24 | 7.8 KB | 377 lines

object EdCustForm: TEdCustForm
  Left = 274
  Top = 102
  AutoScroll = False
  HelpContext = 1
  ActiveControl = DBEdCustNo
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Edit Customers'
  ClientHeight = 301
  ClientWidth = 301
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 35
    Width = 301
    Height = 266
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 12
      Width = 35
      Height = 13
      Caption = 'CustNo'
    end
    object Label2: TLabel
      Left = 8
      Top = 31
      Width = 44
      Height = 13
      Caption = 'Company'
    end
    object Label3: TLabel
      Left = 8
      Top = 50
      Width = 25
      Height = 13
      Caption = 'Add1'
    end
    object Label4: TLabel
      Left = 8
      Top = 69
      Width = 25
      Height = 13
      Caption = 'Add2'
    end
    object Label5: TLabel
      Left = 8
      Top = 88
      Width = 17
      Height = 13
      Caption = 'City'
    end
    object Label6: TLabel
      Left = 8
      Top = 107
      Width = 25
      Height = 13
      Caption = 'State'
    end
    object Label7: TLabel
      Left = 8
      Top = 126
      Width = 43
      Height = 13
      Caption = 'Zip Code'
    end
    object Label8: TLabel
      Left = 8
      Top = 145
      Width = 36
      Height = 13
      Caption = 'Country'
    end
    object Label9: TLabel
      Left = 8
      Top = 164
      Width = 31
      Height = 13
      Caption = 'Phone'
    end
    object Label11: TLabel
      Left = 8
      Top = 240
      Width = 44
      Height = 13
      Caption = 'Tax Rate'
    end
    object Label12: TLabel
      Left = 8
      Top = 202
      Width = 37
      Height = 13
      Caption = 'Contact'
    end
    object Label13: TLabel
      Left = 8
      Top = 221
      Width = 58
      Height = 13
      Caption = 'Last Invoice'
    end
    object Label14: TLabel
      Left = 8
      Top = 183
      Width = 20
      Height = 13
      Caption = 'FAX'
    end
    object DBEdCustNo: TDBEdit
      Left = 87
      Top = 8
      Width = 69
      Height = 20
      Color = clSilver
      DataField = 'CustNo'
      DataSource = CustSource
      MaxLength = 0
      ReadOnly = True
      TabOrder = 12
    end
    object DBEdName: TDBEdit
      Left = 87
      Top = 27
      Width = 205
      Height = 20
      DataField = 'Company'
      DataSource = CustSource
      MaxLength = 30
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 87
      Top = 46
      Width = 205
      Height = 20
      DataField = 'Addr1'
      DataSource = CustSource
      MaxLength = 30
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 87
      Top = 65
      Width = 205
      Height = 20
      DataField = 'Addr2'
      DataSource = CustSource
      MaxLength = 30
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 87
      Top = 84
      Width = 205
      Height = 20
      DataField = 'City'
      DataSource = CustSource
      MaxLength = 15
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 87
      Top = 103
      Width = 205
      Height = 20
      DataField = 'State'
      DataSource = CustSource
      MaxLength = 20
      TabOrder = 4
    end
    object DBEdit7: TDBEdit
      Left = 87
      Top = 122
      Width = 205
      Height = 20
      DataField = 'Zip'
      DataSource = CustSource
      MaxLength = 10
      TabOrder = 5
    end
    object DBEdit8: TDBEdit
      Left = 87
      Top = 141
      Width = 205
      Height = 20
      DataField = 'Country'
      DataSource = CustSource
      MaxLength = 20
      TabOrder = 6
    end
    object DBEdit9: TDBEdit
      Left = 87
      Top = 160
      Width = 205
      Height = 20
      DataField = 'Phone'
      DataSource = CustSource
      MaxLength = 15
      TabOrder = 7
    end
    object DBEdit11: TDBEdit
      Left = 87
      Top = 236
      Width = 54
      Height = 20
      DataField = 'TaxRate'
      DataSource = CustSource
      MaxLength = 0
      TabOrder = 8
    end
    object DBEdit12: TDBEdit
      Left = 87
      Top = 198
      Width = 205
      Height = 20
      DataField = 'Contact'
      DataSource = CustSource
      MaxLength = 20
      TabOrder = 9
    end
    object DBEdInv: TDBEdit
      Left = 87
      Top = 217
      Width = 121
      Height = 20
      DataField = 'LastInvoiceDate'
      DataSource = CustSource
      MaxLength = 0
      TabOrder = 10
    end
    object DBEdit14: TDBEdit
      Left = 87
      Top = 179
      Width = 205
      Height = 20
      DataField = 'FAX'
      DataSource = CustSource
      MaxLength = 15
      TabOrder = 11
    end
  end
  object Panel: TPanel
    Left = 0
    Top = 0
    Width = 301
    Height = 35
    Align = alTop
    TabOrder = 1
    object PrintBtn: TSpeedButton
      Left = 203
      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 DBNavigator: TDBNavigator
      Left = 6
      Top = 9
      Width = 191
      Height = 18
      DataSource = CustSource
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object DoneBtn: TButton
      Left = 235
      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 Cust: TTable
    Active = True
    AfterPost = CustAfterPost
    AfterCancel = CustAfterCancel
    OnNewRecord = CustNewRecord
    DatabaseName = 'MAST'
    TableName = 'CUSTOMER'
    Left = 236
    Top = 260
    object CustCustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
    end
    object CustCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustAddr: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustState: TStringField
      FieldName = 'State'
    end
    object CustZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustCountry: TStringField
      FieldName = 'Country'
    end
    object CustPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustTaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object CustContact: TStringField
      FieldName = 'Contact'
    end
    object CustLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object CustSource: TDataSource
    DataSet = Cust
    Left = 265
    Top = 260
  end
  object NextCust: TTable
    DatabaseName = 'MAST'
    Exclusive = True
    TableName = 'NEXTCUST.DB'
    Left = 196
    Top = 260
    object NextCustNewCust: TFloatField
      FieldName = 'NewCust'
    end
  end
end