แสดงกระทู้

101

แจ้งปัญหา / ขอความช่วยเหลือ / Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา

« เมื่อ: กุมภาพันธ์ 23, 2012, 15:23:14 PM »

อันนี้เป็นของ รพ....
นะครับ
ทดลองใช้งานดู้ครับ

102

แจ้งปัญหา / ขอความช่วยเหลือ / Re: แฟ้มบัญชี 1 ค่ะ

« เมื่อ: กุมภาพันธ์ 23, 2012, 15:18:34 PM »

เรียกใช้ที่อยู่จากตารางอาไรครับ

103

แจ้งปัญหา / ขอความช่วยเหลือ / Re: ค่ารักษาพยาบาลหายเป็นบางรายการ

« เมื่อ: กุมภาพันธ์ 23, 2012, 15:16:38 PM »

ลองตรวจสอบข้อมูลในค่ารักษาพยาบาลก่อนว่ามีหรือเปล่า

104

แจ้งปัญหา / ขอความช่วยเหลือ / Re: พี่ๆค่ะช่วยเหลือหน่อยค่ะ

« เมื่อ: กุมภาพันธ์ 23, 2012, 14:45:59 PM »

ตามนั้นเลยครับ

105

แจ้งปัญหา / ขอความช่วยเหลือ / Re: แก้เลขสถานพยาบาลหลักและสถานพยาบาลรองหลังจากที่ส่งตรวจแล้ว

« เมื่อ: กุมภาพันธ์ 21, 2012, 13:46:30 PM »

and vstdate between"2012-01-01" and "2012-12-30"
วันที่-ถึง-วันที่ครับ

106

Development / Re: doctor_consult

« เมื่อ: กุมภาพันธ์ 21, 2012, 10:38:09 AM »

อาจารย์ครับ
ขอเพิ่มหน่วยงานที่ทำการ Consult ด้วยครับ
และหน่วยงานที่รับ Consult ด้วยครับเพื่อการเก็บข้อมูลในการ Consult
เพื่อสรุปการ Consult ได้ครับ
ขอบคุณครับ

107

Development / Re: doctor_consult

« เมื่อ: กุมภาพันธ์ 21, 2012, 10:35:11 AM »

อาจารย์ครับ
ระบบรายการ consult
ถ้าเราไม่ได้ระบุแพทย์ในโปรแกรมจะหาไม่เจอครับ
ช่วยปรับให้แสดงข้อมูลด้วยครับ

108

Development / doctor_consult

« เมื่อ: กุมภาพันธ์ 21, 2012, 10:33:13 AM »

อาจารย์ครับ
ระบบ Consult ทำงานได้ดีครับ
แต่ขอข้อมูลผู้ทำการConsult(ให้สามารถแก้ไขได้เพราะบางที่ผู้Consultอาจไม่ใช้คนที่เราระบุครับ)
และข้อมูลวันที่และเวลาในการ Consult ด้วยครับ

109

ยินดีต้อนรับ / Re: น้องใหม่คับ

« เมื่อ: กุมภาพันธ์ 09, 2012, 15:13:39 PM »

Welcome to.

110

Delphi / Pascal / Re: ออกให้ทดสอบ DS-ASSET ระบบซ่อมบำรุงครุภัณฑ์

« เมื่อ: กุมภาพันธ์ 07, 2012, 15:20:31 PM »

Good

111

Report Exchange / Re: ฟ้องว่่า Report FORM-ER-STICKER หาไม่เจอคับ

« เมื่อ: กุมภาพันธ์ 07, 2012, 10:25:46 AM »

ลองใช้งานดูครับ

112

นอกเรื่อง / Re: สรุป นวก.คอม ลูกจ้างชั่วคราว เงินบำรุง ไม่ได้ 15000 ใช่หรือเปล่าครับ

« เมื่อ: มกราคม 30, 2012, 14:51:12 PM »

ขอคิดแบบแปลกๆๆนะครับ
อัตรากำลังคนที่ใช้ใน แต่ล่ะ รพ.
มันควรมีใครมั่งครับมันมีอัตรามาตราฐานไหม
แล้วที่มีแล้วไม่บรรจุ ผู้บริหารหมายความว่างัย....!!!!!!!

