售票实习报告（共13篇）

由 范文小馒头 分享时间：2023-01-14 20:38:37 加入收藏我要投稿点赞

售票实习报告（共13篇）

第1篇：公车售票实习实践报告

暑期社会实践报告

---------公车售票暑期实践前言：漫漫长假，如果无所作为即是浪费时间。即将步入大四的我，在最后一个暑假决定体验生活，深入社会，参加实践。因此，在2010年的暑假，我通过深切思考，在同学的介绍下，进入了临沂市公交车集团，在公交车上售票。整整一个月的售票工作经历给了我深刻的印象，与此同时也让我对社会有了更多了解。实践人：xxx

实践时间：2010年7月21日—8月20日

实践地点：xx市xx路公交车上

实践内容：公交车售票

当今社会，经济越来越繁荣，交通越来越发达，与此同时公车也在这样的情况下越来越被需求。2010年暑假，我有幸在同学介绍下进入公交车公司参加了售票工作，给我的人生经历添加了宝贵的一笔。

以前作为一个乘客，对售票员并没有什么特别的印象，只知道是售票的，相当于公车上的服务员。然而，当我进入这个群体时，才发现售票员的工作是并不是想象的那么简单。

我所在的公交车是临沂市23路公交车，走的是由农村到城市的路线，因此路线的总长度很长，按距离收费，路程越远票价越高，最低1元，最高4元。因为我经常坐这班车，所以也算比较熟悉路线和基本情况。然而，这些是不够的。由于经常需要早出车或者很晚回来，所以需要住在员工宿舍。在我开始工作的前一天，负责人就告诉我一些基本规则要我遵守，包括准时出车，到签到点签到，讲普通话，穿制服，不可以坐在乘客座位上等等。大家都知道公交车早上第一班车会很早，我所在的班次在夏季最早的一班是6点出车，需要起的很早。下午回来的最后一班是下午6点半开始发车，到达站点的时候已接近7点50。所幸我第一天并不是第一班，因此并没有那么早起床。负责人让我第一个星期都跟着别人一起熟悉工作，姑且当作“实习”吧。其实就是熟悉路线和售票过程，同时要学习前辈的工作态度。就这样，我的暑期公车售票实践开始了。

第一天的实习出的是早上八点的车，比较轻松，不必早起。然而我还是早早洗刷好了，心情兴奋地等着出车。带我的小师父是个20岁的女孩，很和蔼亲切。让我叫她小珍。我跟着小珍一起上了车，她就开始交代我一些需要注意的问题。我专注地听着。她告诉我售票员需要态度好，耐心大，细心认真。如果态度恶劣那么坐车的人就感觉跟折磨一路似的，有的还会起冲突。当人多的时候可能很拥

挤，更要耐心，并且疏导人群，否则会踩到伤到。每到一个点就报一下站点，提醒乘客下车，不要误了事。小珍让我前两天先观摩她，不必亲身躬行，同时注意记路线和站点。我的第一天第二天就是在观摩中度过的。通过仔细观摩加上有小珍的提点，我很快就记住了沿路的大部分站点。同时也注意到售票员的基本工作流程：当有乘客要上车时，请乘客上车，问清楚乘客所到地，根据上车地点到所到地的距离，给出合适的票，票需要当时标记，以便检票。到了固定的站点，需要下车到站点签到，这是为了检查车次是否准时没有误点。当有老弱孕幼残上车时，主动搀扶到座位。如果没有座位，提醒乘客让座。当人很多时，就开始站着，这时提醒乘客拉好扶手。当人很拥挤时，疏导乘客均匀地散布到车厢里。还有一个条例就是先下车后上车。如果一下子上了很多人就要注意数好人数，防止有乘客逃票，等等。

就这样过了两天，小珍让我试着替代她，她则在一旁监督着我。我开始了正式的售票工作。第三天的班竟然是早上6点第一班的车，起了个大早，面带微笑，整整衣服，迎接我的正式的第一批乘客。报点、给票、搀扶老人、疏导乘客、态度良好都做得差不多，唯一美中不足的是对地点记得不是很牢靠，老是需要小珍的提醒。来来回回一共三个来回，吃饭也是大家一起随便吃点。司机是个老师傅，幽默风趣，开车很多年了，开得挺稳的，不会出现那种急刹车让人滑行很远。司机师傅跟我说小珍是个好售票员，很有耐心，让我好好跟她学习。我连连点头。

下午的最后一班，回到总站才7点，可是我却觉得很累。正式的工作的确不比实习轻松，需要一直站着，天又热，汗水流的差点虚脱。小珍让我好好休息，她告诉我说再监督几天我就可以自己出车了。说我这天表现不错，让我继续加油。我怀着饱满的充实感入睡了。

以后的几天，慢慢适应了工作，出的纰漏越来越少，跟司机师傅的配合也越来越有默契了。实习的最后一天，小珍说今天就检查一下我的成绩，记录一下我的出错点，总结一下我的工作业绩。值得一提的是，我最后一天基本没有错误，哪里到哪里是多少票价，哪里到了什么站点，都已经记清了。熟能生巧，我在一个星期内每天三个来回的情况下记住了所有要记住的。小珍开心地说我可以胜任这份工作了。

一个人独立的工作开始了，我已经成了售票员中正式的一员。每天早出晚归，跟着公交车进城回来再进城再回来地循环往复。乘客形形色色，有的步履匆匆，有的安定从容。花花世界，人各有各的忙。相交点就是曾经在某天的某段时间坐过同一班公车。上车了，就好像进了一个暂时的空间，急不得慢不得，只得跟司机一起走，下车又各自回归到自己的生活，或忙碌或悠闲。而我就是跟着这些乘客走过这暂时一程的人。

日复一日，每天重复，遇见的人却每天都有不同。有的人是一直坐23路公车的，不用他们说就知道去哪了。这就是熟识。有的人只见过那么一次，这就是陌路。在近一个月的工作中，曾经遇见过很多让我印象深刻的事。有一天不知道什么日子，很多乘客抱着自己的孩子上车，可能是统一检查孩子身体吧。抱着孩

子当然要给小孩子和妈妈让座。欣慰的是不停地有乘客站起来让座。最后满车坐着的都是抱着孩子的妈妈，甚是壮观。我在感激乘客配合的同时也感慨人的素质真都挺高啊，不管是怎样的人，爱心还是存在心底的。当然也有气愤的事，有的人买了一元的票坐四元的路程，有的人还去逃票。只不过都是少数。偶尔有一个。还有一件印象很深的是在接近市区路段，人比较拥挤，我竟然看见了一个小偷要偷乘客钱包，手已经伸进去乘客却一无所觉。我一紧张就挤过去问小偷去哪，要检票。小偷的目光很是犀利，不过我已经顾不了了，都出手了。然后他掏出票我看了看，还有两站。我就又开始检查大家的票，然后瞅了个空对那人耳语，小心口袋。那人恍然的样子，手紧紧地抓住口袋。由此看来我的素质还是很高的。虽然遭了小偷不长时间的白眼。

