fmuseru.dfm

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

inherited FMUser: TFMUser
  Left = 161
  Top = 128
  Caption = 'FMUser'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 257
    Top = 38
    Width = 10
    Height = 409
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid [2]
    Tag = 1
    Left = 0
    Top = 38
    Width = 257
    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 = 'fUserNO'
        Title.Caption = #29992#25143#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fUserName'
        Title.Caption = #29992#25143#21517#31216
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 267
    Top = 38
    Width = 495
    Height = 409
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 60
      Top = 40
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #29992#25143#32534#21495
      FocusControl = dbfUserNO
    end
    object Label2: TLabel
      Left = 60
      Top = 80
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #29992#25143#21517#31216
      FocusControl = dbfUserName
    end
    object Label3: TLabel
      Left = 84
      Top = 120
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #23494#30721
      FocusControl = dbfPwd
    end
    object Label4: TLabel
      Left = 84
      Top = 152
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Caption = #29366#24577
      FocusControl = dbfStatuName
    end
    object dbfUserNO: TDBEdit
      Left = 120
      Top = 40
      Width = 120
      Height = 20
      DataField = 'fUserNO'
      DataSource = dsMain
      TabOrder = 0
    end
    object dbfUserName: TDBEdit
      Left = 120
      Top = 80
      Width = 160
      Height = 20
      DataField = 'fUserName'
      DataSource = dsMain
      TabOrder = 1
    end
    object dbfPwd: TDBEdit
      Left = 120
      Top = 120
      Width = 120
      Height = 20
      DataField = 'fPwd'
      DataSource = dsMain
      PasswordChar = '*'
      TabOrder = 2
    end
    object dbfStatuName: TDBLookupComboBox
      Left = 120
      Top = 152
      Width = 160
      Height = 20
      DataField = 'fStatuName'
      DataSource = dsMain
      KeyField = 'fDictNo'
      ListField = 'fDictName'
      ListSource = dsDict
      TabOrder = 3
    end
  end
  inherited QrySQL: TADOQuery
    Left = 152
    Top = 168
  end
  inherited cdsMain: TADODataSet
    OnNewRecord = cdsMainNewRecord
    CommandText = 'select * from ts_User where 1=1'
    Left = 40
    Top = 96
    object cdsMainfUserNO: TWideStringField
      FieldName = 'fUserNO'
      Size = 10
    end
    object cdsMainfUserName: TWideStringField
      FieldName = 'fUserName'
      Size = 16
    end
    object cdsMainfPwd: TWideStringField
      FieldName = 'fPwd'
      Size = 8
    end
    object cdsMainfStatu: TSmallintField
      FieldName = 'fStatu'
    end
    object cdsMainfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
    object cdsMainfStatuName: TStringField
      FieldKind = fkLookup
      FieldName = 'fStatuName'
      LookupDataSet = cdsDict
      LookupKeyFields = 'fDictNo'
      LookupResultField = 'fDictName'
      KeyFields = 'fStatu'
      Lookup = True
    end
  end
  inherited dsMain: TDataSource
    Left = 88
    Top = 96
  end
  object cdsDict: TADODataSet [7]
    Connection = fmDB.AdoHouse
    CursorType = ctStatic
    CommandText = 
      'select fDictNo,fDictName from ts_Dict where fDictType=1001 order' +
      ' by fDictNo'
    Parameters = <>
    Left = 48
    Top = 168
    object cdsDictfDictNo: TWideStringField
      FieldName = 'fDictNo'
      Size = 10
    end
    object cdsDictfDictName: TWideStringField
      FieldName = 'fDictName'
    end
  end
  object dsDict: TDataSource [8]
    DataSet = cdsDict
    Left = 96
    Top = 168
  end
  inherited SingleMenu: TPopupMenu
    Left = 144
    Top = 96
  end
end