VB 航班查询系统

VB 航班查询系统

不加数据的话，只要用文本文件作为数据来源即可。比如，建立一个lib.txt内容如下:

CA0001,北京,上海,20100530,2200
CA0002,北京,三亚,20100601,1640
HN0001,海口,北京,20100601,1130
HN0002,海口,昆明,20100603,1200
... ...

form1.show
dim switch as byte
switch = inputbox("请输入查询代号 1.查询航班号 2.出发地查询 3.目的地查询 4.出发日期查询 5.出发时间查询")

select case switch
case 1
str = inputbox("航班号")
case 2
str = inputbox("出发地")
case 3
str = inputbox("目的地")
case 4
str = inputbox("日期")
case 5
str = inputbox("时间")
end select

open "c:\lib.txt" for input as #1
do while not eof(1)
input #1,s1,s2,s3,s4,s5
select case switch
case 1
if s1 = str then print "符合条件的";s1;s2;s3;s4;s5
case 2
if s2 = str then print "符合条件的";s1;s2;s3;s4;s5
case 3
if s3 = str then print "符合条件的";s1;s2;s3;s4;s5
case 4
if s4 = str then print "符合条件的";s1;s2;s3;s4;s5

case 5
if s5 = str then print "符合条件的";s1;s2;s3;s4;s5

end select
loop
close #1

这样就可以实现按照不同条件进行查询了，很简单吧 :) 祝你学习愉快

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！