unlock.dfm

一个大型的机房管理系统,可以用在学校的实验室管理,网吧管理也行,功能丰富.

inherited UnLockForm: TUnLockForm
  Caption = #21475#20196#39564#35777
  ClientHeight = 183
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited palDown: TPanel
    Top = 174
  end
  inherited palLeft: TPanel
    Height = 124
    inherited imgLeft: TImage
      Height = 124
    end
  end
  inherited palRight: TPanel
    Height = 124
    inherited imgRight: TImage
      Height = 124
    end
  end
  inherited palClient: TPanel
    Height = 124
    inherited lbBtnOK: TLabelBtn
      Left = 176
      Top = 88
    end
    inherited lbBtnExit: TLabelBtn
      Left = 248
      Top = 88
      OnClick = imgCloseButtonClick
    end
    inherited MIBtnOK: TMoveImgBtn
      Left = 144
      Top = 80
      OnClick = MIBtnOKClick
    end
    inherited MIBtnExit: TMoveImgBtn
      Left = 216
      Top = 80
      OnClick = imgCloseButtonClick
    end
    object Label2: TLabel
      Left = 16
      Top = 16
      Width = 48
      Height = 12
      Caption = #29992#25143#21517#31216
    end
    object Label1: TLabel
      Left = 16
      Top = 48
      Width = 48
      Height = 12
      Caption = #29992#25143#21475#20196
    end
    object edtName: TEdit
      Left = 72
      Top = 12
      Width = 217
      Height = 20
      TabOrder = 0
      OnDblClick = edtNameDblClick
    end
    object edtPass: TEdit
      Left = 72
      Top = 44
      Width = 217
      Height = 20
      PasswordChar = '*'
      TabOrder = 1
      OnDblClick = edtPassDblClick
      OnKeyPress = edtPassKeyPress
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOCon
    Parameters = <
      item
        Name = '@Name'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = '@Password'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from AdminList'
      'where adLoginName=@Name and adPassword=@Password and popedom=0')
    Left = 24
    Top = 136
  end
end