fmcustomeru.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMCustomer: TFMCustomer
  Caption = 'FMCustomer'
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 273
    Top = 38
    Width = 5
    Height = 409
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid [2]
    Tag = 1
    Left = 0
    Top = 38
    Width = 273
    Height = 409
    Align = alLeft
    DataSource = dsMain
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fCustNo'
        Title.Caption = #23458#25143#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fCustName'
        Title.Caption = #23458#25143#21517#31216
        Width = 123
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fStateName'
        ReadOnly = True
        Title.Caption = #23458#25143#29366#24577
        Width = 60
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 278
    Top = 38
    Width = 484
    Height = 409
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #23458#25143#32534#21495
      FocusControl = dbfCustNo
    end
    object Label2: TLabel
      Left = 8
      Top = 60
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #23458#25143#21517#31216
      FocusControl = dbfCustName
    end
    object Label3: TLabel
      Left = 8
      Top = 100
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #27861#20154#20195#34920
      FocusControl = dbfCorporate
    end
    object Label4: TLabel
      Left = 20
      Top = 140
      Width = 36
      Height = 12
      Alignment = taRightJustify
      Caption = #32852#31995#20154
      FocusControl = dbfLinkMan
    end
    object Label5: TLabel
      Left = 32
      Top = 180
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #30005#35805
      FocusControl = dbfTelNo
    end
    object Label6: TLabel
      Left = 32
      Top = 220
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #20256#30495
      FocusControl = dbfFaxNo
    end
    object Label7: TLabel
      Left = 8
      Top = 260
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21150#20844#22320#22336
      FocusControl = dbfOfficeAdd
    end
    object Label8: TLabel
      Left = 32
      Top = 300
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #37038#32534
      FocusControl = dbfZipCode
    end
    object Label9: TLabel
      Left = 26
      Top = 340
      Width = 30
      Height = 12
      Alignment = taRightJustify
      Caption = 'Email'
      FocusControl = dbfEmail
    end
    object Label10: TLabel
      Left = 8
      Top = 380
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #23458#25143#29366#24577
      FocusControl = dbfState
    end
    object dbfCustNo: TDBEdit
      Left = 64
      Top = 16
      Width = 140
      Height = 20
      Hint = #23458#25143#32534#21495#26032#22686#21518#19981#33021#22312#20462#25913#12290
      DataField = 'fCustNo'
      DataSource = dsMain
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object dbfCustName: TDBEdit
      Left = 64
      Top = 56
      Width = 350
      Height = 20
      DataField = 'fCustName'
      DataSource = dsMain
      TabOrder = 1
    end
    object dbfCorporate: TDBEdit
      Left = 64
      Top = 96
      Width = 140
      Height = 20
      DataField = 'fCorporate'
      DataSource = dsMain
      TabOrder = 2
    end
    object dbfLinkMan: TDBEdit
      Left = 64
      Top = 136
      Width = 140
      Height = 20
      DataField = 'fLinkMan'
      DataSource = dsMain
      TabOrder = 3
    end
    object dbfTelNo: TDBEdit
      Left = 64
      Top = 176
      Width = 244
      Height = 20
      DataField = 'fTelNo'
      DataSource = dsMain
      TabOrder = 4
    end
    object dbfFaxNo: TDBEdit
      Left = 64
      Top = 216
      Width = 244
      Height = 20
      DataField = 'fFaxNo'
      DataSource = dsMain
      TabOrder = 5
    end
    object dbfOfficeAdd: TDBEdit
      Left = 64
      Top = 256
      Width = 350
      Height = 20
      DataField = 'fOfficeAdd'
      DataSource = dsMain
      TabOrder = 6
    end
    object dbfZipCode: TDBEdit
      Left = 64
      Top = 296
      Width = 140
      Height = 20
      DataField = 'fZipCode'
      DataSource = dsMain
      TabOrder = 7
    end
    object dbfEmail: TDBEdit
      Left = 64
      Top = 336
      Width = 140
      Height = 20
      DataField = 'fEmail'
      DataSource = dsMain
      TabOrder = 8
    end
    object dbfState: TDBLookupComboBox
      Left = 64
      Top = 376
      Width = 140
      Height = 20
      DataField = 'fState'
      DataSource = dsMain
      KeyField = 'fDictNo'
      ListField = 'fDictname'
      ListSource = dsState
      TabOrder = 9
    end
  end
  inherited QrySQL: TADOQuery
    Left = 144
    Top = 160
  end
  inherited cdsMain: TADODataSet
    OnNewRecord = cdsMainNewRecord
    CommandText = 'select * from ts_customer where 1=1'
    Left = 88
    Top = 96
    object cdsMainfCustId: TSmallintField
      FieldName = 'fCustId'
    end
    object cdsMainfCustNo: TWideStringField
      FieldName = 'fCustNo'
      Size = 10
    end
    object cdsMainfCustName: TWideStringField
      FieldName = 'fCustName'
      Size = 50
    end
    object cdsMainfCorporate: TWideStringField
      FieldName = 'fCorporate'
    end
    object cdsMainfLinkMan: TWideStringField
      FieldName = 'fLinkMan'
      Size = 14
    end
    object cdsMainfTelNo: TWideStringField
      FieldName = 'fTelNo'
    end
    object cdsMainfFaxNo: TWideStringField
      FieldName = 'fFaxNo'
    end
    object cdsMainfOfficeAdd: TWideStringField
      FieldName = 'fOfficeAdd'
      Size = 50
    end
    object cdsMainfZipCode: TWideStringField
      FieldName = 'fZipCode'
      Size = 10
    end
    object cdsMainfEmail: TWideStringField
      FieldName = 'fEmail'
      Size = 30
    end
    object cdsMainfState: TSmallintField
      FieldName = 'fState'
    end
    object cdsMainfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
    object cdsMainfStateName: TStringField
      FieldKind = fkLookup
      FieldName = 'fStateName'
      LookupDataSet = cdsState
      LookupKeyFields = 'fDictNo'
      LookupResultField = 'fDictname'
      KeyFields = 'fState'
      Lookup = True
    end
  end
  inherited dsMain: TDataSource
    Top = 96
  end
  inherited SingleMenu: TPopupMenu
    Left = 88
    Top = 168
  end
  object dsState: TDataSource
    DataSet = cdsState
    Left = 136
    Top = 248
  end
  object cdsState: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 
      'select fDictNo,fDictname from ts_dict where fdicttype=1003 order' +
      ' by fdictno'
    Parameters = <>
    Left = 80
    Top = 248
  end
end