รายงานการปฏิบัติการของห้อง Lab

1. เลือกช่วงวันที่
2. เลือกกลุ่ม Lab  ถ้าไม่เลือกเลยจะดึงมาทั้งหมด
3. แสดงผล Lab แยกตามกลุ่ม

รบกวนช่วยทดสอบกันด้วยนะครับ
เขียนรายงานห้อง Lab ครั้งแรกไม่แน่ใจเรื่องความสัมพันธ์ของตารางครับ

เคยโหลดมาแล้วมันถามหา CD-Key  แล้วผมหา  CD-Key ไม่เจออ่ะครับ

ตรง  OnCreate   เมื่อรับค่าวันที่มาใส่ในตัวแปรแล้ว
ต้องใช้ฟังก์ชัน   ChangeReportSQL(sql);  เปลี่ยนคำสั่ง sql   ด้วยครับ
โดย  ค่าที่ใส่เข้าไปในฟังก์ชันคือ  sql  ตัวใหม่ที่มีการนำวันที่มาต่อ 
เพราะเห็นใน Variable  มีการใช้ DBPipeline  ด้วย  ลองดูนะครับ

รู้สึกว่าใน Report_Manual  จะมีเรื่องนี้นะครับ  อยู่ที่  C:\Program Files\HOSxP\manual

ทีแรกก็นึกว่าเป็นที่ thaiaddress เหมือนกันครับ
เพราะ  query  ออกมาดู  codetype  ที่เป็น  2  (อำเภอ   มันมีไม่ครบ)
ก็เลย append  เ้ข้าไปใหม่

ปรากฎว่าเมื่อเลือกจังหวัดแล้ว  จะเลือกอำเภอ   ก็ไม่ขึ้นเหมือนเดิมครับ

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

กราฟ Advace จริง ๆ
 
ท่าทาง DBPipeline  ตัวเดียวจะไม่พอ ^_^  ลองเขียนดูก็งงเหมือนกันครับ

ขอบคุณครับ  พึ่งรู้ว่า Auto Set เค้าใช้กันแบบี้นี่เอง

เจ๋งดีครับ  จนทุกวันนี้ยังไม่รู้เลยว่า password  เข้ารหัสแบบไหน แต่ passweb เดาว่า MD5
 

เมื่อก่อนเคยใช้ฟังก์ชันพวก  sub string   หรือ  split string 
แต่พอมาเขียน  report บางครั้งจะใช้พวกนี้  แต่ผมหาฟังก์ชันมันไม่เจออ่ะครับ
พอดีไปอ่านเจอกระทู้  ของ อ.นาจ   เกี่ยวกับการเขียนฟังก์ชัน  ก็เลยลองดูครับ Function

อาจเอาไปประยุกต์ใช้กับ report ได้ครับ
เช่น  - การแยกเอาอำเภอ  หรือ  ตำบล  มาแสดง
        - query ข้อมูลโดยการ Concat  แล้วมาแยกสตริง  (ไม่รู้ว่าจะเร็วขึ้นหรือเปล่า)  กำลังจะลองครับ
        - pack  คำสั่งสำหรับ query ใหม่

ฟังก์ชัน Sub str
รับค่า  String  กับตำแหน่งเริ่มต้นกับสุดท้ามา   แล้วก็รีเทิน  sub string 
function substr(str:String;s_index:Integer;e_index:Integer):String;
begin
    result:=  Copy(str,s_index,e_index-s_index);
end;

ฟังก์ชันแยกสตริง  เรียกใช้ฟังก์ชัน  substr อีกทีครับ
รับค่าสตริง  แล้วอักขระที่ใช้ในการแยก
ตัวอย่างนี้ผมแยกแล้ว pack string  ใหม่  จาก  123,456 
แยก  123  กับ  456  ออกจากกัน  แล้วเปลี่ยนรูปแบบให้เป็น  "123","456"
เวลาเอาไปใช้ต้องแก้ในฟังก์ชันนี้ก่อนนะครับว่าต้องการผลลัพธ์แบบไหน
เพราะผมยังหาวิธีใช้ array  มารับค่าไม่ได้เลยครับ
function splitstr(str,split:String):String;
var i_start,i_end,index:Integer;
    temp,return:String;
