loginfrm.~dfm

信息系统工作核心代码,若要具体可以联系我,这只是一部分核心代码,大家一起交流分享.谢谢

object LoginForm: TLoginForm
  Left = 416
  Top = 586
  Width = 580
  Height = 347
  Caption = #31995#32479#30331#24405
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 572
    Height = 320
    Align = alClient
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 184
      Top = 127
      Width = 36
      Height = 12
      Caption = #29992#25143#21517
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 184
      Top = 152
      Width = 36
      Height = 12
      Caption = #23494'  '#30721
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object DbLinkSetupButton: TSpeedButton
      Left = 400
      Top = 259
      Width = 137
      Height = 30
      Caption = #25968#25454#24211#26381#21153#22120#35774#32622
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300
        0000377777FFFF7777770FFFF099990FFFF07FFFF777777FFFF7000000333300
        00007777773333777777307703333330770337FF7F333337FF7F300003333330
        0003377773333337777333993333333399333F7FFFF3333FF7FF000000333300
        0000777777F3337777770FFFF033330FFFF07FFFF7F3337FFFF7000000333300
        00007777773333777777307703333330770337FF7F333337FF7F300003333330
        0003377773FFFFF777733393300000033933337F3777777F37F3339990FFFF09
        99333373F7FFFF7FF73333399000000993333337777777777333333333077033
        33333333337FF7F3333333333300003333333333337777333333}
      NumGlyphs = 2
    end
    object LoginShowInfo: TLabel
      Left = 184
      Top = 232
      Width = 78
      Height = 12
      Caption = 'LoginShowInfo'
    end
    object UserNameEdit: TEdit
      Left = 232
      Top = 123
      Width = 121
      Height = 20
      TabOrder = 0
      OnKeyDown = UserNameEditKeyDown
    end
    object PasswordEdit: TEdit
      Left = 232
      Top = 148
      Width = 121
      Height = 20
      PasswordChar = '*'
      TabOrder = 1
      OnKeyDown = PasswordEditKeyDown
    end
    object OKBtn: TBitBtn
      Left = 184
      Top = 187
      Width = 75
      Height = 25
      Caption = #30331#24405
      ModalResult = 1
      TabOrder = 2
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 280
      Top = 187
      Width = 75
      Height = 25
      Cancel = True
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 3
      NumGlyphs = 2
    end
  end
end