unit_main.dfm

一款传奇登陆器的源代码,使用DELPHI写的,大家可以参考下

object FrmMain: TFrmMain
  Left = 204
  Top = 160
  Width = 682
  Height = 321
  Caption = #20256#22855'3 '#24080#21495#27880#20876#26381#21153#31471' Ver2.31(CopyRight By bbs.91go.net)'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 377
    Height = 253
    Align = alLeft
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label5: TLabel
      Left = 4
      Top = 40
      Width = 132
      Height = 12
      Caption = #21521#30331#38470#22120#24320#25918#30340#31471#21475#21495#65306
    end
    object Label6: TLabel
      Left = 4
      Top = 67
      Width = 90
      Height = 12
      Caption = 'Account'#25968#25454#24211#65306
    end
    object Label7: TLabel
      Left = 4
      Top = 91
      Width = 36
      Height = 12
      Caption = #24080#21495#65306
    end
    object Label8: TLabel
      Left = 4
      Top = 115
      Width = 36
      Height = 12
      Caption = #23494#30721#65306
    end
    object Label11: TLabel
      Left = 192
      Top = 67
      Width = 72
      Height = 12
      Caption = 'Game'#25968#25454#24211#65306
    end
    object Label12: TLabel
      Left = 192
      Top = 91
      Width = 36
      Height = 12
      Caption = #24080#21495#65306
    end
    object Label13: TLabel
      Left = 192
      Top = 115
      Width = 36
      Height = 12
      Caption = #23494#30721#65306
    end
    object Label21: TLabel
      Left = 4
      Top = 163
      Width = 108
      Height = 12
      Caption = 'HeroCommon'#25968#25454#24211#65306
    end
    object Label22: TLabel
      Left = 4
      Top = 187
      Width = 36
      Height = 12
      Caption = #24080#21495#65306
    end
    object Label23: TLabel
      Left = 4
      Top = 211
      Width = 36
      Height = 12
      Caption = #23494#30721#65306
    end
    object Image1: TImage
      Left = 64
      Top = 184
      Width = 32
      Height = 16
      AutoSize = True
      Picture.Data = {
        07544269746D617076010000424D760100000000000076000000280000002000
        000010000000010004000000000000010000120B0000120B0000100000000000
        0000000000000000800000800000008080008000000080008000808000007F7F
        7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF00333333333333333333333333333333FF3333333333333744333333333333
        F77333333333333744473333333333F777F3333333333744444333333333F773
        37333333333744444433333333F77333733333333744444447333333F7733337
        F333333744444444433333F77333333733333744444444443333377FFFFFFF7F
        FFFF9999999999999999733777777777777333CCCCCCCCCC33333773FF333373
        F3333333CCCCCCCCC333333773FF3337F333333333CCCCCCC33333333773FF37
        3F3333333333CCCCCC333333333773FF73F33333333333CCCCC3333333333773
        F7F3333333333333CCC333333333333777FF33333333333333CC333333333333
        3773}
      Visible = False
    end
    object Image2: TImage
      Left = 64
      Top = 200
      Width = 32
      Height = 16
      AutoSize = True
      Picture.Data = {
        07544269746D617076010000424D760100000000000076000000280000002000
        000010000000010004000000000000010000120B0000120B0000100000000000
        0000000000000000800000800000008080008000000080008000808000007F7F
        7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF0033333333333333333FF3333333333333447333333333333377FFF3333333
        3333744473333333333337773FF3333333333444447333333333373F773FF333
        333333444444733333333373F3773FF3333333744444447333333337F333773F
        F333333444444444733333373F3333773FF333334444444444733FFF7FFFFFFF
        77FF999999999999999977777777777733773333CCCCCCCCCC3333337333333F
        7733333CCCCCCCCC33333337F3333F773333333CCCCCCC3333333337333F7733
        333333CCCCCC3333333333733F77333333333CCCCC333333333337FF77333333
        33333CCC3333333333333777333333333333CC33333333333333773333333333
        3333}
      Visible = False
    end
    object Label9: TLabel
      Left = 275
      Top = 162
      Width = 72
      Height = 12
      Caption = #24403#21069#39564#35777#30721#65306
    end
    object Edit_ServPort: TEdit
      Left = 147
      Top = 40
      Width = 41
      Height = 20
      TabOrder = 0
      Text = '8500'
    end
    object Edit_Accountdata: TEdit
      Left = 91
      Top = 64
      Width = 95
      Height = 20
      TabOrder = 1
      Text = 'Account'
    end
    object StaticText3: TStaticText
      Left = 16
      Top = 8
      Width = 116
      Height = 17
      BevelInner = bvLowered
      BevelKind = bkSoft
      Caption = #27880#20876#26381#21153#31471#20449#24687#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object Edit_Accountuser: TEdit
      Left = 91
      Top = 88
      Width = 95
      Height = 20
      TabOrder = 3
      Text = 'sa'
    end
    object Edit_Accountpass: TEdit
      Left = 91
      Top = 112
      Width = 95
      Height = 20
      PasswordChar = '*'
      TabOrder = 4
    end
    object Edit_GameData: TEdit
      Left = 272
      Top = 64
      Width = 95
      Height = 20
      TabOrder = 5
      Text = 'Game1'
    end
    object Edit_GameUser: TEdit
      Left = 272
      Top = 88
      Width = 95
      Height = 20
      TabOrder = 6
      Text = 'sa'
    end
    object Edit_GamePass: TEdit
      Left = 272
      Top = 112
      Width = 95
      Height = 20
      PasswordChar = '*'
      TabOrder = 7
    end
    object List_Guild: TListBox
      Left = 264
      Top = 280
      Width = 121
      Height = 97
      ItemHeight = 12
      Sorted = True
      TabOrder = 8
      Visible = False
    end
    object Edit_HeroData: TEdit
      Left = 112
      Top = 160
      Width = 95
      Height = 20
      TabOrder = 9
      Text = 'HeroCommon1'
    end
    object Edit_HeroUser: TEdit
      Left = 112
      Top = 184
      Width = 95
      Height = 20
      TabOrder = 10
      Text = 'sa'
    end
    object Edit_HeroPass: TEdit
      Left = 112
      Top = 208
      Width = 95
      Height = 20
      PasswordChar = '*'
      TabOrder = 11
    end
    object Button3: TButton
      Left = 238
      Top = 225
      Width = 94
      Height = 25
      Caption = #36830#25509#25968#25454#24211
      TabOrder = 12
      OnClick = Button3Click
    end
    object BitBtn1: TBitBtn
      Left = 337
      Top = 225
      Width = 34
      Height = 25
      TabOrder = 13
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
    end
    object CheckBox_VerCode: TCheckBox
      Left = 211
      Top = 160
      Width = 65
      Height = 17
      Caption = #38450#33073#26426
      Checked = True
      State = cbChecked
      TabOrder = 14
    end
    object Edit_VerCode: TEdit
      Left = 211
      Top = 184
      Width = 57
      Height = 20
      TabOrder = 15
      Text = '20030705'
    end
    object CheckBox_Wg: TCheckBox
      Left = 211
      Top = 206
      Width = 83
      Height = 17
      Caption = #38450#24694#24847#22806#25346
      Checked = True
      State = cbChecked
      TabOrder = 16
    end
    object Button5: TButton
      Left = 291
      Top = 201
      Width = 80
      Height = 25
      Caption = #25351#23450#24694#24847#22806#25346
      TabOrder = 17
      OnClick = Button5Click
    end
  end
  object Panel2: TPanel
    Left = 377
    Top = 0
    Width = 297
    Height = 253
    Align = alClient
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 54
      Width = 78
      Height = 12
      Caption = 'Web'#26381#21153#30446#24405#65306
    end
    object Label2: TLabel
      Left = 103
      Top = 125
      Width = 36
      Height = 12
      Caption = #25490#34892#21069
    end
    object Label3: TLabel
      Left = 103
      Top = 160
      Width = 36
      Height = 12
      Caption = #25490#34892#21069
    end
    object Label4: TLabel
      Left = 103
      Top = 195
      Width = 36
      Height = 12
      Caption = #25490#34892#21069
    end
    object Label14: TLabel
      Left = 129
      Top = 9
      Width = 24
      Height = 12
      Caption = #38388#38548
    end
    object Label15: TLabel
      Left = 185
      Top = 9
      Width = 72
      Height = 12
      Caption = #23567#26102#29983#25104#25490#34892
    end
    object Label17: TLabel
      Left = 189
      Top = 125
      Width = 12
      Height = 12
      Caption = #20301
    end
    object Label18: TLabel
      Left = 189
      Top = 160
      Width = 12
      Height = 12
      Caption = #20301
    end
    object Label19: TLabel
      Left = 189
      Top = 195
      Width = 12
      Height = 12
      Caption = #20301
    end
    object Label20: TLabel
      Left = 8
      Top = 230
      Width = 84
      Height = 12
      Caption = #25351#23450#34892#20250#25968#25454#65306
    end
    object Label_Warining: TLabel
      Left = 9
      Top = 28
      Width = 8
      Height = 13
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Memo_DElProc: TMemo
      Left = 0
      Top = 368
      Width = 3000
      Height = 89
      Lines.Strings = (
        
          'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
          '.[Add_User]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
        'drop procedure [dbo].[Add_User]'
        
          'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
          '.[Find_Quiz]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
        'drop procedure [dbo].[Find_Quiz]'
        
          'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
          '.[Find_Pass]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
        'drop procedure [dbo].[Find_Pass]'
        
          'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
          '.[Edit_Pass]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
        'drop procedure [dbo].[Edit_Pass]')
      TabOrder = 0
      Visible = False
      WantReturns = False
    end
    object Memo_AddUser: TMemo
      Left = 0
      Top = 384
      Width = 2000
      Height = 89
      Lines.Strings = (
        'CREATE PROCEDURE [dbo].[Add_User]'
        
          ' @uid char(18)='#39#39',@UserName Char(20)='#39#39',@birthDay Char(10)='#39#39',@P' +
          'hone Char(14)='#39#39',@SSNo Char(18)='#39#39',@Email Char(20)='#39#39',@quest1 ch' +
          'ar(40)='#39#39',@answer1 char(40)='#39#39',@quest2 char(40)='#39#39',@answer2 char' +
          '(40)='#39#39',@password char(14)='#39#39
        'AS'
        ' begin tran'
        '  if @birthday='#39#39
        '  begin'
        '   Set @birthday='#39'1900-01-01'#39
        '  end'
        
          ' if @uid='#39#39' or @quest1='#39#39' or @quest2='#39#39' or @answer1='#39#39' or @answe' +
          'r2='#39#39' or @password='#39#39' or @uid=null or @quest1=null or @quest2=nu' +
          'll or @answer1=null or @answer2=null or @password=null'
        ' begin'
        '   ROLLBACK'
        '   return (1)'
        ' end'
        
          ' if  exists(select FLD_LOGINID  from dbo.TBL_ACCOUNT where FLD_L' +
          'OGINID=@UID)'
        ' begin'
        '    ROLLBACK'
        '    return (2)'
        '  return'
        ' end'
        
          ' insert into dbo.TBL_ACCOUNTADD (FLD_LOGINID,FLD_SSNO,FLD_BIRTHD' +
          'AY,FLD_PHONE,FLD_EMAIL,FLD_QUIZ1,FLD_ANSWER1,FLD_QUIZ2,FLD_ANSWE' +
          'R2,FLD_PSSNO,FLD_USERNAME) values(@uid,@ssno,@birthday,@phone,@e' +
          'mail,@quest1,@answer1,@quest2,@answer2,@password,@username)'