หน้าคิดไหม

113

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 27, 2012, 15:58:03 PM »

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

114

Delphi / Pascal / Re: Delphi : New Form

« เมื่อ: มกราคม 27, 2012, 15:43:59 PM »

ขอบคุณครับ

115

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 27, 2012, 15:42:28 PM »

ครับผม
ขอ component ครับ cxButtons.dcu
ด้วยครับ

116

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 27, 2012, 15:31:05 PM »

อาจารย์ไม่ผ่านครับ
ติดที่
[DCC Error] VnProject.dpr(7): F1026 File not found: 'cxButtons.dcu'

ต้องแก้ไขยังงัยครับ

117

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 27, 2012, 15:25:14 PM »

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

ต้องได้ซักวันนะครับ

118

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 27, 2012, 14:21:21 PM »

ถึง ท่านfarmonline ครับ
ช่วยแนะนำตัวอย่างและโปรแกรมซักอันครับ
ผมจะได้นำมาเป็นตัวอย่างในการใช้งานครับ
ของตัวอย่างด้วยครับ
ขอบคุณอาจารย์ครับ

119

นอกเรื่อง / Re: Error NHSO Smart Card Authentication System v.1.40

« เมื่อ: มกราคม 27, 2012, 11:00:34 AM »

เกิดจาก สปสช มีปัญหาครับ
รอซักพัหก็เข้าได้ครับ
และอีกกรณีคือรหัสของเรามีคนใช้งานอยู่เลยเข้าไปใช้งานพร้อมกันไม่ได้
รอซักพักเข้าใหม่ตอนไม่มีคนใช้งานก็เข้าได้แล้วครับ

120

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 26, 2012, 15:49:33 PM »

ขอคำแนะนำด้วยนะครับ
จะพยายามครับ
ขอบคุณครับ

121

Development / Re: เยี่ยมบ้าน

« เมื่อ: มกราคม 26, 2012, 15:20:41 PM »

อาจารย์ครับ
ขอเพิ่ม ปุ้มเยี่ยมบ้านที่หหน้างานส่งเสริมด้วยครับ
และให้การบันทึกอ้างอิงข้อมูลเชื่อมโย้งกับ VN และสามารถพิม์ใบบันทึกการเยี่ยมบ้านได้ด้วยครับ
เพื่อให้ข้อมูลมีความสอดคล่องกัน และลดการลงข้อมูลซ้ำ ด้วยครับ
และจะได้เก็บเป็นหลักฐานในการรักษาและเยี่ยมบ้านด้วย

ขอบคุณครับ

122

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: มกราคม 25, 2012, 10:14:22 AM »

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

procedure TListVnForm.cxButton2Click(Sender: TObject);
begin //บันทึก
//if ListMyQuery.State in ([dsInsert,dsEdit]) then // บันทึกและแก้ไข้ข้อมูล
//MyQueryPersonnelAdd.edit;
//MyQueryPersonnel.fieldByName('personnel_id').AsInteger;
ListMyQuery.State in ([dsInsert,dsEdit]);
ListMyQuery.fieldByName('vn').Text;
//ListMyQuery.Insert;
DBEdit1.Text:=formatdatetime('eemmddhhmmss',now);
ListMyQuery.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;

123

แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 / Re: คำนวนวันนัดผิดที่ระบบบันทึกการจ่ายยาครับ 3.55.1.18b

« เมื่อ: มกราคม 19, 2012, 15:57:39 PM »

กลับไปแก้ไขข้อมูลนะวันที่ทำการนัดครับ

124

นอกเรื่อง / Re: อยากจะขอให้ทุกๆ โรงพยาบาลสนับสนุนมาตรฐานกลางข้อมูลข่าวสาร

« เมื่อ: มกราคม 19, 2012, 15:24:03 PM »

เป็นเรื่องที่ดีครับ

125

แจ้งปัญหา / ขอความช่วยเหลือ / Re: ที่ไหนใช้ auto print สติ๊กเกอร์ห้องยาบ้างครับ

« เมื่อ: มกราคม 19, 2012, 14:51:58 PM »

