customerpropertyfrm.dfm

供水营销打印程序源码

inherited frmPropertyCustomer: TfrmPropertyCustomer
  Left = 275
  Top = 158
  ActiveControl = edtCustID
  Caption = #23458#25143#23646#24615
  PixelsPerInch = 96
  TextHeight = 12
  inherited btnOK: TcxButton
    ModalResult = 0
    OnClick = btnOKClick
  end
  object PageControl: TPageControl [4]
    Left = 8
    Top = 56
    Width = 457
    Height = 201
    ActivePage = TabSheet1
    HotTrack = True
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = #22522#30784#36164#26009
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 433
        Height = 169
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 11
          Width = 66
          Height = 12
          Caption = #23458#25143#32534#21495'(&C)'
          FocusControl = edtCustID
        end
        object Label2: TLabel
          Left = 120
          Top = 11
          Width = 66
          Height = 12
          Caption = #23458#25143#21517#31216'(&N)'
          FocusControl = edtName
        end
        object Label3: TLabel
          Left = 8
          Top = 51
          Width = 54
          Height = 12
          Caption = #32852#31995#20154'(&T)'
          FocusControl = edtContract
        end
        object Label4: TLabel
          Left = 120
          Top = 51
          Width = 66
          Height = 12
          Caption = #32852#31995#30005#35805'(&P)'
          FocusControl = edtPhone
        end
        object Label5: TLabel
          Left = 232
          Top = 51
          Width = 66
          Height = 12
          Caption = #37038#31665#22320#22336'(&E)'
          FocusControl = edtEmail
        end
        object Label6: TLabel
          Left = 8
          Top = 91
          Width = 66
          Height = 12
          Caption = #32852#31995#22320#22336'(&A)'
          FocusControl = edtAddress
        end
        object Label7: TLabel
          Left = 8
          Top = 131
          Width = 42
          Height = 12
          Caption = #22791#27880'(&M)'
          FocusControl = edtDescription
        end
        object edtCustID: TcxDBButtonEdit
          Left = 8
          Top = 24
          Width = 97
          Height = 23
          DataBinding.DataField = 'CustID'
          DataBinding.DataSource = dasProperty
          Properties.Buttons = <
            item
              Default = True
              Kind = bkEllipsis
            end>
          Properties.ReadOnly = False
          Properties.OnButtonClick = edtCustIDPropertiesButtonClick
          Style.Shadow = True
          TabOrder = 0
        end
        object edtName: TcxDBMaskEdit
          Left = 120
          Top = 24
          Width = 305
          Height = 23
          DataBinding.DataField = 'Name'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 1
        end
        object edtContract: TcxDBMaskEdit
          Left = 8
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'Contract'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 2
        end
        object edtPhone: TcxDBMaskEdit
          Left = 120
          Top = 64
          Width = 97
          Height = 23
          DataBinding.DataField = 'Phone'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 3
        end
        object edtEmail: TcxDBHyperLinkEdit
          Left = 232
          Top = 64
          Width = 193
          Height = 23
          DataBinding.DataField = 'Email'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Properties.SingleClick = True
          Style.Shadow = True
          TabOrder = 4
        end
        object edtAddress: TcxDBTextEdit
          Left = 8
          Top = 104
          Width = 417
          Height = 23
          DataBinding.DataField = 'Address'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 5
        end
        object edtDescription: TcxDBTextEdit
          Left = 8
          Top = 144
          Width = 417
          Height = 23
          DataBinding.DataField = 'Description'
          DataBinding.DataSource = dasProperty
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 6
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #38468#21152#20449#24687
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 8
        Top = 0
        Width = 433
        Height = 169
        TabOrder = 0
        object Label8: TLabel
          Left = 8
          Top = 11
          Width = 66
          Height = 12
          Caption = #25152#23646#38215#21306'(&T)'
          FocusControl = edtTownID
        end
        object Label9: TLabel
          Left = 120
          Top = 11
          Width = 66
          Height = 12
          Caption = #25152#23646#21306#22495'(&A)'
          FocusControl = edtAreaID
        end
        object Label10: TLabel
          Left = 232
          Top = 11
          Width = 66
          Height = 12
          Caption = #25152#23646#34920#20876'(&B)'
          FocusControl = edtBookID
        end
        object Label11: TLabel
          Left = 8
          Top = 51
          Width = 66
          Height = 12
          Caption = #32564#36153#26041#24335'(&P)'
          FocusControl = edtPayID
        end
        object Label12: TLabel
          Left = 120
          Top = 51
          Width = 66
          Height = 12
          Caption = #23458#25143#24615#36136'(&U)'
          FocusControl = edtUsingID
        end
        object Label13: TLabel
          Left = 24
          Top = 118
          Width = 108
          Height = 12
          Caption = #22478#38215#25490#27745#36153#25910#21462#27604#20363
        end
        object Label19: TLabel
          Left = 232
          Top = 99
          Width = 54
          Height = 12
          Caption = #25220#34920#21592'(&P)'
          FocusControl = edtCopier
        end
        object Bevel2: TBevel
          Left = 8
          Top = 89
          Width = 417
          Height = 9
          Shape = bsTopLine
        end
        object edtTownID: TcxDBLookupComboBox
          Left = 8
          Top = 24
          Width = 97
          Height = 23
          DataBinding.DataField = 'TownID'
          DataBinding.DataSource = dasProperty
          Properties.DropDownListStyle = lsFixedList
          Properties.KeyFieldNames = 'TownID'
          Properties.ListColumns = <
            item
              FieldName = 'Townname'
            end>
          Properties.ListOptions.GridLines = glVertical
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dmInvPrint.dsTown
          Properties.ReadOnly = False
          Style.Shadow = True
          TabOrder = 0