59641314 发表于 2008-6-10 14:21:14

有高手看的懂下面的東西嗎

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form aski1
   BorderStyle   =   1'Fixed Single
   Caption         =   "Ask齞an Kurtar"
   ClientHeight    =   1980
   ClientLeft      =   8160
   ClientTop       =   6390
   ClientWidth   =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight   =   1980
   ScaleWidth      =   4680
   Begin VB.CommandButton Command1
      Caption         =   "Kurtar"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   11.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   0
      TabIndex      =   3
      Top             =   960
      Width         =   4695
   End
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   0
      TabIndex      =   2
      Top             =   480
      Width         =   4695
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
      Height          =   375
      Left            =   1560
      OleObjectBlob   =   "aski1.frx":0000
      TabIndex      =   1
      Top             =   0
      Width         =   1575
   End
   Begin ComctlLib.ProgressBar ProgressBar1
      Height          =   255
      Left            =   0
      TabIndex      =   0
      Top             =   1680
      Width         =   4695
      _ExtentX      =   8281
      _ExtentY      =   450
      _Version      =   327682
      Appearance      =   1
   End
   Begin ACTIVESKINLibCtl.Skin Skin1
      Left            =   4320
      OleObjectBlob   =   "aski1.frx":0072
      Top             =   0
   End
End
Attribute VB_Name = "aski1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Public Sub Baglan()
conn.Open "Driver={SQL Server};Server=127.0.0.1;Database=trayhoper;"
End Sub
Private Sub Command1_Click()
On Error GoTo hata:
Dim aski As String
Dim kul As String
kul = Text1.Text
aski = "DELETE FROM CURRENTUSER Where strAccountID = '" & kul & "' "
conn.BeginTrans
conn.Execute (aski)
conn.CommitTrans
MsgBox kul + " " + "isimli Karakter Ask齞an Kurtar齦d?...", vbInformation, "Ask齞an Kurtarma !"
hata:
MsgBox "Ger鏴kle?irilemiyor ...", vbCritical
End Sub
Private Sub Form_Load()
FileName = App.Path & "\TrySkin.skn"
Skin1.LoadSkin FileName
Skin1.ApplySkin Me.hWnd
ProgressBar1.Value = 0
Baglan
End Sub












是連接到數據庫的 不知道怎么弄

[ 本帖最后由 59641314 于 2008-6-10 06:23 编辑 ]

六脉神箭 发表于 2008-6-10 20:16:12

是VB代码，主要作用是登录器登录前的准备工作吧。相当于Launcher

ctgwglzc 发表于 2008-6-10 23:31:59

你从哪里复制的，都是些乱码

59641314 发表于 2008-6-11 01:11:21

是GM工具 好像是土文

ybh8191014 发表于 2008-6-12 22:03:11

conn.Open "Driver={SQL Server};Server=127.0.0.1;Database=trayhoper;"

你的数据库名称是“trayhoper”吗？
页: [1]
查看完整版本: 有高手看的懂下面的東西嗎