uuser.~dfm

是分布式粮库程序,是采用Delphi实现的

object Fuser: TFuser
  Left = 152
  Top = 113
  Width = 696
  Height = 480
  Caption = #29992#25143#22522#30784#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 137
    Align = alTop
    TabOrder = 0
    object Label4: TLabel
      Left = 19
      Top = 107
      Width = 78
      Height = 13
      Caption = #30830'  '#35748'  '#23494'  '#30721#65306
    end
    object Label3: TLabel
      Left = 27
      Top = 74
      Width = 75
      Height = 13
      Caption = #23494'             '#30721#65306
    end
    object Label2: TLabel
      Left = 27
      Top = 42
      Width = 75
      Height = 13
      Caption = #22995'             '#21517#65306
    end
    object Label1: TLabel
      Left = 27
      Top = 10
      Width = 75
      Height = 13
      Caption = #24037'             '#21495#65306
    end
    object GroupBox1: TGroupBox
      Left = 440
      Top = 1
      Width = 247
      Height = 135
      Align = alRight
      TabOrder = 0
      object addBitBtn: TBitBtn
        Left = 48
        Top = 16
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 0
        OnClick = addBitBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333FF33333333FF333993333333300033377F3333333777333993333333
          300033F77FFF3333377739999993333333333777777F3333333F399999933333
          33003777777333333377333993333333330033377F3333333377333993333333
          3333333773333333333F333333333333330033333333F33333773333333C3333
          330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
          333333333337733333FF3333333C333330003333333733333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object delBitBtn: TBitBtn
        Left = 48
        Top = 56
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 1
        OnClick = delBitBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object modBitBtn: TBitBtn
        Left = 48
        Top = 96
        Width = 75
        Height = 25
        Caption = #20462#25913
        TabOrder = 2
        OnClick = modBitBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
      end
      object savBitBtn: TBitBtn
        Left = 144
        Top = 16
        Width = 75
        Height = 25
        Caption = #20445#23384
        TabOrder = 3
        OnClick = savBitBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
      end
      object canBitBtn: TBitBtn
        Left = 144
        Top = 56
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 4
        OnClick = canBitBtnClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888808888888888088800088888888888880000888888
          8088888000888888088888880008888008888888800088008888888888000008
          8888888888800088888888888800000888888888800088008888888000088880
          0888880000888888008888000888888888088888888888888888}
      end
      object exiBitBtn: TBitBtn
        Left = 144
        Top = 96
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 5
        OnClick = exiBitBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
          03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
          0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
          0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
          0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
          0333337F777FFFFF7F3333000000000003333377777777777333}
        NumGlyphs = 2
      end
    end
    object Edit1: TEdit
      Left = 122
      Top = 8
      Width = 87
      Height = 21
      MaxLength = 4
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 122
      Top = 40
      Width = 135
      Height = 21
      TabOrder = 2
    end
    object Edit3: TEdit
      Left = 122
      Top = 72
      Width = 135
      Height = 21
      PasswordChar = '*'
      TabOrder = 3
    end
    object Edit4: TEdit
      Left = 122
      Top = 104
      Width = 135
      Height = 21
      PasswordChar = '*'
      TabOrder = 4
    end
  end
  object userDBGrid: TDBGrid
    Left = 0
    Top = 137
    Width = 688
    Height = 309
    Align = alClient
    DataSource = userDataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'USER_ID'
        Title.Caption = #24037#21495
        Width = 194
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = #22995#21517
        Width = 228
        Visible = True
      end>
  end
  object userTable: TTable
    AfterScroll = userTableAfterScroll
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_USER'
    Left = 160
    Top = 248
  end
  object userDataSource: TDataSource
    DataSet = userTable
    Left = 200
    Top = 248
  end
  object addQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ent_user (user_id,unit_id,name,password)'
      'values (:user_id,:unit_id,:name,:password)')
    Left = 472
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'password'
        ParamType = ptUnknown
      end>
  end
  object delQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete from ent_user'
      'where user_code=:user_code')
    Left = 472
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_code'
        ParamType = ptUnknown
      end>
  end
  object modQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ent_user'
      'set user_id=:user_id,name=:name,password=:password'
      'where user_code=:user_code')
    Left = 472
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'password'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'user_code'
        ParamType = ptUnknown
      end>
  end
  object useraddQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_user'
      'where unit_id=:unit_id and user_id=:user_id ')
    Left = 304
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end>
  end
  object usermodQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_user'
      'where unit_id=:unit_id and user_id=:user_id and '
      '      user_code<>:user_code')
    Left = 344
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'user_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'user_code'
        ParamType = ptUnknown
      end>
  end
end