u_customer.dfm

这是一个用条码录入的数据的进销存(只对成品）---做童装的

inherited F_Customer: TF_Customer
  Left = 96
  Top = 88
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #23458#25143#36164#26009
  ClientHeight = 405
  ClientWidth = 633
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 633
    Height = 372
    object Label1: TLabel [0]
      Left = 16
      Top = 24
      Width = 52
      Height = 13
      Caption = #23458#25143#32534#21495
      FocusControl = ECustno
    end
    object Label2: TLabel [1]
      Left = 16
      Top = 51
      Width = 52
      Height = 13
      Caption = #23458#25143#21517#31216
      FocusControl = ECustname
    end
    object Label3: TLabel [2]
      Left = 16
      Top = 79
      Width = 52
      Height = 13
      Caption = #25152#23646#22320#21306
      FocusControl = EArea
    end
    object Label4: TLabel [3]
      Left = 16
      Top = 108
      Width = 52
      Height = 13
      Caption = #23458#25143#24215#21517
      FocusControl = EShopName
    end
    object Label5: TLabel [4]
      Left = 42
      Top = 137
      Width = 26
      Height = 13
      Caption = #22320#22336
      FocusControl = EAdd
    end
    object Label6: TLabel [5]
      Left = 29
      Top = 166
      Width = 39
      Height = 13
      Caption = #32852#31995#20154
      FocusControl = EContactman
    end
    object Label7: TLabel [6]
      Left = 16
      Top = 195
      Width = 52
      Height = 13
      Caption = #32852#31995#30005#35805
      FocusControl = ETel
    end
    object Label8: TLabel [7]
      Left = 42
      Top = 225
      Width = 26
      Height = 13
      Caption = #20256#30495
      FocusControl = EFax
    end
    object Label9: TLabel [8]
      Left = 26
      Top = 253
      Width = 42
      Height = 13
      Caption = 'E_Mail'
      FocusControl = EEmail
    end
    object Label10: TLabel [9]
      Left = 29
      Top = 283
      Width = 39
      Height = 13
      Caption = #25286#25187#29575
      FocusControl = EZkrate
    end
    inherited DBGridEh1: TDBGridEh
      Left = 304
      Width = 329
      Height = 372
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Custno'
          Footers = <>
          Width = 69
        end
        item
          EditButtons = <>
          FieldName = 'Custname'
          Footers = <>
          Width = 122
        end
        item
          EditButtons = <>
          FieldName = 'Areaname'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'Shopname'
          Footers = <>
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'Address'
          Footers = <>
          Width = 62
        end
        item
          EditButtons = <>
          FieldName = 'Contactman'
          Footers = <>
          Width = 77
        end
        item
          EditButtons = <>
          FieldName = 'Tel'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'Fax'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'Email'
          Footers = <>
          Width = 111
        end
        item
          EditButtons = <>
          FieldName = 'Zkrate'
          Footers = <>
        end>
    end
    object ECustno: TDBEdit
      Left = 88
      Top = 16
      Width = 75
      Height = 21
      DataField = 'Custno'
      DataSource = Ds_query
      TabOrder = 1
    end
    object ECustname: TDBEdit
      Left = 88
      Top = 45
      Width = 194
      Height = 21
      DataField = 'Custname'
      DataSource = Ds_query
      TabOrder = 2
    end
    object EArea: TDBEdit
      Left = 88
      Top = 74
      Width = 146
      Height = 21
      DataField = 'Areaname'
      DataSource = Ds_query
      TabOrder = 3
    end
    object EShopName: TDBEdit
      Left = 88
      Top = 104
      Width = 146
      Height = 21
      DataField = 'Shopname'
      DataSource = Ds_query
      TabOrder = 4
    end
    object EAdd: TDBEdit
      Left = 88
      Top = 133
      Width = 195
      Height = 21
      DataField = 'Address'
      DataSource = Ds_query
      TabOrder = 5
    end
    object EContactman: TDBEdit
      Left = 88
      Top = 162
      Width = 194
      Height = 21
      DataField = 'Contactman'
      DataSource = Ds_query
      TabOrder = 6
    end
    object ETel: TDBEdit
      Left = 88
      Top = 192
      Width = 194
      Height = 21
      DataField = 'Tel'
      DataSource = Ds_query
      TabOrder = 7