เห็น สปสช เขียนด้วย visual studio แล้วผมก็คิดว่า delphi ก็ต้้องทำได้ซิ    แต่ติดที่ว่าจะนำ ไฟล์ .txt ใน listbox นำเข้าฐานข้อมูลได้ยังไง  ขอบคุณครับ

แสดงว่าเขียนโปรแกรมเสร็จแล้ว อยากเห็นผลงานครับ

ไปที่หน้าออกแบบรายงานง่ายกว่าครับ
สร้าง variable แล้วใช้ฟังค์ชั่น getpatienaddress ตามรุปครับ

เมื่อผมนำโปรแกรมมาตรวจสอบก็เหมือนเป็นปกติดี แต่ให้สังเกตุกรอบสีแดงตามรูปค่าที่อ่านจากนิยามจะเป็นแบบนี้

  1   = เลิกสูบแล้วอย่างน้อย 1 เดือน   
  1   = เลิกสูบแล้วอย่างน้อย 1 เดือน   
  1   = เลิกสูบแล้วอย่างน้อย 1 เดือน   
  2   = ยังสูบอยู่ หรือเลิกสูบได้ยังไม่ถึง 1 เดือน
  1   = เลิกสูบแล้วอย่างน้อย 1 เดือน 

ได้ลองหัดเขียนครับ  แต่ปัญหาคือ ส่วนที่ผมเพิ่มใหม่ไม่ออกครับ ต้องไปแก้ที่ตรงไหนครับ
var
  fvn,fcomputername,fdepartment,fhn, scrcl, sgfr, sLastCrDate,fvn1,fcomputername1,fdepartment1,fhn1 : string;
  crcl, gfr, bw, LastCr, age_y, sex, a, factor : double;
  LastCrDate : date;
  cc:integer;

    total:integer;
begin

  fvn:= GetGlobalValue('VN');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');
  fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');


  if getsqldata('select depcode from kskdepartment where depcode in ("001","002","003","004","005","006","007","008","103","022","014","112") and depcode="'+fdepartment+'"')=''+fdepartment+'' then

      bw:=getsqldata('select bw from opdscreen where hn="'+fhn+'" order by vn desc limit 1');

      LastCr:=getsqldata('select lo.lab_order_result from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="155" and lh.hn="'+fhn+'" '+
      ' order by lh.order_date desc, lh.order_time desc limit 1');

      LastCrDate:=getsqldata('select lh.order_date from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="155" and lh.hn="'+fhn+'" '+
      ' order by lh.order_date desc, lh.order_time desc limit 1');

      age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');

      //factor:=getsqldata('select if(sex=1,1,0.85) as factor from patient where hn="'+fhn+'"');

      factor:=getsqldata('select if(sex=1,1,0.742) as factor from patient where hn="'+fhn+'"');

      //crcl:=(140-age_y)*bw*factor/(72*LastCr);

      gfr:=186*exp(-1.154*ln(LastCr))*exp(-0.203*ln(age_y))*factor;

      ///scrcl:=FormatFloat('#.##', crcl);

      sgfr:=FormatFloat('#.##', gfr);

      sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);

       if getsqldata('select count(lo.lab_order_result) as cc from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="155" and lh.hn="'+fhn+'"')>0 then

       begin
       if gfr>=90 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 1 äµ»¡µÔ)')
       else if gfr>=60 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 2 äµ¼Ô´»¡µÔ GFR Å´ÅàÅ硹éÍÂ)')
       else if gfr>=30 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 3 äµ¼Ô´»¡µÔ GFR ŴŻҹ¡ÅÒ)')
       else if gfr>=15 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 4 äµ¼Ô´»¡µÔÁÒ¡ GFR Å´ÅÁÒ¡)')
       else if gfr<15 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 5 äµÇÒÂÃÐÂÐÊØ´·éÒ GFR Å´ÅÁÒ¡·ÕèÊØ´)');
       end;
  end;





//total : double;

//////////////////////////////////////////////////////////////ส่วนที่เขียนใหม่ครับ

 begin
     fvn1:= GetGlobalValue('VN');
  fdepartment1 := GetGlobalValue('CURRENT_DEPCODE');
  total := getsqldata('select sum(sum_price)as cc from opitemrece where pttype = "28" and vn = "'+fvn1+'" ');


     if  total > 250 then
       showmessage('¤èÒÂÒà¡Ô¹ 250');
   end;
        end;


end;

     end.

ขอเอาไปเป็นแรงบันดาลใจได้ไหมครับ 

แก้ดาวน์โหลด Expired ให้แล้วนะครับ 

อ้างจาก: 5xXx5 ที่ กรกฎาคม 17, 2013, 11:33:32 AM

คือผมยังงงกับระดับการเข้าถึงนะครับ คือ เจ้าหน้าที่ทั่วไปโอเค ถ้าเป็นระดับหัวหน้างานกับหัวหน้าทีมนำต่างๆ จะเข้ายังไงครับ..คือระดับหัวหน้าจะรู้ว่าหน่วยงานของตนใครส่งบ้างกับมีเรื่องอะไรส่งถึงตนบ้าง ใช่ไหมครับ กับระดับหัวหน้าทีมนำต่างๆ จะเข้ายังไงแล้วแบ่งทีมนำต่างๆยังไง และทีมนำความเสี่ยงเข้ายังไงเข้าถึงได้หมดไหมนะครับ  ขอบคุณครับ

