窗体上,加一个按钮,或加一个右键快捷菜单。
procedure TForm1.Button1Click(Sender: TObject);
var N:Double;
begin
with DBGridEh1.DataSource.DataSet do
begin
First;
While Not Eof do
begin
Edit;
N:=FieldByName('应变值').asFloat+StrToFloat(Combobox1.Text);
FieldByName('应变变化值').asString:=FloatToStr;
Post;
Next;
end;
end;
end;再保存即可。
procedure TForm1.Button1Click(Sender: TObject);
var N:Double;
begin
with DBGridEh1.DataSource.DataSet do
begin
First;
While Not Eof do
begin
Edit;
N:=FieldByName('应变值').asFloat+StrToFloat(Combobox1.Text);
FieldByName('应变变化值').asString:=FloatToStr;
Post;
Next;
end;
end;
end;再保存即可。
解决方案 »
- 在自己的软件里打开pdf文档
- tcxTreeList中如何分组 (像TcxGrid )
- 帮我写一个简单的判断网页上的内容的程序。
- 远程数据更新的方案,怎么才使最好的?
- 令人失望的Delphi 2006!!!(如何安装ActiveX)
- 关于delphi的保存原文件时出现错误(无效页访问的提示窗口,然后delphi就关了)问题?
- 选择你的人生,选择你的前途(程序员发展必读)!!!请进!
- 一个可用窗体引起的内存冲突,50分
- 关于listview的问题!
- 如何检测指定的目录下有多少个子目录(不涉及子目录)
- delphi 如何判断ftp服务器是否存在文件夹 不存在则创建 存在则直接进入
- 动态结构体如赋值 delphi
非常感谢 ;已经用sql语句解决了问题。