BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: James011 ที่ เมษายน 15, 2010, 13:09:19 PM
-
;D ;D Patient2Person Verson 2 By James@NakhonSi Team ;D ;D
;D ;D ตามรูป นำเข้าได้ทั้งในเขตและนอกเขต
ปุ่ม 1 := ตรวจสอบเลขบัตรประชาชนที่ไม่ถูกต้องในตาราง Paitent
ปุ่ม 2 := ตรวจสอบเลขบัตรประชาชนที่ไม่ถูกต้องในตาราง Person
ปุ่ม 3 := ตรวจสอบจำนวน Patient ที่ไม่มีในตาราง Person
ปุ่ม 4 := นำเข้าข้อมูลจาก Patient ที่ไม่มีในตาราง Person เข้าในตาราง Person
โดยตรวจสอบเลขบัตรประชาชนก่อน ถ้าถูกต้องจึงนำเข้าให้
และจะทำ patient link ให้ด้วย
ปุ่ม 5 := บันทึกข้อมูลจาก Listbox เป็น Textfile
***** Download := http://www.hpc11.go.th/james/ Download เสร็จ Thank ให้ด้วยครับ*****
*** นำเข้าเสร็จ Update age ด้วยนะครับ***
-
;D ;D ;D รอเก็บ Thanks พี่เจมส์สำหรับสิ่งดี ๆ ที่นำมาฝากครับ ;D ;D ;D
-
สงกรานต์ไม่ไปไหน บ้างเหอ น้องบ่าว
ขยันจริงๆๆ
ขอบคุณมากครับ
-
สุดยอด
-
ขอบคุณท่าน เจมส์ ครับ... ;D ;D
-
ขอบคุณ.... สำหรับสิ่งดีๆ ให้พวกเราใช้.................
-
ขอบคุณมากครับ
-
ขอบคุณครับ มีดีๆมาฝากตลอดเลย พวกเรามายินดีกับท่าน nuttavut ด้วยที่ได้ทายาทคนใหม่หมาดๆ
ยุ่งงานไหนจะมาดูลูกน้อยอีก เอาใจช่วยครับ
-
ขอบคุณครับ มีดีๆมาฝากตลอดเลย พวกเรามายินดีกับท่าน nuttavut ด้วยที่ได้ทายาทคนใหม่หมาดๆ
ยุ่งงานไหนจะมาดูลูกน้อยอีก เอาใจช่วยครับ
ขอบคุณครับพี่... ;D ;D ...ช่วงนี้งานเข้าครับ ;D ;D
-
ขอบคุงนะค่ะ พี่เจมส์ใจดีทุกเรื่องเลยเนอะ
-
;D ;D ขอบคุณครับ ;D ;D
-
ขอบคุณครับพี่... Grin Grin ...ช่วงนี้งานเข้าครับ Grin Grin
;D ;D ;D อ้าว...ไหนตอนที่ไปวิเชียรบุรีบอกผมว่ายังโสดล่ะครับป๋าณัฐ บอกรูปเด็กที่ใต้ชื่อน่ะหลาน ฮิ ฮิ ฮิ ;D ;D ;D
-
...มีเทพจุติอีกแล้ว 1 ท่าน..HOSxP จงเจริญ...อิอิ ;D ;D
-
ในที่สุด V.2 ก็คลอดแล้ว ;D ;D ;D
-
ขอบคุณครับ
-
ขอบคุณครับ
-
อ.เจมส์ครับ ถามนิดหนึ่งครับ กลับจากเทียวสงกรานต์ยังเนี้่ย ผมทดสอบใช้แล้วมัน Error ครับดังรูปไม่ทราบว่าเป็นเพราะอะไรและต้องแก้ไขอย่างไรครับ
-
ทำไม field 13 หลัก ถึง blank มากจังครับ....ค่าว่างเกือบหมดแน่ะ
-
อ.เจมส์ครับ ถามนิดหนึ่งครับ กลับจากเทียวสงกรานต์ยังเนี้่ย ผมทดสอบใช้แล้วมัน Error ครับดังรูปไม่ทราบว่าเป็นเพราะอะไรและต้องแก้ไขอย่างไรครับ
;D ;D ขอ Call Stack ด้วยครับ
-
อ.เจมส์ครับ ถามนิดหนึ่งครับ กลับจากเทียวสงกรานต์ยังเนี้่ย ผมทดสอบใช้แล้วมัน Error ครับดังรูปไม่ทราบว่าเป็นเพราะอะไรและต้องแก้ไขอย่างไรครับ
Tool สายฟ้าใน HOSxP แล้วใช้คำสั่ง
select cid, hn, pname, fname, lname where length(cid)=13 and locate(' ',cid) > 0
จะเจอ cid ที่ทำให้เกิด Error
*****locate(' ',cid) ระหว่าง '' (single quote) เคาะ space bar 1 ครั้ง
-
อ.เจมส์ครับ ถามนิดหนึ่งครับ กลับจากเทียวสงกรานต์ยังเนี้่ย ผมทดสอบใช้แล้วมัน Error ครับดังรูปไม่ทราบว่าเป็นเพราะอะไรและต้องแก้ไขอย่างไรครับ
;D ;D ขอ Call Stack ด้วยครับ
Call stack ครับ
-
อ.เจมส์ครับ ถามนิดหนึ่งครับ กลับจากเทียวสงกรานต์ยังเนี้่ย ผมทดสอบใช้แล้วมัน Error ครับดังรูปไม่ทราบว่าเป็นเพราะอะไรและต้องแก้ไขอย่างไรครับ
;D ;D ขอ Call Stack ด้วยครับ
Call stack ครับ
;D ;D ;D ผมเขียนเพิ่มการตรวจสอบตัวเลขให้แล้วครับ เพื่อป้องกัน Error วันจันทร์ Upload ใหม่ให้ครับ
-
เวอร์ชั่นใหม่ 2 ออกแล้วนะครับ....
ถ้าพี่เจมส์ เพิ่ม link HN ให้ด้วยน่าจะดีนะครับ
หรือปุ่มให้ตรวจสอบถ้ามี เลข 13 หลัก ตรงกับ patient
ก็เอา HN มาใส่ใน Person ;D ;D
-
เวอร์ชั่นใหม่ 2 ออกแล้วนะครับ....
ถ้าพี่เจมส์ เพิ่ม link HN ให้ด้วยน่าจะดีนะครับ
หรือปุ่มให้ตรวจสอบถ้ามี เลข 13 หลัก ตรงกับ patient
ก็เอา HN มาใส่ใน Person ;D ;D
;D ;D ;D ครับ
-
ขอบคุณครับ...พี่เจมส์
ว่าแต่...ไม่ไปใหนกันบ้างเลยเหรอครับพี่ๆ
-
ขอบคุณครับ...พี่เจมส์
ว่าแต่...ไม่ไปใหนกันบ้างเลยเหรอครับพี่ๆ
;D ;D ;D
-
รอเวอร์ชั่นวันจันทร์ ;D
-
;D ;D ;D ;D Upload ให้ใหม่แล้วครับ Donwload ได้เลยครับ
- เพิ่มการตรวจสอบตัวเลข ป้องกัน Error
- เปิดปุ่ม PatientLink2Person ไว้ทำ PatientLink สำหรับ Person ที่ยังไม่มี Patient Link
โดยใช้ cid ในการสร้าง Ralation ระหว่าง Person กับ Patient
-
ขอบคุณท่าน เจมส์@ศูนย์อนามัยที่ 11 มาเก็บผลงานอีกครั้ง ;D ;D
และยินดี กับ อ.ณัฐ ที่ได้ลูกชาย คนที่ 2 ช่วงนี้คงต้องตื่นแต่เช้า(ซักผ้าอ้อม ซ่ะแล้ว งานเข้าจริงๆ) ;D ;D
-
ขอบคุณมากครับพี่เจมส์
-
ขอบคุณครับ
-
ขอบคุณครับ
-
ขอบคุณครับ ;D
-
ขอบคุณครับ 8)
-
ขอบคุณมากครับ
-
;D ;D ;D ใครทดสอบบ้างยังครับ ข้อมูล patient เข้า person หมู่ในเขตและนอกเขตตรงป่าวครับ
-
มาที่หลัง ก็ขอบคุณด้วยเหมือนกันครับ
-
ผมอยากให้เพิ่ม ให้นำเข้าเฉพาะที่มารับบริการในช่วงวันที่เลือกครับ เพราะลองนำเข้าเครื่องทดสอบแล้ว ระบบช้าลงพอสมควรเลย
-
;D ฝากตัด นำเข้าข้อมูล cid ที่มีศูนย์นำหน้า (โดยมาจากการ Generate โปรแกรมตัวจับไม่ได้) ให้เหลือเฉพาะcid ที่เป็นของจริงด้วยครับ
-
ขอบคุณครับ ช่วยได้เยอะเลย
-
ทดสอบใช้กับฐานจริงจะเกิดปัญหาอะไรมั้ยครับ
;D ;D ;D
-
Thank You
-
ทดสอบใช้กับฐานจริงจะเกิดปัญหาอะไรมั้ยครับ
;D ;D ;D
;D ;D ;D ;D ใช้งานจริงอยู่ครับตอนนี้
-
ขอบคุณครับ กำลังทดสอบ
-
ขอบคุณด้วยคนค่ะ
-
ขอบคุณมากครับ คุณเจมส์..ซาบซึ้งในน้ำใจจริง
-
ขอบคุณมากเลยครับ ;D
-
V.2 ได้ Update Serial number ของตาราง person ให้หรือเปล่าครับ
ตาราง select * from serial where name=person_id ผมก็ยังงงอยู่ว่าทำไมของผมไม่ update อ่ะครับ
พอจะลงทะเบียนเข้าบัญชี 1 ใหม่ Primary key ของผมมันซ้ำครับ
-
;D ;D เดี่ยวจะปรับให้ใน Verson 2.5 ครับ สิ่งที่จะปรับคือ
1. เพิ่มการตรวจสอบ cid แบบ Gen cid by HOSxP
2. เพิ่มการตรวจสอบ cid เฉพาะคนไทย
3. Update สิทธิ patient2person
4. Update Typearea
5. Update Serial house_id,person_id
ตาราง select * from serial where name=person_id ผมก็ยังงงอยู่ว่าทำไมของผมไม่ update อ่ะครับ
พอจะลงทะเบียนเข้าบัญชี 1 ใหม่ Primary key ของผมมันซ้ำครับ
;D ;D วิธีแก้ปัญหา
1. โดยการ Update Serial เอง
2. ใช้ Tool Patient2Person V2 แทน ปุ่ม ลงทะเบียนผู้ป่วยนอกเขตไปก่อน (ผมใช้อยู่ครับ)
-
;D ;D เดี่ยวจะปรับให้ใน Verson 2.5 ครับ สิ่งที่จะปรับคือ
1. เพิ่มการตรวจสอบ cid แบบ Gen cid by HOSxP
2. เพิ่มการตรวจสอบ cid เฉพาะคนไทย
3. Update สิทธิ patient2person
4. Update Typearea
5. Update Serial house_id,person_id
ตาราง select * from serial where name=person_id ผมก็ยังงงอยู่ว่าทำไมของผมไม่ update อ่ะครับ
พอจะลงทะเบียนเข้าบัญชี 1 ใหม่ Primary key ของผมมันซ้ำครับ
;D ;D วิธีแก้ปัญหา
1. โดยการ Update Serial เอง
2. ใช้ Tool Patient2Person V2 แทน ปุ่ม ลงทะเบียนผู้ป่วยนอกเขตไปก่อน (ผมใช้อยู่ครับ)
ขอบคุณมากครับ ตอนนี้ Update Serial เรียบร้อยแล้วครับ ;D ;D
-
ของผม error แบบนี้ครับ แก้ไขอย่างไรครับ อ.เจมส์
EurekaLog 6.0.23
Application:
--------------------------------------------------------------------------
1.1 Start Date : Mon, 14 Jun 2010 10:42:27 +0700
1.2 Name/Description: Patient2Person Verson 2 By James@NakhonSi Team.exe
1.3 Version Number : 3.50.10.8
1.4 Parameters :
1.5 Compilation Date: Sat, 17 Apr 2010 20:02:55 +0700
1.6 Up Time : 3 minutes, 42 seconds
Exception:
------------------------------------------------------------------------
2.1 Date : Mon, 14 Jun 2010 10:46:09 +0700
2.2 Address : 00C3E531
2.3 Module Name : Patient2Person Verson 2 By James@NakhonSi Team.exe
2.4 Module Version: 3.50.10.8
2.5 Type : EZSQLException
2.6 Message : Can not open a ResultSet.
2.7 ID : 8CD8
2.8 Count : 1
2.9 Status : New
2.10 Note :
User:
-------------------------------------------------------
3.1 ID : BlackSimon
3.2 Name : Black
3.3 Email :
3.4 Company : CTU
3.5 Privileges: SeChangeNotifyPrivilege - ON
SeSecurityPrivilege - OFF
SeBackupPrivilege - OFF
SeRestorePrivilege - OFF
SeSystemtimePrivilege - OFF
SeShutdownPrivilege - OFF
SeRemoteShutdownPrivilege - OFF
SeTakeOwnershipPrivilege - OFF
SeDebugPrivilege - OFF
SeSystemEnvironmentPrivilege - OFF
SeSystemProfilePrivilege - OFF
SeProfileSingleProcessPrivilege - OFF
SeIncreaseBasePriorityPrivilege - OFF
SeLoadDriverPrivilege - ON
SeCreatePagefilePrivilege - OFF
SeIncreaseQuotaPrivilege - OFF
SeUndockPrivilege - ON
SeManageVolumePrivilege - OFF
SeImpersonatePrivilege - ON
SeCreateGlobalPrivilege - ON
Computer:
------------------------------------------------------------------------------
5.1 Name : NOTEBOOK-KNOTT
5.2 Total Memory : 2043 Mb
5.3 Free Memory : 1566 Mb
5.4 Total Disk : 100 Gb
5.5 Free Disk : 49.29 Gb
5.6 System Up Time: 2 hours, 46 minutes, 15 seconds
5.7 Processor : Intel(R) Core(TM)2 Duo CPU P8700 @ 2.53GHz
5.8 Display Mode : 1280 x 800, 32 bit
5.9 Display DPI : 96
5.10 Video Card : NVIDIA GeForce G 105M (driver 6.14.11.7953 - RAM 512 MB)
5.11 Printer : Kyocera FS-1128MFP (driver 6.0.6001.22116)
Operating System:
------------------------------------
6.1 Type : Microsoft Windows XP
6.2 Build # : 2600
6.3 Update : Service Pack 3
6.4 Language: Thai
6.5 Charset : 222
Network:
---------------------------------------------------
7.1 IP Address: 000.000.000.000 - 192.168.187.222
7.2 Submask : 000.000.000.000 - 255.255.255.000
7.3 Gateway : 000.000.000.000 - 192.168.187.254
7.4 DNS 1 : 000.000.000.000 - 192.168.187.254
7.5 DNS 2 : 000.000.000.000 - 000.000.000.000
7.6 DHCP : ON - ON
-
;D ;D เดี่ยวจะปรับให้ใน Verson 2.5 ครับ สิ่งที่จะปรับคือ
1. เพิ่มการตรวจสอบ cid แบบ Gen cid by HOSxP
2. เพิ่มการตรวจสอบ cid เฉพาะคนไทย
3. Update สิทธิ patient2person
4. Update Typearea
5. Update Serial house_id,person_id
;D รอโหลดด้วยคนครับ อ.เจมส์ผู้ใจดี
-
;D ;D มารอด้วยคนครับ ;D ;D
-
ขอบคุณครับ
-
ขอบคุณครับ
-
ขอบคุณครับ
-
ขอบคุณครับ สำหรับ V.3
-
thank alot ครับ
ร่วมทดสอบ Vir 3 แล้ว เยี่ยม ครับ
ยินดีกับเทพเจมส์ด้วยครับ
-
โหลดไม่ได้เลยอ่ะครับ :( >:( >:( ;D
-
;D ;D ;D http://www.hpc11.go.th/p2pv3/