【自然架構】之滑鼠點功能現（二）：表單控件的“應用”—— 代碼？隻寫需要的！

<a href="http://www.cnblogs.com/jyk/archive/2009/06/20/1507283.html">【自然架構】之滑鼠點功能現（一）：單表的增删改查（即上次5月23日活動的一個主題）【Demo、源碼下載下傳】</a>

      看了大家的回複，好像不少人誤會了，我為了突出“滑鼠點，功能現”，是以沒有說代碼，沒有貼代碼，這就讓一些人認為我想要完全抛棄VS，自己寫一個“平台”來代替，不好意思，您高估我了，我可達不到。我隻是想“簡單的事情點滑鼠就可以了，複雜的事情就要寫代碼了”。

      還是舉例子吧。比如說上次裡的【表8：添加清單資訊】、【表9：功能按鈕】（添加按鈕）、【表12：修改查詢條件】、【表13：調整表單布局】

、【表15：修改字段配置資訊】、【表16：新聞管理】這幾個圖裡面的表單頁面，其實都是DataForm.aspx頁面，就是說他們使用的是同一個頁面。

 【表8：添加清單資訊】

      說到這裡您可能會想，這個頁面得多複雜呀，是不是要寫n多代碼呀？其實很簡單。貼個代碼：

.aspx頁面

 1 &lt;%@ Page validateRequest="false"  Language="C#" AutoEventWireup="true" CodeBehind="DataForm1.aspx.cs" Inherits="Nature.Manage.DataForm1" %&gt;

 2 

 3 &lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"&gt;

 4 

 5 &lt;html xmlns="http://www.w3.org/1999/xhtml" &gt;

 6 &lt;head runat="server"&gt;

 7     &lt;title&gt;&lt;%=this.Lbl_Title.Text %&gt;&lt;/title&gt;

 8     &lt;%=CssWeb%&gt; 

 9     &lt;script language="javascript" type="text/javascript" src="/public/js/myreturn.js"&gt;&lt;/script&gt;

10     &lt;script language="javascript" type="text/javascript" src="/public/js/check.js"&gt;&lt;/script&gt;

11     

12     &lt;script language="javascript" type="text/javascript"&gt;

13         var fid = "";

14         

15         fid = "&lt;%=ForeignID%&gt;";

16         function myCheck()

17         {

18             return CheckForm();

19         }

20     

21         function myLoad()

22         {

23             if (myTxtID)

24                 if (document.getElementById(myTxtID))

25                     document.getElementById(myTxtID).focus();

26                     

27             

28         }

29         

30     &lt;/script&gt;

31 &lt;/head&gt;

32 &lt;body&gt;

33     &lt;form id="form1" runat="server"&gt;

34     &lt;div style="width:100%; font-size:12pt; text-align: center;vertical-align:middle;"&gt;

35         &lt;asp:Label ID="Lbl_Title" runat="server" style="font-size:14pt; "&gt;&lt;/asp:Label&gt;

36     &lt;/div&gt;

37     &lt;div style="width:100%; text-align: center;vertical-align:middle;"&gt;

38         &lt;Nature:MyForm ID="myForm" runat="server" onformbinded="myForm_FormBinded" /&gt;

39         &lt;asp:Button ID="Btn_Save" runat="server" Text=" 保 存 " /&gt;

40 &amp;nbsp; 

41 &amp;nbsp;&lt;/div&gt;

42     &lt;/form&gt;

43 &lt;/body&gt;

44 &lt;/html&gt;

45 

一共就這麼幾行，主要是拽進來一個表單控件。

再看.aspx.cs頁面。

 1 using Nature;

 2 using Nature.Data;

 3 using Nature.Common;

 4 using Nature.WebControls;

 5 

 6 

 7 namespace Nature.Manage

 8 {

 9     /// &lt;summary&gt;

10     /// 通用表單頁面

11     /// &lt;/summary&gt;

12     public partial class DataForm1 : CommonClass.BasePageForm

13     {

14         protected void Page_Load(object sender, EventArgs e)

15         {

16 

17         }

18 

19         #region 儲存記錄，可以使添加，也可以是修改

20         protected override void Btn_Save_Click(object sender, EventArgs e)

21         {

22             this.myForm.SaveData();

23             Functions.PageRegisterJavascript(Page, "myReturn()");

24         }

25         #endregion

26 

27         #region 表單控件綁定後觸發的事件

28         protected void myForm_FormBinded(object sender, EventArgs e)

29         {

30 

31             //擷取表裡面的外鍵字段

32 

33             string ForeignColumnID = dal.ExecuteString("select ForeignColumnID from Manage_Function_Info where FunctionID = " + this.FunctionID);

34             if (ForeignColumnID != null)

35             {

36                 //查找外鍵對應的控件

37                 MyTextBox txt = (MyTextBox)myForm.FindControl("c_" + ForeignColumnID);

38                 if (txt != null)

39                     txt.Text = base.ForeignID;

40             }

41 

42         }

43         #endregion

44 

45     }

46 }