begin
i_start:=1;
i_end := Length(str);
return:='';
       for index := 1 to i_end do
       begin
           temp:=substr(str,index,index+1);
           if CompareText(temp,split)=0 then
           begin
                   return := return +'"' + substr(str,i_start,index)+'",';
                   i_start := index +1;
           end;

       end;
       return := return +'"' +substr(str,i_start,i_end+1)+'"';
       
  Result:=return;
       
end;


ปล.  แต่ถ้ามีฟังก์ชันพวกนี้อยู่แล้วก็แนะนำด้วยนะครับ  หาไม่เจอจริง ๆ
ปล.2  ขอบคุณ อ. naj  สำหรับสอนเขียนฟังก์ชันครับ

สวยดีครับ  แจ่มเลย   

เท่าที่ผมเข้าใจตอนนี้

1. ovst  : visit  ผู้ป่วยนอก
2. ovstdiag   :  diag ผู้ป่วยนอกทุก diag  จะมี diagtype บอกว่าเป็นโรคหลักโรครอง
3. vn_stat : ข้อมูลสรุปการมา visit ของผู้ป่วยนอก    เป็นการดึงสรุปต่างๆ    เช่น diag  ค่าใช้จ่าย  มารวมกัน

4. ipt :  visit ผู้ป่วยใน
5. iptdiag  :  diag ผู้ป่วยใน
6. an_stat :  ข้อมูลสรุปของผู้ป่วยใน


ถูกผิดยังไงช่วยชี้แนะด้วยครับ

อาจารย์อ๊อด ครับของผมเรียกแล้ว ขึ้น error ดังรูป

คลิ๊กขวาแล้ว  Switch Grid   ก่อนครับ

ขอบคุณครับ

เครื่องสำรองติดต่อและใช้งานได้ปกติครับ  MySQL Workload ของเครื่องสำรองก็ปกติครับ
แต่สั่ง Login เข้า Server จริง แล้วสั่ง Run Agent  มันนิ่งไปเลยครับ

ไม่แน่ใจเรื่องราคา  2950  เหมือนกันครับ   เพราะเข้ามาทำงานก็มีอยู่แล้ว   

แต่มันสุดยอดมากมาย   http://www.nickservice.com/board/read.asp?no=288



Spec คร่าว ๆ  http://www.draytek.co.th/product/2950.htm

1. Dual-WAN

    * Outbound Policy-Based Load-Balance
    * BoD ( Bandwidth on Demand )
    * WAN Connection Fail-over

2. SSL VPN

    * Up to 50 SSL VPN Tunnels
    * SSL Web Proxy

3. WAN Protocol

    * DHCP Client
    * Static IP
    * PPPoE
    * PPTP
    * BPA
    * L2TP*

4. Firewall

    * SPI ( Stateful Packet Inspection )
    * CSM (Content Security Management) for IM / P2P Application
    * Multi-NAT, DMZ Host, Port-Redirection / Open Port
    * Policy-Based IP Packet Filter
    * DoS / DDoS Protection
    * IP Address Anti-Spoofing
    * E-Mail Alert and logging via Syslog
    * Bind IP to MAC Address

5. VPN

    * Up to 200 VPN Tunnels
    * Protocol : PPTP, IPSec, L2TP, L2TP over IPSec
    * Encryption : AES, MPPE and Hardware-Based DES / 3DES
    * Authentication : Hardware-Based MD5, SHA-1
    * IKE Authentication : Pre-shared Key and Digital Signature ( X.509 )
    * LAN-to-LAN, Teleworker-to-LAN
    * DHCP over IPSec
    * NAT-Traversal ( NAT-T )
    * Dead Peer Detection ( DPD )
    * VPN Pass-Through
    * VPN Backup
    * VPN Load-balance

6. Bandwidth Management

    * Class-based Bandwidth Guarantee by User-Defined Traffic Categories
    * DiffServ Code Point Classifying
    * 4-level Priority for Each Direction (Inbound / Outbound)
    * Bandwidth Borrowed
    * Bandwidth /Session Limitation

7. Network Management

    * Web-Based User Interface (HTTP / HTTPS)
    * Quick Start Wizard
    * CLI (Command Line Interface) / Telnet / SSH*
    * Administration Access Control
    * Configuration Backup/Restore
    * Built-in Diagnostic Function
    * Firmware Upgrade via TFTP / FTP / TR-069
    * Logging via Syslog
    * SNMP Management with MIB-II
    * TR-069

8. Content Filter

    * URL Keyword Blocking ( White list and Black list )
    * Java Applet, Cookies, Active X, Compressed / Executable / Multimedia File Blocking
    * Web Content Filter ( SurfControl )
    * Time Schedule Control

