望高人解释下
有两个事件不太理解,望高人解释。第一个:
begin
adoq_paall.Close;
adoq_paall.SQL.Clear;
adoq_paall.SQL.Text:='select * from materials where 1=2';
adoq_paall.Open;
adoq_paall.Append;
Count:=1;
dbg_pa.Columns[0].ReadOnly:=False;
btn_pasa.Enabled:=true;
end;
第二个:
var
sql1,sql2:string;
begin
sql1:='select * from materials where 1=1';
if trim(edt_paid.text)<>'' then
sql2:=' and MId_='''+trim(edt_paid.text)+'''';
if trim(edt_paid.text)<>'' then
sql2:=sql1+' and ProName_='''+trim(edt_pana.text)+'''';
if trim(edt_pasp.text)<>'' then
sql2:=sql2+' and Spec_='''+trim(edt_pasp.text)+'''';
if trim(edt_paun.text)<>'' then
sql2:=sql2+' and Unit_='''+trim(edt_paun.text)+'''';
adoq_paall.close;
adoq_paall.sql.text:=sql1+sql2;
adoq_paall.open;
edt_paid.text:='';
edt_pana.text:='';
edt_pasp.Text:='';
edt_paun.text:='';
btn_pasa.Enabled:=false;
end;
初学delphi数据库组件的开发,希望能详细些,谢谢。 --------------------编程问答-------------------- 第一个:
begin
adoq_paall.Close;//关闭数据集
adoq_paall.SQL.Clear;//清空sql语句
adoq_paall.SQL.Text:='select * from materials where 1=2';//写sql语句
adoq_paall.Open;//打开数据集
adoq_paall.Append;//添加记录
Count:=1;
dbg_pa.Columns[0].ReadOnly:=False;//设置只读
btn_pasa.Enabled:=true;
end;
第二个,就是拼一个sql语句,然后adoq_paall打开 --------------------编程问答-------------------- 不知你是不能理解这两个事件要实现的功能,还是不能理解这两种方式的写法。
第一个事件:在adoq_paall打开数据库不查询出任何数据后添加一行空数据行;
第二个事件:根据组合SQL(sql1+sql2)查询出符合条件的数据;
--------------------编程问答-------------------- 连接 sql的数据源 ……
ls bdmh 正解 --------------------编程问答-------------------- ls bdmh 正解 --------------------编程问答-------------------- 这个也太简单了吧 --------------------编程问答-------------------- 我也在学习DELPHI,发现数据库查询方面,用VFP比用其它语言方便得多 --------------------编程问答-------------------- 今天是怎么了,挖祖坟呢
补充:.NET技术 , 其他语言