ลองดาวน์โหลดตัว full จะมี slide powerpoint ลองอ่านดูก่อนนะครับ

ต้องไปกำหนดยังไงครับ

copy(MyQuery.FieldValues['master_code'],1,4) คำสั่ง copy ใช้ยังไงครับ อยากรู้มานาน

โค๊ด: [Select]

procedure Button1Click
begin
DBedit1.text:=copy(MyQuery.FieldValues['master_code'],1,4)+'-'+copy(MyQuery.FieldValues['master_code'],5,4);
end;


ผิดพลาดประการใดขออภัยด้วยนะครับ ผมไม่ได้ทำมานานแล้วอาจลืม
procedure TFormDepartment.cxGrid1DBTableView1Column1GetDataText(
  Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
begin
  AText:=IntToStr(ArecordInDex+1);
end;

หมายถึงถ้ามีพยาบาลบันทึกข้อมูลแล้ว อยากจะให้ข้อมูลส่วนนี้ไม่สามารถแก้ไขได้เว้นแต่ได้รับการอนุญาคิให้สามารถเข้าไปแก้ไขได้ครับ

ปิดเครื่อง แล้วเปิดใหม่ได้ไหมครับ
shutdown -h now
แล้วเปิดเครื่อง

แสดงว่าเสาร์อาทิตย์ callcenter ก็เปิดรับบริการสิครับ

ทำยังไงครับ

อ้างจาก: narongsuk ที่ มิถุนายน 17, 2013, 12:37:39 PM

อาการเดียวกันเลยท่าน

ผมแก้โดยให้จำหมายเลขไอพีเดิมใว้ 7 วัน ก็ใช้งานได้ตามปกติครับ  ของผมเครื่องที่เปิดใช้งานมีประมาณ 100 เครื่อง ก็ไม่จ่ายไอพีเกินวงอีกเลย 

นี้แหละแรงบันดาลใจ 

ตรงนี้หรือเปล่าครับ ปล ผมไม่ได้เขียนนานแล้วครับ

ถามต่ออีกนิดนะครับ ถ้าตั้งตามนี้ระบบจะเพิ่มให้เองใช่ไหมครับเวลาคนไข้นอน 24+6 ชั่วโมง

อ้างจาก: Bond_007 ที่ มิถุนายน 10, 2013, 09:16:56 AM

พอดีอยากทดสอบดูคิดว่ามีประโยชน์เลยอยากรู้ว่าทำงานอย่างไรครับ ต้อง set ตรงนี้และต้องไปตั้งค่าที่อื่นอีกหรือเปล่าครับ

ที่ System setting ดังรูปครับ และสามารถตั่งค่าบริการอัตโนมัติให้ขึ้นตามสิทธิ์ได้ครับ ที่แถบเมนูค่าบริการอัตโนมัติ(ตามสิทธิ์) ครับ 

ช่วยได้มากเลยครับ

สวัสดีคะ

            มาที่ tool >> options >> intercept sql keyword  พิมพ์คำว่า reporttemplate   จากนั้นไปใช้งานหน้าจอที่ต้องการพิมพ์ เลือกพิมพ์ใบที่ต้องการ  มันจะขึ้นหน้าจอ debug ขึ้นมาบอกคะ ว่ากำลังเรียกใช้ฟอร์มไหนอยู่

                                                       ขอบคุณคะ 
                                              คิดว่าน่าจะช่วยได้บ้างนะคะ

เครื่องที่เป็น win7 จะมีปัญหาแบบนี้ครับ

อย่างไรครับ มันเป็นอยู่เครื่องเดียวครับเครื่องอื่นปกติครับ เป็นเฉพาะเครื่อง win 7 ครับ

ผมลงโปรแกรมใหม่ครับ

น่าจะใช่ครับ อาจารย์ผมเข้าใจว่าไม่มี พอไปลง ประวัติคัดกรองที่งาน asthma เลยไม่มีด้วยครับ ผมไม่รุ้ว่าต้องลงตรงไหนถึงจะขึ้นที่หน้าจอซักประวัติครับ

ใช่ครับ แต่พยาบาลเขาบอกว่าสามารถได้มากกว่า 200 กลายเป็นถ้าใส่ 200 ส่งข้อมูลไปจะไม่ถูกต้องตามความเป็นจริงครับ

อ้างจาก: Bond_007 ที่ มิถุนายน 04, 2013, 14:17:04 PM

อีกเรื่องหนึ่งครับ คือ Value out of bound ยังมีอยู่ในงาน asthma ครับ 

ค่าที่วัดได้ ใส่ค่า MAX=200 แทน 250 ได่้ไหมจากรูปแนบ 

3.56.6.4 สามารถส่งออกข้อมูล asthma คลีนิกได้หรือยังครับ เพราะต้องส่งสิ้นเดือนนี้แล้วครับ 

ผมลองสร้าง Package แล้วลองกด Run เจอ  error ตามรูปครับ กด compile ผ่านนะครับ

ลองรันโปรแกรมแล้วขึนแบบนี้ครับ 

ผมตั้งค่าสิทธิในการรักษาให้ออกเป้นแบบประกันสังคม แต่ทำไมถึงออกใบเสร็จรับเงินตามแบบฟอร์ม สกส ตามรูปครับ