CLR Integration in SQL Server 2005
The integration of Common Language Runtime (CLR) in .NET application using SQL Server 2005
<html>ผลลัพท์ เมื่อนำเมาส์ไปวางบน [?] จะขึ้น popup help text ขึ้นมาให้
<head>
<title>การแสดงกล่องข้อความแนะนำ</title>
<style type="text/css">
#hintBox{
position:absolute;
top:0;
background-color:white;
width:150px;
padding:3px;
border:1px solid black;
font:normal 11px Verdana;
line-height:18px;
z-index:100;
border-right:3px solid black;
border-bottom:3px solid black;
visibility: hidden;
}
.hint {
font-weith:bold;
color:navy;
margin:3px 8px;
}
</style>
<script language="javascript">
var horizontalOffset = "9px"
var verticalOffset = "0"
var ie = document.all
var ns6 = document.getElementById && !document.all
function getposOffset(elm, offsettype) {
var totalOffset = (offsettype == "left") ? elm.offsetLeft:elm.offsetTop;
var parentElement = elm.offsetParent;
while (parentElement != null) {
totalOffset = (offsettype == "left") ? totalOffset + parentElement.offsetLeft:totalOffset + parentElement.offsetTop;
parentElement = parentElement.offsetParent;
}
return totalOffset;
}
function ieTest() {
return(document.compatMode && document.compatMode != "BackCompat") ? document.documentElement:document.body;
}
function clearEdge(obj, whichedge) {
var edgeoffset = (whichedge == "rightedge") ? parseInt(horizontalOffset)*-1 : parseInt(verticalOffset)*-1
if (whichedge == "rightedge") {
var windowEdge = ie && !window.opera ? ieTest().scrollLeft + ieTest().clientWidth - 30 : window.pageXOffset + window.innerWidth - 30;
dropMenu.contentMeasure = dropMenu.offsetWidth;
if(windowEdge - dropMenu.x < dropMenu.contentMeasure)
edgeoffset = dropMenu.contentMeasure + obj.offsetWidth + parseInt(horizontalOffset);
}
else {
var windowEdge = ie && !window.opera ? ieTest().scrollTop + ieTest().clientHeight - 30 : window.pageYOffset + window.innerHeight - 30;
dropMenu.contentMeasure = dropMenu.offsetHeight;
if(windowEdge - dropMenu.y < dropMenu.contentMeasure)
edgeoffset = dropMenu.contentMeasure - obj.offsetHeight;
}
return edgeoffset;
}
function showhint(menuContent, obj, e, tipwidth){
if((ie||ns6) && document.getElementById("hintBox")) {
dropMenu = document.getElementById("hintBox");
dropMenu.innerHTML = menuContent;
dropMenu.x = getposOffset(obj, "left");
dropMenu.y = getposOffset(obj, "top");
dropMenu.style.left = dropMenu.x - clearEdge(obj, "rightedge") + obj.offsetWidth + "px";
dropMenu.style.top = dropMenu.y - clearEdge(obj, "bottomedge") + "px";
dropMenu.style.visibility = "visible";
obj.onmouseout = hideHint;
}
}
function hideHint(e) {
dropMenu.style.visibility = "hidden";
}
function createHint() {
var block = document.createElement("div");
document.body.appendChild(block);
block.setAttribute("id","hintBox");
}
if(window.addEventListener)
window.addEventListener("load", createHint, false);
else if(window.attachEvent)
window.attachEvent("onload", createHint);
else if(document.getElementById)
window.onload = createHint;
</script>
</head>
<body>
<form>
<b>ชื่อในการใช้งาน</b>
<input type="text" class="test" style="width: 152px" /><a href="#" class="hint" onmouseover=" showhint('พิมพ์ชื่อผู้ใช้ โดยให้เป็นอักขระจากแป้นพิมพ์เท่านี้น', this, event, '150px')"><font color="#6666FF">[?]</font></a><br />
<b>รหัสผ่าน</b><input type="text" class="test" /><a href="#" class="hint" onmouseover=" showhint('ใส่รหัสผ่าน โดยมีอย่างน้อย 8 ตัวอักษร', this, event, '200px')"><font color="#6666FF">[?]</font></a><br />
<br/>
<b>e-mail address</b><input type="text" class="test" style="width: 152px" ID="Text1" NAME="Text1" onmouseover=" showhint('กรุณาใส่ e-mail address', this, event, '200px')"/>
</form>
</body>
</html>
| declare @name varchar(128), --ประกาศตัวแปรสำหรับเก็บชื่อ ตาราง @user varchar(128), --ประกาศตัวแปรสำหรับเก็บชื่อ เจ้าของตาราง @statement varchar(1000) declare tablename cursor for --ประกาศตัวแปร cursor ข้อมูล select t.name, s.name from sys.tables as t, sys.schemas as s where t.schema_id = s.schema_id open tablename --เปิด cursor fetch next from tablename --อ่านข้อมูลจาก cursor และให้ข้อมูลเข้าตัวแปร into @name, @user while @@fetch_status = 0 -- วนลูป cursor จนกว่าหมดข้อมูล begin set @statement = 'DBCC DBREINDEX (''[' + @user + '].[' + @name + ']'')' --สร้าง sql statement เพื่อ re-index ตาราง endprint @statement + '...' execute (@statement) -- สั่งให้ execute sql statement ที่ re-index ตาราง fetch next from tablename into @name, @user close tablename -- ปิด cursor deallocate tablename -- เคลียร์ memory go |
| DBCC DBREINDEX ( [ 'database.owner.table_name' [, index_name [ , fillfactor ] ] ] ) [ WITH NO_INFOMSGS ]เช่น DBCC DBREINDEX('dbo.Orders') Go |
| DBCC execution completed. If DBCC printed error messages, contact your system administrator. |
| declare @name varchar(128), --ประกาศตัวแปรสำหรับเก็บชื่อ ตาราง @user varchar(128), --ประกาศตัวแปรสำหรับเก็บชื่อ เจ้าของตาราง @statement varchar(1000) declare tablename cursor for --ประกาศตัวแปร cursor ข้อมูล ตาราง จาก sysobjects select o.name, u.name from sysobjects as o, sysusers as u where o.uid = u.uid and xtype = 'U' open tablename --เปิด cursor fetch next from tablename --อ่านข้อมูลจาก cursor และให้ข้อมูลเข้าตัวแปร into @name, @user while @@fetch_status = 0 -- วนลูป cursor จนกว่าหมดข้อมูล begin set @statement = 'DBCC DBREINDEX (''[' + @user + '].[' + @name + ']'')' --สร้าง sql statement เพื่อ re-index ตาราง endprint @statement + '...' execute (@statement) -- สั่งให้ execute sql statement ที่ re-index ตาราง fetch next from tablename into @name, @user close tablename -- ปิด cursor deallocate tablename -- เคลียร์ memory go |
** แก้ไข 12/5/2014 ปรับปรุงไฟล์รูปภาพ **( ดาวน์โหลดซอร์สโค้ดได้ที่ https://github.com/noomdev/ThaiBaht )
Public Shared Function ThaiBaht(ByVal pAmount As Double) As String
If pAmount = 0 Then
Return "ศูนย์บาทถ้วน"
End If
Dim _integerValue As String ' จำนวนเต็ม
Dim _decimalValue As String ' ทศนิยม
Dim _integerTranslatedText As String ' จำนวนเต็ม ภาษาไทย
Dim _decimalTranslatedText As String ' ทศนิยมภาษาไทย
_integerValue = Format(pAmount, "####.00") ' จัด Format ค่าเงินเป็นตัวเลข 2 หลัก
_decimalValue = Mid(_integerValue, Len(_integerValue) - 1, 2) ' ทศนิยม
_integerValue = Mid(_integerValue, 1, Len(_integerValue) - 3) ' จำนวนเต็ม
' แปลง จำนวนเต็ม เป็น ภาษาไทย
_integerTranslatedText = NumberToText(CDbl(_integerValue))
' แปลง ทศนิยม เป็น ภาษาไทย
If CDbl(_decimalValue) = 0 Then
_decimalTranslatedText = NumberToText(CDbl(_decimalValue))
Else
_decimalTranslatedText = ""
End If
' ถ้าไม่มีทศนิม
If _decimalTranslatedText.Trim = "" Then
_integerTranslatedText += "บาทถ้วน"
Else
_integerTranslatedText += "บาท" & _decimalTranslatedText & "สตางค์"
End If
Return _integerTranslatedText
End Function
Private Shared Function NumberToText(ByVal pAmount As Double) As String
' ตัวอักษร
Dim _numberText() As String = {"", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า", "สิบ"}
' หลัก หน่วย สิบ ร้อย พัน ...
Dim _digit() As String = {"", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน", "ล้าน"}
Dim _value As String, _aWord As String, _text As String
Dim _numberTranslatedText As String = ""
Dim _length, _digitPosition As Integer
_value = pAmount.ToString
_length = Len(_value) ' ขนาดของ ข้อมูลที่ต้องการแปลง เช่น 122200 มีขนาด เท่ากับ 6
For i As Integer = 0 To _length - 1 ' วนลูป เริ่มจาก 0 จนถึง (ขนาด - 1)
' ตำแหน่งของ หลัก (digit) ของตัวเลข
' เช่น
' ตำแหน่งหลักที่0 (หลักหน่วย)
' ตำแหน่งหลักที่1 (หลักสิบ)
' ตำแหน่งหลักที่2 (หลักร้อย)
' ถ้าเป็นข้อมูล i = 7 ตำแหน่งหลักจะเท่ากับ 1 (หลักสิบ)
' ถ้าเป็นข้อมูล i = 9 ตำแหน่งหลักจะเท่ากับ 3 (หลักพัน)
' ถ้าเป็นข้อมูล i = 13 ตำแหน่งหลักจะเท่ากับ 1 (หลักสิบ)
_digitPosition = i - (6 * ((i - 1) \ 6))
_aWord = Mid(_value, Len(_value) - i, 1)
_text = ""
Select Case _digitPosition
Case 0 ' หลักหน่วย
If _aWord = "1" And _length > 1 Then
' ถ้าเป็นเลข 1 และมีขนาดมากกว่า 1 ให้มีค่าเท่ากับ "เอ็ด"
_text = "เอ็ด"
ElseIf _aWord <> "0" Then
' ถ้าไม่ใช่เลข 0 ให้หา ตัวอักษร ใน _numberText()
_text = _numberText(CInt(_aWord))
End If
Case 1 ' หลักสิบ
If _aWord = "1" Then
' ถ้าเป็นเลข 1 ไม่ต้องมี ตัวอักษร อื่นอีก นอกจากคำว่า "สิบ"
'_numberTranslatedText = "สิบ" + _numberTranslatedText
_text = _digit(_digitPosition)
ElseIf _aWord = "2" Then
' ถ้าเป็นเลข 2 ให้ตัวอักษรคือ "ยี่สิบ"
_text = "ยี่" + _digit(_digitPosition)
ElseIf _aWord <> "0" Then
' ถ้าไม่ใช่เลข 0 ให้หา ตัวอักษร ใน _numberText() และหาหลัก(digit) ใน _digit()
_text = _numberText(CInt(_aWord)) + _digit(_digitPosition)
End If
Case 2, 3, 4, 5 ' หลักร้อย ถึง แสน
If _aWord <> "0" Then
_text = _numberText(CInt(_aWord)) + _digit(_digitPosition)
End If
Case 6 ' หลักล้าน
If _aWord = "0" Then
_text = "ล้าน"
ElseIf _aWord = "1" And _length - 1 > i Then
_text = "เอ็ดล้าน"
Else
_text = _numberText(CInt(_aWord)) + _digit(_digitPosition)
End If
End Select
_numberTranslatedText = _text + _numberTranslatedText
Next
Return _numberTranslatedText
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Sample.ThaiBaht(TextBox1.Text))
End Sub
