แสดงกระทู้

1

ยินดีต้อนรับ / ขอวิธีการทำ pop up ผู้ป่วย CKD

« เมื่อ: พฤษภาคม 24, 2018, 10:49:47 AM »

ขอวิธีการทำ pop up ผู้ป่วย CKD State 3-5 N183 N184 N185 ให้ขึ้น pop up เฝ้าระวังการให้ยา Nsaids ให้ขึ้นถ้าแพทย์ ลง Icd10 นี้ ให้ขึ้น pop up

2

ยินดีต้อนรับ / ขอวิธีการทำ pop up กรณี ผู้ป่วย E110-E119

« เมื่อ: พฤษภาคม 24, 2018, 10:43:40 AM »

ขอวิธีการทำ pop up กรณี ผู้ป่วย E110-E119 ที่มี GFR <60 ห้ามจ่าย Metformin ทำอย่างไรคะ จากโรงพยาบาลชุมพลบุรี ค่ะพอดี admin ลาออก ช่วยหน่อยนะคะ

3

แจ้งปัญหา / ขอความช่วยเหลือ / Re: สอบถามการลงข้อมูลผู้ป่วยอุบัติเหตุ...ห้อง ER ครับ

« เมื่อ: พฤศจิกายน 20, 2014, 09:43:05 AM »

กำหนด อุบัติเหตุ Y ในฟิลด์ accident_code ครับ

4

Report Exchange / Re: อยากได้กราฟปิรามิดประชากรในเขตที่รับผิดชอบไหมครับ

« เมื่อ: พฤศจิกายน 14, 2013, 15:56:58 PM »

ขอบคุณครับ เยี่ยมจริงๆๆ

5

Development / เมื่อไหร่ BMS จะเปิดอบรม IntraWeb ครับ อยากเรียน

« เมื่อ: มกราคม 17, 2013, 22:31:23 PM »

เมื่อไหร่ BMS จะเปิดอบรม IntraWeb ครับ อยากเรียน

6

HOSxP Web Services / เมื่อไหร่อาจารย์จะเปิดอบรม Intraweb Delphi XE แบบ Cloud1.hosxp.net ครับ

« เมื่อ: พฤศจิกายน 29, 2012, 22:12:33 PM »

อยากไปเรียนครับ

7

แจ้งปัญหา / ขอความช่วยเหลือ / อาจารย์ครับ รพ.ผม 10915 สมัครแล้วลืมชื่อเข้าใช้และรหัสผ่าน

« เมื่อ: กันยายน 08, 2012, 22:24:32 PM »

อาจารย์ครับ รพ.ผม 10915 สมัครแล้วลืมชื่อเข้าใช้และรหัสผ่าน รวบกวนอาจาย์ส่งชื่อเข้าใช้ และรหัสผ่าน มาให้ผมทางเมล์ด้วยครับ

huwko_advance@hotmail.com

ขอบคุณครับ..

8

Delphi / Pascal / Re: รบกวนสอบถาม อ.MN ใน Intraweb เวลาใช้ Safari ของ iPad ทำไไมมันไม่แสดงภาษาไทยครับ

« เมื่อ: สิงหาคม 06, 2012, 18:01:31 PM »

ผมก็ลองใช้ xe2 พัฒนาดู ภาษาไทยก็ใช้ไม่ได้ครับ.. แก้ charset ตรง server controller เป็น utf-8 ก็ยังไม่ได้ครับ...

อาจารย์ช่วยแนะนำด้วยครับ

9

Development / รบกวนถามอาจารย์ Intraweb เวลา run บน Browser ภาษาไทยมันใช้ไมได้

« เมื่อ: สิงหาคม 06, 2012, 16:39:30 PM »

รบกวนถามอาจารย์ Intraweb เวลา run บน Browser ภาษาไทยมันใช้ไมได้ ต้องไปกำหนดตรงไหนครับ

10

Development / Re: delphi ใช้คำสั่ง Split อักขระ แบบไหนครับอาจารย์

« เมื่อ: กรกฎาคม 29, 2012, 15:07:39 PM »

ขอบคุณมากครับผม..

11

Development / delphi ใช้คำสั่ง Split อักขระ แบบไหนครับอาจารย์

« เมื่อ: กรกฎาคม 29, 2012, 14:31:43 PM »

