uuser_m.dfm

这是一个三层的进销存系统

inherited frmuser_m: Tfrmuser_m
  Left = 430
  Top = 183
  Caption = #29992#25143#31649#29702
  ClientHeight = 156
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited GroupBox: TGroupBox
    Height = 142
    TabOrder = 3
    inherited Label1: TLabel
      Top = 20
      Caption = #29992#25143#20195#21495
    end
    object Label2: TLabel [1]
      Left = 8
      Top = 43
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel [2]
      Left = 8
      Top = 67
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #23494#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel [3]
      Left = 8
      Top = 91
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #25152#23646#32676#32452
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited Edit1: TwwDBEdit
      Width = 97
      CharCase = ecNormal
      DataField = 'fusercode'
      DataSource = frmpermiss.DSuser
    end
    object wwDBEdit1: TwwDBEdit
      Left = 64
      Top = 40
      Width = 145
      Height = 21
      CharCase = ecUpperCase
      DataField = 'fusername'
      DataSource = frmpermiss.DSuser
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit2: TwwDBEdit
      Left = 64
      Top = 65
      Width = 121
      Height = 21
      CharCase = ecUpperCase
      DataField = 'fpassword'
      DataSource = frmpermiss.DSuser
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 64
      Top = 89
      Width = 81
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fid'#9'8'#9#24207#21495#9'F'
        'fcode'#9'12'#9#32676#32452#20195#21495#9'F'
        'fname'#9'20'#9#32676#32452#21517#31216#9'F')
      DataField = 'fgroupid'
      DataSource = frmpermiss.DSuser
      LookupTable = CDSgroup
      LookupField = 'fid'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwCheckBox1: TwwCheckBox
      Left = 64
      Top = 114
      Width = 97
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #36229#32423#29992#25143
      DataField = 'fadmin'
      DataSource = frmpermiss.DSuser
      TabOrder = 4
    end
  end
  inherited Button1: TButton
    TabOrder = 0
  end
  inherited Button2: TButton
    TabOrder = 1
  end
  inherited Button3: TButton
    Top = 120
    TabOrder = 2
  end
  object CDSgroup: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 224
    Top = 88
    object CDSgroupfid: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 8
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSgroupfcode: TWideStringField
      DisplayLabel = #32676#32452#20195#21495
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
    object CDSgroupfname: TWideStringField
      DisplayLabel = #32676#32452#21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
  end
end