code_s:=master_qt.Fieldbyname('empid').AsString;
date_s:=master_qt.Fieldbyname('dates').AsString;
data_form.search_ok:=false; overtime_repair_forms:=tovertime_repair_form.Create(self);
overtime_repair_forms.Edit1.Text:=code_s;
overtime_repair_forms.Edit3.Text:=date_s ;
overtime_repair_forms.ShowModal ; if data_form.search_ok=true then
begin
master_qt.Locate('empid;dates', VarArrayOf([trim(code_s),strtodate(date_s)]),[loPartialKey]);
end;老是提示: access address error! 但master_qt.locate 會運行如何解決
date_s:=master_qt.Fieldbyname('dates').AsString;
data_form.search_ok:=false; overtime_repair_forms:=tovertime_repair_form.Create(self);
overtime_repair_forms.Edit1.Text:=code_s;
overtime_repair_forms.Edit3.Text:=date_s ;
overtime_repair_forms.ShowModal ; if data_form.search_ok=true then
begin
master_qt.Locate('empid;dates', VarArrayOf([trim(code_s),strtodate(date_s)]),[loPartialKey]);
end;老是提示: access address error! 但master_qt.locate 會運行如何解決
解决方案 »
- 诚心请教Hans-Boehm写的垃圾收集器如何在Delphi中使用?不想引起口水战,鄙视GC者及GC无用论者勿入,拜托
- 关于Delphi2010的控件安装,急!
- 专家请进:返回DataSet,报内存错误
- 如何向Dll窗体中传递参数
- Delphi写的Com在VB中调用出现的问题
- 下面这网址,写什么就出什么。不知道怎么开发的,高手给点代码或思路。谢谢!
- 初级问题,如何让view->cpu不自动弹出来。
- 大家好
- 花了一个小时,该结的都结了,巨爽!
- 用ADOQuery打开数据库,在DBGrid中修改最后一条记录时,保存时提示"缺少必要的键值或关键字,影响到过多的纪录行",修改非最后一条的记录时,保存则没问题。
- fastreport 做主從報表時為什麼當從報表沒有記錄時報表不會顯示這條記錄,該怎麼解決?
- 一个关于FASTREPORT的问题,高分求助啊!~
var
overtime_repair_forms:tovertime_repair_form ;
code_s,date_s:string;
begin
code_s:=master_qt.Fieldbyname('empid').AsString; //master_qt --tadoquery
date_s:=master_qt.Fieldbyname('dates').AsString;
data_form.search_ok:=false; //data_form 為一表單 overtime_repair_forms:=tovertime_repair_form.Create(self);
overtime_repair_forms.Edit1.Text:=code_s;
overtime_repair_forms.Edit3.Text:=date_s ;
overtime_repair_forms.ShowModal ;
//overtime_repair_forms 表單會改變data_form.search_ok 的值 if data_form.search_ok=true then
begin
master_qt.Locate('empid;dates', VarArrayOf([trim(code_s),strtodate(date_s)]), [loPartialKey]);
end;
end;
改为:
overtime_repair_forms:=tovertime_repair_form.Create(Application);