รบกวนอาจารย์แนะนำหน่อยครับ คือผมต้องการตัดคำใน text นะคับ ประมาณนี้

10xxx|012084|314230|20120702|10xxx|2|1|9|1|20120709105413|2320200023164

ต้องการแบ่งคำนะครับผมจากอักขระ | นะคับ

12

แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / Re: Patient Information ของ Version 55.5.1 ไม่แสดงรายละเอียด General Informaion

« เมื่อ: พฤษภาคม 09, 2012, 13:44:51 PM »

ใครเป็นเหมือนผมบ้างคับ.. หรือว่าแก้ไขแล้วอะ...

13

แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / Re: Patient Information ของ Version 55.5.1 ไม่แสดงรายละเอียด General Informaion

« เมื่อ: พฤษภาคม 08, 2012, 10:23:20 AM »

VER 55.5 มันมีมาให้แค่นี้นะคับอาจารย์

14

แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / Patient Information ของ Version 55.5.1 ไม่แสดงรายละเอียด General Informaion

« เมื่อ: พฤษภาคม 08, 2012, 10:18:47 AM »

แถบด้านซ้าย ของ Patient Information หายไปคับ เวลาค้นหา คนไข้ก็ไม่แสดงรายชื่อคนไข้และรายละเอียดอื่นๆมาให้ด้วย

ด้วยแก้ไข หรือผม ทำผิดขั้นตอนอะนี่คับ...

15

Development / อาจารย์มี Function delphi ตรวจสอบบัตรประชาชนไหมคับ

« เมื่อ: เมษายน 30, 2012, 20:30:24 PM »

อาจารย์มี Function delphi ตรวจสอบบัตรประชาชนไหมคับ

ขอบคุณคับ

16

แจ้งปัญหา / ขอความช่วยเหลือ / Re: เขียนโปรแกรม

« เมื่อ: เมษายน 19, 2012, 21:23:35 PM »

if DBPipeline['icode']='1540018' then
begin
a:=i;
if Report.DataPipeline.bof then

a:=a-DBPipeline['qty'] ;
value:= a;

end
else if DBPipeline['icode']='1540014' then
begin
b:=j;
if Report.DataPipeline.bof then

b:=b-DBPipeline['qty'] ;
value:= b;

end
else if DBPipeline['icode']='1000122' then
begin
c:=k;
if Report.DataPipeline.bof then
c:=c-DBPipeline['qty'] ;
value:= c;

end
=========================
ลองแบบนี้พี่..
- ตรง begin ... end

ให้ใส่เครื่องหมาย ; เพื่อจบกรอบการทำงานนั้นนันนะคับ เช่น

begin
a:=i;
if Report.DataPipeline.bof then

a:=a-DBPipeline['qty'] ;
value:= a;

end;

ลองดูนะคับผม .. ไม่แน่ใจแต่น่าจะประมาณนี้ถ้ายังใช้เงื่อนไข if นะคับ..
ผิดถูกขออภัย ..

17

Development / Re: อาจารย์มีตัวอย่าง Script Setup ของ Inno Setup ที่ทำตัวติดตั้ง HosXP แล้วมี Database Mysql ติดมาด

« เมื่อ: เมษายน 08, 2012, 21:19:14 PM »

รุ่นสองก็ได้เลยนะคับพี่ เดียวผมก็ไปด้วย..

18

Development / Re: อาจารย์มีตัวอย่าง Script Setup ของ Inno Setup ที่ทำตัวติดตั้ง HosXP แล้วมี Database Mysql ติดมาด

« เมื่อ: มีนาคม 30, 2012, 09:09:25 AM »

ผม โกศล ปัทวรรณ huwko

อยู่ รพ.ชุมพลบุรี จ.สุรินทร์คับ

ทีมงาน Surinadmin.com ครับ

เคยอบรม Delphi I มาแล้วคับ

ฝากเนื้อฝากตัวด้วยนะคับผม..

19

แจ้งปัญหา / ขอความช่วยเหลือ / Re: ขอรายงาน FROM-OPD-REFER-OUT-V2 หน่อยครับ

« เมื่อ: มีนาคม 30, 2012, 09:07:32 AM »

ตามนี้ได้ไหมคับ

