var SQLQuery:TSQLQuery; D:TDateTime; SQLText:string; begin if not 店铺名称.IsEmpty and not 医生名称.IsEmpty then begin SQLQuery:=TSQLQuery.Create(nil); SQLText:='select b.序号,b.人员编号,a.姓名,a.性别,a.年龄,a.联系电话,a.住址,b.挂号时间,b.选择医生 from 挂号信息表 b,患者基本信息表 a WHERE b.人员编号=a.序号 and b.选择医生=' + QuotedStr('张晓华') + ' and b.店铺名称=' + QuotedStr('泰明中医001'); //SQLText:='select * from 挂号信息表'; ShowMessage(SQLText); SQLQuery:=Form1.MySQLHelper.Query(SQLText);
if SQLQuery.RecordCount<>lv.Items.Count then begin lv.Items.Clear; while not SQLQuery.Eof do begin with lv.Items.Add do begin Caption:=SQLQuery.FieldByName('序号').AsString; SubItems.Add(SQLQuery.FieldByName('人员编号').AsString); SubItems.Add(SQLQuery.FieldByName('姓名').AsString); SubItems.Add(SQLQuery.FieldByName('性别').AsString); SubItems.Add(SQLQuery.FieldByName('年龄').AsString); SubItems.Add(SQLQuery.FieldByName('联系电话').AsString); SubItems.Add(SQLQuery.FieldByName('住址').AsString); D:=SQLQuery.FieldByName('挂号时间').AsDateTime; SubItems.Add(FormatDateTime('yyyy-MM-dd hh:mm:ss',D)); SubItems.Add(SQLQuery.FieldByName('选择医生').AsString); end; SQLQuery.Next; end; end; Form1.MySQLHelper.MySQLClose; end; end;
SQLText:='select b.序号,b.人员编号,a.姓名,a.性别,a.年龄,a.联系电话,a.住址,b.挂号时间,b.选择医生 from 挂号信息表 b inner join 患者基本信息表 a on b.人员编号=a.序号 where b.选择医生=' + QuotedStr('张晓华') + ' and b.店铺名称=' + QuotedStr('泰明中医001');
----------------------------------------------
-