2,507
社区成员




procedure Tfrm_Tag.RzTbtn_SaveClick(Sender: TObject);
begin
cxGridTbV_Tag.DataController.PostEditingData ;
DataModule1.Adotb_Tag.UpdateBatch();
b_Changed :=false ;
RzTbtn_Save.Enabled :=False;
ShowMessage('数据保存完毕!');
end;
if b=true then
begin
RowNum:=StrToInt(Copy(Self.Caption,4,4)); frm_Tag.cxGridTbV_Tag.DataController.Values[RowNum1,4]:=StrToInt(Trim(AViewInfo.DisplayValue));
frm_Tag.cxGridTbV_Tag.DataController.PostEditingData;
frm_tag.lbl1.Caption :=Trim(AViewInfo.DisplayValue);
Self.Close ;
end;
上面这个是往上面写的代码
下面这个是保存代码
procedure Tfrm_Tag.RzTbtn_SaveClick(Sender: TObject);
begin
cxGridTbV_Tag.DataController.PostEditingData ;
DataModule1.Adotb_Tag.UpdateBatch();
b_Changed :=false ;
RzTbtn_Save.Enabled :=False;
ShowMessage('数据保存完毕!');
end;
procedure TForm1.FormShow(Sender: TObject);
begin
AdoCon_1.Connected :=true ;
Adotb_1.Active :=true ;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Adotb_1.Active :=false ;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
cxGridTbV_Grid1DBTableView1.DataController.PostEditingData ;
Adotb_1.UpdateBatch(arAll);
ShowMessage('保存完毕');
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
//一个简单的赋值,把该列变为2,但是一旦点保存按钮,改列还是读取的数据库的值,没有把2保存进去
//如果是手工输入的2的,就可以保存
cxGridTbV_Grid1DBTableView1.DataController.Values[0,1]:=2;
end;
end.