http://surinadmin.com/index.php?option=mod_board&task=boardsingle&id=1173

20

Development / Re: อาจารย์มีตัวอย่าง Script Setup ของ Inno Setup ที่ทำตัวติดตั้ง HosXP แล้วมี Database Mysql ติดมาด

« เมื่อ: มีนาคม 29, 2012, 21:17:14 PM »

ผมมาถึงตรงนี้แล้วไปไม่ถูกคับ

[Types]
Name: "full"; Description: "Full installation"
Name: "custom"; Description: "Custom installation"; Flags: iscustom

[Components]
Name: "program"; Description: "Program Files"; Types: full custom; Flags: fixed
Name: "MySQL"; Description: "MySQL Database"; Types: full

*************************************************************

ไม่รู้ว่าจะอ้าง path Mysql มาได้อย่างไรแล้วเมื่อ Install มันจะรันต่อยังไงคับผม

21

นอกเรื่อง / Re: หลักสูตรอบรมผู้ดูแลระบบ การเขียนโปรแกรมด้วย Delphi Part II รุ่น 2

« เมื่อ: มีนาคม 29, 2012, 20:47:39 PM »

อาจารย์ใช้ delphi Version ไหนสอนคับผม...

จะได้ซ้อมดูเมนูเอาไว้ก่อนนะคับ...

22

Development / อาจารย์มีตัวอย่าง Script Setup ของ Inno Setup ที่ทำตัวติดตั้ง HosXP แล้วมี Database Mysql ติดมาด้วย

« เมื่อ: มีนาคม 29, 2012, 20:43:46 PM »

รวมกวนอาจารย์แนะนำการใช้ Inno Setup

ที่เป็นการนำเอา Database Mysql และฐานข้อมูลติดมากับตัว Setup ด้วยคับ

ผมทำตัว Setup ของ Inno Setup ได้บางส่วนแล้ว แต่ยังหาวิธีแบบที่อาจารย์ทำไม่ได้เลยคับ

ขอบคุณคับผม..

23

Development / Re: cxGrid สามารถยัด datasource ได้เลยไหมคับ..

« เมื่อ: มีนาคม 26, 2012, 12:24:26 PM »

มันเหมือนมี Record มาใส่ในกริดแต่มันไม่แสดงข้อมูลให้นะคับผม

แบบรูปคับ.ผม

24

Development / Re: อาจารย์ครับ มีโปรแกรมทำ Help ตัวไหนที่เจ่งๆๆ บ้างคับผม..

« เมื่อ: มีนาคม 25, 2012, 14:46:59 PM »

อ้อ ได้แล้วคับอาจารย์ของคุณอาจารย์มากมายคับผม

25

Development / Re: อาจารย์ครับ มีโปรแกรมทำ Help ตัวไหนที่เจ่งๆๆ บ้างคับผม..

« เมื่อ: มีนาคม 25, 2012, 14:16:47 PM »

แบบนี้เลยคับ

เมนูด้านซ้าย เวลา compile แล้วไม่เป็นภาษาไทยนะคับ อาจารย์

รบกวนด้วยนะคับผม

26

Development / โปรแกรมทำ Help Help and Manual แล้วเมนูด้านขวามันเป็นภาษายึกยือ

« เมื่อ: มีนาคม 25, 2012, 14:12:53 PM »

แก้ให้เป็นภาษาไทยได้อย่างไรคับ

รบกวนอาจารย์ทุกท่านด้วยคับ ขอบคุณคับ

27

Development / Re: รบกวนอาจารย์นะคับ ฟอร์ม Ribbon เราต้องการซ๋อนเมนูที่ห้อยๆๆๆ ลงมาตอนรับ นะคับ ใช้คำสั่งอะไรหรือคั

« เมื่อ: มีนาคม 23, 2012, 00:39:57 AM »

อ้อ ได้แล้วคับ..

dxRibbon1.ShowTabGroups:=False;

28

Development / รบกวนอาจารย์นะคับ ฟอร์ม Ribbon เราต้องการซ๋อนเมนูที่ห้อยๆๆๆ ลงมาตอนรับ นะคับ ใช้คำสั่งอะไรหรือคับ

« เมื่อ: มีนาคม 22, 2012, 15:31:35 PM »