還是這麼幾行，一點都不複雜，這個頁面就是應對簡單的添加、修改用的，簡單的沒有特殊需求的都可以用這個頁面，但是如果遇到複雜的情況，那就要在單獨寫一個頁面了，比如前面的【表6：添加節點】，要添加一個子節點，就要對幾個字段進行計算，用這個頁面就不适合了，但是我不會為了讓DataForm.aspx能夠添加節點，而去修改這個頁面，而是在單獨做一個頁面 —— NoteMod.aspx 在這個頁面裡實作添加節點的功能。對了，添加節點有特殊的地方，但是修改節點就沒有什麼特殊的了，對于修改節點，那麼就可以使用DataForm.aspx頁面了。

 NoteMod.aspx 的代碼：

 1 &lt;body&gt;

 2     &lt;form id="form1" runat="server"&gt;

 3     &lt;div style="width:100%; font-size:12pt; text-align: center;vertical-align:middle;"&gt;

 4         &lt;asp:Label ID="Lbl_Title" runat="server" style="font-size:14pt; "&gt;&lt;/asp:Label&gt;

 5     &lt;/div&gt;

 6     &lt;div style="width:100%; text-align: center;vertical-align:middle;"&gt;

 7         &lt;Nature:MyForm ID="myForm" runat="server" onformbinded="myForm_FormBinded" /&gt;

 8         &lt;asp:Button ID="Btn_Save" runat="server" Text=" 保 存 " /&gt;

 9 &amp;nbsp; 

10 &amp;nbsp;&lt;/div&gt;

11     &lt;/form&gt;

12 &lt;/body&gt;

NoteMod.aspx.cs代碼：

  1

using Nature.User;

  2

using Nature;

  3

using Nature.Data;

  4

using Nature.Common;

  5

using Nature.WebControls;

  6

  7

namespace Nature.Manage

  8

