delphi6中:
1、在project---> options--->Forms 中:列出了我的所有frm 都列在auto-create forms 中。我在程序中的主窗口(main form)是这样呼出其他窗口的:
subform:=tsubform.create(nil);
subform.showmodual; 这样一来是不是就得把我要呼出的窗口都放进available form中呢?
2、db控件可以做录入,那么可以做修改吗?那么dataset.refresh;做了些什么事情呢?他不就是刷新数据集的吗? 可我的程序中做完录入后数据集还是没有更成新的。
with adoquery1 do
begin
open;
append;
fieldbyname('name').value:=edtname.text;
......
post;
adoquery1.refresh;
end;
按这样连接:dbgrid-->datasource-->adoquery1
我不清楚,刷新完了后是不是得用下面的这两句:
dataset.close; 然后dataset.open;
这两句不也同样实现了数据集的刷新了吗?估计在速度上有些不同吧!3、已经录入的数据现在显示在DBGrid中。我想问怎样才能使刚提交的数据立刻就显示在用于显示数据的grid中呢?
1、在project---> options--->Forms 中:列出了我的所有frm 都列在auto-create forms 中。我在程序中的主窗口(main form)是这样呼出其他窗口的:
subform:=tsubform.create(nil);
subform.showmodual; 这样一来是不是就得把我要呼出的窗口都放进available form中呢?
2、db控件可以做录入,那么可以做修改吗?那么dataset.refresh;做了些什么事情呢?他不就是刷新数据集的吗? 可我的程序中做完录入后数据集还是没有更成新的。
with adoquery1 do
begin
open;
append;
fieldbyname('name').value:=edtname.text;
......
post;
adoquery1.refresh;
end;
按这样连接:dbgrid-->datasource-->adoquery1
我不清楚,刷新完了后是不是得用下面的这两句:
dataset.close; 然后dataset.open;
这两句不也同样实现了数据集的刷新了吗?估计在速度上有些不同吧!3、已经录入的数据现在显示在DBGrid中。我想问怎样才能使刚提交的数据立刻就显示在用于显示数据的grid中呢?
>>subform.showmodual; 这样一来是不是就得把我要呼出的窗口都放进available form中呢?
創建多了一個同樣的Form, 不過大多情況問題不大
我还是不大明白!!!
tblLeg是一个TAdoTable对象procedure TfrmManageLeg.u_pro_SetCheckBox();
var
iSelectID: Integer; //Ñ¡ÖмǼµÄfID
strFileName: string; //ÒªÆôÓõķûºÅÎļþ
strPicType: string; //ͼƬÀàÐÍ
begin
strPicType := tblLeg.FieldByName('ͼƬÀàÐÍ').AsString;
if strPicType <> 'Ö÷ͼÀýÎļþ' then
begin
iSelectID := tblLeg.FieldByName('񅧏').AsInteger;
strFileName := tblLeg.FieldByName('ÎļþÃû').AsString;
u_iSelectID := iSelectID;
tblLeg.DisableControls; tblLeg.Locate('ÊÇ·ñ¼¤»î', true, []);
tblLeg.Edit;
tblLeg.FieldByName('ÊÇ·ñ¼¤»î').AsBoolean := false; //È«¶¼ÉèΪ²»ÆôÓÃ
tblLeg.Post; tblLeg.Locate('񅧏', iSelectID, []);
tblLeg.Edit;
tblLeg.FieldByName('ÊÇ·ñ¼¤»î').AsBoolean := true; //ÉèÖÃÑ¡ÖеÄÆôÓÃ
tblLeg.Post; tblLeg.EnableControls;
frmMain.StatusBar1.Panels[1].Text := 'ÆôÓõķûºÅÎļþÊÇ£º' + strFileName;
frmMain.StatusBar1.Refresh;
end
else
begin
Application.MessageBox('Ö÷ͼÀýÎļþ²»ÊÇ·ûºÅÎļþ£¬²»Äܱ»ÆôÓÃ!',
'Ìáʾ', MB_OK + MB_ICONINFORMATION
);
tblLeg.DisableControls;
tblLeg.Locate('񅧏', u_iSelectID, []);
tblLeg.Edit;
tblLeg.FieldByName('ÊÇ·ñ¼¤»î').AsBoolean := true; //ÉèÖÃÑ¡ÖеÄÆôÓÃ
tblLeg.Post;
tblLeg.EnableControls;
end;
end;