คือเวลารันผมต้องการซ่อนฟอร์มที่ห้อยๆๆๆลงมานะคับ ใน Ribbon ใช้โค้ดว่าอย่างไรคับ ลืม..

ขอบคุณคับ

29

Development / Re: อาจารย์ครับ มีโปรแกรมทำ Help ตัวไหนที่เจ่งๆๆ บ้างคับผม..

« เมื่อ: มีนาคม 21, 2012, 11:32:07 AM »

ขอบคุณมากคับ

ผมใช้ help and manual เมนูด้านขวาไม่เป็นภาษาไทยนะคับ เวลา คอมไพ..

ใครเคยใช้แก้ไงคับผม

30

Development / อาจารย์ครับ มีโปรแกรมทำ Help ตัวไหนที่เจ่งๆๆ บ้างคับผม..

« เมื่อ: มีนาคม 15, 2012, 21:02:22 PM »

อาจารย์ครับ มีโปรแกรมทำ Help ตัวไหนที่เจ่งๆๆ บ้างคับผม..

31

Development / Delphi XE Print to file ใน Report Builder ไปกำหนดตรงไหนคับ

« เมื่อ: มีนาคม 12, 2012, 09:46:56 AM »

เวลาทำรายงานใน Report Builder แล้วมันไม่ปรากฏ Print To File มานะคับ ไม่ทราบว่าต้องไปกำหนดตรงไหนคับ

รบกวนอาจารย์ช่วยแนะนำด้วยคับ...

ขอบคุณครับ

32

Development / Delphi XE ผมทำ Auto Logout แล้วมัน Error Pointer คับอาจารย์

« เมื่อ: มีนาคม 11, 2012, 18:28:46 PM »

ใช้ Delphi XE พอทำ auto logout แล้ว กด Login เข้าโปรแกรมอีกครั้ง

โปรแกรมก็แจ้งดังภาพ และก็กดที่เมนูไหนก็แจ้ง Error ดังภาพเช่นกันคับ

รบกวนอาจารย์แนะนำวิธีแก้หน่อยคับผม

33

Development / Re: รบกวนเรื่อง SQL LEFT OUTER JOIN นะคับ อาจารย์

« เมื่อ: มีนาคม 10, 2012, 22:26:28 PM »

อ้อได้แล้วคับ ลักขณะนึ้คับ

SELECT ac.print_val ,a.acc_num,ac.accused_name,ac.jamlai_number,
ac.accused_cid,of.post,of.office_name,co.court_name,a.court_date_expire,
a.court_date_finish,CONCAT(em.pname_name,em.emp_name,' ',em.emp_sname) as empname
FROM law_accused ac
LEFT OUTER JOIN law_acc a ON ac.acc_num=a.acc_num
LEFT OUTER JOIN law_office of ON SUBSTRING(ac.accused_cid,3,4)=of.id
LEFT OUTER JOIN law_court co ON a.court_id=co.id
LEFT OUTER JOIN law_emp em ON a.area_investigate=em.emp_id
WHERE of.post is not NULL
UNION ALL
SELECT ac.print_val ,a.acc_num,ac.accused_name,ac.jamlai_number,
ac.accused_cid,ofl.mypost,ofl.land,co.court_name,a.court_date_expire,
a.court_date_finish,CONCAT(em.pname_name,em.emp_name,' ',em.emp_sname) as empname
FROM law_accused ac
LEFT OUTER JOIN law_acc a ON ac.acc_num=a.acc_num
LEFT OUTER JOIN law_office_land ofl ON SUBSTRING(ac.accused_cid,3,4)=ofl.myid
LEFT OUTER JOIN law_court co ON a.court_id=co.id
LEFT OUTER JOIN law_emp em ON a.area_investigate=em.emp_id
WHERE ofl.mypost is not NULL

ขอบคุณคับ..

34

Development / รบกวนเรื่อง SQL LEFT OUTER JOIN นะคับ อาจารย์

« เมื่อ: มีนาคม 10, 2012, 16:52:26 PM »

คือผมต้องการใช้ LEFT OUTER JOIN เพื่อ Join ตารางที่ต้องการแบบนี้คับ

-- ถ้า Join ตารางนี้แล้วไม่เจอ ให้ไป Join ตารางถัดไป ถ้าไม่เจออีกก็ไป join ตารางถัดไปอีกเรื่อยๆๆ นะคับ

