如何实现只对可勾选的记录进行打印，请帮助 (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，数据类型为字符）
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
取得IE的历史记录信息
回复
0
查看
565
import
I
D
[原]Delphi XE8实现移动端的消息推送(个推)
回复
0
查看
791
DelphiTeacher的专栏
D
I
Delphi中串行通信的实现
回复
0
查看
600
import
I
顶部