如何实现查询打印？(30分)

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #1

请教！请问如何进行查询打印？（用TABLE控件）
我在设计一个火车售票系统（毕业设计），想把查询到的一条车次信息打印出来以实现“火车票打印”的功能。
急~！！不胜感谢！

 

W

wangnen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #2

改用TQuery

 

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #3

肯定要用QUERY吗？用TABLE不行么？

 

W

wangnen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #4

query要方便很多，

 

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #5

可以提供一段程序看看吗？谢谢！

 

W

wangnen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #6

把你要查的表和要查的字段说下

 

W

wangnen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #7

with query1do

begin
close;
sql.clear;
sql.add('select * from table where 车次=1');
parambyname('p1').asstring:='dkkdkd'
open;
end;
连接好report.dataset

 

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #8

表的字段如：车次 起点站 到达站 发车时间 座位类别 票价
要查的字段：车次 起点站 到达站 座位类别
谢了！

 

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #9

如果我的查询功能和报表分别是在两个窗体上，如何让报表窗体显示出查询的结果呢？

 

W

wangnen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #10

uses ReportUnit
preview.buttonclick
ReportForm.QuickRep.Preview/Print

 

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #11

你的意思是在查询窗体中加入上面的程序？并且增加一个button控件？

 

W

wangnen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #12

车次 起点站 到达站 座位类别 组合查询
.click
var
SqlTemp:string;
s车次 s起点站 s到达站 s座位类别:string
begin
sqlTemp:='';
if s车次<>'' then
sqlTemp:=' Where 车次='+s车次
if s起点站<>'' then
if sqlTemp<>'' then
sqlTemp:=SqlTemp+' and 起点站='+s起点站
else
SqlTemp:=' where s起点站 ='+s起点站
if s到达站 <>'' then
if sqlTemp<>'' then
sqlTemp:=SqlTemp+' and 到达站 ='+s到达站
else
SqlTemp:=' where s到达站 ='+s到达站
if s座位类别 <>'' then
if sqlTemp<>'' then
sqlTemp:=SqlTemp+' and 座位类别 ='+s座位类别
else
SqlTemp:=' where s座位类别 ='+s座位类别
with query1do
begin
close;
sql.clear;
sql.add('select * from table '+SqlTemp);
open;
end;

Form.QuickRep1.Preview
end

 

C

Corba+

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-20

• #13

table也可以.find,goto,locate

 

L

lphjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-20

• #14

赞成wangnen的方法

 

C

cnsycb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #15

还是应该用query，这是查询正宗嘛