user.~dfm

Barcode And LabelPrint

inherited frmBUser: TfrmBUser
  Top = 244
  Width = 509
  Height = 359
  Caption = #25805#20316#21592#31649#29702
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar: TToolBar
    Width = 501
  end
  inherited StatusBar1: TStatusBar
    Top = 313
    Width = 501
  end
  inherited Panel1: TPanel
    Width = 501
  end
  object GroupBox1: TGroupBox [3]
    Left = 0
    Top = 48
    Width = 501
    Height = 117
    Align = alTop
    TabOrder = 7
    object Label1: TLabel
      Left = 32
      Top = 22
      Width = 26
      Height = 13
      Caption = #32534#21495
    end
    object Label11: TLabel
      Left = 32
      Top = 48
      Width = 26
      Height = 13
      Caption = #22995#21517
    end
    object LabelDate: TLabel
      Left = 264
      Top = 48
      Width = 52
      Height = 13
      Caption = #28155#21152#26102#38388
    end
    object Label3: TLabel
      Left = 32
      Top = 74
      Width = 26
      Height = 13
      Caption = #23494#30721
    end
    object Label4: TLabel
      Left = 6
      Top = 100
      Width = 52
      Height = 13
      Caption = #30830#35748#23494#30721
    end
    object Label5: TLabel
      Left = 266
      Top = 20
      Width = 52
      Height = 13
      Caption = #25317#26377#26435#38480
    end
    object DBEdtOptSNum: TDBEdit
      Left = 63
      Top = 17
      Width = 197
      Height = 21
      DataField = 'UserNum'
      DataSource = dsBaseInfo
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object DBEdtOptSName: TDBEdit
      Left = 63
      Top = 42
      Width = 197
      Height = 21
      DataField = 'UserName'
      DataSource = dsBaseInfo
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object EditDate: TEdit
      Left = 325
      Top = 44
      Width = 172
      Height = 21
      Color = clMenu
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 5
    end
    object CMBPri: TComboBox
      Left = 325
      Top = 15
      Width = 172
      Height = 21
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 4
      Text = #36229#32423#31649#29702#21592
      Items.Strings = (
        #36229#32423#31649#29702#21592
        #26222#36890#31649#29702#21592
        #20837#24211#31649#29702
        #20986#24211#31649#29702)
    end
    object DBEdtPassWord: TDBEdit
      Left = 63
      Top = 68
      Width = 197
      Height = 21
      DataField = 'UserKey'
      DataSource = dsBaseInfo
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      MaxLength = 15
      PasswordChar = '*'
      TabOrder = 2
    end
    object EDTPassRep: TEdit
      Left = 63
      Top = 94
      Width = 197
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      MaxLength = 15
      PasswordChar = '*'
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox [4]
    Left = 4
    Top = 165
    Width = 489
    Height = 139
    Align = alClient
    TabOrder = 8
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 485
      Height = 122
      Align = alClient
      DataSource = dsBaseInfo
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'UserNum'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UserName'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 174
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'updatedate'
          Title.Alignment = taCenter
          Title.Caption = #28155#21152#26102#38388
          Width = 147
          Visible = True
        end>
    end
  end
  inherited Panel2: TPanel
    Top = 165
    Height = 139
  end
  inherited Panel3: TPanel
    Left = 493
    Top = 165
    Height = 139
  end
  inherited Panel4: TPanel
    Top = 304
    Width = 501
  end
  inherited Panel5: TPanel
    Top = 165
    Width = 489
    Height = 139
    object DBGrid2: TDBGrid
      Left = 0
      Top = 0
      Width = 489
      Height = 139
      Align = alClient
      DataSource = dsBaseInfo
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'UserNum'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UserName'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 184
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'updatedate'
          Title.Alignment = taCenter
          Title.Caption = #28155#21152#26102#38388
          Width = 157
          Visible = True
        end>
    end
  end
  inherited ALToolbar: TActionList
    Left = 446
    Top = 86
  end
  inherited QBaseInfo: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from users ')
    Left = 390
    Top = 206
    object QBaseInfoUserNum: TWideStringField
      FieldName = 'UserNum'
      Size = 50
    end
    object QBaseInfoUserName: TWideStringField
      FieldName = 'UserName'
      OnValidate = QBaseInfoUserNameValidate
      Size = 50
    end
    object QBaseInfoUserKey: TWideStringField
      FieldName = 'UserKey'
      Size = 50
    end
    object QBaseInfoupdatedate: TDateTimeField
      FieldName = 'updatedate'
    end
    object QBaseInfoUserSecurity: TWordField
      FieldName = 'UserSecurity'
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 468
    Top = 8
  end
  inherited QIsUnique: TADOQuery
    Parameters = <
      item
        Name = 'UserName'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from users where UserName=:UserName')
    Left = 418
    Top = 156
  end
  inherited wwLookupDlg: TwwLookupDialog
    Left = 457
    Top = 148
  end
end