一个月说长不长说短很短，在我已经习惯的时候我的假期就要到头了，有种戛然而止的感觉。临走前一天跟小珍和司机师傅告别，司机师傅略带遗憾地说我也是个好售票员，不过可惜要走了。我开心地说有师傅这话就够了。小珍则是问我是不是体验到生活了。我想了想说这个工作不是开始想象的样子，本来以为很轻松简单的，没想到还是很辛苦。负责人发给我一千块钱的工资，让我以后假期再来。不过我是没时间了，下个假期就得实习找工作了。

最后的一个暑假，我想以后也没有了吧，工作哪里还有寒暑假呢？就这样度过了最后一个暑假。就当是为了以后工作做准备吧，做好任何工作都必会辛苦的准备，调整好心态，准备迎接即将到来的崭新的人生，结束十几年的学校生涯，结束懒懒散散无忧无虑的日子，开始成熟有担当地生活，开始为别人着想而不是一直让人惦记着。在二十几年的人生里，经历却少的可怜，只有学校。这次的假期打工，让我多少长了点阅历。本来一帆风顺的人生里，培养了我乐观的性格，不知道将来会面对多少磨难，起码在现在的我看来，一切还是美好的。最最起码要抱着好的心态。只要有责任心，认真地过活，我想，总会好的。

就这样，以崭新的姿态面对大四，面对即将到来的新人生吧！

第2篇：大学生售票社会实践报告

这是我上大学以来的第一个寒假，理所当然要回家和父母亲人团聚。不过身为当代大学生，总不该“日出三竿而起，日落西山而息”地无所作为。回到家后，我与父母商量，准备找一份工作。可是工作还没找到我人却先病了。等我恢复如初时，假期已经过了一半了。本以为打工的事就这样泡汤了。没想到，隔壁的李叔到我家来了。他说原来的售票员李姐过两天有事，想找人代班，问我是否愿意去。反正闲着也是闲着，我就一口答应了。在我的印象里，售票员不就是收收钱嘛!这种活儿，只要认识钱不就会干嘛。可是李叔还是让我提前一天跟着李姐熟悉一下工作内容，了解情况，简单的帮忙找余钱我本不想提前去，可还是点头答应了。因为是春节，大家忙着走亲访友，所以车上乘客特别多。慌乱之中，我差点找错了钱，幸好我反应及时。中午休息时，我把这事告诉了李姐。她没责备我，只是很认真地说：“做我们这行的，最重要的就是细心，认真，记忆力好。虽说车上上上下下的，又多又乱，很容易出差错，但是这也正能考验你能否在慌乱的场面中保持镇定。不过，你是第一次，已经不错了。”我开始觉得我当初的想法，认识是那么肤浅。李姐又问我：“沿路的站点，你今天上午记住了几个?这条路你平时坐车也经常过，应该全记好了吧?”我此时更觉得羞愧了，因为我根本就没注意这一点，这时候能想起来的也没几个。或许，李姐也意识到了我的尴尬，于是就拿出路线图，耐心地将每一个站点一一指认给我。我认真地在心里记了一遍，然后又利用饭后的时间记了几遍。下午我开始反复检验自己是否记住了。提前说出下一个站点，并不断回忆以经过去的站点。功夫不负有心人，到晚上休息时，我已经能很快地说出任何一个站点的次序。此时的我也开始慢慢理解李姐的话了。

新的一天又开始了，此时已没有李姐的帮忙了，我要亲自招呼乘客了。我开始在脑海里回想昨天晚上李姐告诉我的几个注意事项：首先要合理安排座位尽量让老年人坐在中间的几排位置上，因为中间比较平稳；当然更要记住每一位新上车的乘客，因为这样收费时就会少出错；最后就是在每个站点到达之前提醒乘客下车，让乘客提前做出准备。还好，这一切进行的还算顺利。就算我有一些小疏忽，司机李叔也会及时的提醒我。将近中午，有一位头发雪白的老奶奶上车了，但车内已经没有座位了。我问其他乘客是否愿意让出一个座位，没想到居然有两个学生模样的年轻人都站了起来。当时，真挺为他们感到自豪的。事情虽小，但却能反映出我们当代学生的道德修养水平。短短的几天很快就过去了，对乘客来说，仍如往常一样的上车下车；但对我来说，这是一次不寻常的经历。当车内比较拥挤时，我会提醒乘客看好自己的物品，以防拿错或丢失；当碰上心急的乘客时，我会提醒他等车停稳了再下车，安全最重要。看到乘客们安全下车时，我这个“假”售票员心里就会涌出一股满足感。这几天的经历我最深切的感受就是：不论什么事只有亲身的体验过，才会有真实的感受，才能对这件事有比较实在的，深刻的认识；还有一点就是，世上无易事，均须用心去做。

第3篇：公交车上售票实践报告

公交车上售票实践目的；第一，勤工俭学；第二，锻炼自己与人交往的能力，增加社会经验实践经历及收获：

作为一名在校大学生，我们有义务去社会中为社会提供服务，回报社会对我们的培养，关心与支持。暑假对于我们大学生来讲是个难得的假期，因为在这段时间里我们可以掘起所好，做很多自己想做，但平常又没有时间做的事。满满当当的安排假期生活，快乐又充实。很多大学生都会选择抓住机遇，做一些社会实践活动，积极投入到社会这个圈子里，既锻炼能力，又能增长见识，何乐而不为呢？

然而，工作却没有我相像的那么好找，一连几天接连碰壁。后来经同学介绍说有公交公司原来的售票员钊哥过两天有事，想找人代班，问我是否愿意去。反正闲着也是闲着，我就一口答应了。在我的印象里，售票员不就是收收钱嘛！这种活儿，只要认识钱不就会干嘛。可是钊哥还是让我提前一天跟着熟悉一下工作内容，了解情况，简单的帮忙找余钱我本不想提前去，可还是点头答应了。因为是暑期，大家不忍酷热，所以来坐车的乘客特别多。慌乱之中，我差点找错了钱，幸好我反应及时。中午休息时，我把这事告诉了钊哥。他没责备我，只是很认真地说：“做我们这行的，最重要的就是细心，认真，记忆力好。虽说车上上上下下的，又多又乱，很容易出差错，但是这也正能考验你能否在慌乱的场面中保持镇定。不过，你是第一次，已经不错了。”我开始觉得我当初的想法，认识是那么肤浅。钊哥又问我：“沿路的站点，你今天上午记住了几个？这条路你平时坐车也经常过，应该全记好了吧？”我此时更觉得羞愧了，因为我根本就没注意这一

点，这时候能想起来的也没几个。或许，钊哥也意识到了我的尴尬，于是就拿出路线图，耐心地将每一个站点一一指认给我。我认真地在心里记了一遍，然后又利用饭后的时间记了几遍。下午我开始反复检验自己是否记住了。提前说出下一个站点，并不断回忆以经过去的站点。功夫不负有心人，到晚上休息时，我已经能很快地说出任何一个站点的次序。此时的我也开始慢慢理解钊哥的话了。

