u_usermanage.dfm

这是一个用条码录入的数据的进销存(只对成品）---做童装的

inherited F_UserManage: TF_UserManage
  Left = 75
  Top = 165
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29992#25143#31649#29702
  ClientWidth = 540
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 540
    object Label1: TLabel [0]
      Left = 22
      Top = 32
      Width = 52
      Height = 13
      Caption = #29992#25143#32534#21495
      FocusControl = Euserid
    end
    object Label2: TLabel [1]
      Left = 22
      Top = 81
      Width = 52
      Height = 13
      Caption = #29992#25143#21517#31216
      FocusControl = EUsername
    end
    object Label3: TLabel [2]
      Left = 22
      Top = 142
      Width = 26
      Height = 13
      Caption = #23494#30721
      FocusControl = Epassword
    end
    inherited DBGridEh1: TDBGridEh
      Left = 216
      Width = 324
      Columns = <
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Userid'
          Footers = <>
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Username'
          Footers = <>
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Password'
          Footers = <>
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Groupid'
          Footers = <>
        end>
    end
    object Euserid: TDBEdit
      Left = 22
      Top = 48
      Width = 89
      Height = 21
      DataField = 'Userid'
      DataSource = Ds_query
      TabOrder = 1
    end
    object EUsername: TDBEdit
      Left = 22
      Top = 107
      Width = 163
      Height = 21
      DataField = 'Username'
      DataSource = Ds_query
      TabOrder = 2
    end
    object Epassword: TDBEdit
      Left = 22
      Top = 158
      Width = 121
      Height = 21
      DataField = 'Password'
      DataSource = Ds_query
      PasswordChar = '*'
      TabOrder = 3
    end
    object CIsManage: TDBCheckBox
      Left = 22
      Top = 192
      Width = 97
      Height = 17
      Caption = #26159#21542#33021#22686#21152#29992#25143
      DataField = 'Groupid'
      DataSource = Ds_query
      TabOrder = 4
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
  end
  inherited Panel2: TPanel
    Width = 540
  end
  inherited Ado_Query: TADOQuery
    Active = True
    Connection = F_Dm.DBcon
    CursorType = ctStatic
    SQL.Strings = (
      'Select * from IUser')
    object Ado_QueryUserid: TStringField
      DisplayLabel = #29992#25143#32534#21495
      DisplayWidth = 12
      FieldName = 'Userid'
      Size = 16
    end
    object Ado_QueryUsername: TStringField
      DisplayLabel = #29992#25143#21517#31216
      DisplayWidth = 16
      FieldName = 'Username'
      Size = 16
    end
    object Ado_QueryPassword: TStringField
      DisplayLabel = #23494#30721
      DisplayWidth = 16
      FieldName = 'Password'
      OnGetText = Ado_QueryPasswordGetText
      Size = 16
    end
    object Ado_QueryGroupid: TBooleanField
      DisplayLabel = #26159#21542#33021#22686#21152#29992#25143
      DisplayWidth = 19
      FieldName = 'Groupid'
    end
  end
  inherited Ds_query: TDataSource
    Top = 104
  end
end