mysql中的数据我想这样显示在Memo中,应该怎样写??
一:特点
【爆炸】:无意义
【危险】:其蒸气沿地面扩散,有毒。遇发烟硫酸可分解产生光气。
【灭火】:消防人员须佩戴防毒面具、穿全身消防服,在上风向灭火。灭火剂:雾状水、泡沫、二氧化碳、砂土。
六:泄漏应急处理
【处理】:迅速撤离泄漏污染区人员至安全区,并立即隔离150m,严格限制出入。建议应急处理人员戴自给正压式呼吸器,穿防毒服。不要直接接触泄漏物。尽可能切断泄漏源。小量泄漏:用砂土或其它不燃材料吸附或吸收。大量泄漏:构筑围堤或挖坑收容。用泡沫覆盖,降低蒸气灾害。用泵转移至槽车或专用收集器内,回收或运至废物处理场所处置。
一:特点
【爆炸】:无意义
【危险】:其蒸气沿地面扩散,有毒。遇发烟硫酸可分解产生光气。
【灭火】:消防人员须佩戴防毒面具、穿全身消防服,在上风向灭火。灭火剂:雾状水、泡沫、二氧化碳、砂土。
六:泄漏应急处理
【处理】:迅速撤离泄漏污染区人员至安全区,并立即隔离150m,严格限制出入。建议应急处理人员戴自给正压式呼吸器,穿防毒服。不要直接接触泄漏物。尽可能切断泄漏源。小量泄漏:用砂土或其它不燃材料吸附或吸收。大量泄漏:构筑围堤或挖坑收容。用泡沫覆盖,降低蒸气灾害。用泵转移至槽车或专用收集器内,回收或运至废物处理场所处置。
AdoQuery1.close;
AdoQuery1.sql.text := 'select * from t_dangerdiv where id = '+Quotedstr(Trim(Edit1.Text));
AdoQuery1.open;
if AdoQuery1.isEmpty then
ShowMessage('无此项id存在~~');
AdoQuery1.sql.text := 'select * from t_dangerdiv where id = '+Quotedstr(Trim(Edit1.Text));
AdoQuery1.open;
if AdoQuery1.EOF ShowMessage('无此项id存在~~');
if AdoQuery1.Recordcount < 1 ShowMessage('无此项id存在~~');