วันนี้ได้รับเอกสารการอบรมแล้วครับ

ขอบคุณทีมงาน BMS ครับ จัดส่งมาให้ล่วงหน้าเลยครับ

 

บรรทัดที่ 52 ลองแบบนี้ครับ

status:=inttostr(getsqldata('select clinic_member_status_id from clinic_member_status where clinic_member_status_name ="'+status+'"'));

 

อ.วุธรายงานตัวด้วยครับว่าหายไปทำอะไรมา เงียบไปเลย

ขอบคุณน้ามากครับที่ยังคิดถึงกันอยู่

ไม่ได้หายไปไหนครับ ยังวนเวียนอยู่แถวๆ บอร์ดนี้แหละครับ

คอยติดตามผลงานของทุกท่านเทพอยู่อย่างเงียบๆ ครับ

 

งั้่นลองทดสอบแบบนี้ให้หน่อยครับว่าได้ป่าว

var fonlineid,fvn,fcomputername,fdepartment:string;
begin
  fonlineid:=get_onlineid;
  fvn:= GetGlobalValue('VN');
  fcomputername := getsqldata('select servername from onlineuser where onlineid="'+fonlineid+'"');
  fdepartment := getsqldata('select department from onlineuser where onlineid="'+fonlineid+'"');

  showmessage('OnlineID = '+fonlineid+' , Current VN = '+fvn+'  , ComputerName = '+fcomputername+' , Department  = '+fdepartment);
end;

ผมยังไม่ได้ทดสอบในระบบจริงนะครับ

 

 

อ้างจาก: naj ที่ พฤศจิกายน 30, 2006, 05:19:16 AM

เรียนถาม อ mn
ยกตัวอย่าง เกี่ยวกับการใช้ InputQuery
begin
 GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
    fan:=InputQuery('เลือก AN ที่ต้องการ',' AN 9 หลัก เช่น 490001206'); 
            fhn :=   GetSQLStringData('select hn from ipt where an="'+fan+'"'); 

end;
เกี่ยวกับการใช้ InputQuery ครับผมอยากจะให้แสดงค่า an=490001252 เป็นค่าเริ่มต้น ใน InputQuery  ในการเรียกรายงานทุกครั้งเพื่อที่ผู้ใช้จะได้ไม่ต้องใส่ an ถึง 9 หลัก จะเปลี่ยนแค่เลขท้ายจะสะดวกกว่าไม่ทราบว่ามีวิธีอย่างไรครับ
ขอบคุณครับ
พร้อมแนบตัวอย่างนรายงานมาให้ อ mn ดูด้วยครับ

download  ไม่ได้ครับ

กระทู้มันนานแล้วนี่ครับ

 

เอาไว้ทำอะไรครับ รูป 1 กะ 2

ส่วนรูป 3 ใช้ได้หรือยังครับ

 

 

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=12305.0

 

ท่าน อู๋kokha50 ลองดูที่

ระบบผู้ป่วยนอก -> บันทึกผลการวินิจฉัย -> Diagnosis

มี episode 1,2,3 ให้จำแนกครับ

แต่ที่หน้าจอลง Diag ที่อื่นๆ ไม่มีครับ

 

FormatThaiDate(fFormat:String, fDate:Tdatetime):string;

Value := FormatThaiDate('dd/mm/yyyy',date1);

 

อ้างจาก: TanKit(กิจ) ที่ กันยายน 30, 2009, 14:34:57 PM

ยินดีด้วยนะครับ
ขอให้ได้ตัวที่ 2 ไวๆ นะครับ

คนหรือคอมครับ

 

 

จ.อ่างทอง  7 อำเภอ   ใช้ HOSxP 5 อำเภอครับ
1.รพ.ป่าโมก   ต้นตำหรับ
2.รพ.โพธิ์ทอง
3.รพ.แสวงหา
4.รพ.สามโก้
5.รพ.วิเศษชัยชาญ  (น้องใหม่ล่าสุด 26-06-52)
.........เมื่อไรจะเลิกใช้ e-Care ซะที่ก็ไม่รู้.....เซ็งเป็ด.......

ใจเย็นๆ ครับ

จังหวัดใกล้ๆ เรา เขาเริ่มเป็นรูปเป็นร่างแล้ว Datacenter

เดี๋ยวก็มาถึงเราครับ

ก็หวังว่าจังหวัดอ่างทองจะได้ใช้บริการ อ.MN ด้วยอีกจังหวัดหนึ่งครับ

 

 

ขอพลังจงอยู่กับท่าน 

 

โค๊ด: Delphi

1.  
2. dbf1.tablename:='C:\DOCUME~1\Yindee\IMPOST~1\Temp\export.dbf';
3.  
4.  

อ.naj บอก SQL และวิธีทำด้วยครับ

ขอบคุณครับ

 

ใช้ function ชื่อ GetFormComponent ครับ

ตัวอย่าง
  TCXCheckBox(GetFormComponent(100)).checked := true;



ปล. มีใน 3.52.5.27 ขึ้นไปครับ

ใช้ function ชื่อ GetFormComponent ครับ

ตัวอย่าง
  TCXCheckBox(GetFormComponent(100)).checked := true;



ปล. มีใน 3.52.5.27 ขึ้นไปครับ

สรุปแล้วมี function อะไรบ้างครับ อ.MN

จะได้ใช้ถูกครับ รอมานานแล้วครับ

 

ลองตรวจสอบแล้วครับ พบปัญหาดังกล่าวจริงๆ ครับ

คงต้องรอ อ.MN หรือ อ.อ๊อด มาตอบอีกครั้งครับ

 

ผมเดาเอานะครับว่าน่าจะเก็บเป็นตัวแปรของระบบไว้เรียกใช้ครับ

แตุ่้ถ้าเป็นราย visit ลองดูที่ pq_doctor -> doctor_time_type_id ครับ

ยังหาเจอที่เดียวตอนนี้ครับ

ยังไงคงต้องให้ อ.MN หรือ อ.อ๊อดมาตอบอีกครั้งครับ

 

 

ขอบคุณครับ

เดี๋ยวไปทดสอบก่อนครับ