|
第五章 5．1系统功能 1.统计符合各个属性的人数各有多少; copyright paper51.com 2.以户和楼为单位,每家要与门牌号对应,因为每家的门牌号是要经常换的; paper51.com
3.查询要可以按照各个属性,要是查询整个楼的也可以,比如说1号楼工有几家; http://www.paper51.com 4.插入,删除,修改尽量的方便; 内容来自www.paper51.com 5．2 概要设计 copyright paper51.com e-r图 内容来自www.paper51.com
paper51.com
paper51.com 第六章 内容来自论文无忧网 www.paper51.com
系统具体实现 copyright paper51.com 用户登陆 copyright paper51.com 在工程引用ADO2.0。 copyright paper51.com
在命令按钮单击写下连接数据库USER表的判断语句 paper51.com Private Sub Command1_Click() http://www.paper51.com denlu_name = Text1.Text 定义登陆名变量 http://www.paper51.com denlu_pass = Text2.Text 定义登陆密码变量 paper51.com Dim mycn As New ADODB.Connection 定义ADO连接 内容来自论文无忧网 www.paper51.com Dim myrs As New ADODB.Recordset 定义ADO记录集 内容来自www.paper51.com Set myrs = New ADODB.Recordset http://www.paper51.com mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=rsgl.mdb;" paper51.com myrs.Open "SELECT * FROM[user] where (user.user)='" + mname + "'and jibie='"+ jibie + "';", mycn,adOpenKeyset, adLockOptimistic paper51.com 设置ADO记录集的路径并打开数据库，用SQL 打开表 copyright paper51.com
If myrs.BOF = True And myrs.EOF = True Then 如果没找到 copyright paper51.com
MsgBox "查无此人",, "登陆信息" 弹出信息"查无此人 copyright paper51.com Else 内容来自www.paper51.com If myrs("pass") = denlu_pass Then 如果找到 内容来自www.paper51.com 内容来自www.paper51.com '''''''''''''''''''''''''''''''''''''''''' paper51.com
MsgBox "ok", ,"登陆信息" 弹出信息"OK paper51.com jibie = myrs("jibie") 内容来自www.paper51.com MDIForm1.Show paper51.com Unload Me 关闭 内容来自论文无忧网 www.paper51.com 目的是USER表没有该用户，将无法使用本程序 内容来自www.paper51.com jibie = myrs("jibie") 内容来自论文无忧网 www.paper51.com 将公共变量jibie设为用户的身份 paper51.com 主界面的实现 http://www.paper51.com 用命令按钮工具在界面画出6个命令按钮：COMMAND。 内容来自www.paper51.com 在工程引用ADO2.0。 paper51.com Private Sub Command1_Click() paper51.com Form5.Show 内容来自www.paper51.com
End Sub 内容来自www.paper51.com
Private Sub Command2_Click() paper51.com
Form7.Show copyright paper51.com End Sub http://www.paper51.com Private Sub Command3_Click() copyright paper51.com
Form6.Show http://www.paper51.com
End Sub copyright paper51.com
Private Sub Command4_Click() http://www.paper51.com
Form1.Show 内容来自www.paper51.com End Sub 内容来自www.paper51.com
Private Sub Command5_Click() http://www.paper51.com
Form4.Show paper51.com End Sub 内容来自www.paper51.com
Private Sub Command6_Click() copyright paper51.com
Form3.Show copyright paper51.com End Sub copyright paper51.com Private Sub Command7_Click() 内容来自论文无忧网 www.paper51.com End 内容来自www.paper51.com
End Sub copyright paper51.com 打开各个界面 copyright paper51.com 2人口信息添加删除 内容来自论文无忧网 www.paper51.com Private Sub Command1_Click() paper51.com
On Error Resume Next 内容来自论文无忧网 www.paper51.com Adodc1.Recordset.AddNew 内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com Private Sub Command2_Click() copyright paper51.com On Error Resume Next paper51.com Adodc1.Recordset.Delete paper51.com End Sub paper51.com Private Sub Command3_Click() 内容来自www.paper51.com On Error Resume Next 内容来自论文无忧网 www.paper51.com Adodc1.Refresh paper51.com End Sub copyright paper51.com 3条件查询 内容来自论文无忧网 www.paper51.com 通过ADO控件连接到数据库的RS表，通过SQL语句 内容来自www.paper51.com bh = Text14.Text 内容来自论文无忧网 www.paper51.com Adodc1.RecordSource = "select * from xc where 人口信息名称='"+ bh + "'" 内容来自www.paper51.com Adodc1.Refresh 内容来自论文无忧网 www.paper51.com 筛选出全部记录 http://www.paper51.com 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。 copyright paper51.com
|