ขอบคุณคับผม

35

Development / Re: พัฒนา Delphi แต่ Error Key violation คือไรคับอาจาย์

« เมื่อ: มีนาคม 09, 2012, 22:53:34 PM »

อ้อ ทำได้แล้วคับ พี่ดุสิต

ผมใช้แค่ UniQurey กับ Datasource แล้วทำ MasterSource เอาคับ

ทีมัน Error ข้างต้นเพราะตอนแรกผมใช้ ClientDataSet มาขัึ้นกลาง คับ ผมว่าคงเป็นเพราะ ClientDataSet ตัวนี้หรือเปล่าไม่แน่ใจ แต่พอตัดมันออกจาก กล่ม ก็หายเลยคับ

ขอบคุณคับพี่..

36

Development / Re: พัฒนา Delphi แต่ Error Key violation คือไรคับอาจาย์

« เมื่อ: มีนาคม 09, 2012, 22:39:10 PM »

ขอบคุณพี่ดุสิตคับผม ..

1. uniQurey ผมลาก มาแปะคับ
2. ลองใช้ hosxp_getdataset ก็เป็นเหมือนกันคับ
3. ทำแบบ Mastersource และกำหนด MasterFields ก็ขึ้นเหมือนกันคับผม

37

Development / Re: พัฒนา Delphi แต่ Error Key violation คือไรคับอาจาย์

« เมื่อ: มีนาคม 09, 2012, 22:27:58 PM »

คือถ้ามีข้อมูลจะไม่มีอะไร

แต่ถ้าไม่มีข้อมูลมันจะขึ้นแบบนี้นะคับ ผม..

38

Development / Re: พัฒนา Delphi แต่ Error Key violation คือไรคับอาจาย์

« เมื่อ: มีนาคม 09, 2012, 22:11:10 PM »

แบบนี้คับพี่ดุสิต...

UniQuery1.Close;
UniQuery1.sql.Clear;
sql:= 'SELECT * from law_print_td9_detail ldetail ' +
' LEFT OUTER JOIN law_print_td9_detail_see dsee on ldetail.td9_num=dsee.td9_num ' +
' WHERE (have_yes <> "N" OR have_no <> "N") ' +
' And jamlai_cid = ' + JLQr.FieldByName('accused_cid').AsString + ' ';
UniQuery1.SQL.Add(sql);
UniQuery1.Open;

39

Development / Re: พัฒนา Delphi แต่ Error Key violation คือไรคับอาจาย์

« เมื่อ: มีนาคม 09, 2012, 22:02:54 PM »

รูปแบบนี้นะคับ ..

40

Development / พัฒนา Delphi แต่ Error Key violation คือไรคับอาจาย์

« เมื่อ: มีนาคม 09, 2012, 22:01:13 PM »

ช่วยแนะนำหน่อยคับผม

41

Development / Re: cxGrid สามารถยัด datasource ได้เลยไหมคับ..

« เมื่อ: มีนาคม 09, 2012, 21:30:56 PM »

ขอบคุณ มากมายคับผม..

42

Development / cxGrid สามารถยัด datasource ได้เลยไหมคับ..

« เมื่อ: มีนาคม 04, 2012, 13:14:40 PM »

คือผมอยากทำเหมือน ตัว SQL Qurey ใน HosXP คับ รบกวนอาจารย์ช่วยแนะนำด้วยนะคับ

ขอบคุณครับ

43

โปรแกรม Add-on HOSxP / Re: Data warehouse Mini Server & Client Tools :: เครื่องมือจัดการข้อมูล DW สำหรับ Admin

« เมื่อ: กุมภาพันธ์ 27, 2012, 01:08:20 AM »

ขอบคุณพี่ dusit มากคับ สำหรับโปรแกรมดีดี

หลักการส่งข้อมูลไปที่ Datacenter ของโปรแกรมพี่ ใช้หลักการแบบไหนคร๊าป ช่วยอธิบายหน่อยคับผม.. อยากทราบหลักการทำงานนะคับผม.. ขอบคุณครับ

44

โปรแกรม Add-on HOSxP / Re: Data warehouse Mini Server & Client Project :: ระบบคลังข้อมูลขนาดเล็ก

