我现在做一个收费系统,有4个数据库分别是基本资料,学费,住宿费,课本费。
基本资料里有字段:学号,姓名,班级等
学费里有字段:学号,学费,交款日期,收据号码等
住宿费里有字段:学号,住宿费,交款日期,收据号码等
课本费里有字段:学号,学费,交款日期,收据号码等
我用DELPHI7+ACCESS做的,现在我想在程序中实现这样一个功能,就是说我只要输入一次学号,就能把学号添加到这4个数据库中的学号字段里。
请问各位高手我如何写SQL语句,请尽量详细点,最好有实例,因为小弟我实在是新手。
谢谢大家!!!不胜感谢!!!
基本资料里有字段:学号,姓名,班级等
学费里有字段:学号,学费,交款日期,收据号码等
住宿费里有字段:学号,住宿费,交款日期,收据号码等
课本费里有字段:学号,学费,交款日期,收据号码等
我用DELPHI7+ACCESS做的,现在我想在程序中实现这样一个功能,就是说我只要输入一次学号,就能把学号添加到这4个数据库中的学号字段里。
请问各位高手我如何写SQL语句,请尽量详细点,最好有实例,因为小弟我实在是新手。
谢谢大家!!!不胜感谢!!!
i:=Integer;
begin
for i:=0 to 要添加的数据标的总数-1 do
begin
Query基本资料.AppendRecord(学号,姓名,班级);
Query学费.AppendRecord(学号,学费,当前时间,收据号码);
Query住宿费.AppendRecord(学号,住宿费,当前时间,收据号码);
Query课本费.AppendRecord(学号,学费,当前时间,收据号码);
end;
end;
===============================================================
前提条件是,将数据表的其他字段属性设置为“可以空值”
那么,就可以将空值的字段默认为“nil”
而且学号的edit就一个,点击确定后分别些到4个数据库表里。我的数据库关系是用学号这个字段连接的。请lgqTiger(把酒论程序__尽在笑谈间)在帮帮我!
非常感谢,分不够可以在加!!!!!
比如你要在基本资料里加学号,就写with adoquery1 do
begin
close;
sql.clear;
sql.add('insert into 基本资料(学号)');
sql.add('values ('+''''+edit1.text+')''');
execsql;
end;
procedure TForm1.RunInsert(qry:TADOQuery;tabName:string);
begin
qry.close;
qry.SQL:='insert into '+tabName+'(学号) values ('+''''+edit1.text+')''';
qry.ExecSQL;
end;然后在按钮事件中写:RunInsert(ADOQuery1,'基本资料');
RunInsert(ADOQuery1,'学费');
RunInsert(ADOQuery1,'住宿费');
RunInsert(ADOQuery1,'课本费');
各位高手再帮帮我吧!
请你再帮我看看吧,谢谢了。
我的代码是这么写的
begin
with ADOQuery1 do
begin
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('insert into jbxx(xh)valuse(:xh)');
ADOQuery1.parameters.parambyname('xh').value:=dbedit1.text;
ADOQuery1.execsql;
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('insert into xfb(xh)valuse(:xh)');
ADOQuery1.parameters.parambyname('xh').value:=dbedit1.text;
ADOQuery1.execsql;
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('insert into zsb(xh)valuse(:xh)');
ADOQuery1.parameters.parambyname('xh').value:=dbedit1.text;
ADOQuery1.execsql;
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('insert into kbf(xh)valuse(:xh)');
ADOQuery1.parameters.parambyname('xh').value:=dbedit1.text;
ADOQuery1.execsql;
end;
end;
end;
我在BUTTON里写了代码,可是总是提示我INSERT INTO 语句语法错误!
我试着写了代码,可是都提示这个问题!
我实在不知道是哪里的错误,请高手指点指点我吧。
ADOQuery1.sql.clear;
ADOQuery1.sql.Text:='insert into jbxx(xh) valuse('''+dbedit1.text+''')';
ADOQuery1.execsql;
其它的都一样