แสดงกระทู้
151
ยินดีต้อนรับ / Re: การคัดกรองบุหรี่และสุรา
« เมื่อ: เมษายน 17, 2012, 09:37:26 AM »
ลืมแนบคำสั่งเอาข้อมูลการคัดกรองบุหรี่และสุราเดิมจากตาราง opdscreen (drinking_type_id,smoking_type_id) เข้าตาราง smoke_screen
โค๊ด: Delphi
- unit YINDEETAN;
- procedure main;
- var
- tc,tc1:tclientdataset;
- i:integer;
- begin
- i:=0;
- tc:=Tclientdataset.create(nil);
- tc1:=Tclientdataset.create(nil);
- tc.data:=Hosxp_Getdataset('select vn,hn,vstdate,smoking_type_id,drinking_type_id '+
- 'from opdscreen '+
- 'where ((smoking_type_id is not null) or (drinking_type_id is not null)) '+
- 'order by vstdate');
- ShowDebugText('Found Data import '+inttostr(tc.recordcount)+' Records.');
- tc1.data:=Hosxp_Getdataset('select * from smoke_screen');
- tc1.open;
- while not tc.eof do
- begin
- i:=i+1;
- tc1.insert;
- tc1['smoke_screen_id']:=getserialnumber('smoke_screen_id');
- tc1['hn']:=tc['hn'];
- tc1['drinking_type_id']:=tc['drinking_type_id'];
- tc1['smoking_type_id']:=tc['smoking_type_id'];
- tc1['date_screen']:=tc['vstdate'];
- tc1['vn']:=tc['vn'];
- tc1.post;
- ShowDebugText('no.'+inttostr(i)+' vn='+tc['vn']+' hn='+ tc['hn']+' vstdate='+datetostr(tc['vstdate'])+'...Data Insert OK');
- tc.next;
- end;
- if tc1.ChangeCount > 0 then
- HOSxP_UpdateDelta(tc1.Delta,'select * from smoke_screen ');
- ShowDebugText('Import Data '+inttostr(tc.recordcount)+' Records Complete');
- ShowDebugText('Process Done;');
- tc.free;
- tc1.free;
- end;
- end.
