Question

怎么把delphi7中EDIT中的值传输给SQL数据库

怎么才能把DELPHI7中EDIT1,....EDIT99里面输入的值传给SQL数词库。如图，我按保存按钮后写下如下代码procedure TForm1.BitBtn4Click(Sender: TObject);vars:string;begin if edit1.Text='' then begin showmessage('客户编号不能为空'); edit1.SetFocus; abort; end; if edit2.Text='' then begin showmessage('客户名称不能为空'); edit2.SetFocus; abort; end; if edit3.Text='0' then begin s:=' insert into Department(Depar_no,Depar_name)'; s:=s+' values(:Depar_no,:Depar_name)'; end else begin s:='update Department set depar_no=:depar_no,depar_name=:depar_name'; s:=s+' where id='+edit3.Text; end; with datamodule2.adoqry do begin active:=false; sql.clear; sql.add(s); parameters.paramvalues['depar_no']:=edit1.text; parameters.paramvalues['depar_name']:edit2.text; end; execsql;end;我执行不通，而且datamodule我不怎么会用，从文件那里新增了一个就有两个unit了而且还是过不了，谁可以帮我详细讲解一下datamodule的用法，或者不用datamodule把数库传给SQL数据库。越详细越好。可以加QQ 2970052623 。。不甚感激。
ADOConnection1 这个我有跟数词库连接上了

Answer 1

你这样试试：

procedure TForm1.BitBtn4Click(Sender: TObject);
var
	s:string;
begin   
	if edit1.Text='' then   
	begin    
		showmessage('客户编号不能为空');
		edit1.SetFocus;
		abort;
	end;
	if edit2.Text='' then   
		begin     
		showmessage('客户名称不能为空');
		edit2.SetFocus;
		abort;
	end;
	if edit3.Text='0' then   
	begin     
		s:=' insert into Department(Depar_no,Depar_name)';
		s:=s+' values(:Depar_no,:Depar_name)';
	end   
	else begin   
		s:='update Department set depar_no=:depar_no,depar_name=:depar_name';
		s:=s+' where id='+edit3.Text;
	end;
	with datamodule2.adoqry  do  
	begin   
		active:=false;
		sql.clear;
		sql.add(s);
		parameters.ParamByName('depar_no').Value:=edit1.text;
		parameters.ParamByName('depar_name').Value:=edit2.text;
		execsql;
	end;		
end;

看看行不

追问

还是不行呢，你有没有QQ什么的加你。我发给你你帮我看一下，我按F9执行都不动

Answer 2

procedure TForm1.BitBtn4Click(Sender: TObject);
var s:string;
begin
if edit1.Text='' then
begin
showmessage('客户编号不能为空');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
showmessage('客户名称不能为空');
edit2.SetFocus;
exit;
end;
if edit3.Text='0' then
begin
s:=' insert into Department(Depar_no,Depar_name)';
s:=s+' values(:Depar_no,:Depar_name)';
end
else
begin
s:='update Department set depar_no=:depar_no,depar_name=:depar_name';
s:=s+' where id='+edit3.Text;
//如果id是char类型,s:=s+' where id='''+edit3.Text+'''';
end;
with datamodule2.adoqry do
begin
active:=false;
sql.clear;
sql.add(s);
parameters.paramvalues['depar_no']:=edit1.text; parameters.paramvalues['depar_name']:=edit2.text;
execsql;

end;
end;

修改了一些错误。