| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1489 人关注过本帖
标题:我把一个数据管理系统分为三层好不好(具体请看)
只看楼主 加入收藏
r316999443
Rank: 7Rank: 7Rank: 7
来 自:星城长沙
等 级:黑侠
威 望:1
帖 子:597
专家分:501
注 册:2006-11-7
结帖率:80%
收藏
 问题点数:0 回复次数:14 
我把一个数据管理系统分为三层好不好(具体请看)
第一层:用户进行各总操作的界面
第二层:哪种性质的操作
第三层:SQL语句的执行

谁有没有更好的方法,望各位能教我下.
搜索更多相关主题的帖子: 数据管理 SQL 系统 语句 界面 
2007-11-12 17:37
挥动
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2007-11-7
收藏
得分:0 
具体问题具体分析~~

别人笑我忒疯癫,我笑别人看不穿!
2007-11-13 09:18
pjm168
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-11-8
收藏
得分:0 
我想也是
2007-11-13 09:24
r316999443
Rank: 7Rank: 7Rank: 7
来 自:星城长沙
等 级:黑侠
威 望:1
帖 子:597
专家分:501
注 册:2006-11-7
收藏
得分:0 
以下是引用挥动在2007-11-13 9:18:06的发言:
具体问题具体分析~~

谢拉~!:)

2007-11-13 11:42
中国男孩
Rank: 1
等 级:新手上路
帖 子:291
专家分:7
注 册:2006-3-19
收藏
得分:0 

具体写出来


我很想把计算机学好!!
2007-11-14 00:26
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用r316999443在2007-11-12 17:37:26的发言:
第一层:用户进行各总操作的界面
第二层:哪种性质的操作
第三层:SQL语句的执行

谁有没有更好的方法,望各位能教我下.

支持这种做法,好处是便于修改差错和以后的系统功能升级。
不过要注意的是,这样做的前提是必须设计好良好的代码架构。
比如这种办法
DataAccess.asp
<%
'数据库访问类
Class DataAccess
Dim con
Dim rs
Private ConStr
Public Property Let ConnectionString(vData)
ConStr=vData
End Property
Public Property Get ConnecitonString()
ConnecitonString=ConStr
End Property
Public Sub Init()
Set con=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
End Sub
Public Sub OpenDataBase()
con.Open ConStr
End Sub
Public Function getRecordSet(Sql,adLock,adCurrent)
rs.Open Sql adLock,adCurrent
Set getRecordSet=rs
End Function
Public Sub ExecuteSql(Sql)
con.Execute Sql
End Sub
Public Sub Close(rs)
rs.Close
con.Close
Set rs=Nothing
Set con=Nothing
End Sub
End Class
%>
<%
'用户类
Class User
Private mUserName
Private mPassword
Private mDBAss
Public Property Let DataAccess(vData)
Set mDBAss=vData
End Property
Public Property Get DataAccess()
Set DataAccess=mDBAss
End Property
Public Property Let UserName(vData)
mUserName=vData
End Property
Public Property Get UserName()
UserName=mUserName
End Property
Public Property Let Password(vData)
mPassword=vData
End Property
Public Property Get Password()
Password=mPassword
End Property
'登陆方法
Public Function Login()
Dim tSql,rs
tSql="select * from [user] where UserName='"&mUserName&"' And Password='"&mPassword&"'"
Set rs=mDBAss.getRecordSet(tSql,1,1)
IF rs.EOF Then
Login=False
Else
Login=True
End IF
mDBAss.Close rs
End Function
End Class
%>
登陆页面
Login.asp
<!--#include file="DataAccess.asp"-->
<!--#include file="User.asp"-->
<%
Dim mDB,oUs
Set mDB=New DataAccess
Set oUs=New User
mDB.ConnectionString="数据库连接字符串"
Call mDB.Init()
Call mDB.OpenDataBase()
oUs.DataAccess=mDB
oUs.UserName=Request.Form("UserName")
oUs.Password=Request.Form("Password")
IF oUser.Login()=False Then
Response.Write "用户名或密码错误"
Else
Response.Redirect "跳转到登陆后的页面"
End IF
%>

2007-11-14 08:56
r316999443
Rank: 7Rank: 7Rank: 7
来 自:星城长沙
等 级:黑侠
威 望:1
帖 子:597
专家分:501
注 册:2006-11-7
收藏
得分:0 
更感谢"yms123"(昨天怎么呢? BC-CN 老是登不上来)

我用已经把把用户 注册 登陆 管理员 界面 都做好了
可麻烦又来了 界面美工 排版问题 头疼了~~~

2007-11-14 15:04
r316999443
Rank: 7Rank: 7Rank: 7
来 自:星城长沙
等 级:黑侠
威 望:1
帖 子:597
专家分:501
注 册:2006-11-7
收藏
得分:0 
回复:(yms123)以下是引用r316999443在2007-11-12 1...
这是用VB写的吗
2007-11-14 15:08
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
楼主的系统是一个人写?
2007-11-15 00:33
r316999443
Rank: 7Rank: 7Rank: 7
来 自:星城长沙
等 级:黑侠
威 望:1
帖 子:597
专家分:501
注 册:2006-11-7
收藏
得分:0 
回复:(yms123)楼主的系统是一个人写?
不是,我和寝室2个室友一起来完成  第一次弄这个 感觉挺麻烦的
2007-11-15 08:59
快速回复:我把一个数据管理系统分为三层好不好(具体请看)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021021 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved