13518219792
假设已经链接了数据库的情况下，用以下两种方法：
成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、做网站、杭锦后网络推广、重庆小程序开发、杭锦后网络营销、杭锦后企业策划、杭锦后品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供杭锦后建站搭建服务，24小时服务热线：18980820575，官方网址：www.cdcxhl.com
1、执行SQL语句
(mysql数据库句柄,
“update
users
set
name='”
＋
编辑框1.内容＋
“
where
条件）’（条件根据自己的情况填写，这是更新原有记录）
2、执行SQL语句
(mysql数据库句柄,
“insert
into
users(name)
values
('”
＋
编辑框1.内容
＋
“')”)（这是添加一条新记录）
改成以下写法可知道执行是否成功
：
如果（执行SQL语句
(mysql数据库句柄,
“update
users
set
name='”
＋
编辑框1.内容＋
“
where
条件））‘（条件根据自己的情况填写，这是更新原有记录）
/在模块里编写（新建模块）
Public comm As New ADODB.Command
Public conn As New ADODB.Connection
Public uname As String
Public pwd As String
Public ulevel As Integer
Sub main()
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wow;Data Source=."
conn.Open
Form1.Show
End Sub
'判断登陆是否成功（封装函数）
Public Function isLogin(uname, pwd, ulevel) As Boolean
Dim flag As Boolean
comm.ActiveConnection = conn
comm.CommandType = adCmdStoredProc
comm.CommandText = "isLogin"
comm.Parameters(1).Type = adVarChar
comm.Parameters(1).Size = 50
comm.Parameters(1).Direction = adParamInput
comm.Parameters(1).Value = uname
comm.Parameters(2).Type = adVarChar
comm.Parameters(2).Size = 50
comm.Parameters(2).Direction = adParamInput
comm.Parameters(2).Value = pwd
comm.Parameters(3).Type = adInteger
comm.Parameters(3).Size = 4
comm.Parameters(3).Direction = adParamInput
comm.Parameters(3).Value = ulevel
comm.Parameters(4).Type = adInteger
comm.Parameters(4).Size = 4
comm.Parameters(4).Direction = adParamOutput
comm.Execute
If comm.Parameters(4).Value 0 Then
flag = True
Else
flag = False
End If
isLogin = flag
End Function
/在登陆窗体中调用封装函数实现登陆判断
Private Sub Command1_Click()
Dim uname As String
Dim pwd As String
Dim ulevel As Integer
uname = Text1.Text
pwd = Text2.Text
If Combo1.Text = "管理员" Then
ulevel = 1
Else
ulevel = 0
End If
If isLogin(uname, pwd, ulevel) Then
MsgBox "登陆成功", vbOKOnly, "提示"
Form2.Show
Unload Me
Else
MsgBox "登录失败", vbOKOnly, "提示"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Form3.Show
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "管理员"
Combo1.AddItem "用户"
End Sub
/在MYSQL企业管理器中编写存储过程：（选中以下编写的内容并执行即可生成存储过程）
create proc isLogin @uname varchar(50), @pwd varchar(50),@ulevel int, @flag int output
as
declare @count int
select @count=count(*) from [user] where
uname=@uname and pwd=@pwd and ulevel=@ulevel
if @count0
set @flag=1
else
set @flag=0
create proc AddUser @uname
看你是要用哪种语言啦一、 如果你用C1、Turboc DOS经典编译软件2、Win-TC 图形化编译软件，其特点是容量小3、VC++ 微软件开发的，主要是用来弄C++的，不过因为他支持中文显示，做为C的开发也很不错二、如果你是搞VB、VS等的你可以直接下载一个Microsoft Visual 集成，里面包含有VC++、VS、VB等编译软件三、如果你是要搞JAVA的1、你如果自认为自己写代码很牛，那你就去下载个一java编译器就行了，代码用记事本写2、不然你就去下载下JDK四、搞汇编的1、Masm集成实验环境还是很不错的五、搞网站开发的（1）asp，把你的电脑IIS配置好，不用软件，一个记事本一样搞定（2）PHP 那你就得去下载Apache、php5.0、Mysql，一样，代码用记事本就能搞定，前软件只是构建一个环境 （3）Drewawear应该少不了啦暂就这些，都是我用过的
