select a.hn,concat(b.pname,b.fname,' ',b.lname) as name,a.staff,c.groupname from ovst a,patient b,opduser c
where a.hn=b.hn and a.staff=c.loginname
and a.vstdate='2006-12-15'
order by c.loginname,a.hn
แบบนี้รึปล่าว เปลี่ยนวันที่เอาเองนะ

รูปแบบการส่งรายงาน 504/505 เป็นแบบไหนกันบ้างครับ
ที่ สสจ.กำแพงเพชร ยังรับแบบ DBF ไฟล์
*****
ส่วนประกอบของไฟล์
Hosp c(12)  ซึ่งเป็นรหัสหน่วยงานแบบเก่า ใน table hospcode ไม่มี
Date c(4)     =yymm
Case1....Case? n(5)
*****
ผมลองส่งตัวอย่างมาให้ดู

ตัวอย่างที่ผมลองทำครับ ดึงเฉพาะข้อมูล
unit RP504;

var
  MainForm: TForm;
  OKButton, SaveButton, PrintButton, ExitButton: TButton;
  ds1, ds2: TDateEdit;
  lds1, lds2, lcode, lid, lname,lpath: TLabel;
  tcode, tid, tname,tpath: TEdit;
  FAborting: boolean;
  yymm:string;
  rp:TTzDBF;
  rphosp:TStringField;
  rpdate:TStringField;
  rpcase1:TStringField;
  rpcase2:TStringField;
  rpcase3:TStringField;
  rpcase4:TStringField;
  rpcase5:TStringField;
  rpcase6:TStringField;
  rpcase7:TStringField;
  rpcase8:TStringField;
  rpcase9:TStringField;
  rpcase10:TStringField;
  rpcase11:TStringField;
  rpcase12:TStringField;
  rpcase13:TStringField;
  rpcase14:TStringField;
  rpcase15:TStringField;
  rpcase16:TStringField;
  rpcase17:TStringField;
  rpcase18:TStringField;
  rpcase19:TStringField;
  rpcase20:TStringField;
  rpcase21:TStringField;

implementation

procedure OKClick(Sender: TObject);
var
  sdate,edate:tdatetime;
  tc:Tclientdataset;
begin
  yymm:=formatdatetime('yymm',strtodate(ds2.text));
  sdate:=ds1.text;
  edate:=ds2.text;
  tc:=TClientDataset.create(nil);
  tc.data:=HOSxP_GetDataset('select a.*,ifnull(d.amount,0) as amount from rpt_504_name a left join '+
  ' (select b.id,count(b.id) as amount from rpt_504_code b,ovstdiag c '+
  ' where c.icd10 between b.code1 and b.code2 and c.icd10 is not null '+
  ' and c.vstdate between "'+formatdatetime('yyyy-mm-dd',sdate)+'" and "'+formatdatetime('yyyy-mm-dd',edate)+'"'+
  ' group by b.id) d on d.id=a.id'+
  ' order by a.id');
  while not tc.eof do
  begin
  showmessage(tc.fieldbyname('id').asstring+'=>'+tc.fieldbyname('amount').asstring);
  tc.next;
  end;
end;

procedure ExitClick(Sender: TObject);
begin
  mainform.close
end;