ของ รพ.ผม จำแนกสิทธิที่ต้องจ่ายตั่งออกอย่างชัดเจนเลย
ตั้งแต่การทำงานห้องบัตรครับ ไม่ว่าจะไปหน่วยบริการไหนสิทธิที่เก็บตั่ง
เจ้าหน้าที่จะรู้ทันที่ครับและสั่งเก็บตั่งก่อน จ่ายยาเลยครับ

126

HOSxP PCU / Re: สอบถามเรื่อง การ map รหัสหัตถการ ครับผม

« เมื่อ: มกราคม 16, 2012, 10:30:59 AM »

แนะนำตัวหน่อยครับ

127

แจ้งปัญหา / ขอความช่วยเหลือ / Re: ระบบ refer

« เมื่อ: มกราคม 04, 2012, 15:05:02 PM »

ในการรันตัวเลขควรรันตามปี พ.ศ นะครับ
ส่วนในการทำข้อมูลนั้น ปีงบให้ค้นหาจากวันที่
ดังนั้นในการรันเลขควรเริ่มต้นที่ ปี พ.ศ นะครับ
เพื่อการง่ายต่อความเข้าใจในการทำงาน

แนวคิดของผมนะ

128

นอกเรื่อง / Re: สวัสดีปีใหม่ 2555 นี้ ขอให้สมาชิก HOSxP มีความสุขตลอดไป

« เมื่อ: ธันวาคม 30, 2011, 14:41:56 PM »

ขอให้ทุกท่านมีความสุขมากกกก นะครับ

129

Development / Re: patient

« เมื่อ: ธันวาคม 09, 2011, 11:31:27 AM »

อาจารย์คับ
ผมใช้ผู้ที่ Login เข้าใช้งานนะเวลานั้นแทนนะครับ

Value := GetSQLStringData('select o2.name from onlineuser o1,opduser o2 '+
'where o1.kskloginname = o2.loginname '+
'and o1.onlineid = "'+GetOnlineID+'" ');

130

Development / Re: patient

« เมื่อ: ธันวาคม 09, 2011, 11:05:40 AM »

อาจารย์ครับ
ขอทราบเพิ่มนะครับ
คือผู้ที่บันทึกการลงทะเบียนนะครับ
ไม่รู้ว่าข้อมูลเก็บไว้ที่ไหนครับและจะให้แสดงผลได้ยังงัยครับ
ขอบคุณครับ

131

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: พฤศจิกายน 22, 2011, 14:16:38 PM »

อ้างจาก: nummon ที่ พฤศจิกายน 10, 2011, 08:17:12 AM

