Question

我要做一个VB+SQL的信息录入（包括添加，删除等基本的录入功能）+查询功能的小软件

内容： 表就一个，一共有6个字段，为项目编号（宽度越大越好，有数字有英文），项目名称（比如：交通信号系统）（宽度也大点），项目负责人（2个人左右），项目参与者（宽度越大越好，人很多），项目开始时间（年月就行），项目结束时间（年月）
然后我有这些信息就把它们一一输入到软件里，然后保存到数据库中，我希望这个录入过程是单独一个界面，
然后我要查询的话希望方式能多点，比如能根据项目编号，或者根据项目开始时间，或者项目参与者中的其中一人，输个关键字就能把相关信息显示出来，这个我也希望是一个单独的显示信息的界面，
大概就是这个样子，希望各位高手能帮我这个忙，感激不尽

Answer 1

首先你必须添加三个控件combo，dategrid和adodc然后写这么一个函数
Public Function adodc(constring As String, adodc_name As adodc, grid As DataGrid)
Dim cnstr As String
cnstr = "driver={SQL Server};server=(local);uid=;pwd=;database=supermarket"
With adodc_name
.ConnectionString = cnstr
.CommandType = adCmdText
.RecordSource = constring
Set grid.DataSource = adodc_name
.Refresh
End With

End Function
用的时候只要改下数据库即可
然后写查询按钮的代码
Private Sub Command5_Click()
Dim mrc As ADODB.Recordset
Dim txtsql As String
If Trim(Combo2.Text) = "" Then
MsgBox "请选择查询方式"

ElseIf Trim(Combo2.Text) = "进价区间" Then
If Text2.Text = "" Or Text3.Text = "" Then
MsgBox "进价区间不能为空"
Else
txtsql = "select spbh as 商品编号 ,spmc as 商品名称 ,spdw as 商品单位,jhj as 进货价,xsj as 销售价 from sp where jhj between '" & CDbl(Trim(Text2.Text)) & "'and '" & CDbl(Trim(Text3.Text)) & "'"
Call adodc(txtsql, Adodc1, DataGrid1)
End If
ElseIf Trim(Combo2.Text) = "售价区间" Then
If Text2.Text = "" Or Text3.Text = "" Then
MsgBox "售价区间不能为空"
Else
txtsql = "select spbh as 商品编号 ,spmc as 商品名称 ,spdw as 商品单位,jhj as 进货价,xsj as 销售价 from sp where xsj between '" & CDbl(Trim(Text2.Text)) & "'and '" & CDbl(Trim(Text3.Text)) & "'"
Call adodc(txtsql, Adodc1, DataGrid1)
End If

End If

Text2.Text = ""
Text3.Text = ""
End Sub
你自己参照着改吧