หัดเขียน อาจารย์ช่วยดูคำสั่งหน่อยครับ มือใหม่ยังไม่ชำนาญ

[Red'A'rmY]

พอดีหัดเขียนรายงานครับมือใหม่

[nuttavut]

พอดีหัดเขียนรายงานครับมือใหม่

Capture หน้าตารายงานให้ดูหน่อยก็จะดีนะครับ จะได้ไม่ต้องนำเข้ารายงาน ฝากด้วยครับ

[Red'A'rmY]

ผู้รู้ช่วยบอกโค้ดคำสั่งหน่อยครับ พอดีมือใหม่ลองผิดลองถูกอ่ะครับ

[pop_hosxp]

ตัวอย่าง

โรคจิต F20-F25,F28-F29

var
date1, date2:tdatetime;
ds1, ds2:string;

GetDateRangeDialog(date1,date2);
ds1:=formatdatetime('yyyy-mm-dd',date1);
ds2:=formatdatetime('yyyy-mm-dd',date2);

วาง variable ลงไปตัวหนึ่งตรงจำนวนที่ต้องการหา แล้วใช้คำสั่งนี้

value:=GetSQLIntegerData('select count(vn) from vn_stat where vstdate between "'+ds1+'" and "'+ds2+'" where (pdx between "F20" and "F25" or pdx between "F28" and "F29" ');

แล้วทำแบบนี้กับตัวอื่น ๆ ครับ

[Red'A'rmY]

ลองแล้วครับ ค่าที่ออกมาเป็น 0 ครับ

[Red'A'rmY]

ผมใช้คำสั่งนี้ครับ ช่วยอาจารย์ดูที่ครับว่าใช้ได้ไหม
var
date1,date2 : datetime;
ds1,ds2,gl1: string;



if gl1='OPD' then
      begin
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');
      end else
      if gl1='IPD' then
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');
        end;
   

ลองคำสั่งนี้แล้ว ค่าที่ได้กลับเป็นศูนย์ ไม่รู้จะแก้ยังไงกำลังรอผู้รู้อยู่ครับ

[kwh]

ผมว่าน่าจะเพิ่ม

between like "F20%" and like "F25%"

จะครบกว่านะครับ

เพิ่มเติมนิดเดียว 

[Khuad]

ผมใช้คำสั่งนี้ครับ ช่วยอาจารย์ดูที่ครับว่าใช้ได้ไหม

... น่าจะเป็น ...

 if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

if gl1='IPD' then
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

... หรือ  ...

if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"')
else
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

[Red'A'rmY]

งงกำคำสั่งอ่ะครับ น่าจะลืมเขียนคำสัง่ like"F20%" ให้นะครับ

[Red'A'rmY]

ผมใช้คำสั่งนี้ครับ ช่วยอาจารย์ดูที่ครับว่าใช้ได้ไหม

... น่าจะเป็น ...

 if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

if gl1='IPD' then
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

... หรือ  ...

if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"')
else
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

คำสั่ง like"F20%" น่าจะหายไปนะครับ

[golf_win]

ผมใช้คำสั่งนี้ครับ ช่วยอาจารย์ดูที่ครับว่าใช้ได้ไหม

... น่าจะเป็น ...

 if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

if gl1='IPD' then
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

... หรือ  ...

if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29"')
else
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29"');

คำสั่ง like"F20%" น่าจะหายไปนะครับ

ไม่หายครับ ลอง run คำสั่งหรือยังครับ

[pop_hosxp]

... น่าจะเป็น ...

 if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29")');

if gl1='IPD' then
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29")');

... หรือ  ...

if gl1='OPD' then
      Value := GetSQLIntegerData('select count(vn) as c_an from vn_stat'+
        ' where vstdate between "'+ds1+'" and "'+ds2+'"'+
        '  and (pdx between "F20" and "F25" or pdx between "F28" and "F29")')
else
         Value := GetSQLIntegerData('select count(an) as c_an from an_stat'+
        ' where regdate between "'+ds1+'" and "'+ds2+'"'+
        ' and (pdx between "F20" and "F25" or pdx between "F28" and "F29")');

[Khuad]

... น่าจะเป็น ...

... ตาม อ.ป๊อบ เลยครับ
   
    copy มาวางลืมดูให้ละเอียดครับ ว่า  ) หายไป 1 ตัว ...    ....
 

[adisaksri]

... น่าจะเป็น ...

... ตาม อ.ป๊อบ เลยครับ
   
    copy มาวางลืมดูให้ละเอียดครับ ว่า  ) หายไป 1 ตัว ...    ....
 

คนมันอายุเยอะแล้วก็เป็นอย่างนี้แหละ

[Khuad]

คนมันอายุเยอะแล้วก็เป็นอย่างนี้แหละ

... อิ อิ อิ  แต่ว่าพี่น่ะ ก้ออายุเยอะกว่าผมติดนึงนาคร้าบบบบบบ 55555++ ...    ....

[Jittaya]

แล้วทำไมไม่ใช้ PDX between "F20" and "F29" ไปเลยละนี่ เพราะ F26- F27 มันไม่มีใน ICD10 นะค่ะ

[Khuad]

... อีกอย่างตรง

   and (pdx between "F20" and "F25"

   แบบนี้  จะไม่รวมพวก  F250  F251 F252  ประมาณนี้ เข้าไปด้วยครับ ....


... ถ้าต้องการ F25 ทุกตัว ต้องเขียนเป็น
   
    and (pdx between "F20" and "F2599"  ครับ ...  ...

[James011]

    อีกวิธีครับ  and (substring(pdx,1,3) between "F20" and "F25")

 

[pop_hosxp]

... อีกอย่างตรง

   and (pdx between "F20" and "F25"

   แบบนี้  จะไม่รวมพวก  F250  F251 F252  ประมาณนี้ เข้าไปด้วยครับ ....


... ถ้าต้องการ F25 ทุกตัว ต้องเขียนเป็น
   
    and (pdx between "F20" and "F2599"  ครับ ...  ...

รวมอยู่นะครับอ.ขวด

[Khuad]

รวมอยู่นะครับอ.ขวด

... หมายถึงว่า ถ้าต้องการ F25 ทุกตัว เช่นพวก F250  F251 F252 ประมาณนี้ครับ อ.ป๊อบ


    ถ้าใช้แค่  and (pdx between "F20" and "F25" มันก็จะไปหยุดอยู่แค่ F25 

    จะไม่รวมพวก F25x  ไปด้วยครับ ...  ....