通用问题:点修改,和增加按钮能不能调用同一个窗体?
如题,但点增加时,窗体上显示的名称是“增加记录”,点修改时,窗体上显示的名称是“修改记录”
能实现吗?怎么实现?
[解决办法]
我一般都是在这个窗体里加一个私有变量,作为窗体类型的标志
在FormShow等事件中设置显示的文字、数值的初始化等
在createform之后设置这个标志位
zjform1:=Tzjform1.Create(self);
zkform1.setType( x );
zjform1.ShowModal;
zjform1.free;
[解决办法]
zjform1:=Tzjform1.Create(self);
zjform1.caption:='修改数据';
zjform1.ShowModal;
zjform1.free;
看代码你是修改数据啊
增加的赋增加的标题
如果你不知道Dataset的状态判断下啊,
if dbgrid.datasource.dataset.state=dsinsert
增加
dbgrid.datasource.dataset.state=dsedit
编辑
[解决办法]
procedure TForm2.btn3Click(Sender: TObject);
begin
try
if Form2.dbgrideh1.Focused then
begin
if Form2.DBGridEh1.DataSource.DataSet.IsEmpty then
begin
Application.MessageBox('没有数据可以修改','提示',64);
exit;
end
else
begin
zjform1:=Tzjform1.Create(self);
//增加这句
zjform1.Caption:='修改记录';
zjform1.ShowModal;
zjform1.free;
Form2.dbgrideh1.SetFocus;
end;
end;
{else
begin
application.messagebox('请选择要修改的信息','提示',64);
exit;
end;}
except
Application.MessageBox('修改数据失败','提示',64);
exit;
end;