fmemployeeu.dfm

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

inherited FMEmployee: TFMEmployee
  Left = 284
  Top = 139
  Caption = 'FMEmployee'
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 253
    Top = 38
    Width = 5
    Height = 409
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid [2]
    Tag = 1
    Left = 0
    Top = 38
    Width = 253
    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 = 'fEmpId'
        Title.Caption = #19994#21153#21592#32534#21495
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fEmpName'
        Title.Caption = #19994#21153#21592#22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fStateName'
        ReadOnly = True
        Title.Caption = #29366#24577
        Width = 59
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 258
    Top = 38
    Width = 504
    Height = 409
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 32
      Top = 24
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #32534#21495
      FocusControl = dbfEmpId
    end
    object Label2: TLabel
      Left = 304
      Top = 24
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #22995#21517
      FocusControl = dbfEmpName
    end
    object Label3: TLabel
      Left = 32
      Top = 64
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #30005#35805
      FocusControl = dbfTelNo
    end
    object Label4: TLabel
      Left = 304
      Top = 64
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #25163#26426
      FocusControl = dbfPhone
    end
    object Label5: TLabel
      Left = 20
      Top = 104
      Width = 36
      Height = 12
      Alignment = taRightJustify
      Caption = #36523#20221#35777
      FocusControl = dbfSeriNo
    end
    object Label6: TLabel
      Left = 32
      Top = 144
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #22320#22336
      FocusControl = dbfAddre
    end
    object Label7: TLabel
      Left = 32
      Top = 184
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #29366#24577
      FocusControl = dbfStateName
    end
    object Label8: TLabel
      Left = 304
      Top = 104
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #32844#21153
      FocusControl = dbfType
    end
    object dbfEmpId: TDBEdit
      Left = 64
      Top = 24
      Width = 130
      Height = 20
      DataField = 'fEmpId'
      DataSource = dsMain
      TabOrder = 0
    end
    object dbfEmpName: TDBEdit
      Left = 336
      Top = 24
      Width = 130
      Height = 20
      DataField = 'fEmpName'
      DataSource = dsMain
      TabOrder = 1
    end
    object dbfTelNo: TDBEdit
      Left = 64
      Top = 64
      Width = 130
      Height = 20
      DataField = 'fTelNo'
      DataSource = dsMain
      TabOrder = 2
    end
    object dbfPhone: TDBEdit
      Left = 336
      Top = 64
      Width = 130
      Height = 20
      DataField = 'fPhone'
      DataSource = dsMain
      TabOrder = 3
    end
    object dbfSeriNo: TDBEdit
      Left = 64
      Top = 104
      Width = 130
      Height = 20
      DataField = 'fSeriNo'
      DataSource = dsMain
      TabOrder = 4
    end
    object dbfAddre: TDBEdit
      Left = 64
      Top = 144
      Width = 405
      Height = 20
      DataField = 'fAddre'
      DataSource = dsMain
      TabOrder = 6
    end
    object dbfStateName: TDBLookupComboBox
      Left = 64
      Top = 184
      Width = 130
      Height = 20
      DataField = 'fStateName'
      DataSource = dsMain
      KeyField = 'fDictNo'
      ListField = 'fDictname'
      ListSource = dsState
      TabOrder = 7
    end
    object dbfType: TDBLookupComboBox
      Left = 336
      Top = 100
      Width = 130
      Height = 20
      DataField = 'fType'
      DataSource = dsMain
      KeyField = 'fDictNo'
      ListField = 'fDictname'
      ListSource = dsType
      TabOrder = 5
    end
  end
  inherited QrySQL: TADOQuery
    Left = 56
    Top = 232
  end
  inherited cdsMain: TADODataSet
    OnNewRecord = cdsMainNewRecord
    CommandText = 'select * from ts_employee order by fempid'
    Left = 56
    Top = 88
    object cdsMainfEmpId: TSmallintField
      FieldName = 'fEmpId'
    end
    object cdsMainfEmpName: TWideStringField
      FieldName = 'fEmpName'
      Size = 14
    end
    object cdsMainfTelNo: TWideStringField
      FieldName = 'fTelNo'
    end
    object cdsMainfPhone: TWideStringField
      FieldName = 'fPhone'
    end
    object cdsMainfSeriNo: TWideStringField
      FieldName = 'fSeriNo'
    end
    object cdsMainfAddre: TWideStringField
      FieldName = 'fAddre'
      Size = 50
    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
    object cdsMainfType: TSmallintField
      FieldName = 'fType'
    end
    object cdsMainfTypeName: TStringField
      FieldKind = fkLookup
      FieldName = 'fTypeName'
      LookupDataSet = cdsType
      LookupKeyFields = 'fDictNo'
      LookupResultField = 'fDictname'
      KeyFields = 'fType'
      Lookup = True
    end
  end
  inherited dsMain: TDataSource
    Left = 120
    Top = 88
  end
  object dsState: TDataSource
    DataSet = cdsState
    Left = 112
    Top = 160
  end
  object cdsState: TADODataSet
    Connection = fmDB.AdoHouse
    CursorType = ctStatic
    CommandText = 
      'select fDictNo,fDictname from ts_dict where fdicttype=1005 order' +
      ' by fdictno'
    Parameters = <>
    Left = 48
    Top = 160
  end
  object cdsType: TADODataSet
    Connection = fmDB.AdoHouse
    CursorType = ctStatic
    CommandText = 
      'select fDictNo,fDictname from ts_dict where fdicttype=1002 order' +
      ' by fdictno'
    Parameters = <>
    Left = 72
    Top = 304
  end
  object dsType: TDataSource
    DataSet = cdsType
    Left = 152
    Top = 304
  end
end