« เมื่อ: กุมภาพันธ์ 24, 2012, 23:37:14 PM »

สุดยอดเลยคับพี่ dusit

ผมก็กำลังลองเล่น Delphi XE2 อยู่พอดี แต่หาคอมโพเนน ไม่มีคับ พี่พอมีแบ่งให้ศึกษาใหมคับ โดยเฉพาะ DevExpress

ขอบคุณคับ

45

Development / รบกวนอาจารย์เรื่อง cxGrid ให้สามารถติ๊ก CheckBox ไมได้นะคับ

« เมื่อ: กุมภาพันธ์ 24, 2012, 11:40:55 AM »

อาจารย์คับ ผมใช้ cxGrid กับ ClientDataSet อยากให้ช่อง Checkbox สามารถติดได้ ฟิวด์เดียว ฟิวอื่น Readonly แนะนำด้ว้ยคับ ขอบคุณคับ

46

Development / อาจารย์คับอยู่ดีดี ClientDataSet ผมมัน Append ไม่ได้คับ

« เมื่อ: กุมภาพันธ์ 21, 2012, 09:53:15 AM »

หาที่แก้ไม่เจอคับ.. รบกวนช่วยแนะนำหน่อยคับ..

47

Development / Re: อาจารย์คับ ผมทำตัว Setup โปรแกรมทีทำเสร็จแล้วไปลงเครื่องอื่นใช้ไม่ได้อะคับ แนะนำหน่อย

« เมื่อ: กุมภาพันธ์ 20, 2012, 11:38:06 AM »

ขอบคุณคับผม..

48

Development / อาจารย์คับ ผมทำตัว Setup โปรแกรมทีทำเสร็จแล้วไปลงเครื่องอื่นใช้ไม่ได้อะคับ แนะนำหน่อย

« เมื่อ: กุมภาพันธ์ 18, 2012, 21:52:14 PM »

ไม่ทราบว่าเขาทำ Setup โปรแกรมที่ทำแล้วยังไงคับ ผมลองใช้ Inno Setup ก็ไม่ได้อะคับ รวบกวนอาจารย์ผู้รู้แนะนำหน่อยคับผม...

49

Development / Re: อาจารคับคำสั่ง Like '%' ของผมเขียนแล้วไม่ค้นหาตามที่ต้องการนะคับ

« เมื่อ: กุมภาพันธ์ 07, 2012, 23:50:50 PM »

ได้แล้วคับ เปลี่ยนนิดเดียว เอง แต่หาจนเหนื่อย..

viewcds.data:=sa_getdataset('select la.*,lj.jod_name,lt.lawtype_name,lc.court_name ' +
' from law_acc la ' +
' left outer join law_jod lj on la.jod_id=lj.jod_id ' +
' left outer join law_type lt on la.lawtype_id=lt.lawtype_id ' +
' left outer join law_court lc on la.court_id=lc.id ' +
' where (acc_num like ''%' + s + '%'') ' +
' or (jod_name like ''%' + s + '%'') ' +
' or (lawtype_name like ''%' + s + '%'') ' +
' or (court_name like ''%' + s + '%'') ' +
' order by acc_num desc');

50

Development / อาจารคับคำสั่ง Like '%' ของผมเขียนแล้วไม่ค้นหาตามที่ต้องการนะคับ

« เมื่อ: กุมภาพันธ์ 07, 2012, 21:44:42 PM »

เวลาค้นหาโปรแกรมก็จะ Error บอกว่า ดังภาพนะคับ ทำไงดีช่วยแนะนำด้วยนะคับ

s := QuotedStr(txtSearch.text);
viewcds.close;
viewcds.data:=sa_getdataset('select la.*,lj.jod_name,lt.lawtype_name,lc.court_name ' +
' from law_acc la ' +
' left outer join law_jod lj on la.jod_id=lj.jod_id ' +
' left outer join law_type lt on la.lawtype_id=lt.lawtype_id ' +
' left outer join law_court lc on la.court_id=lc.id ' +
' where ' +
' (acc_num like "%' + s + '%") ' +
' or (jod_name like "%' + s + '%") ' +
' or (lawtype_name like "%' + s + '%") ' +
' or (court_name like "%' + s + '%") ' +
' order by acc_num desc');
viewcds.open;

--------------- Error ดังภาพคับ