新的一天又开始了，此时已没有钊哥的帮忙了，我要亲自招呼乘客了。我开始在脑海里回想昨天晚上钊哥告诉我的几个注意事项：首先要合理安排座位尽量让老年人坐在中间的几排位置上，因为中间比较平稳；当然更要记住每一位新上车的乘客，因为这样收费时就会少出错；最后就是在每个站点到达之前提醒乘客下车，让乘客提前做出准备。还好，这一切进行的还算顺利。就算我有一些小疏忽，司机李叔也会及时的提醒我。将近中午，有一位头发雪白的老奶奶上车了，但车内已经没有座位了。我问其他乘客是否愿意让出一个座位，没想到居然有两个学生模样的年轻人都站了起来。当时，真挺为他们感到自豪的。事情虽小，但却能反映出我们当代学生的道德修养水平。短短的几天很快就过去了，对乘客来说，仍如往常一样的上车下车；但对我来说，这是一次不寻常的经历。当车内比较拥挤时，我会提醒乘客看好自己的物品，以防拿错或丢失；当碰上心急的乘客时，我会提醒他等车停稳了再下车，安全最重要。看到乘客们安全下车时，我这个“假”售票员心里就会涌出一股满足感。

这次的社会实践，一晃而过，却让我从中领悟了很多东西，甚至这些东西将让我终身受用。工作的时候要学会全力以付，不要太计较自己付出多少，尽量做到多做事，做有用的事情。自己努力的工作，旁人也会看到。不管怎样，重要的是工作的成效和业绩，这才是领导看重的。

不管做什么事情，就算是一件小事，也要认真仔细，绝不能敷衍了事。可能不起眼的小事是很重要的，所谓细节决定成败。人与人之间在智力和体力上的差异并不是想象中的那么大，很多小事，一个人能做，另外一个人也能做，只是做出来的效果不一样，往往是一些细节上的工夫，决定着事情完成的质量。

我的思考：

社会实践能让走出校园的我们，更好的接触社会，了解社会，加入到社会中。它有助于我们大学生更新观念，吸收新的思想和知识。同时，社会实践中有很多我们在学校里无法学习到的东西，与人沟通交流的能力和表达能力。社会实践能够加深我们与社会各阶层人的感情，拉近了与社会的距离，也开拓的视野，增长了才干，能更好明确自己的奋斗目标。希望以后还有这样的机会，让我从实践中得到锻炼。

以上就是我的暑假的经历和感受，虽然不是那么的轰轰烈烈，也不是平淡无味，但至少它是充实的，给我或多或少的带来的对于人生感受，和一定的影响吧！

第4篇：售票办法

月牙湖中国北方民族园景区门票管理办法

县旅游局

第一条为了加强中国北方民族园景区门票管理，维护正常的价格秩序，促进景区旅游事业健康发展，根据《中华人民共和国价格法》、《黑龙江省旅游管理条例》等法律、法规的规定，结合我县实际，制定本办法。

第二条旅游、财政、税务、物价部门按照职责负责中国北方民族园门票的监督管理工作。

第三条中国北方民族园使用的门票样式由景区管理处设计报县旅游局审核，按管理权属由税务部门监制。

第四条中国北方民族园管理处应在售票处显著位置分别用中、英文等两种文字公示门票的种类、价格、售票办法及优惠对象、幅度等。实行明码标价，接受社会监督。

第五条中国北方民族园管理处应配备票务专职（或兼职）保管员，负责门票的保管、领用、回收登记、核算等工作。

第六条因门票调价、霉变、重新设计等原因，造成库存门票报废，所在景区管理处及时清理造册后，由县旅游局及税务部门负责销毁。

第七条建立景区门票管理使用月报制度。每月5日前将本旅游景区上月的游览人数、门票执行情况、门票收入上报县旅游局。由旅游局汇总后缴县财政列财政事业性收费再由县财政拨

付景区管理处，做到收支两条线。

第八条除本办法规定的免票人员外，进入景区的所有游客或就餐人员一律按景区管理处公布的票价现金购票，一人一票，凭票游览。

（A）本县居民（不含中兴村）可凭身份证或户口簿到景区管理处办理年票，县直机关事业干部由所在单位统一办理年票，年票每人每年100元，门票因遗失补办收取工本费5元。

（B）忠仁镇中兴村由所在村委会统一到景区管理处办理个人长期通行证，年票每人每年收取50元，门票因遗失补办收取工本费5元。

第九条对进入景区的车辆收取车辆停放管理费。大型客车每车每次40元，中型客车及小型车辆每车每次20元。

第十条为进一步开拓绥滨旅游市场，对旅行社组团的游览参观队由景区管理处报县旅游局批准后，给予适度的门票优惠。经营性单位在景区内举行会议、展览、宣传促销等活动，由景区管理处报县旅游局批准后，给予适度的门票优惠。优惠幅度可实行门票10免1或10免5。

第十一条门票价格要充分体现社会公益性。儿童进入景区必须要有监护人同行，1.2米以下的儿童免票，1.2米至1.4米儿童按规定购半票；在校学生持有本人学生证可购半价优惠票。第十二条下列人员进入景区可以免票：

（一）新闻媒体记者在景区内进行采访报道，文学创作人员

凭学会、协会会员证进行景区文学创作。

（二）持有老年证（或身份证）的老人，男70周岁、女60周岁。持有离休证的离休人员。持有导游证的导游人员。持有景区讲解员证的讲解员。

（三）持有有效执法证件的行政执法人员在景区内开展执法活动的。

（四）持有烈士证明的烈士家属；持有有效证件的现役军人；持有残疾人证的残疾人；持有县级以上证明的劳动模范、优秀工作者、优秀共产党员、优秀党务工作者。

（五）经景区管理处批准，持有景区经营许可证在景区内从事经营摄像、商品销售、餐饮等服务的人员（需办理景区工作人员证）。

（六）到景区考察旅游线路的旅行社负责人凭有效证件到景区管理处办理有关手续后，可以免票进入景区。

（七）经批准进入景区施工的单位或个人。

（八）持有效证件进入景区从事林业生产的林业工作人员。

（九）来我县考察、检查工作的上级领导及陪同人员。第十三条门票管理工作人员及相关人员，违反下列情形之一的，责令责任人退赔或足额补收相应门票款；情节严重的，由纪检监察部门及行政主管部门给予党纪、政纪处分；构成犯罪的，移交司法机关处理。

（一）违规放行无票无证的人员直接进入景区的；

（二）超范围优惠以及玩忽职守造成门票收入流失的；

（三）伪造门票、弄虚作假的；

（四）坐收坐支、挪用、贪污、私分门票收入的；

（五）收取回扣、好处费以及收款不给票的；

（六）自行带人进入景区的；

（七）违规通知门票站直接放行的；

（八）有违反本办法的其他行为。

第十四条拒不接受门票站人员管理，不购票进入景区或逃票进入景区的，足额补收门票款，情节严重的移交公安机关依法予以处罚。

第十五条强行冲卡，扰乱门票管理秩序的，由公安机关依法依规处置。

第十六条凡违反本办法被处罚的，由电视台等新闻媒体公开曝光，属国家工作人员的，还要追究其所在单位主要负责人或直接责任人的责任，并作为年度考核的重要依据。

