好久没写博克了，一是工作忙，二是最近感冒了。现在终于好了一点。
园子里好像在谈论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里面也是可以正常运行的吧。
下面不知道该写点什么了，先这样吧，呵呵。
对了忘记上传文件了。
http://files.cnblogs.com/jyk/ys.rar
分页控件的源码。
http://www.naturefw.com
（一开始的写错了，现已更正，多谢 “被你烧了” 提醒）
还是直接发个源码吧。
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 #endregion
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 #endregion
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 #endregion
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 #endregion