VB 航班查询系统
不加数据的话,只要用文本文件作为数据来源即可。比如,建立一个lib。txt内容如下:CA0001,北京,上海,20100530,2200CA0002,北京,三亚,20100601,1640HN0001,海口,北京,20100601,1130HN0002,海口,昆明,20100603,1200。 。。 。。。form1。showdim switch as byteswitch = inputbox("请输入查询代号 1。查询航班号 2。出发地查询 3。目的地查询 4。出发日期查询 5。 出发时间查询")select case switch case 1 str = inputbo...全部
不加数据的话,只要用文本文件作为数据来源即可。比如,建立一个lib。txt内容如下:CA0001,北京,上海,20100530,2200CA0002,北京,三亚,20100601,1640HN0001,海口,北京,20100601,1130HN0002,海口,昆明,20100603,1200。
。。 。。。form1。showdim switch as byteswitch = 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 selectopen "c:lib。
txt" for input as #1do while not eof(1)input #1,s1,s2,s3,s4,s5select case switchcase 1 if s1 = str then print "符合条件的";s1;s2;s3;s4;s5case 2 if s2 = str then print "符合条件的";s1;s2;s3;s4;s5case 3 if s3 = str then print "符合条件的";s1;s2;s3;s4;s5case 4 if s4 = str then print "符合条件的";s1;s2;s3;s4;s5case 5 if s5 = str then print "符合条件的";s1;s2;s3;s4;s5end selectloopclose #1这样就可以实现按照不同条件进行查询了,很简单吧 :) 祝你学习愉快。
收起