userpas.dfm

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

object USERDlg: TUSERDlg
  Left = 207
  Top = 177
  Width = 696
  Height = 480
  Caption = #29992#25143#35774#32622
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 444
    Top = 0
    Width = 244
    Height = 446
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 244
      Height = 153
      Align = alTop
      TabOrder = 0
      object DBImage1: TDBImage
        Left = 72
        Top = 12
        Width = 105
        Height = 129
        Hint = #21452#20987#36827#34892#22270#29255#32534#36753
        Color = clBtnFace
        Ctl3D = True
        DataField = #29031#29255
        DataSource = USERSS
        ParentCtl3D = False
        Stretch = True
        TabOrder = 0
        OnDblClick = DBImage1DblClick
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 153
      Width = 244
      Height = 293
      Align = alClient
      TabOrder = 1
      object TV: TCheckTreeView
        Left = 1
        Top = 1
        Width = 242
        Height = 291
        Hint = #25171#38057#20195#34920#35813#26435#38480#25171#24320','#21542#21017#34920#31034#20851#38381#35813#26435#38480'.'
        Align = alClient
        BorderStyle = bsNone
        Color = clBtnFace
        Flatness = cfAlwaysFlat
        GrayedIsChecked = False
        Indent = 19
        Items.Data = {
          05000000210000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
          08B8D6C6BFD0C5CFA2210000000000000000000000FFFFFFFFFFFFFFFF000000
          000000000008D0C2BDA8B8D6C6BF210000000000000000000000FFFFFFFFFFFF
          FFFF000000000000000008B1A8B7CFB8D6C6BF210000000000000000000000FF
          FFFFFFFFFFFFFF000000000300000008B9DCC0EDB5A5BEDD2300000000000000
          00000000FFFFFFFFFFFFFFFF00000000000000000ABFAAB9DCC0EDB5A5BEDD23
          0000000000000000000000FFFFFFFFFFFFFFFF00000000000000000ABFAAB9DC
          C0EDCDCBB5A5210000000000000000000000FFFFFFFFFFFFFFFF000000000000
          000008B4F2D3A1B5A5BEDD210000000000000000000000FFFFFFFFFFFFFFFF00
          0000000100000008CFFACADBB5A5BEDD230000000000000000000000FFFFFFFF
          FFFFFFFF00000000000000000ABFAACFFACADBB5A5BEDD210000000000000000
          000000FFFFFFFFFFFFFFFF000000000100000008B1A8B1EDB2E9D1AF21000000
          0000000000000000FFFFFFFFFFFFFFFF000000000000000008CFFACADBB1A8B1
          ED210000000000000000000000FFFFFFFFFFFFFFFF000000000100000008CFB5
          CDB3C9E8D6C3210000000000000000000000FFFFFFFFFFFFFFFF000000000000
          000008D3C3BBA7C9E8D6C3}
        ReadOnly = False
        TabOrder = 0
        OnClick = TVClick
        CheckNodesData = {0101010101010101010101010101010101010101010101010101}
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 444
    Height = 446
    Align = alClient
    Caption = 'Panel4'
    TabOrder = 1
    object DBG: TDBGridEh
      Left = 1
      Top = 52
      Width = 442
      Height = 393
      Align = alClient
      AllowedOperations = [alopUpdateEh]
      DataSource = USERSS
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      FooterRowCount = 1
      FrozenCols = 1
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghRowHighlight, dghDialogFind]
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnColExit = DBGColExit
      OnKeyDown = DBGKeyDown
      Columns = <
        item
          EditButtons = <>
          FieldName = #24207#21495
          Footer.ValueType = fvtCount
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #22995#21517
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #24615#21035
          Footers = <>
          PickList.Strings = (
            #30007
            #22899)
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = #20986#29983#26085#26399
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #21306#22495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #22320#28857
          Footers = <>
          ReadOnly = True
        end
        item
          EditButtons = <>
          FieldName = #23703#20301
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #22522#26412#24037#36164
          Footers = <>
        end>
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 442
      Height = 51
      AutoSize = True
      ButtonHeight = 51
      ButtonWidth = 55
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = MAINFORM.BIGICON
      ShowCaptions = True
      TabOrder = 1
      object ToolButton6: TToolButton
        Left = 0
        Top = 0
        Action = AppendData
      end
      object ToolButton8: TToolButton
        Left = 55
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 63
        Top = 0
        Action = DataSetFirst1
      end
      object ToolButton2: TToolButton
        Left = 118
        Top = 0
        Action = DataSetPrior1
      end
      object ToolButton3: TToolButton
        Left = 173
        Top = 0
        Action = DataSetNext1
      end
      object ToolButton4: TToolButton
        Left = 228
        Top = 0
        Action = DataSetLast1
      end
      object ToolButton7: TToolButton
        Left = 283
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 291
        Top = 0
        Action = DataSetPost1
      end
      object ToolButton9: TToolButton
        Left = 346
        Top = 0
        Action = ChangePS
      end
    end
  end
  object USERS: TADODataSet
    Connection = MAINFORM.ADOC
    CursorType = ctStatic
    AfterScroll = USERSAfterScroll
    CommandText = 'select * from INFO_USER'
    Parameters = <>
    Left = 132
    Top = 184
  end
  object USERSS: TDataSource
    DataSet = USERS
    Left = 100
    Top = 184
  end
  object ActionList1: TActionList
    Images = MAINFORM.BIGICON
    Left = 168
    Top = 184
    object RefreshData: TAction
      Caption = #21047#26032#26435#38480
      ImageIndex = 17
      OnExecute = RefreshDataExecute
    end
    object WriteData: TAction
      Caption = #20889#20837#26435#38480
      ImageIndex = 12
      OnExecute = WriteDataExecute
    end
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = #39318#35760#24405
      ImageIndex = 45
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = #19978#26465#35760#24405
      ImageIndex = 45
      DataSource = USERSS
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = #19979#26465#35760#24405
      ImageIndex = 45
      DataSource = USERSS
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = #23614#35760#24405
      ImageIndex = 45
      DataSource = USERSS
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = #20445#23384#26356#25913
      ImageIndex = 11
      DataSource = USERSS
    end
    object AppendData: TAction
      Category = 'Dataset'
      Caption = #22686#21152#29992#25143
      ImageIndex = 9
      OnExecute = AppendDataExecute
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = #21024#38500#29992#25143
      ImageIndex = 1
      DataSource = USERSS
    end
    object ChangePS: TAction
      Caption = #26356#25913#23494#30721
      ImageIndex = 19
      OnExecute = ChangePSExecute
      OnUpdate = ChangePSUpdate
    end
  end
end