{

  9

    /**//// &lt;summary&gt;

 10

    /// 功能節點的添加、修改

 11

    /// &lt;/summary&gt;

 12

    public partial class NoteMod : CommonClass.BasePageForm   

 13

 14

        protected void Page_Load(object sender, EventArgs e)

 15

 16

 17

        }

 18

 19

        儲存節點#region 儲存節點

 20

        protected override void Btn_Save_Click(object sender, EventArgs e)

 21

 22

            //判斷序号是否重複的。

 23

            MyTextBox txt = (MyTextBox)myForm.FindControl("c_1000090");

 24

            string sort = txt.Text;

 25

 26

            if (dal.ExecuteExists("select top 1 1 from Manage_Function where sort =" + sort))

 27

 28

                string parentPath = dal.ExecuteString("select  ParentIDPath FROM Manage_Function WHERE (FunctionID = " + this.DataID + ")");

 29

                if (parentPath != null)

 30

 31

                    dal.ExecuteNonQuery("update Manage_Function set sort = sort + 100 where ParentIDPath + ',' like '" + parentPath + ",%'  and sort &gt;= " + sort);

 32

                }

 33

            }

 34

 35

            this.myForm.SaveData();

 36

            Functions.PageRegisterJavascript(Page, "myReturn()");

 37

 38

        #endregion

 39

 40

        表單控件綁定後觸發的事件#region 表單控件綁定後觸發的事件

 41

        protected void myForm_FormBinded(object sender, EventArgs e)

 42

 43

            string FunctionID = "";

 44

 45

            擷取資料庫裡的最大的FunctionID#region 擷取資料庫裡的最大的FunctionID

 46

            FunctionID = dal.ExecuteString("select top 1 FunctionID from Manage_Function order by FunctionID desc ");

 47

            FunctionID = (Int32.Parse(FunctionID) + 1).ToString();

 48

 49

            SetFormControlValue(myForm, "1000010", FunctionID);//查找功能節點ID

 50

 51

            SetFormControlValue(myForm, "1000050", FunctionID);//查找權限辨別

 52

 53

            #endregion

 54

 55

 56

            //擷取是要添加子節點，還是兄弟節點

 57

            string addNoteKind = Request.QueryString["n"];

 58

            if (addNoteKind == "1")

 59

                AddSonNote();

 60

            else

 61

                AddBortherNote();

 62

 63

            設定添加人等#region 設定添加人等

 64

            SetFormControlValue(myForm, "1000130", MyUser.PersonID);//添加人

 65

            SetFormControlValue(myForm, "1000150", MyUser.PersonID);//修改人

 66

            SetFormControlValue(myForm, "1000120", DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"));//添加日期

 67

            SetFormControlValue(myForm, "1000140", DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"));//修改日期

 68

 69

 70

 71

 72

 73

        添加子節點#region 添加子節點

 74

        /**//// &lt;summary&gt;

 75

        /// 添加子節點

 76

        /// &lt;/summary&gt;

 77

        private void AddSonNote()

 78

 79

            設定其他資訊#region 設定其他資訊

 80

            //                                                          0           1           2       3       4       5

 81

            string[] funInfo = dal.ExecuteStringsBySingleRow("select ParentID, ParentIDPath, NoteLevel, Sort, WebURL, Target FROM Manage_Function WHERE (FunctionID = " + this.DataID + ")");

 82

            if (funInfo != null)

 83

 84

                //設定父節點

 85

                SetFormControlValue(myForm, "1000020", this.DataID );//查找父節點

 86

 87

                //設定父節點路徑

 88

                SetFormControlValue(myForm, "1000032", funInfo[1] + "," + this.DataID);//查找父節點路徑

 89

 90

                //設定級數

 91

                SetFormControlValue(myForm, "1000060", (Int32.Parse(funInfo[2]) + 1).ToString());//查找級數

 92

 93

                //設定網址

 94

                SetFormControlValue(myForm, "1000100", funInfo[4]);//查找網址

 95

 96

                //設定目标

 97

                SetFormControlValue(myForm, "1000110", funInfo[5]);//查找目标

 98

 99

                設定序号，子節點的情況#region 設定序号，子節點的情況

100

                //擷取指定的節點的所有子節點的最大序号序号。如果有則+100設定，等真正儲存的時候在修改後面的序号。

101

                //如果沒有則本序号 + 100。

102

103

                string sql = "select top 1 Sort from Manage_Function where ParentIDPath + ',' like '" + funInfo[1] + "," + this.DataID + ",%' and Sort &gt; " + funInfo[3] + " order by sort desc";

104

                string sort = dal.ExecuteString(sql);

105

                if (sort != null)

106

107

                    //有子節點，設定序号

108

                    SetFormControlValue(myForm, "1000090", (Int32.Parse(sort) + 100).ToString());

109

110

                else

111

112

                    //選中的節點沒有子節點

113

                    sort = (Int32.Parse(funInfo[3]) + 100).ToString();

114

115

                    //設定序号

116

                    SetFormControlValue(myForm, "1000090", sort);

117

118

119

                #endregion

120

121

122

123

124

125

126

127

128

129

        添加兄弟節點#region 添加兄弟節點

130

131

        /// 添加兄弟節點

132

133

        private void AddBortherNote()

134

135

136

            //擷取指定節點的資訊。

137

138

            string[] funInfo = dal.ExecuteStringsBySingleRow("select ParentID, ParentIDPath, NoteLevel, Sort, WebURL, Target FROM Manage_Function WHERE (FunctionID = "+this.DataID +")");

139

140

141

                //兄弟節點，下列資訊一緻

142

143

                SetFormControlValue(myForm, "1000020", funInfo[0]);//查找父節點

144

145

146

                SetFormControlValue(myForm, "1000032",funInfo[1] );//查找父節點路徑

147

148

149

                SetFormControlValue(myForm, "1000060",funInfo[2]);//查找級數

150

151

152

                SetFormControlValue(myForm, "1000100",funInfo[4]);//查找網址

153

154

155

                SetFormControlValue(myForm, "1000110",funInfo[5]);//查找目标

156

157

                設定序号，兄弟節點的情況#region 設定序号，兄弟節點的情況

158

                //擷取指定節點的下一個節點的序号。如果有下一個節點，則直接設定，等真正儲存的時候在修改後面的序号。

159

                //如果沒有則用指定節點的序号 + 100 。

160

161

                //擷取指定節點的下一個兄弟節點的序号

162

                string sql = "select top 1 Sort from Manage_Function where ParentID = " + funInfo[0] + " and Sort &gt; " + funInfo[3] + " order by sort";

163

164

165

166

                    //指定的節點有下一個兄弟節點，設定序号

167

168

169

170

171

                    //指定的節點有沒有下一個兄弟節點，判斷是否是一級節點，是的話，指定節點的序号 + 10000。

172

                    if (funInfo[0] == "0")

173

174

                        //一級節點

175

                        sort = (Int32.Parse(funInfo[3]) + 100000).ToString();

176

177

                        //設定序号

178

                        SetFormControlValue(myForm, "1000090", sort);

179

                    }

180

                    else

181

182

                        //非一級節點，尋找指定節點的子節點的最大的序号

183

                        sql = "select top 1 sort from Manage_Function where ParentIDPath + ',' like '" + funInfo[1] + ",%' order by sort desc ";

184

                        sort = dal.ExecuteString(sql);

185

                        if (sort != null)

186

                            sort = (Int32.Parse(sort) + 100).ToString();

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

        //一會移動到表單控件裡面

211

        protected void SetFormControlValue(MyForm form,string columnID,string value)

212

213

            WebControl webControl;

214

215

            webControl = (WebControl)form.FindControl("c_" + columnID);   //查找功能節點ID

216

            ((IControlMgr)webControl).ControlValue = value;

217

218

219

    }

220

}

這裡的代碼就複雜了一些，但是也是圍繞表單控件來做的。