第十七条本办法由绥滨县北方民族园景区管理处负责解释。第十八条本办法自发布之日起施行。

附：景区管理组织机构

二Ｏ一Ｏ年九月九日

景区门票管理组织机构：

景区管理及工作人员需9名（不含保安、保洁及其它维护人员）其中：

景区管理处主任1名：负责景区全面管理工作。

景区管理处副主任2名：负责景区人事管理、安全保卫及游客门票抽检工作；负责景区建设、卫生监督及日常维护。

景区管理处会计1名：负责景区账务核算、财务分析、对上报表及印章管理。（兼售票系统维护员）

景区管理处出纳员1名：负责景区现金、有效凭证、票据、门票管理及当日门票核算。

景区售票员2名：负责景区售票工作。

景区检票员2名：负责景区游客检票工作。

第5篇：售票总结

售票组工作总结

绿博会期间我们组很荣幸的被分配到售票工作组，售票组每天的工作都非常辛苦，但我没每个人都很开心，因为我们觉得很充实，在售票的过程中学到了很多也懂得了很多我们课堂上所学不到的东西。我们组共 16 人，根据工作要求我们分成了 8 组，每组两人。我们上下午换班工作，上午四组下午四组。

在绿博会可谓是什么人都有，来来往往的人，不管男女老少不同的性格，不同的说话方式，不同的态度，在这里都可以看到，真可谓是人生百态啊。我们作为志愿者，我们的一举一动都代表着学校团委的形象，所以不论遇到什么样的情况我们组的所有成员都以微笑面对别人，时刻保持良好的心态。

在售票期间，我们的工作环境也非常的艰苦，在高温的天气下在不足十平米的小铁皮房里售票，里面又闷又热，我们的志愿者服装都紧贴在后背上，可我们组的每一位成员都从不说苦和累，并且我们在售票期间从不敢喝水，就怕耽误了售票的工作，就连中午吃饭都只用不到十分钟的时间，就怕接班迟到。

在工作期间，我们时刻都以严谨认真的态度面对工作，因为我们组的工作是唯一一组与钱打交道的工作，我们在售票是一人售票，一人找钱，最后还要再核对一便，在我们严谨认真的态度下我们成功的做到了票钱一致，没有丝毫差错。得到了我们票务组黄组长的表扬和认同。

在这段志愿服务的时期里，我们的领导老师非常的关心我们，总关心我们的身体状况，总担心我们吃不饱，还亲自为我们送饭，叮嘱我们工作时要仔细，让我们非常感动。总之经过这次志愿活动，让我们组的每一位成员对生活都有了新的认识.

第6篇：有关客运站售票市场调查报告

有关客运站售票市场调查报告

2010年12月

引言：

城市的进步必然会呼吁和带动交通的发展，作为承载城市交通的主要工具——公交车也随着社会的需求更加科学化、人性化。首先是公交车车型不断更新换代，改装卡车、中巴、大巴、天然气车、双层公交车、加长公交车，营运车辆的档次逐年提高，载客量逐渐增加。去年下半年刚刚投放到中山路上的5路加长公交车，一次的载客量就可以达到140多人。其次，经过中山路的公交路线达到了几十条，并向东南西北各个方向辐射，最东到达了八方村，最西到达了野生动物园，最南到达贾村，最北到达了正定。公交IC卡、智能防伪透币机、车载电视等高科技配套设备的应用，使得城市公交逐渐效率化、人性化。GPS卫星定位设施的投入使用，不但使得中山路的交通更加智能化，也实现了公交50年发展历程中的一次历史性飞跃

活动目的：通过对客运站售票市场的调查,了客运站售票市场的现状,得出总结性结论并提出相应的意见或建议。

活动时间：204路 1个小时32路、79路1个小时平山客运1个小时邢台客运 1.5个小时

204路（石家庄—黄壁庄）

路线：客运北站-高柱小区-赵林铺桥-西三庄街口-杜北-上京-贾村-杜童-孟同-闫同-百尺杆-李村东口-南白沙-北白沙-古贤-省汽修-中山湖(黄壁庄)

主要客源：从黄壁庄到石家庄的主要客源聚集在黄壁庄、古贤、北白砂、南白沙、李村东口。从黄壁庄到石家庄的客源主要是当地的村民，也报过外来人员但是外来人员很少。当地的村民主要在星期日全天去石家庄，包括学生，工作人员。其中学生占很大一部分。从石家庄到黄壁庄主要客源聚集在客运北站、上京。客运北站是总站想必客源少不了，上京是115路车的终点站，在上京乘坐204路比在客运北站乘坐便宜1-2元，所以很多人大多选择到上京乘坐204路。人们大多是聚集在星期五的中午到星期六的上午乘204路到黄壁庄。其中学生是很大一部分的客源。

客运规模：中型客运车，可承载人员17人。

平山客运（石家庄—平山）

第7篇：航空售票系统系统实施报告

航空售票管理系统

实施报告

组员：

第一章引言 ················································································································· 4

1.1编写目的··········································································································· 4 1.2参考文献··········································································································· 4 1.3术语和缩写词...................................................................................................4 第二章

软件概述 ····································································································· 5

2.1软件用途··········································································································· 5 2.2软件运行··········································································································· 5 2.3系统配置·········································································································· 7 2.4软件结构·········································································································· 7 2.5软件性能·········································································································· 8 2.6输入、处理、输出·························································································· 8

2.6.1输入········································································································· 8 2.6.2输出········································································································· 9

第三章

软件使用过程 ····························································································· 10

3.1软件安装········································································································· 10 3.2运行步骤········································································································· 10 3.3运行说明········································································································· 10

3.3.1控制输入······························································································· 10 3.3.2管理信息······························································································· 10 3.4.3输入输出文件······················································································· 10 3.4.4输出报告······························································································· 10 3.5出错处理········································································································· 10 3.6非常规过程····································································································· 11 第四章软件维护过程 ······························································································· 12

4.1程序设计的约定····························································································· 12 4.2出错及纠正方法····························································································· 12 4.3专用维护程序································································································· 12 4.4 源程序清单···································································································· 12

第一章引言

1.1编写目的开发目标：开发出一个操作简便，界面友好，灵活实用，安全可靠，功能齐全的的航空售票管理信息系统。

航空售票管理信息系统对航空相关单位进行包括机票订购在内的许多信息管理有着极其重要的作用，就一般的实用软件来说，它的设计内容繁多、功能重叠、操作复杂，比如订票和修改票务信息某些功能模块重叠等。本开发小组正是通过广泛调研，对同类的相关系统掌握了一定的资料的基础上，制定开发出来的。为了更好的完善本系统，在实施管理阶段特制定本实施报告，以求彻底完善本系统。

1.2参考文献

[1]张翼英等《Visual Basic课程设计》清华大学出版社出版日期:2008-1 [2]《信息系统开发方法》清华大学出版社姜旭平

1.3术语和缩写词

在本文档中，所有专门术语的定义以及缩写词的原意如下： ①程序流程图：

