好久没写博克了，一是工作忙，二是最近感冒了。现在终于好了一点。
园子里好像在谈论OO、命根子，我也说两句吧。命根子嘛，我觉得是竞争力，呵呵，不多说了，免得跑题。我主要想说的是我写代码的方式。
这里呢我利用我常用的东东写个实例，抛砖引玉，大家也都来批批，帮助我提高嘛。
我常用的呢是 数据访问层（简单理解是SQLHelp，但是绝不等于）、分页控件等自定义控件、UserControl等。
实例呢就是做一个很简单的“企业管理器”，等等，不要想的太远，我没想做那么大，我只想达到如下几个功能即可。
1、显示SQL里面的数据库名。
2、根据选择的数据库名显示数据库里的表名。
3、选择一个表然后以分页的方式显示数据。
4、对数据可以进行查询。（不好意思，还没完成）
5、对选择的数据可以编辑，可以添加、删除数据。（不好意思还是没有完成）。
ps:
什么？您问，还有两项没有完成就赶往外发？说实在的，代码在上个星期日就写完了，可是上不了网，就一直延误下来了。我想还是先发出来，然后再打不定吧，呵呵。如果大家都不感兴趣呢，那我也就省事了。
先发一个效果图吧。
图片是以NorhWind数据库里的Orders表为例。
环境介绍
对照环境：使用数据库作持久化的项目。
数据库：SQL2000 、SQL2005 。SQL2008 还没有安装，所以不知道是否支持
编程语言：Asp.net(C#)。B/S
代码行数：150多行（/zh/Default.aspx得后置代码，目前的功能）。
基本上没有OO，顶多也就是基于OO。其实还是面向过程的思路，代码有点乱，还没有整理。
基本上是一层的，但是也不是说没有分层。粉煤分层的就不讨论了，没有甚么意义，呵呵。
优点：
1、代码少，我觉得代码少意味着开发速度快，好维护。
2、利用一个控件来实现分页的功能，而要实现这个分页功能不需要在数据库里添加存储过程，只需要给分页控件设置几个属性就可以了。
3、分页效率高，如果谁有海量数据可以来测试一下。
4、读取SQL 里的数据库名、表名、字段名的方法。（可能您早就知道了）
不足：
不好意思分页控件的详细用法还没有写呢。明天补充。
另外是用VS2003写的，还没有升级到VS2005 。不过数据库倒是可以用SQL 2005 。
另外把代码拷到VS2005里面也是可以正常运行的吧。
下面不知道该写点什么了，先这样吧，呵呵。
对了忘记上传文件了。
<a href="http://files.cnblogs.com/jyk/ys.rar">http://files.cnblogs.com/jyk/ys.rar</a>
分页控件的源码。
<a href="http://www.naturefw.com">http://www.naturefw.com</a>
（一开始的写错了，现已更正，多谢 “被你烧了” 提醒）
还是直接发个源码吧。
1
//实例化数据访问层
2
DataAccessLayer dal = new DataAccessLayer();
3
//连接master数据库
4
DataAccessLayer dal_DB = new DataAccessLayer();
5
6
控件#region 控件
7
protected HBS.Controls.HBSTextBox Txt_SA;
8
protected HBS.Controls.HBSTextBox Txt_PWD;
9
protected HBS.Controls.HBSDropDownList Lst_DB;
10
protected HBS.Controls.HBSPage Page1;
11
protected HBS.Controls.HBSTextBox Txt_SL;
12
protected System.Web.UI.WebControls.DataGrid DG;
13
protected System.Web.UI.WebControls.Button Btn_Open;
14
protected System.Web.UI.WebControls.DataList DL;
15
#endregion
16
17
private void Page_Load(object sender, System.EventArgs e)
18
{
19
// 在此处放置用户代码以初始化页面
20
Response.Cache.SetNoStore();
21
Page1.PubShowDataObject = DG; //设置显示数据的控件，还可以是DataList、Repeater 等。
22
if (Page.IsPostBack)
23
24
if (Lst_DB.Items.Count > 1)
25
26
//设置分页控件的连接字符串。
27
string conn = GetConnString(Lst_DB.SelectedItem.Text);
28
Page1.PubConnString = conn ;
29
dal.cnString = conn;
30
}
31
}
32
}
33
34
打开系统数据库，以提取数据库名称的信息#region 打开系统数据库，以提取数据库名称的信息
35
private void Btn_Open_Click(object sender, System.EventArgs e)
36
37
dal_DB.cnString = GetConnString("master");
38
39
//显示数据库里的表名
40
Lst_DB.DataSource = dal_DB.RunSqlDataTable("select dbid as id,[name] as txt from sysdatabases ");
41
Lst_DB.DataBind();
42
43
44
45
根据数据库名显示数据库里的表。#region 根据数据库名显示数据库里的表。
46
private void Lst_DB_SelectedIndexChanged(object sender, System.EventArgs e)
47
48
//根据数据库名显示数据库里的表。
49
dal.cnString = GetConnString(Lst_DB.SelectedItem.Text);
50
51
52
string sql = "SELECT id, [name], xtype FROM dbo.sysobjects WHERE (xtype = 'u') AND (name <> N'dtproperties') order by [name]";
53
DL.DataSource = dal.RunSqlDataTable(sql);
54
DL.DataBind();
55
56
57
58
根据选择地表名设置分页控件#region 根据选择地表名设置分页控件
59
private void DataList1_ItemCommand(object source, System.Web.UI.WebControls.DataListCommandEventArgs e)
60
61
提取排序字段的信息#region 提取排序字段的信息
62
//分页显示表里的数据
63
string TableName = e.CommandArgument.ToString();
64
//查找表里的主键
65
string sql = "SELECT top 1 tbl.name AS TableName, tbl.xtype AS TableType, col.name AS FieldName,"
66
+ " tt.name AS FieldType, col.length AS FieldLength"
67
+ " FROM dbo.syscolumns col INNER JOIN"
68
+ " dbo.sysobjects tbl ON col.id = tbl.id INNER JOIN"
69
+ " dbo.systypes tt ON col.xtype = tt.xtype"
70
+ " WHERE (tbl.name = '"+ TableName +"') order by col.colorder ";
71
72
#endregion
73
74
string[] str = dal.RunSqlStrings(sql);
75
if (dal.ErrorMsg.Length >2)
76
77
Response.Write(dal.ErrorMsg);
78
return ;
79
80
81
if (str != null)
82
83
//设置分页控件
84
Page1.SqlTableNames = TableName; //表名或者视图名
85
Page1.SqlColumns = "*"; //显示的字段
86
Page1.SqlOrderColumn = str[2]; //排序字段
87
Page1.SqlOrderColumnKind = "string"; //排序字段的类型
88
Page1.SqlPageSize = 10; //一页的记录数
89
Page1.IsOrderDesc = true; //是否倒序
90
91
Page1.CreateQuery() ; //创建SQL语句
92
Page1.BindFirstPage(); //绑定第一页的数据
93
94
95
96
97
98
获取连接字符串#region 获取连接字符串
99
private string GetConnString(string DbName)
100
101
//处理数据库的实例名
102
string ShiLi = "";
103
if (this.Txt_SL .TextTrimNone.Length ==0)
104
ShiLi = ".";
105
else
106
ShiLi = ".\\" + this.Txt_SL.TextTrimNone;
107
108
//修改连接字符串
109
return "data source="+ ShiLi +";initial catalog="+ DbName +";persist security info=False;user id="+ this.Txt_SA.TextTrimNone +";pwd="+ this.Txt_PWD.TextTrimNone +";";
110
111
112