📄 unit_main.dfm
字号:
' if (@@error>0)'
' begin'
' ROLLBACK'
' return (3)'
' end'
' insert into dbo.TBL_ACCOUNT (FLD_LOGINID,FLD_PASSWORD,FLD_MAKET' +
'IME) values (@uid,@password,getdate())'
' if (@@error>0)'
' begin'
' ROLLBACK'
' return (4)'
' end'
'commit')
TabOrder = 1
Visible = False
WantReturns = False
end
object Memo_FindQuiz: TMemo
Left = 0
Top = 408
Width = 3000
Height = 89
Lines.Strings = (
'CREATE PROCEDURE [dbo].[Find_Quiz] @uid char(18)='#39#39',@quest1 char' +
'(40)='#39#39' OUTPUT,@quest2 char(40)='#39#39' OUTPUT'
'AS'
' begin tran'
' if @uid='#39#39' or @uid=null'
' begin'
' ROLLBACK '
' return (1)'
' end'
' if not exists(select FLD_LOGINID from dbo.TBL_ACCOUNT where F' +
'LD_LOGINID=@UID) '
'begin'
' ROLLBACK '
' return (2)'
' end'
' Select @quest1=FLD_QUIZ1,@quest2=FLD_QUIZ2 from dbo.TBL_ACCOUNT' +
'ADD Where FLD_LOGINID=@uid'
'commit')
TabOrder = 4
Visible = False
WantReturns = False
end
object StaticText1: TStaticText
Left = 16
Top = 8
Width = 102
Height = 17
BevelInner = bvLowered
BevelKind = bkSoft
Caption = #25490#34892#29983#25104#35774#32622#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object Edit_indexPath: TEdit
Left = 93
Top = 49
Width = 106
Height = 20
TabOrder = 9
end
object Button2: TButton
Left = 202
Top = 49
Width = 91
Height = 21
Caption = #26597#25214
TabOrder = 10
OnClick = Button2Click
end
object Edit_Level: TEdit
Left = 141
Top = 122
Width = 29
Height = 20
TabOrder = 11
Text = '10'
end
object UpDown1: TUpDown
Left = 170
Top = 122
Width = 15
Height = 20
Associate = Edit_Level
Min = 10
Position = 10
TabOrder = 12
end
object Edit_Gold: TEdit
Left = 141
Top = 157
Width = 29
Height = 20
TabOrder = 13
Text = '10'
end
object UpDown2: TUpDown
Left = 170
Top = 157
Width = 15
Height = 20
Associate = Edit_Gold
Min = 10
Position = 10
TabOrder = 14
end
object Edit_Guilds: TEdit
Left = 141
Top = 191
Width = 29
Height = 20
TabOrder = 15
Text = '10'
end
object UpDown3: TUpDown
Left = 170
Top = 191
Width = 15
Height = 20
Associate = Edit_Guilds
Min = 10
Position = 10
TabOrder = 16
end
object Check_LevelIndex: TCheckBox
Left = 8
Top = 124
Width = 93
Height = 17
Caption = #24320#21551#31561#32423#25490#34892
TabOrder = 17
end
object Edit_indexTime: TEdit
Left = 159
Top = 6
Width = 21
Height = 20
TabOrder = 18
Text = '1'
end
object Bt_Level: TButton
Left = 202
Top = 122
Width = 91
Height = 21
Caption = #27979#35797#31561#32423#25490#34892
TabOrder = 19
OnClick = Bt_LevelClick
end
object Memo_FindPass: TMemo
Left = 0
Top = 432
Width = 3000
Height = 89
Lines.Strings = (
'CREATE PROCEDURE [dbo].[Find_Pass] @uid char(18)='#39#39',@quest1 char' +
'(40)='#39#39',@answer1 char(40)='#39#39',@quest2 char(40)='#39#39',@answer2 char(4' +
'0)='#39#39',@password char(14)='#39#39' OUTPUT'
'AS'
' set @password='#39#26080#27861#25214#21040#39
' begin tran'
' if @uid='#39#39' or @quest1='#39#39' or @quest2='#39#39' or @answer1='#39#39' or @answe' +
'r2='#39#39' or @uid=null or @quest1=null or @quest2=null or @answer1=' +
'null or @answer2=null'
' begin'
' ROLLBACK'
' return (1)'
' end'
' if not exists(select FLD_LOGINID from dbo.TBL_ACCOUNT where F' +
'LD_LOGINID=@UID)'
' begin'
' ROLLBACK'
' return (2)'
' end'
'Select @password=FLD_PSSNO from dbo.TBL_ACCOUNTADD Where FLD_LOG' +
'INID=@uid and FLD_QUIZ1=@quest1 and FLD_QUIZ2=@quest2 and FLD_AN' +
'SWER1=@answer1 and FLD_ANSWER2=@answer2'
'commit')
TabOrder = 2
Visible = False
WantReturns = False
end
object Memo_EditPass: TMemo
Left = 0
Top = 464
Width = 3000
Height = 89
Lines.Strings = (
''
'CREATE PROCEDURE [dbo].[Edit_Pass] '
'@uid char(18)='#39#39',@oldpassword char(14)='#39#39',@newpassword char(14)=' +
#39#39'OUTPUT'
'AS'
' declare @tempPass char(14)'
' begin tran'
' if not exists(select FLD_LOGINID from dbo.TBL_ACCOUNT where F' +
'LD_LOGINID=@UID)'
' begin'
' ROLLBACK'
' return (1)'
' end'
' Select @temppass=FLd_PASSWORD from Tbl_Account where FLD_LOGINI' +
'D=@uid'
' if @oldpassword<>@temppass'
' begin'
' ROLLBACK '
' return (2)'
' end'
' Update Tbl_Account Set FLD_PASSWORD=@newpassword where FLD_LOGI' +
'NID=@uid'
' if (@@error>0) '
' begin '
' ROLLBACK '
' return (3)'
' end'
' Update Tbl_AccountADD Set FLD_PSSNO=@newpassword where FLD_LOGI' +
'NID=@uid'
' if (@@error>0) '
' begin '
' ROLLBACK '
' return (4)'
' end'
'commit')
TabOrder = 3
Visible = False
WantReturns = False
end
object Memo_Backup: TMemo
Left = 0
Top = 496
Width = 3000
Height = 89
Lines.Strings = (
'backup log Conlog with NO_LOG'
'backup log Conlog with TRUNCATE_ONLY'
'DBCC SHRINKDATABASE(Conlog)'
''
'backup log Manage with NO_LOG'
'backup log Manage with TRUNCATE_ONLY'
'DBCC SHRINKDATABASE(Manage)')
TabOrder = 5
Visible = False
WantReturns = False
end
object Memo_DelProcGame: TMemo
Left = 0
Top = 528
Width = 3000
Height = 89
Lines.Strings = (
'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
'.[Find_Char]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
'drop procedure [dbo].[Find_Char]'
'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
'.[Edit_Char]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
'drop procedure [dbo].[Edit_Char]'
'if exists (select * from sysobjects where id = object_id(N'#39'[dbo]' +
'.[Find_Storage]'#39') and OBJECTPROPERTY(id, N'#39'IsProcedure'#39') = 1)'
'drop procedure [dbo].[Find_Storage]')
TabOrder = 6
Visible = False
WantReturns = False
end
object Memo_FindChar: TMemo
Left = 0
Top = 568
Width = 3000
Height = 89
Lines.Strings = (
'Create PROCEDURE [dbo].[Find_Char] '
' @Uid char(18)='#39#39', @password char(15)='#39#39
'As'
' begin tran'
' Select A.FLD_Index, A.Fld_Character,A.Fld_Deleted from Tbl_Char' +
'acter A,Account..Tbl_Account B where A.Fld_UserId=B.Fld_LoginId ' +
'and B.Fld_LoginId=@uid and B.FLD_Password=@password'
' if (@@error>0) '
' begin '
' ROLLBACK '
' return (2)'
' end'
'commit')
TabOrder = 7
Visible = False
WantReturns = False
end
object Memo_EditChar: TMemo
Left = -4
Top = 592
Width = 3000
Height = 89
Lines.Strings = (
'Create PROCEDURE [dbo].[Edit_Char] '
' @Uid char(18)='#39#39', @password char(15)='#39#39',@idx int=0,@deleted in' +
't=0'
'As'
' begin tran'
' if not exists(Select A.Fld_Index from Tbl_Character A,Account..' +
'Tbl_Account B where A.Fld_UserId=B.Fld_LoginId and B.Fld_LoginId' +
'=@uid and B.FLD_Password=@password and A.Fld_index=@idx)'
' begin'
' ROLLBACK '
' return (1)'
' end'
''
' Update Tbl_character set Fld_deleted=@deleted where FLD_Index=(' +
'Select A.Fld_Index from Tbl_Character A,Account..Tbl_Account B w' +
'here A.Fld_UserId=B.Fld_LoginId and B.Fld_LoginId=@uid and B.FLD' +
'_Password=@password and A.Fld_index=@idx)'
' if (@@error>0) '
' begin '
' ROLLBACK '
' return (2)'
' end'
'commit')
TabOrder = 20
Visible = False
WantReturns = False
end
object Memo_FindStorage: TMemo
Left = -4
Top = 616
Width = 3000
Height = 89
Lines.Strings = (
'Create PROCEDURE [dbo].[Find_Storage] '
' @Uid char(18)='#39#39', @password char(15)='#39#39
'As'
' begin tran'
' Select A.FLD_Index, A.Fld_Character,A.Fld_StoragePassWd from Tb' +
'l_Character A,Account..Tbl_Account B where A.Fld_UserId=B.Fld_Lo' +
'ginId and B.Fld_LoginId=@uid and B.FLD_Password=@password'
' if (@@error>0) '
' begin '
' ROLLBACK '
' return (2)'
' end'
'commit'
''
' ')
TabOrder = 21
Visible = False
WantReturns = False
end
object Button4: TButton
Left = 16
Top = 83
Width = 115
Height = 25
Caption = #25351#23450#19981#21442#19982#25490#34892'ID'
TabOrder = 22
OnClick = Button4Click
end
object Check_GoldIndex: TCheckBox
Left = 8
Top = 159
Width = 93
Height = 17
Caption = #24320#21551#36130#23500#25490#34892
TabOrder = 23
end
object Check_Guildindex: TCheckBox
Left = 8
Top = 194
Width = 93
Height = 17
Caption = #24320#21551#34892#20250#25490#34892
TabOrder = 24
end
object Bt_Gold: TButton
Left = 202
Top = 157
Width = 91
Height = 21
Caption = #27979#35797#36130#23500#25490#34892
TabOrder = 25
OnClick = Bt_LevelClick
end
object Bt_Guild: TButton
Left = 202
Top = 191
Width = 91
Height = 21
Caption = #27979#35797#34892#20250#25490#34892
TabOrder = 26
OnClick = Bt_LevelClick
end
object Edit_GuildPath: TEdit
Left = 93
Top = 225
Width = 106
Height = 20
TabOrder = 27
end
object Button7: TButton
Left = 202
Top = 225
Width = 91
Height = 21
Caption = #26597#25214
TabOrder = 28
OnClick = Button7Click
end
end
object Panel3: TPanel
Left = 0
Top = 253
Width = 674
Height = 41
Align = alBottom
TabOrder = 2
object suiURLLabel1: TsuiURLLabel
Left = 16
Top = 20
Width = 233
Height = 13
Cursor = crHandPoint
Caption = #26356#26032#29256#26412','#35831#20851#27880#65306'www.91Go.net'
AutoSize = False
URL = 'http://bbs.91go.net'
FontHoverColor = clRed
FontLinkColor = clBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
end
object Button1: TButton
Left = 274
Top = 9
Width = 94
Height = 25
Caption = #24320#21551#26381#21153
Enabled = False
TabOrder = 0
OnClick = Button1Click
end
end
object SSocket: TServerSocket
Active = False
Port = 0
ServerType = stNonBlocking
OnClientConnect = SSocketClientConnect
OnClientDisconnect = SSocketClientDisconnect
OnClientRead = SSocketClientRead
OnClientError = SSocketClientError
Left = 176
end
object Timer_Recv: TTimer
Interval = 10
OnTimer = Timer_RecvTimer
Left = 219
Top = 34
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=MSDASQL.1;Password=dellrise;Persist Security Info=True;' +
'User ID=sa;Data Source=Account'
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 920
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -