hi5 - เชอเหร่อ

Leave a comment for เชอเหร่อ

View เชอเหร่อ's comments with ◕‿◕party◕‿◕

Feb 10 4:33 AM

◕‿◕party◕‿◕ says:

ยู่หนองคายค่ะ

เตงละ

View เชอเหร่อ's comments with LD☺XeoJ☻

Feb 9 10:49 PM

LD☺XeoJ☻ says:

นัทจก

View เชอเหร่อ's comments with ๛ⒶⓁⓄⓃⒺ๛

Feb 9 7:18 PM

๛ⒶⓁⓄⓃⒺ๛ says:

=๛AEY...ทัก กลั หน่อย น๊า

View เชอเหร่อ's comments with ŦűmஒŇămāņġ

Feb 9 8:45 AM

ŦűmஒŇămāņġ says:

บักสัส

View เชอเหร่อ's comments with ◕‿◕party◕‿◕

Feb 9 5:13 AM

◕‿◕party◕‿◕ says:

ทักทายจ๊ะ

View เชอเหร่อ's comments with ALISARA

Feb 8 8:09 PM

ALISARA says:

เม้นให้เพื่อนสาวหน่อย

View เชอเหร่อ's comments with เฉิ่ม•

Feb 6 10:03 PM

เฉิ่ม• says:

ยุ่ง

Feb 3 6:01 AM

เชอเหร่อ says:

Code Visual 6.0

Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private cmd As ADODB.Command

Private Sub Command1_Click()
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
If Text6.Text = "" Then
MsgBox "ยังไม่ได้ใสรหัส", vbOKOnly, "ตรวจสอบ"
Text6.SetFocus
Else
If Trim(Text6.Text) <> "" Then
cmd.CommandText = "select*from cus where numbers like'" & Text6.Text & "%'"
cmd.CommandType = adCmdText
cmd.ActiveConnection = conn
Set rs = cmd.Execute
If rs.EOF Then
MsgBox "ไม่มีรหัสที่ค้นหา", vbOKOnly, "ยืนยัน"
Text6.SetFocus
Text6.Text = ""
Else
Do While Not rs.EOF
Text1.Text = rs("numbers").Value
Text2.Text = rs("Person name").Value
Text3.Text = rs("Person last").Value
Text4.Text = rs("Address").Value
Text5.Text = rs("Person phone").Value

rs.MoveNext
Loop
End If
End If
End If
End Sub

Private Sub Command3_Click()
If MsgBox("คุณต้องการลบใช่หรือไม่", vbYesNo + vbQuestion, "ลบข้อมูล") = vbYes Then
With Adodc1.Recordsetอิ
.Delete
.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End With
End If
End Sub

Private Sub Command4_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub

Private Sub Command5_Click()
MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว", , "แจ้งการบันทึก"
Adodc1.Recordset.Update
End Sub

Private Sub Command7_Click()
If MsgBox("คุณต้องการออก", vbYesNo + vbQuestion, "ยืนยัน") = vbYes Then
Unload Me
frmain.Show
End If
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
With conn
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\garden1\garden.mdb"
.CommandTimeout = 25
.Open
End With
If conn.State = adStateOpen Then
Else
MsgBox "ใส่ข้อมูลไม่ครบ", vbOKOnly, "ตรวจสอบ"
End If

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False

'Comok.Visible = False
'Comcancel.Visible = False
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text1.SetFocus
End Sub

View เชอเหร่อ's comments with รจนา

Feb 2 1:25 AM

รจนา says:

หวัดดีนะ

View เชอเหร่อ's comments with สำหรับเค้าเราlปนคนแก้เหงา

Jan 27 7:11 PM

สำหรับเค้าเราlปนคนแก้เหงา says:

ประกาศรับนักศึกษาใหม่ ปีการศึกษา 2553

มหาวิทยาลัย แอลกอฮอริซึ่ม Universityคณะศิลปะการดื่ม สาขาเบียร์
และเหล้า
รับสมัครนักศึกษาใหม่ ลงทะเบียนได้ที่นี่

- คุณสมบัติทีต้องมีในตัวนักศึกษา
1.มีใจรักในการดื่มสุรา
2.มีเวลาอยู่กะเพื่อน
3.คุณต้องวิ่งให้ไว
(หากมีคุณสมบัติครบทุกประการทางมหาวิทยาลัยจะพิจารณาเป็นพิเศษ)

ภาคปกติ จันทร์-พฤหัสฯ ตั้งแต่เวลา 20.00น.-24.00น.
ภาคสมทบพิเศษ ศุกร์-เสาร์ ตั้งแต่เวลา 20.00น.- จนตำรวจมาไล่

รายวิชาที่เปิดทำการสอน
- การดื่มสุราเบื้องต้น(สำหรับนักศึกษาชั้นปีที่1)
- การเมาดิบและการควบคุมสติหลังจากเมาขั้นรุนแรง (สำหรับนักศึกษาหญิง)
- การดื่มยังไงถึงไม่ให้เรื้อน(วิชาการศึกษาทั่วไป)
- ทักษะการเชื้อเชิญสตรี/บุรุษเข้ามาดื่มในวงเบื้องต้น (วิชาเลือกเสรี)
- การเสนอผลงานหลังจากการเมา(Thesis)
* Thesis นักศึกษาทุกคนต้องส่ง *
สำหรับวันปฐมนิเทศให้นักศึกษาจับกลุ่มไปกันเอง 3-5 คน(จะแยก/รวมก็ได้)
สถานที่ปฐมนิเทศ-มหาวิทยาลัย แอลกอฮอล์ ลิซึ่ม
(ไม่สะดวกสามารถให้หอพักเป็นสถานที่ปฐมนิเทศได้ชั่วคราว)

จบหลักสูตรรับฟิมล์ X-RAY ตับ+ปอด เพื่อใช่ในการรักษาพยาบาลต่อไป.

ลองไปสมัครดูน่ะ!!!!!!!!!

View เชอเหร่อ's comments with สำหรับเค้าเราlปนคนแก้เหงา

Jan 27 7:00 PM

สำหรับเค้าเราlปนคนแก้เหงา says:

...........คิดถึงนะ...คิดถึงนะ
........คิดถึงนะ.........คิดถึงนะ
.....คิดถึงนะ...............คิดถึงนะ
...คิดถึงนะ....................คิดถึงนะ
..คิดถึงนะ......................คิดถึงนะ
.คิดถึงนะ........................คิดถึงนะ.....คิดถึงนะ...คิดถึงนะ
คิดถึงนะ..........................คิดถึงนะ.......คิดถึงนะ...คิดถึงนะ
.คิดถึงนะ..........................คิดถึงนะ...................คิดถึงนะ
..คิดถึงนะ..........................คิดถึงนะ..................คิดถึงนะ
...คิดถึงนะ..................................................คิดถึงนะ
…...คิดถึงนะ.............................................คิดถึงนะ
.........คิดถึงนะ.....................................คิดถึงนะ
............คิดถึงนะ..............................คิดถึงนะ
................คิดถึงนะ.......................คิดถึงนะ
..................คิดถึงนะ.................คิดถึงนะ
......................คิดถึงนะ..........คิดถึงนะ
.......................คิดถึงนะ…...คิดถึงนะ
..............................คิดถึงนะ ............คิดถึงนะ...คิดถึงนะ
........คิดถึงนะ.........คิดถึงนะ
.....คิดถึงนะ...............คิดถึงนะ
...คิดถึงนะ....................คิดถึงนะ
..คิดถึงนะ......................คิดถึงนะ
.คิดถึงนะ........................คิดถึงนะ.....คิดถึงนะ...คิดถึงนะ
คิดถึงนะ..........................คิดถึงนะ.......คิดถึงนะ...คิดถึงน
____xxxxxxxxxx______xxxxxxxxxxx
___xxxxxxxxxxxxx___xxxxxxxxxxxxx
___xxxxxxxxxxxxxx_xxxxxxxxxxxxxx คิ
___xxxxxxxxxxxxxxxxxxxxxxxxxxxxx ด
____xxxxxxxxxxxxxxxxxxxxxxxxxxxx ถึ
_____xxxxxxxxxxxxxxxxxxxxxxxxxx ง
______xxxxxxxxxxxxxxxxxxxxxxx น
_________xxxxxxxxxxxxxxxxxx ะ
___________xxxxxxxxxxxxx จ๊
_____________xxxxxxxxx ะ
______________xxxxxx
_______________xxxx
_______________xxx
______________xx
_____________x
___________x รั
________xx ก
______xxx ษ
_____xxxx า
___xxxxxx สุ
___xxxxxxx ข
____xxxxxxxx ภ
______xxxxxxxx า
________xxxxxxx พ
_________xxxxxx ด้
_________xxxxxx ว
________xxxxx ย
_____xxxxxx น
____xxxxxx ะ

View เชอเหร่อ's comments with สำหรับเค้าเราlปนคนแก้เหงา

Jan 27 6:54 PM

สำหรับเค้าเราlปนคนแก้เหงา says:

ไม่มีวันนัย
ที่ที่พูดดีด้วย
ถามว่ากินข้าวยัง
แม้มันจะเป็น
คำสั้นๆๆ
ถ้าออกมาจากปาก
เทอร์
ก็จะรอฟัง
เทอร์คงจะเก็บคำๆๆนั้น
ไว้ให้อีกคน
ไม่ดายต้องการให้
เทอร์บอกร๊าก
เพราะมันคงอยาก
ที่เธอจะ
พูดออกมา
ก็ได้แต่รอ
คงจะมีสักวัน
ที่เราจะกบมาพูดกานดีๆๆๆ
เหมือนเดิม
แต่มันคงอยาก
เพราะเราไม่
ใช่
คนสำคัญ
อาจจะสำคัญตัวเองไปบ้างในบางครั้ง
ก็ขอโทรด้วย

View เชอเหร่อ's comments with สำหรับเค้าเราlปนคนแก้เหงา

Jan 27 6:49 PM

สำหรับเค้าเราlปนคนแก้เหงา says:

^_^
จะจดจำไว้
สิ่งที่เทอร์
ทำ
ร้าย
กาน