帮忙看一下我的程序哦,我真的快不行了,能运行出来,但是会出错 ( 积分: 50 )

  • 主题发起人 主题发起人 zlcgs
  • 开始时间 开始时间
Z

zlcgs

Unregistered / Unconfirmed
GUEST, unregistred user!
以下为我的程序,fp是我的数据表,单位名称，日期，发票号，金额，扣税率，扣税金额，代开发票人，备注为属性,其中,金额，扣税率，扣税金额是单精度型,我是用access来建数据库的,这个代码能够运行,但是,你执行功能时,会出现不正常的定义参数对象,能帮我吗,
unit fp;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Buttons, ADODB, ExtCtrls, ComCtrls, StdCtrls,
Grids, DBGrids;

type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Bevel1: TBevel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
edit1: TEdit;
edit2: TEdit;
edit3: TEdit;
edit4: TEdit;
edit5: TEdit;
edit6: TEdit;
edit7: TEdit;
GroupBox1: TGroupBox;
ADOQuery2: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Bevel2: TBevel;
Panel1: TPanel;
ComboBox1: TComboBox;
Edit8: TEdit;
SpeedButton4: TSpeedButton;
RadioGroup1: TRadioGroup;
a: TRadioButton;
e: TRadioButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure edit5Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text =''then application.messagebox('单位名称不能为空!','填错啦 ',0)
else
begin
with adoquery1 do
begin
close;
sql.clear;
sql.add('insert into fp(单位名称，日期，发票号，金额，扣税率，扣税金额，代开发票人，备注) values(:a,:b,:c,:d,:e,:f,:g,:h)');
parameters.parambyname('a').value:=trim(edit1.Text );
parameters.parambyname('b').value:=datetimepicker1.time;
parameters.parambyname('c').value:=trim(edit2.text);
parameters.parambyname('d').value:=strtofloat(trim(edit3.text));
parameters.parambyname('f').value:= strtofloat(trim(edit4.text));
parameters.parambyname('g').value:=strtofloat(trim(edit5.text));
parameters.parambyname('h').value:=trim(edit6.Text );
parameters.parambyname('a').value:= trim(edit7.Text );
execsql;
end;
end;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
edit3.Text :=floattostr( 0);
edit4.Text :=floattostr(0 );
edit5.Text :=floattostr(0.0);
edit6.Text :='';
edit7.Text :='';

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm2.edit5Change(Sender: TObject);
var
a,b,c:real;
begin
a:=strtofloat(trim(edit3.text));
b:=strtofloat(trim(edit4.Text ));
c:=a*b;
edit5.Text :=floattostr(c);
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
var c,b:string;
begin
if a.Checked then
begin
c:=combobox1.Text;
b:=edit8.Text;
adoquery2.close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select *from fp');
if edit8.Text <>'' then
begin
adoquery2.SQL.Add('where'+' '+c+':=var1');
adoquery2.parameters.ParamByName('var1').Value:=b;
try
adoquery2.Open;
if adoquery2.FindLast then
application.MessageBox('查询成功!','恭喜!',0)
else
application.MessageBox('对不起，没有试发票!','信息框',0);
except
adoquery2.ExecSQL;
end ;
end
else
begin
showmessage('请输入正确的查询条件！');
end;
end;
if e.Checked then
adoquery2.edit ;
try
if messagedlg('确定要删除吗？',mtinformation,[mbyes,mbno],0)=mryes
then
begin
adoquery2.Delete ;
application.MessageBox('删除成功!','提示框',0);
end;
except
application.MessageBox('无法删除!','提示框',0);
end;
end;
end.
 
以下为我的程序,fp是我的数据表,单位名称，日期，发票号，金额，扣税率，扣税金额，代开发票人，备注为属性,其中,金额，扣税率，扣税金额是单精度型,我是用access来建数据库的,这个代码能够运行,但是,你执行功能时,会出现不正常的定义参数对象,能帮我吗,
unit fp;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Buttons, ADODB, ExtCtrls, ComCtrls, StdCtrls,
Grids, DBGrids;