procedure Main;
begin
  MainForm := TForm.Create(nil);
  MainForm.top := 200;
  MainForm.left := 200;
  MainForm.Width := 400;
  MainForm.Height := 400;

  lcode := tlabel.create(mainform);
  lcode.parent := mainform;
  lcode.top := 10;
  lcode.left := 10;
  lcode.caption := 'Code';

  tcode := tedit.create(mainform);
  tcode.parent := mainform;
  tcode.top := 10;
  tcode.left := 70;
  tcode.width := 85;
  tcode.text := '110962100000';

  lid := tlabel.create(mainform);
  lid.parent := mainform;
  lid.top := 35;
  lid.left := 10;
  lid.caption := 'Off_ID';

  tid := tedit.create(mainform);
  tid.parent := mainform;
  tid.top := 35;
  tid.left := 70;
  tid.width := 40;
  tid.text := VarToStr(GetSQLData('select hospitalcode from opdconfig'));

  lname := tlabel.create(mainform);
  lname.parent := mainform;
  lname.top := 60;
  lname.left := 10;
  lname.caption := 'Name';

  tname := tedit.create(mainform);
  tname.parent := mainform;
  tname.top := 60;
  tname.left := 70;
  tname.width := 200;
  tname.text := VarToStr(GetSQLData('select hospitalname from opdconfig'));

  lds1 := tlabel.create(mainform);
  lds1.parent := mainform;
  lds1.top := 85;
  lds1.left := 10;
  lds1.caption := 'Begin Date';

  ds1 := TDateEdit.Create(MainForm);
  ds1.parent := mainForm;
  ds1.left := 70;
  ds1.top := 85;
  ds1.Width := 85;
  ds1.text := now-formatdatetime('dd',now)+1;

  lds2 := tlabel.create(mainform);
  lds2.parent := mainform;
  lds2.top := 85;
  lds2.left := 200;
  lds2.caption := 'End Date';

  ds2 := TDateEdit.Create(MainForm);
  ds2.parent := mainForm;
  ds2.left := 270;
  ds2.top := 85;
  ds2.Width := 85;
  ds2.text := now;

  lpath := tlabel.create(mainform);
  lpath.parent := mainform;
  lpath.top := 110;
  lpath.left := 10;
  lpath.caption := 'Send To';

  tpath := tedit.create(mainform);
  tpath.parent := mainform;
  tpath.top := 110;
  tpath.left := 70;
  tpath.width := 200;
  tpath.text := 'C:\TEMP';

  OKButton := TButton.Create(MainForm);
  OKButton.parent := mainForm;
  OKButton.left := 30;
  OKButton.top := 180;
  OKButton.Width := 60;
  OKButton.caption := 'OK';
  OKButton.OnClick := OKClick;

  ExitButton := TButton.Create(MainForm);
  ExitButton.parent := mainForm;
  ExitButton.left := 140;
  ExitButton.top := 180;
  ExitButton.Width := 60;
  ExitButton.caption := 'Exit';
  ExitButton.OnClick := ExitClick;

  MainForm.Caption := 'ÃÒ§ҹ 504';
  MainForm.Showmodal;
  MainForm.free;
end;

end.

ผมว่า cid ว่างดีอยู่แล้ว เอาไว้ตรวจสอบ
ตอนลงทะเบียนตรวจ จะได้เป็น double check อีกทีครับ
*****
การ update table ถ้าเราสั่งผิดจะมีผลกระทบมากมายนะ
*****
update patient set cid='1111111111111' where cid is null
ระวังนะครับ

ในข้อ 19 ของ rpt_504_code เห็นมีแต่ X40-X49 แล้ว รหัส X อื่นอยู่ในข้อใดครับ

เนื่องจากมีบุคลากร ทำการทดลองลงข้อมูลกับฐานข้อมูลจริง
ซึ่งทำการตั้งแต่ทำบัตร ลงเบียน Admit จ่ายยา ชำระเงิน
เราต้องลบข้อมูล table ใดบ้าง
ฃอแยกเป้น OPD,IPD,ห้องจ่ายยา.ห้องชำระเงิน ได้มั๊ยครับ
*****
เคยลองลบจาก ลงทะเบียนผู้ป่วยนอก มีบางครั้งมีติด Admit หรือไม่ก็มีการสั่งยา
เลยไม่แน่ใจจะลบอย่างไรบ้าง
*****
ขอบคุณครับ

ขอบคุณครับ
*****
ถ้าเขียนคำสั่งแบบนี้
_connect ="Driver={MySQL ODBC 3.51 Driver};Server=myServer;UID=sa;PASSWORD=sa;Database=hos;Port=3306;Option=0;"
แล้วใช้ sqlstringconnect() ของ vfp
ต้องกำหนดอะไรเพิ่มเติมมั๊ยครับ

ผมลองเปิด table [PATIENT] ด้วย Access แล้วภาษาไทยเป็นตัว ? ครับ
ใช้ MySQl กับ MyODBC อยู่ครับ