แสดงกระทู้
301
Delphi / Pascal / Tool สำหรับนำเข้าข้อมูลในตาราง Clinicmember
« เมื่อ: มิถุนายน 12, 2009, 12:12:58 PM »
ใช้สำหรับ โอนข้อมูลผู้ป่วยขึ้นทะเบียนคลินิกโรคเรื้อรังตามที่ รพ กำหนด เช่น เบาหวาน ความดัน โรคหัวใจ COPD โดยยึด Principal dx ที่จากการลงในระบบ OPD นำตัวอยางมาให้ดูก่อนครับ กำลังจะแก้ใขบางส่วนเพื่อให้ใช้งานได้ง่ายขึ้นครับ
ขอขอบคุณ อ.อ๊อด ที่ให้คำแนะนำในการเขียนครับ
แต่เมื่อนำเข้าแล้วต้องไปเลือกยืนยันว่ารายใดบ้างที่ต้องขึ้นทะเบียนจริงๆ เนื่องจากบางคลินิกอาจจะดูแค่ Diax อย่างเดียวไม่ได้ จำเป็นต้องได้รับการยืนยันจากผลวิเคราะห์ด้านอื่นประกอบด้วยครับ
ขอขอบคุณ อ.อ๊อด ที่ให้คำแนะนำในการเขียนครับ
แต่เมื่อนำเข้าแล้วต้องไปเลือกยืนยันว่ารายใดบ้างที่ต้องขึ้นทะเบียนจริงๆ เนื่องจากบางคลินิกอาจจะดูแค่ Diax อย่างเดียวไม่ได้ จำเป็นต้องได้รับการยืนยันจากผลวิเคราะห์ด้านอื่นประกอบด้วยครับ
โค๊ด: Delphi
- unit Import2Clinicmember;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ComCtrls, StdCtrls;
- type
- TForm1 = class(TForm)
- Button1: TButton;
- ProgressBar1: TProgressBar;
- Memo: TMemo;
- Button2: TButton;
- procedure Button2Click(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.Button1Click(Sender: TObject);
- var a:integer;
- begin
- a:=0;
- dbf1.close;
- dbf1.tablename:='C:\DOCUME~1\Yindee\IMPOST~1\Temp\export.dbf';
- dbf1.open;
- ProgressBar1.max:=dbf1.recordcount;
- showmessage('¨Ó¹Ç¹¢éÍÁÙÅ·Õè¹Óà¢éÒ '+inttostr(ProgressBar1.max)+' Records');
- Memo.lines.add('Found '+inttostr(ProgressBar1.max)+' Records');
- Memo.lines.add('Start Import DaTa............');
- ProgressBar1.position:=0;
- dbf1.first;
- fcds.close;
- //fcds.datarequest('EXEC delete from clinicmember');
- fcds.datarequest('select * from clinicmember');
- fcds.open;
- while not dbf1.eof do
- begin
- ProgressBar1.position:=ProgressBar1.position+1;
- a:=a+1;
- fcds.insert;
- // fcds['age_y']:=dbf1['age_y'];
- //fcds['begin_year']:=dbf1['begin_year'];
- fcds['clinic']:='018';
- fcds['hn']:=dbf1['hn'];
- fcds['number']:=a;
- fcds['regdate']:='11/6/2552';
- {fcds['last_vn']:=dbf1['last_vn'];
- fcds['lastupdate']:=dbf1['lastupdate'];
- fcds['lastvisit']:=dbf1['lastvisit'];
- fcds['note']:=dbf1['note'];
- fcds['pt_number']:=dbf1['pt_number'];
- fcds['pttype']:=dbf1['pttype'];
- fcds['sex']:=dbf1['sex'];
- fcds['subtype']:=dbf1['subtype']; }
- fcds.post;
- memo.lines.add('Import No.'+inttostr(ProgressBar1.position)+' Clinic '+fcds['clinic']+' , HN '+fcds['hn']);
- dbf1.next;
- end;
- applyupdate_fcds(-1);
- dbf1.close;
- fcds.close;
- memo.lines.add('-------------------------------------------------');
- memo.lines.add('Yindee Process Done ('+inttostr(ProgressBar1.position)+' Records)');
- showmessage('Done');
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- self.Close;
- end;
- end.
