sysuserfrm.~dfm

来自「delphi 编制的服务器程序」· ~DFM 代码 · 共 161 行

inherited SysUserForm: TSysUserForm
  Left = 93
  Top = 135
  Caption = #31995#32479#29992#25143#23450#20041
  ClientHeight = 259
  ClientWidth = 665
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 218
    Width = 665
    inherited sbquery: TSpeedButton
      Left = 484
      Top = 1
      Width = 102
      Caption = #26597#35810#23494#30721
      OnClick = sbqueryClick
    end
    inherited sbimport: TSpeedButton
      Left = 384
      Top = 1
      Width = 101
      Caption = #20462#25913#23494#30721
      OnClick = sbimportClick
    end
    inherited sbexit: TSpeedButton
      Left = 587
    end
  end
  inherited PageControl1: TPageControl
    Width = 665
    Height = 218
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Width = 657
        Height = 178
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'UserCode'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'UserName'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ISSUPER'
            Title.Alignment = taCenter
            Width = 88
            Visible = True
          end>
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 657
        Height = 178
        object Label1: TLabel
          Left = 72
          Top = 16
          Width = 60
          Height = 15
          Caption = #29992#25143#32534#30721
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 72
          Top = 72
          Width = 60
          Height = 15
          Caption = #29992#25143#21517#31216
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 73
          Top = 123
          Width = 75
          Height = 15
          Caption = #26159#21542#31649#29702#21592
          FocusControl = DBEdit3
        end
        object DBEdit1: TDBEdit
          Left = 72
          Top = 37
          Width = 105
          Height = 23
          DataField = 'UserCode'
          DataSource = DataSource1
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 72
          Top = 92
          Width = 154
          Height = 23
          DataField = 'UserName'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 74
          Top = 141
          Width = 25
          Height = 23
          DataField = 'ISSUPER'
          DataSource = DataSource1
          TabOrder = 2
        end
      end
    end
  end
  inherited ImageList1: TImageList
    Left = 268
    Top = 2
  end
  inherited ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    AfterInsert = ADOQuery1AfterInsert
    SQL.Strings = (
      'select * from users')
    Left = 220
    Top = 0
    object ADOQuery1User_ID: TAutoIncField
      FieldName = 'User_ID'
      ReadOnly = True
    end
    object ADOQuery1UserCode: TWideStringField
      DisplayLabel = #29992#25143#32534#30721
      FieldName = 'UserCode'
      Size = 12
    end
    object ADOQuery1UserName: TWideStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
      Size = 10
    end
    object ADOQuery1Enterpass: TWideStringField
      DisplayLabel = #21475#20196
      FieldName = 'Enterpass'
      Size = 6
    end
    object ADOQuery1ISSUPER: TWideStringField
      DisplayLabel = #26159#21542#31649#29702#21592
      FieldName = 'ISSUPER'
      Size = 1
    end
  end
  inherited DataSource1: TDataSource
    Left = 172
    Top = 0
  end
end