แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - huwko

หน้า: [1] 2
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 ที่มี GFR <60 ห้ามจ่าย Metformin ทำอย่างไรคะ จากโรงพยาบาลชุมพลบุรี ค่ะพอดี admin ลาออก ช่วยหน่อยนะคะ

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

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

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

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

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

huwko_advance@hotmail.com

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

8

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

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

9


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

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

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

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


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

12

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

13

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

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

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

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

ขอบคุณคับ

16
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
รุ่นสองก็ได้เลยนะคับพี่ เดียวผมก็ไปด้วย..

18

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

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

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

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

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

20

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

[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
อาจารย์ใช้ delphi Version ไหนสอนคับผม... 

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

22

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

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

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

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

23
Development / Re: cxGrid สามารถยัด datasource ได้เลยไหมคับ..
« เมื่อ: มีนาคม 26, 2012, 12:24:26 PM »
มันเหมือนมี Record มาใส่ในกริดแต่มันไม่แสดงข้อมูลให้นะคับผม

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

24

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

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

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

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

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

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

28

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

ขอบคุณคับ

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

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

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

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

31
Development / Delphi XE Print to file ใน Report Builder ไปกำหนดตรงไหนคับ
« เมื่อ: มีนาคม 12, 2012, 09:46:56 AM »

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

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

ขอบคุณครับ

32

ใช้ 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
อ้อ ทำได้แล้วคับ พี่ดุสิต

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

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

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

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

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



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

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

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

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
รูปแบบนี้นะคับ ..

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

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

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



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

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


ขอบคุณคับ

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

46

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

48

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

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


      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
เวลาค้นหาโปรแกรมก็จะ 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 ดังภาพคับ

หน้า: [1] 2