repeat
vn := formatdatetime('eemmddhhnnss', now);
until ((getsqldata('select count(*) as cc from TABLEX where vn = "' + vn
+'"') = 0)

จาก ตย. source code hosxp อ.ชัยพร
vn ได้จาก formatdatetime function
แต่ต้อง checkไม่ให้ซ้ำ ใน table โดย loop repeat... until ...
แล้วจึงนำ vn ไปใช้ เป็น key fieldได้

นำไปใส่ตรงไหนคัรบ

132

Delphi / Pascal / Delphi : Report System

« เมื่อ: พฤศจิกายน 18, 2011, 15:26:12 PM »

อาจารย์ทุกท่านครับ
ช่วยแนะนำการทำหน้าฟอร์มรายงาน
โดยให้กดจากปุ้มแล้วแสดงผลใบรายงานหรือจาก
ปุ้ม radio ก็ได้ครับ
จาก หน้ารายงานหลัก System Report หน่อยครับ
ว่าต้องใช้คำสั่งอะไรบ้างครับ
ขอบคุณครับ

133

Delphi / Pascal / Re: Delphi : Record

« เมื่อ: พฤศจิกายน 15, 2011, 09:43:06 AM »

ผมไปอบรม Delphi1มาแล้วนะครับ
แต่ไม่มีการทำงานแบบ
GetSQLData เป็น function ที่ อ.ชัยพร สร้างขึ้นมาเช่นกัน ครับ เหมือน getserialnumber ครับ
ที่อาจารย์ทำไว้นะครับ
ได้เรียนกับอาจารย์ผู้หญิงนะครับ

มีข้อมูลอะไรแนะนำอีกก็ขอคำแนะนำด้วยนะครับ
ขอบคุณครับ

134

Delphi / Pascal / Re: Delphi : Record

« เมื่อ: พฤศจิกายน 15, 2011, 08:35:29 AM »

อาจารย์ครับผมทดสอบใช้งานแบบอาจารย์

procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
//MyQueryCarLog.fieldByName('car_log_id').AsInteger;
begin
//MyQueryCarLog.fieldByName('car_log_id').AsInteger;
MyQueryCarLog.fieldByName('car_log_id').AsInteger:=
GetSQLData('select get_serialnumber("car_log_id") as cc');
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;

แต่ใช้งานไม่ได้ครับ โปรแกรมฟ้องว่า

[Pascal Error] CarAddUnit.pas(159): E2003 Undeclared identifier: 'GetSQLData'
[Pascal Fatal Error] TchmProject.dpr(15): F2063 Could not compile used unit 'CarAddUnit.pas'

แบบนี้ครับ
ต้องแก้ไขหรือเพิ่มเติมอะไรหรือเปล่าครับสร้างขึ้นมาเองไม่ได้ต่อยอดกับ Turbo HOSxP Application template ของอาจารย์นะครับ

135

Delphi / Pascal / Re: Delphi : Record

« เมื่อ: พฤศจิกายน 14, 2011, 15:43:46 PM »

อ้างจาก: ittipol ที่ พฤศจิกายน 14, 2011, 15:23:32 PM

อ้างจาก: manoi ที่ พฤศจิกายน 14, 2011, 11:08:36 AM
ไม่ต้อง edit ซ้ำครับ ลองแก้เป็นแบบนี้นะครับ

procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
begin
MyQueryCarLog.fieldByName('car_log_id').AsInteger;
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;

ไม่สำเร็จครับอาจารย์ ต้องแก้ไขยังงัยต่อครับ

อาจารย์ครับ
ผมไปตั้งค่า Auto Increment ก็ใช้งานได้ครับ
และจะมีผมอะไรไหมครับ

136

Delphi / Pascal / Re: Delphi : Record

« เมื่อ: พฤศจิกายน 14, 2011, 15:26:15 PM »

อ้างจาก: Dusit ที่ พฤศจิกายน 14, 2011, 12:50:03 PM

procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
begin

MyQueryCarLog.fieldByName('car_log_id').AsInteger:=getserialnumber('car_log_id');
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;

เหมือน อ.ชัยพร ครับ เพิ่มเติม รับค่า car_log_id +1 จากฟังชั่นของ อ.ครับ
getserialnumber('car_log_id'); // จะเพิ่มค่า +1 ให้กับตัวแปรชื่อใน 'xxx' อ. สร้าง function ไว้แล้ว นำไปใช้ได้เลยครับ

ไม่ผ่านครับมันฟ้อง
[Pascal Error] CarAddUnit.pas(155): E2003 Undeclared identifier: 'getserialnumber'
[Pascal Fatal Error] TchmProject.dpr(15): F2063 Could not compile used unit 'CarAddUnit.pas'

137

Delphi / Pascal / Re: Delphi : Record

« เมื่อ: พฤศจิกายน 14, 2011, 15:23:32 PM »

อ้างจาก: manoi ที่ พฤศจิกายน 14, 2011, 11:08:36 AM

ไม่ต้อง edit ซ้ำครับ ลองแก้เป็นแบบนี้นะครับ

procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
begin
MyQueryCarLog.fieldByName('car_log_id').AsInteger;
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;

ไม่สำเร็จครับอาจารย์ ต้องแก้ไขยังงัยต่อครับ

138

Delphi / Pascal / Delphi : Record

« เมื่อ: พฤศจิกายน 14, 2011, 10:57:20 AM »

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

procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
MyQueryCarLog.edit;
MyQueryCarLog.fieldByName('car_log_id').AsInteger;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;

139

Delphi / Pascal / Re: Delphi : cid

« เมื่อ: พฤศจิกายน 11, 2011, 14:26:20 PM »

งงครับ
ขอคำอธิบายและตัวอย่างอีกนิดครับ
เอาแบบตรวจสอบว่าซ้ำกับหรือเปล่า
แบบตรวจสอบ cid เลยครับ

140

Delphi / Pascal / Re: Delphi : New Form

« เมื่อ: พฤศจิกายน 11, 2011, 09:26:44 AM »

เป็นฟอร์มที่ต้องการเปิดนะครับ
แต่อยากให้ขยายไม่เกินฟอร์มหลักครับ
ขอบคุณครับ

141

Delphi / Pascal / Delphi : cid

« เมื่อ: พฤศจิกายน 11, 2011, 08:29:32 AM »

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

142

Delphi / Pascal / Re: Delphi : New Form

« เมื่อ: พฤศจิกายน 10, 2011, 16:51:59 PM »

Formstyle=fsMDIform
ยังไม่เป็นผลครับ
ผมตั้งค่าอะไรผิดหรือเปล่าครับ
หรือต้องตั้งค่าที่ FormMain ก่อนครับ

143

Delphi / Pascal / Delphi : New Form

« เมื่อ: พฤศจิกายน 10, 2011, 14:00:09 PM »

อาจารย์ทุกท่านครับ
ผมขอคำแนะนำหน่อยครับ
คือผมได้สร้าง New Form ขึ้นมาใหม่ครับ
แล้วต้องการให้เวลาขยายใหญ่สุดไม่ให้มันเิกิน
หน้าหลัก Main Form ที่ทำงานหลักอยู่แล้วครับ
ต้องมีการกำหนดค่าหรือปรับแต่งจากตรงไหนได้มั่งครับ
ขอบคุณอาจารย์ทุกท่านครับ

144

แจ้งปัญหา / ขอความช่วยเหลือ / Re: er_oper_code ผมใช้ ICD9 7 หลักแล้ว error ครับช่วยหน่อย

« เมื่อ: พฤศจิกายน 10, 2011, 11:53:23 AM »

ลงให้ครับได้ดีมากครับ
เพราะหัตถการก็ต้องมี ICD9 ครับ

145

แจ้งปัญหา / ขอความช่วยเหลือ / Re: พยาบาลลงวันที่ผิดครับ

« เมื่อ: พฤศจิกายน 10, 2011, 11:52:06 AM »

ลงข้อมูลเยี่ยมหลังคลอดให้ตรงกับวันที่ visit ให้ถูกแล้ว
ลบ visit เก่าออกให้หมด
แต่ต้องจำให้ได้ว่าลงอะไรลงไปนะครับ

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

146

Delphi / Pascal / Re: Delphi : Edit

« เมื่อ: พฤศจิกายน 10, 2011, 11:40:27 AM »

ขอบคุณอาจารย์ทุกท่านที่แนะนำครับ
ขอบคุณครับ

ตัวอย่างการตั้งค่า Delphi : Edit
ทดลองดูนะครับ

147

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: พฤศจิกายน 10, 2011, 09:36:58 AM »

ครับประมาณนี้ครับเดี่ยวผมทดลองทำครับ
ขอบคุณอาจารย์ครับ

148

Delphi / Pascal / Re: Delphi : Number VN

« เมื่อ: พฤศจิกายน 09, 2011, 14:45:07 PM »

คือแบบนี้นะครับ
จากที่เราเพิ่มข้อมูลไปในฐานข้อมูล
โปรแกรมก็จะให้ใส่ค่าตามลำดับ คือ 1,2,3,4
แต่ที่อยากได้คือให้บันทึกข้อมูลลงไปในแบบ VN : 5411100403048 นะครับ
ช่วยแนะนำแนะครับ ( ในการสร้างโปรแกรมจาก Delphi )

149

Delphi / Pascal / Re: Delphi : Date

« เมื่อ: พฤศจิกายน 09, 2011, 14:24:40 PM »

ใช้งานได้ดีครับ
ขอบคุณครับ

150

Delphi / Pascal / Delphi : Date

« เมื่อ: พฤศจิกายน 09, 2011, 11:43:04 AM »

อาจารย์ทุกท่าครับ
ผมอยากทราบการตั้งค่า cxDateEdit
ว่าเวลาเราเปิดแสดงขึ้นมาให้แสดงวันที่ปัจจุบันเลย
ต้องตั้งค่าตรงไหนครับ
ขอบคุณครับ