type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Bevel1: TBevel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
edit1: TEdit;
edit2: TEdit;
edit3: TEdit;
edit4: TEdit;
edit5: TEdit;
edit6: TEdit;
edit7: TEdit;
GroupBox1: TGroupBox;
ADOQuery2: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Bevel2: TBevel;
Panel1: TPanel;
ComboBox1: TComboBox;
Edit8: TEdit;
SpeedButton4: TSpeedButton;
RadioGroup1: TRadioGroup;
a: TRadioButton;
e: TRadioButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure edit5Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text =''then application.messagebox('单位名称不能为空!','填错啦 ',0)
else
begin
with adoquery1 do
begin
close;
sql.clear;
sql.add('insert into fp(单位名称，日期，发票号，金额，扣税率，扣税金额，代开发票人，备注) values(:a,:b,:c,:d,:e,:f,:g,:h)');
parameters.parambyname('a').value:=trim(edit1.Text );
parameters.parambyname('b').value:=datetimepicker1.time;
parameters.parambyname('c').value:=trim(edit2.text);
parameters.parambyname('d').value:=strtofloat(trim(edit3.text));
parameters.parambyname('f').value:= strtofloat(trim(edit4.text));
parameters.parambyname('g').value:=strtofloat(trim(edit5.text));
parameters.parambyname('h').value:=trim(edit6.Text );
parameters.parambyname('a').value:= trim(edit7.Text );
execsql;
end;
end;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
edit3.Text :=floattostr( 0);
edit4.Text :=floattostr(0 );
edit5.Text :=floattostr(0.0);
edit6.Text :='';
edit7.Text :='';

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm2.edit5Change(Sender: TObject);
var
a,b,c:real;
begin
a:=strtofloat(trim(edit3.text));
b:=strtofloat(trim(edit4.Text ));
c:=a*b;
edit5.Text :=floattostr(c);
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
var c,b:string;
begin
if a.Checked then
begin
c:=combobox1.Text;
b:=edit8.Text;
adoquery2.close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select *from fp');
if edit8.Text <>'' then
begin
adoquery2.SQL.Add('where'+' '+c+':=var1');
adoquery2.parameters.ParamByName('var1').Value:=b;
try
adoquery2.Open;
if adoquery2.FindLast then
application.MessageBox('查询成功!','恭喜!',0)
else
application.MessageBox('对不起，没有试发票!','信息框',0);
except
adoquery2.ExecSQL;
end ;
end
else
begin
showmessage('请输入正确的查询条件！');
end;
end;
if e.Checked then
adoquery2.edit ;
try
if messagedlg('确定要删除吗？',mtinformation,[mbyes,mbno],0)=mryes
then
begin
adoquery2.Delete ;
application.MessageBox('删除成功!','提示框',0);
end;
except
application.MessageBox('无法删除!','提示框',0);
end;
end;
end.
 
ACCESS的SQL支持全角的","?
 
如何讲啊,能不能具体点啊,我是初学者呢
 
adoquery2.SQL.Add('where'+' '+c+':=var1');没有指明表名？
 
跟踪一下，看在哪一行出的错
 
关于parameters.parambyname('a').value:=trim(edit1.Text );的类似语句不能这样写, ado不会像设计时一样自动把你的Parameters加上, 而要用代码, 如:Parameters.CreateParameter(...), 具体写法请查阅联机帮助
 
这句错了
adoquery2.SQL.Add('where'+' '+c+':=var1');
改为
adoquery2.SQL.Add('where'+' '+c+'= :var1');
 
我没细看你的代码，但建议你今后字段名用英文有很多好处。
 
您必须登录或注册才可回复。

Similar threads

Y
为什么我接收不到存储过程返回的错误提示啊！！ 大家来看看 帮下忙吧 谢谢大家了(100)
回复
9
查看
956
Yang.SZ
Y
楚
请帮助修改一个简单小学生计算程序,目的想实现,当在EDIT里结果对话,label3:提示"对".不对的话提示"重新输入"(50)
回复
5
查看
697
楚辞
楚
H
gif 文件在DLL中的窗体的显示问题 ,已经解决，有新的情况，不知哪位老大能帮忙解决下?(100)
回复
9
查看
1K
hying95
H
楚
大家帮我看看，过程报错，搞不清楚啊。。。。[Pascal Error] Unit1.pas(1): Unable to invoke Code Completi
回复
6
查看
547
楚辞
楚
B
请教一下我这个存储过程有没有可能会死锁定(100)
回复
2
查看
449
bsense
B
后退
顶部