changepassword.dfm

我自己写的一个有关酒店管理系统的代码 大家

object ChangePasswordForm: TChangePasswordForm
  Left = 414
  Top = 263
  Width = 225
  Height = 159
  Caption = #20462#25913#23494#30721
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 31
    Top = 18
    Width = 77
    Height = 14
    Caption = #29992#25143#21517'     '
  end
  object Label2: TLabel
    Left = 31
    Top = 45
    Width = 49
    Height = 14
    Caption = #26032#23494#30721' '
  end
  object Label3: TLabel
    Left = 18
    Top = 71
    Width = 56
    Height = 14
    Caption = #37325#36755#23494#30721
  end
  object Edit1: TEdit
    Left = 76
    Top = 12
    Width = 93
    Height = 22
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 76
    Top = 39
    Width = 93
    Height = 22
    PasswordChar = '*'
    TabOrder = 1
  end
  object Edit3: TEdit
    Left = 76
    Top = 65
    Width = 93
    Height = 22
    PasswordChar = '*'
    TabOrder = 2
  end
  object BitBtn1: TBitBtn
    Left = 31
    Top = 104
    Width = 50
    Height = 19
    Caption = #30830#23450
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 131
    Top = 104
    Width = 58
    Height = 19
    Caption = #21462#28040
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object ADODataSet1: TADODataSet
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\Administrator\My Documents\Delphi 7'#25968#25454#24211#24212#29992#25216#26415#19982#32534#31243#23454#20363'\'#22823#31995#32479#33539#20363'\'#37202#24215#31649 +
      #29702#31995#32479'\hotel.mdb;Persist Security Info=False'
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        Size = 6
        Value = Null
      end>
    Left = 176
    Top = 32
  end
end