灰色按钮激活器:急救～VB SQL 编程问题？

本人给你讲解下，首先创建SQL数据库和表，数据库名为"input"，表共有两张，分别为"userinformation"用户登陆信息的表，字段为"name"保存用户名，"pwd"，用户密码，"name"字段设置为主键,再建一张表"inputdata"，字段和你所要的一样，由于时间关系就省略了各队累计收入字段，本人已写好SQL脚本，可以直接复制进“SQL查询分析器”运行即可产生你要的数据库，代码如下：
use master
GO

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'input')
DROP DATABASE [input]
GO

CREATE DATABASE [input] ON (NAME = N'input_Data', FILENAME = N'D:\Program Files\Microsoft SQL Server\MSSQL\Data\input_Data.MDF' , SIZE = 1, FILEGROWTH = 10%) LOG ON (NAME = N'input_Log', FILENAME = N'D:\Program Files\Microsoft SQL Server\MSSQL\Data\input_Log.LDF' , SIZE = 1, FILEGROWTH = 10%)
COLLATE Chinese_PRC_CI_AS
GO

use [input]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[inputdata]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[inputdata]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[userinformation]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[userinformation]
GO

CREATE TABLE [dbo].[inputdata] (
[队别] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[日期] [datetime] NULL ,
[地点] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[收入] [int] NULL ,
[备注] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

CREATE TABLE [dbo].[userinformation] (
[name] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[pwd] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO
接下来就是创建数据源了，这里以创建文件数据源为例。打开控制面板，打开“管理工具”,打开数据源(ODBC)对话框，选择“文件DSN”，选择“添加”，数据源驱动程序选择“SQL Server”,点击下一步，在输入框中输入"input",下一步，点击完成，在新出现的画面中的服务器选择框中输入你的SQL服务器名称，下一步，选择使用用户输入登陆ID和SQL密码验证方式，下面的登陆ID框中输入"sa"，密码为空，下一步，勾选“更改默认数据库”,选择刚创建的数据库"input"，下一步，点击完成，测试数据院配置成功，到此数据源配置结束。
注意：你的SQL安全性验证应改为“使用用户输入登陆ID和SQL密码验证方式”，可打开“企业管理器”进行更改，展开“SQL SERVER组”下的服务器，在服务器名上右击选择“属性”里的“安全性”，将身份验证改为“SQL SERVER和windows”，下面的用户帐户选择“系统帐户”（是默认选择）
启动VB6，选择“工程-引用”，选择“Microsoft ActiveX Data Objects 2.0 Library”，或者是更高版本。
下面是编写数据库连接模块的代码：
Function Connection() As String
Connection = "FileDSN=input.dsn;UID=sa;PWD="
'连接到文件型DSN(数据源),UserID=sa,password=""

End Function
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
'创建一个新的ADODB连接对象
Dim rst As New ADODB.Recordset
'创建一个新的ADODB记录对象
cnn.Open Connection
'打开数据库连接
rst.Open "select * from userinformation", cnn, adOpenKeyset, adLockOptimistic
'打开数据库中的"userinformation"表

End Sub
这段代码可以放在登陆窗体中，以上已经将"userinformation"表打开了，要添加用户可以使用rst对象的AddNew方法，如:
rst.AddNew
with rst
.Fields (0)="Admin"'第一个字段的下标为0
.Fields (1)="122"'密码
end with
rst.update'更新数据库，即保存刚添加的记录
登陆成功后，可以使用类似的方法对“inputdata”表进行操作，这里本人不再详述，如与问题可与我联系
QQ：59742562

新建->应用程序向导, 一路下一步, 在"数据窗体向导-数据库类型"时选择你的数据库, 这样很容易生成你那个程序.

你先在管理工具->ODBC数据源中建立SQL的数据源
或不用SQL, 直接用ACCESS数据库

如果你老是靠别人帮你
你永远也成不了程序高手
你的问题看起来挺简单

呵呵，我会，可是我时间有限:(，这个东西说起来太困难了！

这么简单的东西自己做不出来吗。