大哥们,帮帮小弟吧
我的程序代码不能实现新增动能,帮我看看
procedure TFrm_txbc.RzToolbarButton1Click(Sender: TObject);//实现查询
begin
RzDBGrid1.DataSource:=mode.DataSource1;
RzDBGrid1.Enabled:=true;
with mode.ClientDataSet1 do
begin
Active:=false;Close;
CommandText:='select * from xxb where sbsj>=:begdate and sbsj<=:enddate order by sbsj asc';
Params.ParamByName('begdate').AsDate:=RzDateTimePicker1.Date;
Params.ParamByName('enddate').AsDate:=RzDateTimePicker2.Date;
Open;
end;
end;
procedure TFrm_txbc.RzToolbarButton5Click(Sender: TObject);//实现增加
begin
mode.ClientDataSet1.Append;
end;
procedure TFrm_txbc.RzToolbarButton3Click(Sender: TObject);//实现保存
begin
mode.ClientDataSet1.ApplyUpdates(-1);
end;
还有就是字段不跟数据库关联的话,用‘select * from table’可以实现增加等功能,若把*换成具体字段名字就不可以了,帮我看看,这个问题已经耽搁我很长时间, 快帮帮小弟,小弟是刚从事开发的 ,谢谢 !