9. Network Features

    * DHCP Client / Relay / Server
    * Dynamic DNS
    * NTP Client
    * Call Scheduling
    * RADIUS Client
    * DNS Cache / Proxy
    * UPnP
    * Port-Based VLAN
    * Routing Protocol:
          o Static Routing
          o RIP V2

อยากไปเหมือนกันครับ  แต่พึ่งทำงานได้ 3 เดือนกว่า  เค้าส่งไปอบรม 2 รอบแล้วอ่ะ

ไม่รู้จะให้ไปอีกหรือเปล่า

ลองดูครับ
อย่าลืมแก้คำสั่ง sql ช่วงแรกที่เลือกพื้นที่ด้วยนะครับ

   tb:=  GetPickupList('select full_name  from thaiaddress  where addressid like"6506%" '+
         '  and codetype="3" order by name');

รพ. ผมได้ครับ  ลูกจ้างชั่วคราว
1200  วุฒิ ป.ตรี

บังเอิญเห็นนิดนึงครับ

ผู้มารับบริการ (คน)   ในเขต + นอกเขต  !=  จำนวนรวม   อ่ะครับ

^
^
ตามข้างบนครับ   

เก็บความรู้คับ  อิอิ  เยี่ยมไปเลย

แต่ถ้ากรณีที่ไม่ได้ hidden  แบบธรรมดา (super hidden) อย่าลืมเปิด super hidden นะครับ
ใน regedit  ตรง
Hkey_CURRENT_USER->Software->Microsoft->Windows->CurrentVersion->Explorer->Advanced
เปลี่ยนค่า showsuperhidden  เป็น  1
หรือจะ search showsuperhidden ก็ได้ครับ
แล้วจะเห็นไฟล์ทั้งหมดที่ซ่อนยู่

ปล.  ผมยังไม่แน่ใจว่า  super hidden ไฟล์ทั้งหมดจะถือว่าเป็น protected operating system file  หรือไม่ก็เลยใช้ showsuper hidden แทนอ่ะคับ   อิอิ

รอท่านต่อไปมาตอบว่ามันอันเดียวกันหรือเปล่าครับ

เคยเจอปัญหานี้เหมือนกันครับ  เวลากรองข้อมูลแล้วจะไม่เอาฟิลที่มีข้อมูลเป็น  ""

ก็ลองแล้วลองอีก  \"  ก็ใช้ไม่ได้   

สรุปต้องเอา  ASCII Code ของ "  มา concat  กัน  ครับ
ASCII Code ของ " คือ 0x22  (เลขฐาน 16)

ดังนั้น   ""  ก็ต้องใช้ concat(0x22,0x22)   ครับ

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

.... ขออนุญาตท่าน Imnuke เพิ่มเติมให้คุณ cb_garfield นิดหน่อยนะครับ ..
 
    ตรง ชื่อ-สกุล  ดูจาก  patient      ส่วน  วินิจฉัย  เอามาจาก vn_stat  ก็น่าจะ OK แล้วครับ ...  ....


   หรือลอง

select o1.hn,o1.vn,o1.vstdate,o1.vsttime,
concat(p1.pname,p1.fname,'   ',p1.lname) as pt_name,
o2.cc,v1.pdx,v1.dx0,v1.dx1,v1.dx3,v1.dx4,v1.dx5
from ovst o1
left outer join patient p1 on p1.hn = o1.hn
left outer join opdscreen o2 on o2.vn = o1.vn
left outer join vn_stat v1 on v1.vn = o1.vn
where  o1.vstdate between '2009-07-01' and '2009-07-02'

ตกลงผมข้าม ชื่อสกุล  กับวินิจฉัยไป  ต้องขอโทษด้วยครับรีบไปหน่อย  ไม่ทันได้ดู

ลองเขียน sql บ่อย  ๆ เดี๋ยวเห็นข้อมูลปุ๊บก็นึกออกเลยว่าใช้ตารางไหนบ้างอ่ะครับ

select ov.hn,ov.vn,ov.vstdate,ov.vsttime,os.cc from ovst ov,opdscreen os
where ov.vn=os.vn  and ov.vstdate between '2009-03-01' and '2009-03-31'

ปล. หากผิดพลาดขออภัยด้วยครับ  ^_^

ลอง search หาวิธีใช้ Memo ดูครับ  ใช้คู่กับ Variable ก็ได้ครับ