程序流程图又称程序框图，独立于任何一种设计语言，比较直观和清晰的描述了过程的控制流程。

②N-S图：

N-S图是为了改变流程图描述程序逻辑时过大的随意性与灵活性，其规定了五种图形构建，包括：顺序型，选择型，while重复，until重复型，多分枝选择型。

③PAD图：

PAD图是problem analysis diagram的英文缩写，是日本日立公司提出。它使用结构化程序设计思想表现程序的逻辑结构的图形工具。

④PDL语言：

PDL语言是procedure design language的英文缩写。PDL是所有非正文形式的过程设计工具的统称。PDL具有“非纯粹”的编写语言的特点。

第二章

软件概述

2.1软件用途

现在应用在大中型企业的管理信息系统中，几乎都包括了工资管理模块。有些环境中是由作为大型ERP软件中的一个模块引进的，有些是作为企业的财务系统的一部分。这些根据规范的西方的管理制度设计的工资管理软件，在很多时候还不能完全解决中国特色的中小企业的问题，本文介绍的就是要为高校解决他们在工资管理方面的问题，主要实现系统用户管理、员工基本信息管理、工资标准设定以及工资结算和查询等一般工资管理系统应具有的主要功能，以便完成课程实践的目的。

2.2软件运行

学生成绩管理系统主要有：登陆界面、员工信息管理，工资标准管理主要运行如下所示：

a : 登陆界面

输入姓名、密码，点击登陆界面显示图 b : 航线信息界面

图2.5 c :机票信息界面

图2.8 2.3系统配置

本软件要求在PC 及其兼容机上运行，要求奔腾II以上CPU，64兆以上内存，10G 以上硬盘。

软件需要有WINDOWS 7操作系统环境。

2.4软件结构

航空售票管理系统的结构图如下：

航空订票管理系统订票信息管理客户信息管理航线信息管理系统管理订票信息查询订票信息修改添加订票信息客户基本信息管理客户类别信息管理航线基本信息管理客机信息管理舱位信息管理密码管理用户管理客户信息查询客户信息修改客户信息添加客户类别信息修改客户类别信息添加航线信息查询航线信息修改航线信息添加客机信息查询客机信息修改客机信息添加舱位信息修改舱位信息添加

图2.12 2.5软件性能

A:用户管理模块能在普通用户与管理员之间加以区分，分别实现其对应的功能，方法简单，性能较好。

B:查询模块中我们对教职工按照姓名和工号两种方法进行查询，有效的考虑了重名的各种情况，达到一定的性能指标。

C:工资模块：我们将职称工资管理和其他工资管理等几种情况

D:密码管理：我们起初编写了一份密码表，只有按照密码表上的输入才能对工资管理系统进行相关操作，性能较好。

2.6输入、输出 2.6.1输入本系统采用文本文框进行信息的输入以及成绩的输入。

我们将创建模块，显示模块，存盘功能模块，读入功能模块，统计功能模块等的输入项

2.6.2输出

本系统采用文本文框进行信息的输出以及成绩的输出。

我们将创建模块，显示模块，存盘功能模块，读入功能模块，统计功能模块等的输出项

第三章软件使用过程

3.1软件安装

本系统采用vb.net进行设计与实现，完成设计后进行发布就可以在没有安装vb.net环境的计算机中使用，安装方便简洁，只需要在安装的计算机中添加数据库即可。

3.2运行步骤

首先选择要登录的角色，然后进入相应的界面进行操作。

3.3运行说明

对于本系统我们设计时进行了权限的分配，比如普通用户登陆后只能进行自己工资的查询而不能进行工资的修改，管理员登陆后既可以进行查询又可以进行修改。

3.3.1控制输入

按照软件的说明，将测试数据加入到软件中

3.3.2管理信息

软件运行过程中的密码键入：通过文本框进行输入。

3.4.3输入输出文件

软件运行过程中通过文本框进行文件的输入输出。

3.4.4输出报告

若输入要输出的条件正确的话会弹出相应的提示框提示是否成功或者正确等。

3.5出错处理

软件运行过程中可能雏形的出物及处理如下：（1）输入信息出错

在数据库内找不到输入的信息，输入信息有误，导致操作失败。（2）出错处理对策

检查重新输入的信息是否符合要求。（3）数据库连接错误

这类错误主要是数据库设置不正确，或sql server异常引起的，我们只要取消本次操作，提醒用户检查数据库问题就可。

3.6非常规过程

如果出现不可能处理的问题，可以直接与公司的技术支持人员联系。

第四章软件维护过程

4.1程序设计的约定

本软件程序是一个单一的运行软件，各个软件子模块的预定如下：

航空售票管理系统主要以管理航空售票信息为目的，设置了严密的权限管理。用户管理：设置了权限管理功能

查询管理：包括查询航线和航班等基本信息。可以显示单独一条记录，也可以显示所有信息。

更新管理：当有需要时，管理员可以进行工资和信息的删除操作密码管理：管理员和个人可以根据需求修改密码。

4.2出错及纠正方法

可能由于输入的数据不符合软件的要求，软件将可能提出错误，并提醒您按照软件的要求运行程序；可能出现的问题如下：

若输入密码格式不对，应提示：您输入的密码错误。

4.3专用维护程序

本软件提供您一个专用维护软件，以便在软件出现意想不到的问题时可以使您迅速发现您在软件运行时的失误，保证您的分析结果不会受到损失，尽管您的软件可能永远不会出现使用维护本软件的时候，希望您在使用分析错误！未找到索引项。软件的时候，可以浏览以下本软件的使用。软件的使用如下：

A:输入正确的用户名与密码登陆。

B：若是普通用户，请选择登陆普通用户界面。C：若是管理员，请选择登陆管理员界面。

4.4 源程序清单

登录界面代码：

Imports System.Data Imports System.Data.SqlClient Public Cla 登录

Inherits System.Windows.Forms.Form Dim count As Integer = 0 Dim my_cla As New cla1 #Region " Windows 窗体设计器生成的代码" Public Sub New()MyBase.New()'该调用是Windows 窗体设计器所必需的。Initializecomponent()'在Initializecomponent()调用之后添加任何初始化

End Sub '窗体重写dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing Then If Not(components Is Nothing)Then components.Dispose()End If End If MyBase.Dispose(disposing)End Sub 'Windows 窗体设计器所必需的Private components As System.componentModel.IContainer '注意: 以下过程是Windows 窗体设计器所必需的'可以使用Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Private Sub Initializecomponent()Dim resources As System.componentModel.componentResourceManager = New System.componentModel.componentResourceManager(GetType(登录))Me.Button2 = New System.Windows.Forms.Button Me.Button1 = New System.Windows.Forms.Button Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.SuspendLayout()'Button2 Me.Button2.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Button2.Location = New System.Drawing.Point(306, 299)Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(112, 32)Me.Button2.TabIndex = 13 Me.Button2.Text = "取消" 'Button1 Me.Button1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Button1.Location = New System.Drawing.Point(72, 299)Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(112, 32)Me.Button1.TabIndex = 12 Me.Button1.Text = "确定" 'TextBox2 Me.TextBox2.Location = New System.Drawing.Point(208, 235)Me.TextBox2.Name = "TextBox2" Me.TextBox2.PawordChar = Global.Microsoft.VisualBasic.ChrW(42)Me.TextBox2.Size = New System.Drawing.Size(240, 21)Me.TextBox2.TabIndex = 11 'TextBox1' Me.TextBox1.Location = New System.Drawing.Point(208, 163)Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(240, 21)Me.TextBox1.TabIndex = 10 'Label3 Me.Label3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label3.Location = New System.Drawing.Point(48, 234)Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(136, 22)Me.Label3.TabIndex = 9 Me.Label3.Text = " 密码" '

