如何实现只对可勾选的记录进行打印,请帮助 (50分)

  • 主题发起人 主题发起人 chengcheng178
  • 开始时间 开始时间
TO maozhuxi:
何种方法实现起来最方便,以上的方法都测试过,不成功
 
如果是我的话,就用aweih的方法
但是我会改一改
我马上帮你看看吧
 
你用没有用数据库?
比如sql server?
 
楼主在不,
你用的是什么数据库?
 
我用的是ACCESS数据库,请你帮忙看出一下,谢谢!
 
调通后,我马上加分,分不够再加
 
procedure TForm1.Button1Click(Sender: TObject);
var ss:String;i:integer;
begin
for i:=0 to CheckListBox1.Count-1do
if CheckListBox1.Checked then
begin
ss:= checklistbox1.itemS[checklistbox1.itemindex];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into table1 ') ;
ADOQuery1.SQL.Add('('+quotedstr(ss)+')');
ADOQuery1.ExecSQL;
end;
Form4.QuickRep1.DataSet:=dataset1;
form4.QuickRep1.preview;
end;
 
有什么问题就说出来
 
procedure TForm1.Button1Click(Sender: TObject);
var ss:String;i:integer;
begin
for i:=0 to CheckListBox1.Count-1do
if CheckListBox1.Checked then
begin
ss:= checklistbox1.itemS;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into table1 ') ;
ADOQuery1.SQL.Add('values'+'('+quotedstr(ss)+')');
ADOQuery1.ExecSQL;
end;
end;
 
然后
Form4.QuickRep1.DataSet:=dataset1;
form4.QuickRep1.preview;
 
TO maozhuxi:
编译时出现以下问题
[Error] Unit2.pas(87): Undeclared identifier: 'dataset1'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit2.pas'
请问dataset1是什么,请帮助
 
我没有用过QuickRep
但是我想和其他差不多
你用Form4.QuickRep1.DataSet:=adoquery1;
试试
 
反正道理是 一样的
table1中的数据就是你想要的内容
然后就靠你用QuickRep把table1中的内容打印出来
 
我是用这条语句可以执行过去了
Form4.QuickRep1.DataSet:=adoquery1
但程序执行后,勾选记录后点Button1提示表的连接错误,请帮助
 
哎,你难道比我还菜?[:D]
好吧,我一步一步给你说。
你的odbc设置好没有?
 
TO maozhuxi:
table1是通过程序生成的吗,还是需要建一个实际的表
 
我用的是ado
 
可以用程序生成,我帮你写个吧!
麻烦,我还得安装access,我一般没有用那东西的
 
ado数据库连接没有问题
 
算了不用写代码了,就将就用吧,安装又出问题了
你就先在access中建个表,表叫table1,然后设计一个字段(随便了,比如叫qq,数据类型为字符)
 
后退
顶部