Topic: Edit.text And ComboBox.dbItemID Script To Report Clear Reset FrxDBDat
Edit.text And ComboBox.dbItemID Script To Report Clear Reset FrxDBDataset
I Have Problem
How to reset FrxDBDataset (Report Dataset) Every Change Edit.text And ComboBox.dbItemID
001 OK It Correct
002 OH Not OK
I add script parameter from Form1 in report dataset :person
form1.Edit1.Text , form1.ComboBox1.dbItemID
' WHERE person.cid LIKE "%'+ form1.Edit1.Text +'%" AND '+
' refer_ampur.id = '+
inttostr(form1.ComboBox1.dbItemID)
, person);
Full Code Person
procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
var
frxDBDataset1, frxDBDataset2,frxDBDataset3: TfrxDBDataset;
person, icd10c, icd9c: TDataSet;
begin
SQLQuery(
' SELECT '+
' person.id, '+
' person.cid, '+
' person.hn, '+
' person.hhc_no, '+
' person.fname, '+
' person.lname, '+
' person.id_sex, '+
' person.birth, '+
' person.age, '+
' person.id_province, '+
' person.id_aumpur, '+
' person.id_tambol, '+
' person.street, '+
' person.moo, '+
' person.soi, '+
' person.house_address, '+
' person.in_tesban, '+
' person.id_co_village, '+
' person.tel, '+
' person.profile_image, '+
' person.profile_image_filename, '+
' person.date_go_ward, '+
' person.date_go_out, '+
' person.date_register, '+
' person.dete_send_ok, '+
' person.date_hhc1, '+
' person.date_hhc2, '+
' person.date_hhc3, '+
' person.id_patient_level, '+
' person.id_co_internal, '+
' person.refer_number, '+
' person.id_co_hos, '+
' person.person_result_soft, '+
' person.person_result_nogood, '+
' person.person_result_death, '+
' person.person_result_change_house, '+
' person.person_result_etc, '+
' person.person_note, '+
' person.id_patient_status, '+
' person.hhc1_note, '+
' person.hhc2_note, '+
' person.hhc3_note, '+
' person.id_refer_ampur, '+
' person.hhc_no_year, '+
' person.date_admit, '+
' sex.sex_code, '+
' province.province_name, '+
' aumpur.aumpur_name, '+
' tambol.tambol_name, '+
' co_village.co_village_full, '+
' patient_level.patient_level_name, '+
' co_internal.co_internal_full, '+
' co_hos.co_hos_full, '+
' patient_status.patient_status_name, '+
' refer_ampur.refer_ampur_code, '+
' (substr(person.birth,1,4)+543)||substr(person.birth,5,6)as birththai '+
' FROM '+
' person '+
' INNER JOIN sex ON person.id_sex = sex.id '+
' LEFT JOIN province ON person.id_province = province.id '+
' LEFT JOIN aumpur ON person.id_aumpur = aumpur.id '+
' LEFT JOIN tambol ON person.id_tambol = tambol.id '+
' LEFT JOIN co_village ON person.id_co_village = co_village.id '+
' LEFT JOIN patient_level ON person.id_patient_level = patient_level.id '+
' LEFT JOIN co_internal ON person.id_co_internal = co_internal.id '+
' LEFT JOIN co_hos ON person.id_co_hos = co_hos.id '+
' LEFT JOIN patient_status ON person.id_patient_status = patient_status.id'+
' LEFT JOIN refer_ampur ON person.id_refer_ampur = refer_ampur.id '+
' WHERE person.cid LIKE "%'+ form1.Edit1.Text +'%" AND '+
' refer_ampur.id = '+
inttostr(form1.ComboBox1.dbItemID)
, person);
SQLQuery(
' SELECT '+
' person_icd10_list.id, '+
' person_icd10_list.id_person, '+
' person_icd10_list.id_icd10_co, '+
' person_icd10_list.last_update, '+
' icd10_co.icd10_code, '+
' icd10_co.desc_en '+
' FROM person_icd10_list '+
' INNER JOIN icd10_co ON person_icd10_list.id_icd10_co = icd10_co.id '
, icd10c);
SQLQuery(
' SELECT '+
' person_icd9_list.id, '+
' person_icd9_list.id_person, '+
' person_icd9_list.id_icd9_co, '+
' person_icd9_list.lastupdate, '+
' icd9_co.icd9_code, '+
' icd9_co.desc_en '+
' FROM person_icd9_list '+
' INNER JOIN icd9_co ON person_icd9_list.id_icd9_co = icd9_co.id '
, icd9c);
// create person
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'person';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := person;
// create icd10c
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'icd10c';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := icd10c;
// create icd9c
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'icd9c';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := icd9c;
Form1.frxReport.Clear;
Form1.frxReport.DataSets.Clear;
Form1.frxReport.DataSets.Add(frxDBDataset1);
Form1.frxReport.DataSets.Add(frxDBDataset2);
Form1.frxReport.DataSets.Add(frxDBDataset3);
// DESIGN MODE
Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\demo.fr3');
Form1.frxReport.DesignReport;
// PREVIEW MODE
//frxDBDataset1.DataSet.Close;
//frxDBDataset2.DataSet.Close;
//frxDBDataset3.DataSet.Close;
Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\demo.fr3');
Form1.frxReport.ShowReport;
frxDBDataset1.Free;
frxDBDataset2.Free;
frxDBDataset3.Free;
end;
Easy For Beginner Student For Me