ulogin.dfm

该系统将温度数据以类似股票K线显示方式进行分析

object LoginDlg: TLoginDlg
  Left = 546
  Top = 65
  BorderStyle = bsDialog
  Caption = #27426#36814#30331#24405#22312#32447#28201#24230#30417#27979#31995#32479#65293'v1.0'
  ClientHeight = 173
  ClientWidth = 326
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF
    0000000000FFFFFFFFFF00000000F999F000000000F9999999F000000000F999
    F00000000F99999999F000000000F9999F0000000F9999999F0000000000F999
    9F000000F99999999F0000000000F99999F00000F9999999F00000000000F999
    99F0000F99999999F00000000000F999999F000F9999999F000000000000F999
    999F00F9999999F0000000000000F9999999F0F9999999F0000000000000F999
    9999FF9999999F000000000000000F9999999F9999999F000000000000000F99
    999999999999F00000000000000000F9999999999999F00000000000000000F9
    9999999999FF0000000000000000000F999999999999FF000000000000000000
    F9999999999999FFF000000000000000F9999999999999999FF0000000000000
    0F99999999999999999FF000000000000F9999999999999999999FFF00000000
    00F999999999999999999999FF00000000F99999999999999999999999FF0000
    000F99999999999999999999999F00000000F9999999FFF999999999999F0000
    0000F9999999F00FF9999999999F000000000F9999999F000FF99999999F0000
    00000F9999999F00000FF999999F0000000000F9999999F000000FF9999F0000
    000000F9999999F00000000FF99F00000000000F9999999F000000000FFF0000
    0000000F9999999F000000000000000000000000FFFFFFFFF000000000000FFC
    00FF07FC01FF07F801FF03F803FF03F003FF01F007FF01E007FF00E00FFF00C0
    1FFF00401FFF00003FFF80003FFF80007FFFC0007FFFC000FFFFE0003FFFF000
    07FFF00001FFF800007FF800000FFC000003FC000000FE000000FF000000FF00
    6000FF803800FF803E00FFC01F80FFC01FE0FFE00FF8FFE00FFFFFF007FF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 19
    Top = 33
    Width = 60
    Height = 12
    Caption = #24080'  '#21495'(&U):'
    FocusControl = edtAccount
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 19
    Top = 80
    Width = 60
    Height = 12
    Caption = #23494'  '#30721'(&P):'
    FocusControl = edtPassword
    Transparent = True
  end
  object edtPassword: TEdit
    Left = 88
    Top = 76
    Width = 211
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
    MaxLength = 40
    PasswordChar = '*'
    TabOrder = 1
  end
  object edtAccount: TEdit
    Left = 88
    Top = 29
    Width = 211
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256
    MaxLength = 80
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 132
    Width = 326
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      326
      41)
    object btnOK: TButton
      Left = 160
      Top = 11
      Width = 75
      Height = 22
      Anchors = [akRight, akBottom]
      Caption = #30830#23450
      Default = True
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 242
      Top = 11
      Width = 75
      Height = 22
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 1
      OnClick = btnCancelClick
    end
  end
  object adoqUser: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserName'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'Password'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select * from Users where UserName = :UserName and Password = :P' +
        'assword')
    Left = 16
    Top = 109
  end
end