'Label2 ' Me.Label2.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label2.Location = New System.Drawing.Point(48, 163)Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(136, 21)Me.Label2.TabIndex = 8 Me.Label2.Text = " 用户名" '

'Label1 ' Me.Label1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.Label1.Font = New System.Drawing.Font("华文彩云", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption Me.Label1.Location = New System.Drawing.Point(55, 9)Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(393, 120)Me.Label1.TabIndex = 7 Me.Label1.Text = "兰州航空公司管理信息系统" '

'登录 ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)Me.ClientSize = New System.Drawing.Size(504, 390)Me.Controls.Add(Me.Button2)Me.Controls.Add(Me.Button1)Me.Controls.Add(Me.TextBox2)Me.Controls.Add(Me.TextBox1)Me.Controls.Add(Me.Label3)Me.Controls.Add(Me.Label2)Me.Controls.Add(Me.Label1)Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)Me.Name = "登录" Me.Text = "Form7" Me.ResumeLayout(False)Me.PerformLayout()End Sub #End Region Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim user As String Dim pw As String Dim temp1 As String Dim temp2 As String Dim con As String Dim singe As Integer = 1 user = TextBox1.Text username = TextBox1.Text pw = TextBox2.Text con = "select * from users where id='" + user + "' and paword='" + pw + "'" Dim ds As New DataSet ds = cla1.query(con)Try If ds.Tables(0).Rows.Count > 0 Then cla1.dr = ds.Tables(0).Rows(0)temp1 = cla1.dr(0)temp2 = cla1.dr(1)主窗口.Show()End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try 'con = "insert into log(id)select id from permiion where id='" + temp1 + "'" 'If(Trim(user)= Trim(temp1)And Trim(pw)= Trim(temp2)And(user "" Or pw ""))Then ' Me.Hide()' cla1.insert(con)' singe = 1 'ElseIf(user = "" And pw = "")Then ' MeageBox.Show("用户名和密码为空！", "提示")' TextBox1.Focus()' singe = 0 'ElseIf(Trim(user)Trim(temp1)Or Trim(pw)Trim(temp2))Then ' MeageBox.Show("没有这个用户或密码错误，请重新输入！", "提示")' TextBox1.SelectAll()' TextBox1.Focus()' singe = 0 'End If 'count = count + 1 'If(count = 3 And singe = 0)Then ' MeageBox.Show("三次错误，退出本系统", "提示")' End 'End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click End Sub Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load cla1.init()Label1.BackColor = Color.Transparent Label2.BackColor = Color.Transparent Label3.BackColor = Color.Transparent Button1.BackColor = Color.Transparent Button2.BackColor = Color.Transparent End Sub End Cla 订票界面代码：

Public Cla 订票

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim i As Integer If TextBox1.Text = "" Then i = MsgBox("客户号不能为空", MsgBoxStyle.OkCancel, "警告")Else Dim conn As String = "data source=.;connect timeout=5;User ID=sa;Paword='123';initial catalog=Ticket;" Dim objconn1 As New SqlConnection(conn)objconn1.Open()Dim 客户号 As New SqlParameter("@客户号", SqlDbType.Int, 4)Dim 客户姓名 As New SqlParameter("@客户姓名", SqlDbType.Char, 10)Dim 起飞地 As New SqlParameter("@起飞地", SqlDbType.VarChar, 50)Dim 目的地 As New SqlParameter("@目的地", SqlDbType.VarChar, 50)Dim 票价 As New SqlParameter("@票价", SqlDbType.Int, 4)Dim 飞行时间 As New SqlParameter("@飞行时间", SqlDbType.Int, 4)Dim 航空公司 As New SqlParameter("@航空公司", SqlDbType.VarChar, 50)Dim strin As String strin = "insert into flyernb(客户号,客户姓名,起飞地,目的地,票价,飞行时间,航空公司)values(@客户号,@客户姓名,@起飞地,@目的地,@票价,@飞行时间,@航空公司)" Dim objcmd1 As New Sqlcommand(strin, objconn1)objcmd1.Parameters.Add(客户号)objcmd1.Parameters.Add(客户姓名)objcmd1.Parameters.Add(起飞地)objcmd1.Parameters.Add(目的地)objcmd1.Parameters.Add(票价)objcmd1.Parameters.Add(飞行时间)objcmd1.Parameters.Add(航空公司)客户号.Value = TextBox1.Text 客户姓名.Value = TextBox2.Text 起飞地.Value = comboBox2.Text()目的地.Value = comboBox3.Text()票价.Value = TextBox5.Text 飞行时间.Value = TextBox6.Text 航空公司.Value = comboBox1.Text objcmd1.ExecuteNonQuery()objconn1.Close()objcmd1.Dispose()MsgBox("订票成功!")TextBox1.Text = "" TextBox2.Text = "" TextBox5.Text = "" TextBox6.Text = "" comboBox2.Text = "" comboBox3.Text()= "" comboBox1.Text()= "" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub End Cla 退票界面代码：

Public Cla 退票

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim i As Integer i = MsgBox("确定要退票吗？", MsgBoxStyle.OkCancel, "警告")If i = MsgBoxResult.Cancel Then Close()Else Dim conn As String = "data source=.;connect timeout=300;User ID=sa;Paword='123';initial catalog=Ticket;" Dim objconn1 As New SqlConnection(conn)'objconn1.Open()Dim strsql As String = "delete from flyernb where 客户号='" & Trim(TextBox1.Text)& "'" objconn1.Open()Dim objcmd As New Sqlcommand(strsql, objconn1)objcmd.ExecuteNonQuery()objconn1.Close()objcmd.Dispose()MsgBox("删除成功!")TextBox1.Text = "" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub End Cla 用户权限设置代码：

Public Cla 退票

Public Cla 航线信息

Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码" Public Sub New()MyBase.New()'该调用是Windows 窗体设计器所必需的。Initializecomponent()'在Initializecomponent()调用之后添加任何初始化

End Sub '窗体重写dispose 以清理组件列表。

'不要使用代码编辑器修改它。

Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents TextBox5 As System.Windows.Forms.TextBox Friend WithEvents TextBox6 As System.Windows.Forms.TextBox Friend WithEvents TextBox7 As System.Windows.Forms.TextBox Friend WithEvents TextBox8 As System.Windows.Forms.TextBox Friend WithEvents comboBox1 As System.Windows.Forms.comboBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents TextBox10 As System.Windows.Forms.TextBox Friend WithEvents TextBox9 As System.Windows.Forms.TextBox Private Sub Initializecomponent()Dim resources As System.componentModel.componentResourceManager = New System.componentModel.componentResourceManager(GetType(航线信息))Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.TextBox10 = New System.Windows.Forms.TextBox Me.TextBox9 = New System.Windows.Forms.TextBox Me.Label11 = New System.Windows.Forms.Label Me.comboBox1 = New System.Windows.Forms.comboBox Me.TextBox8 = New System.Windows.Forms.TextBox Me.TextBox7 = New System.Windows.Forms.TextBox Me.TextBox6 = New System.Windows.Forms.TextBox Me.TextBox5 = New System.Windows.Forms.TextBox Me.TextBox4 = New System.Windows.Forms.TextBox Me.TextBox3 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label10 = New System.Windows.Forms.Label Me.Label9 = New System.Windows.Forms.Label Me.Label8 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.GroupBox1.SuspendLayout()Me.SuspendLayout()'

'GroupBox1' Me.GroupBox1.Controls.Add(Me.TextBox10)Me.GroupBox1.Controls.Add(Me.TextBox9)Me.GroupBox1.Controls.Add(Me.Label11)Me.GroupBox1.Controls.Add(Me.comboBox1)Me.GroupBox1.Controls.Add(Me.TextBox8)Me.GroupBox1.Controls.Add(Me.TextBox7)Me.GroupBox1.Controls.Add(Me.TextBox6)Me.GroupBox1.Controls.Add(Me.TextBox5)Me.GroupBox1.Controls.Add(Me.TextBox4)Me.GroupBox1.Controls.Add(Me.TextBox3)Me.GroupBox1.Controls.Add(Me.TextBox2)Me.GroupBox1.Controls.Add(Me.TextBox1)Me.GroupBox1.Controls.Add(Me.Label10)Me.GroupBox1.Controls.Add(Me.Label9)Me.GroupBox1.Controls.Add(Me.Label8)Me.GroupBox1.Controls.Add(Me.Label7)Me.GroupBox1.Controls.Add(Me.Label6)Me.GroupBox1.Controls.Add(Me.Label5)Me.GroupBox1.Controls.Add(Me.Label4)Me.GroupBox1.Controls.Add(Me.Label3)Me.GroupBox1.Controls.Add(Me.Label2)Me.GroupBox1.Controls.Add(Me.Label1)Me.GroupBox1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.GroupBox1.Location = New System.Drawing.Point(8, 8)Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(488, 344)Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "航线信息" '

'TextBox10 ' Me.TextBox10.Location = New System.Drawing.Point(376, 182)Me.TextBox10.Name = "TextBox10" Me.TextBox10.Size = New System.Drawing.Size(100, 23)Me.TextBox10.TabIndex = 22 '

'TextBox9 ' Me.TextBox9.Location = New System.Drawing.Point(128, 32)Me.TextBox9.Name = "TextBox9" Me.TextBox9.Size = New System.Drawing.Size(100, 23)Me.TextBox9.TabIndex = 21 '

'Label11 Me.Label11.Location = New System.Drawing.Point(24, 32)Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(100, 23)Me.Label11.TabIndex = 20 Me.Label11.Text = "航线编号" 'comboBox1 Me.comboBox1.Location = New System.Drawing.Point(376, 29)Me.comboBox1.Name = "comboBox1" Me.comboBox1.Size = New System.Drawing.Size(104, 22)Me.comboBox1.TabIndex = 18 'TextBox8 ' Me.TextBox8.Location = New System.Drawing.Point(128, 272)Me.TextBox8.Multiline = True Me.TextBox8.Name = "TextBox8" Me.TextBox8.ScrollBars = System.Windows.Forms.ScrollBars.Both Me.TextBox8.Size = New System.Drawing.Size(336, 56)Me.TextBox8.TabIndex = 17 'TextBox7 Me.TextBox7.Location = New System.Drawing.Point(130, 237)Me.TextBox7.Name = "TextBox7" Me.TextBox7.Size = New System.Drawing.Size(100, 23)Me.TextBox7.TabIndex = 16 'TextBox6 Me.TextBox6.Location = New System.Drawing.Point(376, 237)Me.TextBox6.Name = "TextBox6" Me.TextBox6.Size = New System.Drawing.Size(100, 23)Me.TextBox6.TabIndex = 15 'TextBox5 Me.TextBox5.Location = New System.Drawing.Point(128, 182)Me.TextBox5.Name = "TextBox5" Me.TextBox5.Size = New System.Drawing.Size(100, 23)Me.TextBox5.TabIndex = 14 'TextBox4 Me.TextBox4.Location = New System.Drawing.Point(128, 131)Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(100, 23)Me.TextBox4.TabIndex = 13 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(376, 125)Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(100, 23)Me.TextBox3.TabIndex = 12 'TextBox2 Me.TextBox2.Location = New System.Drawing.Point(376, 72)Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(100, 23)Me.TextBox2.TabIndex = 11'

'TextBox1 Me.TextBox1.Location = New System.Drawing.Point(128, 72)Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(100, 23)Me.TextBox1.TabIndex = 10 'Label10' Me.Label10.Location = New System.Drawing.Point(24, 288)Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(88, 23)Me.Label10.TabIndex = 9 Me.Label10.Text = "备注信息" 'Label9 Me.Label9.Location = New System.Drawing.Point(24, 240)Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(100, 23)Me.Label9.TabIndex = 8 Me.Label9.Text = "头等舱价格" 'Label8 Me.Label8.Location = New System.Drawing.Point(270, 237)Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(100, 23)Me.Label8.TabIndex = 7 Me.Label8.Text = "公务舱价格" 'Label7 Me.Label7.Location = New System.Drawing.Point(270, 185)Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(100, 23)Me.Label7.TabIndex = 6 Me.Label7.Text = "经济舱价格" 'Label6 Me.Label6.Location = New System.Drawing.Point(22, 185)Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(100, 23)Me.Label6.TabIndex = 5 Me.Label6.Text = "客机编号" 'Label5 Me.Label5.Location = New System.Drawing.Point(24, 131)Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(100, 23)Me.Label5.TabIndex = 4 Me.Label5.Text = "出发时间" 'Label4 Me.Label4.Location = New System.Drawing.Point(270, 128)Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(100, 23)Me.Label4.TabIndex = 3 Me.Label4.Text = "到达时间" 'Label3' Me.Label3.Location = New System.Drawing.Point(270, 35)Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(100, 23)Me.Label3.TabIndex = 2 Me.Label3.Text = "航班日期" 'Label2 Me.Label2.Location = New System.Drawing.Point(270, 80)Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(100, 23)Me.Label2.TabIndex = 1 Me.Label2.Text = "到达城市" 'Label1' Me.Label1.Location = New System.Drawing.Point(24, 77)Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(88, 24)Me.Label1.TabIndex = 0 Me.Label1.Text = "出发城市"'

'航线信息

' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)Me.ClientSize = New System.Drawing.Size(504, 414)Me.Controls.Add(Me.Button2)Me.Controls.Add(Me.Button1)Me.Controls.Add(Me.GroupBox1)Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)Me.Name = "航线信息" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "航线信息" Me.GroupBox1.ResumeLayout(False)Me.GroupBox1.PerformLayout()Me.ResumeLayout(False)End Sub #End Region Private Sub 航线信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load ct = 31 cla1.init()TextBox9.Focus()If(mytemp = 0)Then Button1.Text = "添加" Else Button1.Text = "修改" End If Dim ds As DataSet Dim con As String Dim count, i As Integer con = "select * from airlineinfo" ds = cla1.query(con)count = ds.Tables(0).Rows.Count For i = 0 To count-2 cla1.dr = ds.Tables(0).Rows(i)comboBox1.Items.Add(Trim(CStr(cla1.dr("航班日期"))))Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim con As String Dim con1 As String Dim ano, dd, dt, at, pno, cp, cap, fp As String Dim dc, ac, am As String Dim signe As Integer = 1 ano = TextBox9.Text dc = TextBox1.Text ac = TextBox2.Text dd = comboBox1.Text pno = TextBox10.Text dt = TextBox3.Text at = TextBox4.Text cp = TextBox5.Text cap = TextBox6.Text fp = TextBox7.Text am = TextBox8.Text con = "select * from airlineinfo where 航线编号='" + TextBox9.Text + "'" Dim ds As DataSet Try ds = cla1.query(con)Catch ex As Exception MeageBox.Show(ex.Meage)End Try Try If(ds.Tables(0).Rows.Count > 0 And mytemp = 0)Then cla1.dr = ds.Tables(0).Rows(0)If cla1.dr("航线编号")> 0 Then MsgBox("已存在该航线！")TextBox9.Focus()signe = 0 End If End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try If TextBox9.Text = "" Then MsgBox("航线编号不能为空！")TextBox9.Focus()ElseIf(signe = 1 Or mytemp = 1)Then con1 = "delete from airlineinfo where 航线编号='" + TextBox9.Text + "'" con = "insert into airlineinfo values('" + ano + "','" + dc + "','" + ac + "','" + dd + "','" + dt + "','" + at + "','" + pno + "','" + cp + "','" + cap + "','" + fp + "','" + am + "')" Try cla1.delete(con1)Catch ex As Exception MeageBox.Show(ex.Meage)End Try Try cla1.update(con)If(mytemp = 0)Then MsgBox("添加成功！")End If If(mytemp = 1)Then MsgBox("修改成功！")End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" comboBox1.Text = "" TextBox10.Text = "" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles GroupBox1.Enter End Sub End Cla 添加用户代码：

Public Cla 添加用户

End Sub '窗体重写dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)If disposing Then If Not(components Is Nothing)Then components.Dispose()End If End If MyBase.Dispose(disposing)End Sub

'Windows 窗体设计器所必需的Private components As System.componentModel.IContainer '注意: 以下过程是Windows 窗体设计器所必需的'可以使用Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Private Sub Initializecomponent()Dim resources As System.componentModel.componentResourceManager = New System.componentModel.componentResourceManager(GetType(添加用户))Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox3 = New System.Windows.Forms.TextBox Me.TextBox4 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.SuspendLayout()'Label1' Me.Label1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label1.Location = New System.Drawing.Point(55, 33)Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(100, 23)Me.Label1.TabIndex = 0 Me.Label1.Text = "用户名" '

'Label2 Me.Label2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label2.Location = New System.Drawing.Point(55, 84)Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(100, 23)Me.Label2.TabIndex = 1 Me.Label2.Text = "姓名" 'Label3 Me.Label3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label3.Location = New System.Drawing.Point(55, 121)Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(100, 23)Me.Label3.TabIndex = 2 Me.Label3.Text = "新密码" 'Label4 Me.Label4.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label4.Location = New System.Drawing.Point(55, 168)Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(100, 23)Me.Label4.TabIndex = 3 Me.Label4.Text = "确认密码" 'TextBox1 Me.TextBox1.Location = New System.Drawing.Point(224, 32)Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(100, 21)Me.TextBox1.TabIndex = 4 'TextBox2 Me.TextBox2.Location = New System.Drawing.Point(224, 72)Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(100, 21)Me.TextBox2.TabIndex = 5 'TextBox3 Me.TextBox3.Location = New System.Drawing.Point(224, 120)Me.TextBox3.Name = "TextBox3" Me.TextBox3.PawordChar = Global.Microsoft.VisualBasic.ChrW(42)Me.TextBox3.Size = New System.Drawing.Size(100, 21)Me.TextBox3.TabIndex = 6 'TextBox4 Me.TextBox4.Location = New System.Drawing.Point(224, 168)Me.TextBox4.Name = "TextBox4" Me.TextBox4.PawordChar = Global.Microsoft.VisualBasic.ChrW(42)Me.TextBox4.Size = New System.Drawing.Size(100, 21)Me.TextBox4.TabIndex = 7'

'Button1 ' Me.Button1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Button1.Location = New System.Drawing.Point(48, 208)Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(88, 40)Me.Button1.TabIndex = 8 Me.Button1.Text = "确定" 'Button2 Me.Button2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Button2.Location = New System.Drawing.Point(240, 208)Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(88, 40)Me.Button2.TabIndex = 9 Me.Button2.Text = "取消" '添加用户 ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)Me.ClientSize = New System.Drawing.Size(392, 270)Me.Controls.Add(Me.Button2)Me.Controls.Add(Me.Button1)Me.Controls.Add(Me.TextBox4)Me.Controls.Add(Me.TextBox3)Me.Controls.Add(Me.TextBox2)Me.Controls.Add(Me.TextBox1)Me.Controls.Add(Me.Label4)Me.Controls.Add(Me.Label3)Me.Controls.Add(Me.Label2)Me.Controls.Add(Me.Label1)Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)Me.Name = "添加用户" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "添加用户" Me.ResumeLayout(False)Me.PerformLayout()End Sub #End Region Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click cla1.init()Dim con As String Dim user, name As String Dim pw1, pw2 As String Dim ds As DataSet Dim signe As Integer = 1 user = TextBox1.Text name = TextBox2.Text pw1 = TextBox3.Text pw2 = TextBox4.Text con = "select * from users where id='" + TextBox1.Text + "'" ds = cla1.query(con)Try If(ds.Tables(0).Rows.Count > 0)Then cla1.dr = ds.Tables(0).Rows(0)If cla1.dr("id")"" Then MsgBox("已存在用户！")TextBox1.SelectAll()TextBox1.Focus()TextBox2.Clear()TextBox3.Clear()TextBox4.Clear()signe = 0 End If End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try If(TextBox3.Text TextBox4.Text)Then MeageBox.Show("密码不一致，请重新确认", "提示")TextBox3.SelectAll()TextBox3.Focus()TextBox4.Clear()signe = 0 End If If Trim(TextBox1.Text)= "" Then MsgBox("用户名不能为空！")Exit Sub TextBox1.Focus()ElseIf(signe = 1)Then con = "insert into users values('" + user + "','" + pw2 + "','" + name + "','null')" cla1.insert(con)MsgBox("添加成功！")End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub Private Sub 添加用户_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load ct = 0 End Sub

End Cla