procedure Tinputdataform.FirstClick(Sender: TObject);
begin
DM.Qu_basic.first;
with DM.Qu_basic do
begin
e_ID.text:=Fieldbyname('no').asstring ;
e_ddh.text:=Fieldbyname('ddh').asstring ;
e_wxh.text:=Fieldbyname('wxh').asstring;
e_dh.text:=Fieldbyname('dh').asstring;
d_tbrq.DateTime:=Fieldbyname('tbrq').asDateTime;
end;
end;
调试过程中出现拉问题,我该怎么解决,错误信息:
Debugger Exception Notification;
Project Mis.exe raised exception class EAccessViolation with message 'Access violation at address 004E81F0 in module 'Mis.exe'.Read of address 00000064'.Process stopped . Use Step or Run to continue .
begin
DM.Qu_basic.first;
with DM.Qu_basic do
begin
e_ID.text:=Fieldbyname('no').asstring ;
e_ddh.text:=Fieldbyname('ddh').asstring ;
e_wxh.text:=Fieldbyname('wxh').asstring;
e_dh.text:=Fieldbyname('dh').asstring;
d_tbrq.DateTime:=Fieldbyname('tbrq').asDateTime;
end;
end;
调试过程中出现拉问题,我该怎么解决,错误信息:
Debugger Exception Notification;
Project Mis.exe raised exception class EAccessViolation with message 'Access violation at address 004E81F0 in module 'Mis.exe'.Read of address 00000064'.Process stopped . Use Step or Run to continue .
解决方案 »
- Delphi中怎么申明这个函数
- 解决象棋棋盘问题
- 我同学做的mp3播放器,起步阶段,功能很新颖,老少爷们儿捧个人场啊!!!!进者有分
- 今天女朋友生日高兴,积蓄用掉一半心疼!散分.......散分.......散分.......散分.......
- 在线提问:我在用ADO连接数据库时为什么在执行时老是报“Invalid variant type conversion”错误提示???
- 求救!在程序中怎么使Excel的Sheet增加一行?很急!!!
- 用NMSMTP发送邮件,如果那个发件服务器需要验证怎么办?或是有什么比较方便的控件?
- 我想把光标设置在richedit的某个位置,如何做?
- 请教bcb中,midas客户端调用 服务器端的方法,
- 我想用D3开发一套客户服务器的软件,但却不知从何下手,请高手指点迷经!
- 再用ShellExecute去调用原来VFP的程序,ShellExecute是什么,前辈
- 在线等待,马上结帐 分辩率的问题,很简单,但没有找到答案
这里就调不下去拉!
这里就调不下去拉!
----------------------
可能问题不在这里.你把整个unit贴出来
另外 Fieldbyname('no').asstring 的 'no' 尽量不要用no等数据库的关键字,
如fieldbyname('number_no').asstring.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ToolWin, ImgList, Grids, DBGrids, DB,
DBTables;type
Tinputdataform = class(TForm)
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label1: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
E_ddh: TEdit;
E_wxh: TEdit;
E_dh: TEdit;
E_sl: TEdit;
E_mc: TEdit;
E_msgs: TEdit;
E_jbr: TEdit;
E_jhsl: TEdit;
E_al: TEdit;
E_kz: TEdit;
E_lkg: TEdit;
E_lkk: TEdit;
D_jhrq: TDateTimePicker;
E_lkhl: TEdit;
E_wszrc: TEdit;
E_wsql: TEdit;
E_wdzrc: TEdit;
E_wdql: TEdit;
C_yl: TComboBox;
C_xh: TComboBox;
C_ds: TComboBox;
C_ft: TComboBox;
E_zjy: TEdit;
E_czs: TEdit;
E_scs: TEdit;
Label35: TLabel;
Label37: TLabel;
ToolBar1: TToolBar;
Prior: TToolButton;
ImageList1: TImageList;
Next: TToolButton;
First: TToolButton;
Last: TToolButton;
Append: TToolButton;
Edit: TToolButton;
Delete: TToolButton;
Label38: TLabel;
GroupBox2: TGroupBox;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label49: TLabel;
E_dj: TEdit;
E_pb: TEdit;
E_sl1: TEdit;
c_hx: TComboBox;
ToolBar2: TToolBar;
Append1: TToolButton;
Edit1: TToolButton;
Delete1: TToolButton;
c_ds1: TComboBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
d_tbrq: TDateTimePicker;
Label46: TLabel;
Label47: TLabel;
E_wtc: TEdit;
Label48: TLabel;
Label51: TLabel;
Label52: TLabel;
E_wdk: TEdit;
Label53: TLabel;
E_wtk: TEdit;
E_wdc: TEdit;
Label50: TLabel;
Label54: TLabel;
E_cpl: TEdit;
Label36: TLabel;
E_ID: TEdit;
procedure PriorClick(Sender: TObject);
procedure NextClick(Sender: TObject);
procedure FirstClick(Sender: TObject);
procedure LastClick(Sender: TObject);
procedure AppendClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure DeleteClick(Sender: TObject);
procedure EditClick(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject);
procedure Append1Click(Sender: TObject);
procedure Delete1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBGrid2CellClick(Column: TColumn);
procedure Edit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
inputdataform: Tinputdataform;
begin
if not DM.Qu_basic.Bof then
begin
DM.Qu_basic.Prior;
end;
with DM.Qu_basic do
begin
e_ID.text:=Fieldbyname('no').asstring ;
e_ddh.text:=Fieldbyname('ddh').asstring ;
e_wxh.text:=Fieldbyname('wxh').asstring;
e_dh.text:=Fieldbyname('dh').asstring;
d_tbrq.DateTime:=Fieldbyname('tbrq').asDateTime;
e_sl.text:=Fieldbyname('sl').asstring;
e_mc.text:=Fieldbyname('mc').asstring;
c_xh.text:=Fieldbyname('xh').asstring;
d_jhrq.DateTime:=Fieldbyname('jhrq').asDateTime; e_jhsl.text:=Fieldbyname('jhsl').asstring;
e_cpl.text:=Fieldbyname('cpl').asstring;
c_yl.text:=Fieldbyname('yl').asstring;
c_ft.text:=Fieldbyname('ft').asstring;
e_kz.text:=Fieldbyname('kz').asstring; e_msgs.text:=Fieldbyname('msgs').asstring;
c_ds.text:=Fieldbyname('ds').asstring;
e_al.text:=Fieldbyname('al').asstring;
e_lkg.text:=Fieldbyname('lkg').asstring;
e_lkk.text:=Fieldbyname('lkk').asstring;
e_lkhl.text:=Fieldbyname('lkhl').asstring; e_wszrc.text:=Fieldbyname('wszrc').asstring;
e_wsql.text:=Fieldbyname('wsql').asstring;
e_wdk.text:=Fieldbyname('wdk').asstring;
e_wdc.text:=Fieldbyname('wdc').asstring;
e_wdzrc.text:=Fieldbyname('wdzrc').asstring;
e_wdql.text:=Fieldbyname('wdql').asstring;
e_wtc.text:=Fieldbyname('wtc').asstring;
e_wtk.text:=Fieldbyname('wtk').asstring; e_jbr.text:=Fieldbyname('jbr').asstring;
e_zjy.text:=Fieldbyname('zjy').asstring;
e_czs.text:=Fieldbyname('czs').asstring;
e_scs.text:=Fieldbyname('scs').asstring;
end; DM.Qu_pd.close;
DM.Qu_pd.sql.clear;
DM.Qu_pd.sql.add('select * from table_prod_data where ddh=:t1 and wxh=:t2');
DM.Qu_pd.parameters.paramvalues['tl']:=dbgrid1.fields[0].asstring;
DM.Qu_pd.parameters.paramvalues['t2']:=dbgrid1.fields[1].asstring;
DM.Qu_pd.open;
end;procedure Tinputdataform.NextClick(Sender: TObject);
begin
if not DM.Qu_basic.Eof then
begin
DM.Qu_basic.next;
end;
with DM.Qu_basic do
begin
e_ID.text:=Fieldbyname('no').asstring ;
e_ddh.text:=Fieldbyname('ddh').asstring ;
e_wxh.text:=Fieldbyname('wxh').asstring;
e_dh.text:=Fieldbyname('dh').asstring;
d_tbrq.DateTime:=Fieldbyname('tbrq').asDateTime;
e_sl.text:=Fieldbyname('sl').asstring;
e_mc.text:=Fieldbyname('mc').asstring;
c_xh.text:=Fieldbyname('xh').asstring;
d_jhrq.DateTime:=Fieldbyname('jhrq').asDateTime; e_jhsl.text:=Fieldbyname('jhsl').asstring;
e_cpl.text:=Fieldbyname('cpl').asstring;
c_yl.text:=Fieldbyname('yl').asstring;
c_ft.text:=Fieldbyname('ft').asstring;
e_kz.text:=Fieldbyname('kz').asstring; e_msgs.text:=Fieldbyname('msgs').asstring;
c_ds.text:=Fieldbyname('ds').asstring;
e_al.text:=Fieldbyname('al').asstring;
e_lkg.text:=Fieldbyname('lkg').asstring;
e_lkk.text:=Fieldbyname('lkk').asstring;
e_lkhl.text:=Fieldbyname('lkhl').asstring; e_wszrc.text:=Fieldbyname('wszrc').asstring;
e_wsql.text:=Fieldbyname('wsql').asstring;
e_wdk.text:=Fieldbyname('wdk').asstring;
e_wdc.text:=Fieldbyname('wdc').asstring;
e_wdzrc.text:=Fieldbyname('wdzrc').asstring;
e_wdql.text:=Fieldbyname('wdql').asstring;
e_wtc.text:=Fieldbyname('wtc').asstring;
e_wtk.text:=Fieldbyname('wtk').asstring; e_jbr.text:=Fieldbyname('jbr').asstring;
e_zjy.text:=Fieldbyname('zjy').asstring;
e_czs.text:=Fieldbyname('czs').asstring;
e_scs.text:=Fieldbyname('scs').asstring;
end;
with DM.Qu_pd do
begin
close;
sql.clear;
sql.add('select * from table_prod_data where ddh=:t1 and wxh=:t2');
parameters.paramvalues['tl']:=dbgrid1.fields[0].asstring;
parameters .paramvalues['t2']:=dbgrid1.fields[1].asstring;
open;
end;
end;
begin
DM.Qu_basic.first;
with DM.Qu_basic do
begin
e_ID.text:=Fieldbyname('no').asstring ;
e_ddh.text:=Fieldbyname('ddh').asstring ;
e_wxh.text:=Fieldbyname('wxh').asstring;
e_dh.text:=Fieldbyname('dh').asstring;
d_tbrq.DateTime:=Fieldbyname('tbrq').asDateTime;
e_sl.text:=Fieldbyname('sl').asstring;
e_mc.text:=Fieldbyname('mc').asstring;
c_xh.text:=Fieldbyname('xh').asstring;
d_jhrq.DateTime:=Fieldbyname('jhrq').asDateTime; e_jhsl.text:=Fieldbyname('jhsl').asstring;
e_cpl.text:=Fieldbyname('cpl').asstring;
c_yl.text:=Fieldbyname('yl').asstring;
c_ft.text:=Fieldbyname('ft').asstring;
e_kz.text:=Fieldbyname('kz').asstring; e_msgs.text:=Fieldbyname('msgs').asstring;
c_ds.text:=Fieldbyname('ds').asstring;
e_al.text:=Fieldbyname('al').asstring;
e_lkg.text:=Fieldbyname('lkg').asstring;
e_lkk.text:=Fieldbyname('lkk').asstring;
e_lkhl.text:=Fieldbyname('lkhl').asstring; e_wszrc.text:=Fieldbyname('wszrc').asstring;
e_wsql.text:=Fieldbyname('wsql').asstring;
e_wdk.text:=Fieldbyname('wdk').asstring;
e_wdc.text:=Fieldbyname('wdc').asstring;
e_wdzrc.text:=Fieldbyname('wdzrc').asstring;
e_wdql.text:=Fieldbyname('wdql').asstring;
e_wtc.text:=Fieldbyname('wtc').asstring;
e_wtk.text:=Fieldbyname('wtk').asstring; e_jbr.text:=Fieldbyname('jbr').asstring;
e_zjy.text:=Fieldbyname('zjy').asstring;
e_czs.text:=Fieldbyname('czs').asstring;
e_scs.text:=Fieldbyname('scs').asstring;
end;
with DM.Qu_pd do
begin
close;
sql.clear;
sql.add('select * from table_prod_data where ddh=:t1 and wxh=:t2');
parameters.paramvalues['tl']:=dbgrid1.fields[0].asstring;
parameters.paramvalues['t2']:=dbgrid1.fields[1].asstring;
open;
end;
end;procedure Tinputdataform.LastClick(Sender: TObject);
begin
DM.Qu_basic.Last;
with DM.Qu_basic do
begin
e_ID.text:=Fieldbyname('no').asstring ;
e_ddh.text:=Fieldbyname('ddh').asstring ;
e_wxh.text:=Fieldbyname('wxh').asstring;
e_dh.text:=Fieldbyname('dh').asstring;
d_tbrq.DateTime:=Fieldbyname('tbrq').asDateTime;
e_sl.text:=Fieldbyname('sl').asstring;
e_mc.text:=Fieldbyname('mc').asstring;
c_xh.text:=Fieldbyname('xh').asstring;
d_jhrq.DateTime:=Fieldbyname('jhrq').asDateTime; e_jhsl.text:=Fieldbyname('jhsl').asstring;
e_cpl.text:=Fieldbyname('cpl').asstring;
c_yl.text:=Fieldbyname('yl').asstring;
c_ft.text:=Fieldbyname('ft').asstring;
e_kz.text:=Fieldbyname('kz').asstring; e_msgs.text:=Fieldbyname('msgs').asstring;
c_ds.text:=Fieldbyname('ds').asstring;
e_al.text:=Fieldbyname('al').asstring;
e_lkg.text:=Fieldbyname('lkg').asstring;
e_lkk.text:=Fieldbyname('lkk').asstring;
e_lkhl.text:=Fieldbyname('lkhl').asstring; e_wszrc.text:=Fieldbyname('wszrc').asstring;
e_wsql.text:=Fieldbyname('wsql').asstring;
e_wdk.text:=Fieldbyname('wdk').asstring;
e_wdc.text:=Fieldbyname('wdc').asstring;
e_wdzrc.text:=Fieldbyname('wdzrc').asstring;
e_wdql.text:=Fieldbyname('wdql').asstring;
e_wtc.text:=Fieldbyname('wtc').asstring;
e_wtk.text:=Fieldbyname('wtk').asstring; e_jbr.text:=Fieldbyname('jbr').asstring;
e_zjy.text:=Fieldbyname('zjy').asstring;
e_czs.text:=Fieldbyname('czs').asstring;
e_scs.text:=Fieldbyname('scs').asstring;
end;
with DM.Qu_pd do
begin
close;
sql.clear;
sql.add('select * from table_prod_data where ddh=:t1 and wxh=:t2');
parameters.paramvalues['tl']:=dbgrid1.fields[0].asstring;
parameters.paramvalues['t2']:=dbgrid1.fields[1].asstring;
open;
end;
end;
你那个Qu_Basic是什么控件阿
不能first的原因可能有一个你的记录集选定的是不是
只向前的改一改属性,改成动态的
是不是用错了方法
调试过程中出现拉问题,<-发生在什么时间或事件中?
没时间看你的程序,单从这段文字,可能是你的数据模块,在那个时候没有create,不能调用其中的对象
priorclick,nextclick不出错就表示已经create
DataModel:=TDataModel.Create(Self);