สร้างตารางโดยอัตโนมัติ ลบ แก้ไข เติม ฟังก์ชันเพจ และปรับแต่ง
โค้ดสไตล์ส่วนหัวโดยใช้คลาสสองคลาส
ในตอนแรก ฉันคิดมากเกินไปและฟังก์ชันก็ทรงพลังเกินไป ยิ่งความเก่งกาจแข็งแกร่ง คลาส asp ก็จะทำงานช้าลง เริ่มแล้วสนใจน้อยลงในที่สุด ยังมีอีกหลายฟังก์ชั่นที่ยังทำไม่เสร็จ เช่น การตรวจสอบประเภทสนาม การแสดงรูปภาพ การควบคุม ฯลฯ มีการโพสต์โค้ดให้ทุกคนได้ศึกษาและศึกษาร่วมกัน ผู้ที่สนใจสามารถเพิ่ม
ตัวอย่างฟังก์ชันเหล่านี้ได้:
set a = new DataGrid
'a.Connstr="Provider=SQLOLEDB.1;User ID=sa;Password=servser;Initial Catalog=temp_blue;Data Source=server;Connect Timeout=30;Auto Translate=True;Packet Size=4096;"
a.Connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&" Data Source="&server.mappath("test.mdb") 'เชื่อมต่อสตริง ACCSS
a.SQLString="select * from table1" 'สร้างคำสั่ง sql สำหรับชุดบันทึกที่แสดงโดย DataGrid
a.isAddnew = 1 'ไม่ว่าจะสามารถเพิ่มบันทึกใหม่ได้หรือไม่
a.Table = "table1" 'ตารางหลักควบคุมโดย DataGrid
a.UniqueField = "ID" 'ฟิลด์ติดธง บันทึกทั้งหมดต้องไม่ซ้ำจำนวนเต็ม
a.PagePosition = "down" 'ตำแหน่งการแสดงเพจ ด้านบนขึ้น ด้านล่างลง ขึ้นลง บนและล่าง ส่วนอื่นๆ จะไม่แสดง
a.pagesize = 5 'แสดงจำนวนบันทึกต่อหน้า
a.Pagenumber = 10 'แสดงหมายเลขหน้า
a.BorderColor="#ff0000" 'ค่าเริ่มต้นคือการแสดงผลการแสดงผล
a.BackGround="#00ff00" 'ค่าเริ่มต้นคือการแสดงผลการแสดงผล
a.BorderWidth=1 ค่าเริ่มต้นคือ 1
a.
ชุด b1 = คอลัมน์ใหม่
b1.Field = "id" 'ฟิลด์ฐานข้อมูลที่เชื่อมโยงกับคอลัมน์นี้
b1.Title = "โลโก้" 'ชื่อเรื่อง
b1.Align = "กึ่งกลาง" ' การจัดตำแหน่ง
a.AddColumn(b1) 'แทรกคอลัมน์นี้ลงใน DataGrid
ชุด b2 = คอลัมน์ใหม่
b2.Field="ชื่อ"
b2.Title="นามสกุล"
a.AddColumn(b2)
ตั้ง b3 = คอลัมน์ใหม่
b3.Field = "นามสกุล"
b3.Title = "ชื่อ"
a.AddColumn(b3)
ตั้ง b4 = คอลัมน์ใหม่
b4.Field = "เวลาเข้าสู่ระบบ"
b4.Title = "จำนวนล็อกอิน"
b4.ReadOnly = true 'ตั้งค่าเป็นแบบอ่านอย่างเดียวและจะไม่ปรากฏในกล่องแก้ไขและบันทึกใหม่
a.AddColumn(b4)
ตั้ง b5 = คอลัมน์ใหม่
b5.Title="แก้ไข"
b5.Columntype ="แก้ไข" 'แก้ไขคอลัมน์
b5.EditCommandText = "แก้ไข" 'แก้ไขข้อความของปุ่ม
a.AddColumn(b5)
set b6 = คอลัมน์ใหม่
b6.align = "กึ่งกลาง"
b6.ความกว้าง = 200
b6.Columntype = "ลบ"
b6.DeleteCommandText = "ลบปุ่ม"
b6.Title="ลบ"
ก.เพิ่มคอลัมน์(b6)
a.CreateGrid()
ตั้ง b1 = ไม่มีเลย
ชุด b2 = ไม่มีเลย
ชุด b3 = ไม่มีเลย
ชุด b4 = ไม่มีเลย
ชุด b5 = ไม่มีอะไร
ชุด b6 = ไม่มีเลย
ไฟล์คลาสจะเป็นดังนี้:
<%Class DataGrid
หน้าส่วนตัว
strSQLString. ส่วนตัว
คอนเน็คชั่นสาธารณะ
คอลัมน์ส่วนตัว
ดัชนีส่วนตัว
strUniqueField ส่วนตัว strTable
ส่วนตัวอาร์เอส
strCellspacing ส่วนตัว, strCellpadding, strCssClass
ส่วนตัว strBorderColorDark,strBorderColorLight,strBackGroundColor
intBorderWidth ส่วนตัว
strHeadStyle ส่วนตัว strHeadBackgroundColor
strStyle ส่วนตัว strAlternateStyle
UniqueKey ส่วนตัว,dg_action,currPage
URL การดำเนินการส่วนตัว, URL หน้า, URL การดำเนินงาน, URL ของแบบฟอร์ม
ตำแหน่งหน้าสาธารณะ, ขนาดหน้า, หมายเลขหน้า
สาธารณะคือเพิ่มใหม่
Class_Initialize ส่วนตัว ()
ตั้งค่าคอลัมน์ = Server.CreateObject("Scripting.Dictionary")
ดัชนี = 0
ขนาดเพจ = 10
หมายเลขหน้า = 10
ตำแหน่งหน้า = "ขึ้นลง"
strSQLString = เซสชัน("DSN")
Uniquekey = คำขอ ("uniquekey")
dg_action = คำขอ ("dg_action")
currPage = คำขอ ("หน้า")
actionURL = Request.ServerVariables("Script_name") & "?page=" & currPage
ถ้า dg_action= "แก้ไข" ดังนั้น formURL = actionURL& "&dg_action=update&uniquekey="&uniquekey
operationURL = Request.ServerVariables("Script_name") & "?page=" & currPage& "&uniquekey=" & Uniquekey
pageURL = Request.ServerVariables("Script_name")&"?1=1"
ถ้า currPage = "" หรือ isnull(currPage) ดังนั้น currPage = 1
strBorderColorDark="#f7f7f7"
strBorderColorLight = "#cccccc"
strBackgroundColor = "#f7f7f7"
strHeadBackgroundColor = "#F2F2F2"
intBorderWidth = 1
strAlternateStyle="bgcolor=#f6f6f6"
คือเพิ่มใหม่ = 1
ตั้ง rs = Server.CreateObject("Adodb.Recordset")
จบหมวดย่อย
Class_Terminate ส่วนตัวย่อย ()
฿.ปิด
setrs=ไม่มีอะไร
ตั้งค่าคอลัมน์ = ไม่มีเลย
จบหมวดย่อย
ทรัพย์สินสาธารณะรับ SQLString()
SQLString = strSQLString
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ SQLString (ค่า)
strSQLString = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let Style(มูลค่า)
strStyle = ค่า()
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับสไตล์()
สไตล์ = strStyle
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ UniqueField(มูลค่า)
strUniqueField = lcase(ค่า)
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ UniqueField()
UniqueField = strUniqueField
สิ้นสุดคุณสมบัติ
ตารางให้ทรัพย์สินสาธารณะ(มูลค่า)
strTable = lcase(ค่า)
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ GetTable()
ตาราง = strTable
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ DbConn(มูลค่า)
strConn = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับเวอร์ชัน ()
เวอร์ชัน = "1.0"
คุณสมบัติสุดท้าย
อสังหาริมทรัพย์สาธารณะ ให้ Cellspacing(มูลค่า)
strcellspacing = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ Cellspacing()
ระยะห่างระหว่างเซลล์ = ระยะห่างระหว่างเซลล์
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ cellpadding(มูลค่า)
strcellpadding = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ cellpadding()
เซลล์แพดดิ้ง = strCellspacing
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ CssClass (มูลค่า)
strCssClass = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ CssClass()
CssClass = strCssClass
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ BorderColor(value)
strBorderColorDark = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ GetBorderColor()
BorderColor = strBorderColorDark
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let BackGround(มูลค่า)
strBorderColorDark = ค่า
strBackgroundColor = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ BackGround()
พื้นหลัง = strBorderColorLight
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ BorderWidth(value)
intBorderWidth = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ GetBorderWidth()
BorderWidth = intBorderWidth
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ nColumns (intIndex)
nkeys = คอลัมน์คีย์
nItems = คอลัมน์.รายการ
สำหรับ i = 0 ถึง Columns.Count - 1
ถ้า intIndex = nkeys(i) แล้ว
ตั้งค่า tmp = nItems (i)
สิ้นสุดถ้า
ต่อไป
ตั้งค่า nColumns = tmp
สิ้นสุดคุณสมบัติ
หน้าฟังก์ชั่นส่วนตัว (หน้ารวม, หมายเลขหน้า, หน้านี้)
MinPage = thisPage - หมายเลขหน้า/2
ถ้า MinPage <= 0 ดังนั้น MinPage = 1
'ถ้า MinPage + หมายเลขหน้า/2 > ผลรวม แล้ว Maxpage = ผลรวมหน้าอื่น Maxpage = MinPage + หมายเลขหน้า
สำหรับ i = MinPage ถึง MinPage + หมายเลขหน้า -1
ถ้าฉัน <= รวมหน้าแล้ว
ถ้า cint(thisPage)<> cint(i) แล้ว
strtemp = strtemp & "<a href="&pageURL&"&page=" & i &">" & ฉัน & "</a> "
อื่น
strtemp = strtemp & ฉัน&" "
สิ้นสุดถ้า
อื่น
หน้า = strtemp
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ต่อไป
หน้า = strtemp
ฟังก์ชันสิ้นสุด
CreateGrid ย่อยสาธารณะ ()
nkeys = คอลัมน์คีย์
nItems = คอลัมน์.รายการ
ถ้า dg_action="update" แล้ว
strsql สลัว
strsql = "อัปเดต "& ตาราง & " ชุด "
สลัวเจ
เจ=0
สำหรับ i = 0 ถึงดัชนี - 1
ถ้า nItems(i).Columntype<>"edit" และ nItems(i).Columntype <> "delete" และไม่ใช่ nItems(i).readonly และ nItems(i).field<>uniquefield แล้ว
ถ้า j <> 0 ดังนั้น strsql = strsql & ","
เลือกกรณี nItems(i).DataType
กรณี "ข้อความ"
strsql = strsql & nItems(i).field & "='" & คำขอ (nItems(i).field)&"' "
กรณี "ตัวเลข", "int", "ใหญ่", "จิ๋ว"
strsql = strsql & nItems(i).field & "=" & คำขอ (nItems(i).field) & " "
กรณี "วันที่", "เวลา", "วันที่เวลา"
strsql = strsql & nItems(i).field & "=แปลง(datetime,'" & คำขอ(nItems(i).field)&"',102) "
กรณีอื่น
strsql = strsql & nItems(i).field & "='" & คำขอ (nItems(i).field)&"' "
สิ้นสุดการเลือก
เจ=เจ+1
จบถ้า
ต่อไป
strsql = strsql & " โดยที่ " & UniqueField &" = "& Uniquekey
set rst = Server.CreateObject("adodb.recordset")
rst.เปิด strsql,connstr
'อันดับแรกปิด
ตั้ง rst = ไม่มีเลย
ตั้งค่า strsql = ไม่มีเลย
จบถ้า
ถ้า dg_action="delete" แล้ว
strsql = ""
strsql = "ลบออกจาก " & ตาราง & " โดยที่ " & UniqueField &" = "& Uniquekey
การตอบสนอง เขียน strsql
set rst = Server.CreateObject("adodb.recordset")
rst.เปิด strsql,connstr
'อันดับแรกปิด
ตั้ง rst = ไม่มีเลย
จบถ้า
ถ้า dg_action = "addnew" และ isAddnew = 1 แล้ว
'strsql สลัว
set rst = Server.CreateObject("adodb.recordset")
rst.open ตาราง,connstr,1,3,2
rst.เพิ่มใหม่
เจ=0
สำหรับ i = 0 ถึงดัชนี - 1
ถ้า nItems(i).Columntype<>"edit" และ nItems(i).Columntype <> "delete" และไม่ใช่ nItems(i).readonly และ nItems(i).field<>uniquefield แล้ว
ถ้า j <> 0 ดังนั้น strsql = strsql & ","
เลือกกรณี nItems(i).DataType
กรณี "ข้อความ"
rst(nItems(i).field) = คำขอ(nItems(i).field)
กรณี "ตัวเลข", "int", "ใหญ่", "จิ๋ว"
rst(nItems(i).field) = คำขอ(nItems(i).field)
กรณี "วันที่", "เวลา", "วันที่และเวลา"
rst(nItems(i).field) = คำขอ(nItems(i).field)
กรณีอื่น
rst(nItems(i).field) = คำขอ(nItems(i).field)
สิ้นสุดการเลือก
เจ=เจ+1
จบถ้า
ต่อไป
rst.อัปเดต
ตั้ง rst = ไม่มีเลย
จบถ้า
rs.Open strSQLString,connstr,1,1
strTable= "<table border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight=" & strbordercolorlight & "class=" &cssclass & " cellspacing=0>" 'เพิ่มสไตล์
strTable = strTable & "<รูปแบบการกระทำ=" & formURL & " name=""gridform"" method=post>"
ถ้า PagePosition="up" หรือ PagePosition="updown" ดังนั้น strTable = strTable & "<tr><td colspan="& index &">"& page(rs.PageCount,Pagenumber,currPage )&"</td>< /tr>"
strTable = strTable & "<tr bgcolor=" & strHeadBackgroudColor & ">"
สำหรับ i = 0 เพื่อจัดทำดัชนี - 1
ถ้า nItems(i).Title<>"" แล้ว
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & nItems(i).Title &"</td>"
อื่น
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs.Fields(i).Item.Name &"</td>"
สิ้นสุดถ้า
ต่อไป
strTable = strTable & "</tr>"
ถ้า cint(currPage) > cint(rs.PageCount) ดังนั้น currPage = rs.PageCount
intPage = ขนาดเพจ
rs.PageSize = ขนาดหน้า
rs.AbsolutePage = currPage
ทำในขณะที่ไม่ใช่ rs.eof และ intPage > 0
intPage = intPage - 1
dbuniquekey = rs (ฟิลด์เฉพาะ)
ถ้า intPage mod 2 แล้ว
strTable = strTable & "<tr>"
อื่น
strTable = strTable & "<tr "& strAlternateStyle &">"
จบถ้า
'response.Write len(dg_action)>0 และ int(dbuniquekey) = int(uniquekey)
ถ้า dg_action ="edit" และ int(dbuniquekey) = int(uniquekey) แล้ว
สำหรับ i = 0 เพื่อจัดทำดัชนี - 1
ถ้า nItems(i).Columntype<>"edit" และ nItems(i).Columntype <> "delete" และไม่ใช่ nItems(i).readonly และ nItems(i).field<>uniquefield แล้ว
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &""" value="" " & rs(nItems(i).field) &"""></td>"
อื่น
เลือกกรณี lcase(nItems(i).Columntype)
กรณี "ฉลาก"
strTable = strTable & "<td "& nItems(i).HTMLstr &">" & rs(nItems(i).field) &"</td>"
กรณี "วิทยุ"
กรณี "รูปภาพ"
กรณี "ช่องทำเครื่องหมาย"
กรณี "กล่องข้อความ"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text name=""" & rs.Fields(i).Name &""" value=" & rs(nItems(i) ).ฟิลด์) &"></td>"
กรณี "ลิงค์"
กรณี "แก้ไข"
ถ้า UniqueField="" ดังนั้น ErrorMsg="UniqueField ไม่ได้ตั้งค่า"
ถ้า dg_action = "แก้ไข" แล้ว
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href=""JavaScript:document.gridform.submit()"">"&nItems(i).UpdateCommandText&"</a> <a href ="&actionURL&">"&nItems(i).CancelCommandText&"</a></td>"
อื่น
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href="&actionURL&"&dg_action=edit&uniquekey=" & rs(UniqueField) &">"&nItems(i).EditCommandText&"</a>< /td>"
สิ้นสุดถ้า
กรณี "ลบ"
ถ้า UniqueField="" ดังนั้น ErrorMsg="UniqueField ไม่ได้ตั้งค่า"
strTable = strTable & "<td "&nItems(i).HTMLstr &"><a href="&actionURL&"&dg_action=delete&uniquekey=" & rs(UniqueField) &">"&nItems(i).DeleteCommandText&"</a>< /td>"
กรณี "อัพเดต"
กรณีอื่น
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) & "</td>"
สิ้นสุดการเลือก
สิ้นสุดถ้า
ต่อไป
อื่น
สำหรับ i = 0 เพื่อจัดทำดัชนี - 1
เลือกกรณี lcase(nItems(i).Columntype)
กรณี "ฉลาก"
strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) &"</td>"
กรณี "วิทยุ"
กรณี "รูปภาพ"
กรณี "ช่องทำเครื่องหมาย"
กรณี "กล่องข้อความ"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text value=" & rs(nItems(i).field) &"></td>"
กรณี "ลิงค์"
กรณี "แก้ไข"
ถ้า UniqueField="" ดังนั้น ErrorMsg="UniqueField ไม่ได้ตั้งค่า"
strTable = strTable & "<td " & nItems(i).HTMLstr & "><a href=" & actionURL & "&dg_action=edit&uniquekey=" & rs(UniqueField) & ">" & nItems(i).EditCommandText & " </a></td>"
กรณี "ลบ"
ถ้า UniqueField="" ดังนั้น ErrorMsg="UniqueField ไม่ได้ตั้งค่า"
strTable = strTable & "<td " & nItems(i).HTMLstr &"><a href=" & actionURL & "&dg_action=delete&uniquekey=" & rs(UniqueField) &">" & nItems(i).DeleteCommandText&"< /a></td>"
กรณี "อัพเดต"
กรณีอื่น
strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs(nItems(i).Field) & "</td>"
สิ้นสุดการเลือก
ต่อไป
จบถ้า
'จบถ้า
rs.movenext
strTable = strTable & "</tr>"& vbcrlf
วนซ้ำ
ถ้า PagePosition="down" หรือ PagePosition="updown" ดังนั้น strTable = strTable & "<tr><td colspan="& index &">"& page(rs.PageCount,Pagenumber,currPage )
'strTable =strTable&"<tr>"
สำหรับ i = 0 เพื่อจัดทำดัชนี - 1
ถ้า nItems(i).Columntype<>"edit" และ nItems(i).Columntype <> "delete" และไม่ใช่ nItems(i).readonly และ nItems(i).field<>uniquefield แล้ว
'strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></ ทีดี>"
อื่น
'strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>"
สิ้นสุดถ้า
ต่อไป
strTable =strTable&"</tr>"
strTable = strTable & "</form></table>"
ถ้า isAddnew = 1 แล้ว
strTable = strTable & "<form action=""?dg_action=addnew"" name=""dgridadd"" method=""post""><table border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight= " & strbordercolorlight & " cellspacing=0><tr>"
สำหรับ i = 0 เพื่อจัดทำดัชนี - 1
ถ้า nItems(i).Columntype<>"edit" และ nItems(i).Columntype <> "delete" และไม่ใช่ nItems(i).readonly และ nItems(i).field<>uniquefield แล้ว
strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs.Fields(nItems(i).field).Name &"</td>"
อื่น
'strTable = strTable & "<td " & nItems(i).HTMLstr &">"&nItems(i).Title&"</td>"
สิ้นสุดถ้า
ต่อไป
strTable = strTable & "<td rowspan=2><a href=""JavaScript:document.dgridadd.submit()"">ใหม่</a></td></tr><tr>"
สำหรับ i = 0 เพื่อจัดทำดัชนี - 1
ถ้า nItems(i).Columntype<>"edit" และ nItems(i).Columntype <> "delete" และไม่ใช่ nItems(i).readonly และ nItems(i).field<>uniquefield แล้ว
strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></td >" & vbcrlf
อื่น
'strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>"
สิ้นสุดถ้า
ต่อไป
strTable = strTable &"</tr></table></form>"
จบถ้า
การตอบสนองเขียน strTable
จบหมวดย่อย
AddColumn ย่อยสาธารณะ (cColumn)
'set tem = คอลัมน์ใหม่
'tem = cColumn
'response.Write cColumn.ColumnHTMLstr
Columns.Add ดัชนี,cColumn
ดัชนี = ดัชนี + 1
'คอลัมน์.รายการ(i)
จบหมวดย่อย
จบคลาส
คอลัมน์ชั้นเรียน
strType ส่วนตัว
strAlign ส่วนตัว
strStyle ส่วนตัว
ข้อความคอลัมน์ส่วนตัว
intWidth ส่วนตัว
intHight ส่วนตัว
สเตรฟิลด์ส่วนตัว
strTitle ส่วนตัว
strEvent ส่วนตัว
strCssClass ส่วนตัว
strText ส่วนตัว
ส่วนตัว strEditCommandText,strUpdateCommandText,strCancelCommandText,strDeleteCommandText
strRegExp ส่วนตัว
strReadOnly ส่วนตัว
strDataType ส่วนตัว
MaxValue สาธารณะ, MinValue, MaxLength, MinLength, IsEmpty, IsChar, IsNumber, isCharNumber, isDate, isEmail
Class_Initialize ส่วนตัว ()
ColumnType = "ข้อความ"
strEditCommandText = "แก้ไข"
strUpdateCommandText = "อัปเดต"
strCancelCommandText = "ยกเลิก"
strDeleteCommandText = "ลบ"
จบหมวดย่อย
Class_Terminate ส่วนตัวย่อย ()
จบหมวดย่อย
ทรัพย์สินสาธารณะ Let Columntype(มูลค่า)
strType = lcase(ค่า)
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ Columntype()
ColumnType = strType
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let Para(มูลค่า)
พารา=มูลค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ ParaLink(มูลค่า)
ParaLink = แทนที่(ค่า,"{0}",พารา)
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ ControlName(มูลค่า)
ControlName = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let Style(มูลค่า)
strStyle = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let Eventstr(มูลค่า)
strEvent = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let Align(มูลค่า)
strAlign = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ GetAlign()
จัดตำแหน่ง = strAlign
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ GetEventstr()
Eventstr = strEvent
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ความกว้าง(มูลค่า)
intWidth = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ฟิลด์(มูลค่า)
strField = lcase (ค่า)
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับฟิลด์()
สนาม = strField
สิ้นสุดคุณสมบัติ
ชื่อทรัพย์สินสาธารณะให้เช่า(มูลค่า)
ถ้าค่า = "" ดังนั้น strTitle = strField อื่น strTitle = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับชื่อเรื่อง()
ถ้า strTitle = "" ดังนั้น Title = strField อย่างอื่น Title = strTitle
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ CssClass (มูลค่า)
strCssClass = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ CssClass()
CssClass = strCssClass
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ DataType (มูลค่า)
strDataType = lcase(ค่า)
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ DataType()
ประเภทข้อมูล = strDataType
สิ้นสุดคุณสมบัติ
ข้อความให้ทรัพย์สินสาธารณะ(มูลค่า)
เลือกค่าตัวพิมพ์
กรณี ""
strText = strType
กรณีเป็นโมฆะ
strText = strType
กรณีอื่น
strText = ค่า
สิ้นสุดการเลือก
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับข้อความ ()
ข้อความ = strText
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้อ่านอย่างเดียว(มูลค่า)
ถ้า value="" หรือ isnull(value) ดังนั้น strReadOnly = False มิฉะนั้น strReadOnly = value
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับแบบอ่านอย่างเดียว ()
อ่านอย่างเดียว = strReadOnly
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ EditCommandText (ค่า)
strEditCommandText = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ EditCommandText()
EditCommandText = strEditCommandText
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ UpdateCommandText (ค่า)
strUpdateCommandText = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ GetUpdateCommandText()
UpdateCommandText = strUpdateCommandText
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ CancelCommandText (มูลค่า)
strCancelCommandText = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ CancelCommandText ()
CancelCommandText = strCancelCommandText
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะให้ DeleteCommandText (ค่า)
strDeleteCommandText = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ DeleteCommandText()
DeleteCommandText = strDeleteCommandText
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะ Let RegExp(มูลค่า)
strRegExp = ค่า
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ RegExp()
RegExp = strRegExp
สิ้นสุดคุณสมบัติ
ทรัพย์สินสาธารณะรับ HTMLstr()
ชั่วคราว = ""
ถ้า intWidth <> "" ดังนั้น tempstr = tempstr & " width=""" & intWidth & """"
ถ้า intHeight <> "" ดังนั้น tempstr = tempstr & " height =""" & intHeight & """"
ถ้า strStyle <> "" ดังนั้น tempstr = tempstr & " style=""" & strStyle & """"
ถ้า strEvent <> "" ดังนั้น tempstr = tempstr & " " & strEvent
ถ้า strAlign <> "" ดังนั้น tempstr = tempstr & " align=""" & strAlign & """"
HTMLstr = ชั่วคราว
สิ้นสุดคุณสมบัติ
จบคลาส
-