旅游管理系统课程设计报告书

创立数据表界面编辑代码创立数据表界面编辑代码运行试材料旅游管理系统规划旅游管理系统规划 的任务及原那么 〔11〕 4.3系统运行与调试 〔38〕 ，完善的经营网络，旅...wd...国内旅游业务为主，组织团队、散客旅游，安排商务、会务、国内外考察活动，无法及时向财务科和计调部门提交相关资料。从而影响游客的旅行质量。2．目前仍有局部业务采用人工授理的传统运作模式，效率低下，出错率到达5％。信息系统的建立和更新已成为迫切需要。3．现有系统不能跟踪客户信息，进展客户关系管理。4．对于新推出的会员业务，需要新的系统来实现对其的管理。5．旅游顶峰期间订单数量大幅增长，不能及时响应处理以至于商机流7％。6．客户投诉与员工业绩不能很好的挂钩，鼓励和约束机制难以奏效。7．没有很好的利用网络效劳渠道，为客户提供网上查询、参团等业务，失去25％的潜在客户。8．内部信息和数据无法有效整合、记录和保存，决策层不能根据市场变化及时做出调整经营战略的决策。9．外联部、地接部不能保存查询兄弟旅行社及当地住宿餐饮娱乐业的相关情况。旅游管理系统的目标是对旅行社的导游人员以及客户进展管理和对团队进1、系统要本着服从和效劳于企业战略使命和长期目标要求，以及继承与优化相结合的原那么，来制定信息系统开发方案。2、系统既要解决现行系统存在的问题，又要充分预计未来的需求变化，使系统具有足够的适应性和先进性，还要方便运行管理和维护。...wd...。〔3〕线路信息管理窗体〔4〕游客信息管理窗体、保存和打印。〔5〕排团信息管理窗体、保存和打印。〔6〕查询管理窗体、性别、级别〞进展查询，通过“查询、清空〞来实现。还可浏览全部数据，并对数据按不同的内容和方法进展排序。询，通过“查询、清空〞来实现。还可浏览全部数据，并对数据按不同的内容和方法进展排序。第三页游客查询现金现金案表单游客接待排团...wd...从外部环境看,问卷调查显示客户十分支持新系统开发，而且不会引起法律责任问题。外部环境的可能变化对新系统开发的影响微乎其微。二旅游管理系统分析动的工作过程。制表账目文件合同排团方合同排团方费用清部计调部门出游待部门2.1.2具体业务流程景点〕...wd...程图就是用一些尽可能少的规定的符号及连线来表示某个具体业务处最终得出游客信息表，线路信息表和排团方案表。〔具体业务流程图见图2.1.1.方方案编排人员排团方案表排团财务合现金员客线路信息表导游信息表销售统计游客信息制表销售统计表P财务科销售统计表合同旅游管理系合同旅游管理系统排团方案表游客游客D3导游信息表排团处理排团处理计调部门方案表...wd...图2.2.2旅游管理系统的第一层DFD片1游编号路编号游客编号数据项名称：团队编号别名：团队编号队的代码片数据流卡片用于分析数据流程图中数据的流动情况，对一个数据流程图来简述：游客与旅行社签订的合同数据流来源：游客数据流去向：P1是否交款、会员。简述：外联销售部每天的收入情况数据流来源：P1数据流去向：财务科...wd...数据流组成：游客编号、单价、总金额、折扣率、日期、经办人。数据流名称：排团方案表简述：对游客进展团队编排的情况数据流去向：游客数据流组成：团队编号、导游编号、开场时间、旅游天数、跟团人数、数据流名称：排团方案表简述：对游客进展团队编排的情况数据流去向：计调部门数据流组成：团队编号、导游编号、开场时间、旅游天数、跟团人数、描述了某些数据项之间的关系。造卡片数据构造名称：用户管理卡片数据构造简述：登记系统用户信息时所记录的卡片数据构造的组成：姓名、密码、用户权限组成：游客编号、姓名、性别、身份证号码，联系方式、地址、是否询要求：有询要求：有...wd...简述：存储导游的根本信息的表有无立即查询要求：有处理案表主要用来描述外部实体的有关信息。通常包括：外部实体编号、外部实体游客输入的数据流：排团方案表出的数据流：合同财务科输入的数据流：销售统计表的数据流：无：计调部门输入的数据流：排团方案表的数据流：无三旅游管理系统设计...wd...的任务及原那么旅游管理系统登陆及权限检查用户管理信息管理查询管理的是顺序码和层次码。...wd...顺序码进展编码：01外联销售部门02财务科03计调部门04旅游接待部门和数据姓姓名号1姓名身份证号联系方式合同号游客号旅游团队号号游客参加线路号...wd...设计置和外键的设置等。本系统后台数据库管理系统所采用的是DatabaseDesktop备注8是无6否无权限alpha否无否姓名间52团队编号导游编号开场时间旅游天数跟团人数线路编号否354。备注5是否2否码否否否2否会员alpha2否...wd...附：该表用于记录游客的具体信息。备注alpha4是旅游路线alpha否市场价格money否格money否预定alpha2否附：该表用于记录旅行社各种旅游线路具体情况以及价格。输出/输入设计要确定输出什么数据和以什么方式输出，输入设计要确定如入数据进展加工和处理的结果，输出的内容和格式必须满足用户的需求。另外,印机。择选择...wd...局域网四旅游管理系统实施4.1系统开发环境Delphi使用了MicrosoftWindows图形用户界面的许多先进特性和设计思模块功能实现1创立数据库并建立数据库别名窗体及代码设计体重新输入。usesmain;//单击“确定〞按钮procedureTLoginForm.Button1Click(Sender:TObject);inwithq_yhdoinclose;sql.Clear;sqlAddselectfromyhwhere名=:aand密码=:b');parambyname('a').asstring:=trim(edit1.Text);/edit1中输入用户名parambynamebAsStringtrimedittextedit中输入密码...wd...end;ifq_yh.recordcount>0thenmainform.showelseshowmessage('用户名或密码错误，请再输入');end;//单击“取消〞按钮procedureTLoginForm.Button2Click(Sender:TObject);beginclose;//关闭end;end.主窗体usesyhglc,dyxxgl,xlxxgl,ykxxgl,ptxxgl,cxgl,login;//单击“用户管理〞，进入用户管理窗体procedureTMainForm.Label1Click(Sender:TObject);yhglForm.show;//单击“导游信息管理〞，进入导游信息管理窗体procedureTMainForm.Label2Click(Sender:TObject);dyxxglForm.show;//单击“线路信息管理〞，进入线路信息管理窗体procedureTMainForm.Label3Click(Sender:TObject);xlxxglForm.show;//单击“游客信息管理〞，进入游客信息管理窗体procedureTMainForm.Label4Click(Sender:TObject);ykxxglForm.show;...wd...end;//单击“排团信息管理〞，进入派团信息管理窗体procedureTMainForm.Label5Click(Sender:TObject);beginptxxglForm.show;end;//单击“查询管理〞，进入查询管理窗体procedureTMainForm.Label6Click(Sender:TObject);begincxglForm.show;end;//单击“退出〞，退出主窗体procedureTMainForm.Label7Click(Sender:TObject);beginclose;loginForm.edit1.text:='';loginForm.edit2.text:='';end;end.4.用户管理窗体创立窗体dyxxglForm(单元文件名为dyxxgl.pas)。该窗体包含一个table。usesxlxxdy//单击“打印〞，显示打印报表procedureTxlxxglForm.BitBtn3Click(Sender:TObject);...wd...beginxlxxReportForm.show;end;end.p击线路信息窗体中的“打印〞按钮，产生该报表。该报表显示busesxlxxgl显示报表procedureTxlxxReportForm.FormShow(Sender:TObject);quickrep1.Preview;end.8．游客信息管理窗体usesykxxdy//单击“打印〞，显示打印报表procedureTykxxglForm.BitBtn4Click(Sender:TObject);ykxxReportForm.show;end.9.游客信息打印窗体创立窗体ykxxReportForm(单元文件名为ykxxdy.pas)。在窗体中添加QuickRep并1更改其相关属性。图4.2.9游客信息打印窗体击线路信息窗体中的“打印〞按钮，产生该报表。该报表显示b...wd...usesykxxgl;m//显示报表procedureTykxxReportForm.FormShow(Sender:TObject);beginquickrep1.preview;end;end.usesptxxdy;//单击“打印〞，显示打印报表procedureTptxxglForm.BitBtn4Click(Sender:TObject);ptxxReportForm.show;end.创立窗体ptxxReportForm(单元文件名为ptxxdy.pas)。在窗体中添加QuickRep并1更改其相关属性。图4.2.11排团信息打印窗体击排团信息窗体中的“打印〞按钮，产生该报表。该报表显示busesptxxgl;显示报表procedureTptxxReportForm.FormShow(Sender:TObject);quickrep1.preview;end.(1)导游查询...cedureTcxglForm.Button1Click(Sender:TObject);withQ_dycxdoopen行语句procedureTcxglForm.Button2Click(Sender:TObject);tClearClear全部数据procedureTcxglForm.CheckBox1Click(Sender:TObject);withQ_dycxdosqlAddselect*fromdyxx');排序procedureTcxglForm.RadioButton1Click(Sender:TObject);ntextstring...wd...beginthenelseif thenelseifthencontext:='导游编号'(radiogroup2.ItemIndex=1)context='姓名'(radiogroup2.ItemIndex=2)context:='级别';withQ_dycxdo//更新查询beginclose;sql.Clear;sql.Add('select*fromdyxxorderopen;//开场查询end;end;by'+context+'');//降序排序procedureTcxglForm.RadioButton2Click(Sender:TObject);varcontext:string;beginthencontextelseif thenelseifthenwithQ_dycxdo//更新查询beginclose;sql.Clear;sql.Add('select*fromdyxxorderby'+context+'desc');open;end;end;(2)线路查询按线路编号、本店价格分别对线路信息进展查询，可以查询价格在一定范围之内的所有线路，清空按钮用来去除输入内容后可重新查procedureTcxglForm.Button3Click(Sender:TObject);...wd...ifedit4.text<>''thenwithQ_xlcxdobeginpenwithQ_xlcxdosql.Add('select*fromxlxxwhere本店价格between:band:c');//parambyname('b').AsCurrency:=strtoCurr(combobox3.Text);/将/combobox3parambyname('c').AsCurrency:=strtoCurr(combobox4.Text);//将combobox4open;//执行语句ndnd除procedureTcxglForm.Button4Click(Sender:TObject);gintnd//浏览全部数据procedureTcxglForm.CheckBox2Click(Sender:TObject);ginifcheckbox2.CheckedthenwithQ_xlcxdoginclose;sql.Clear;sql.Add('select*fromxlxx');open;ndnd//升序排序procedureTcxglForm.RadioButton3Click(Sender:TObject);...wd...context:string;beginthen//按线路编号elseifthen//按旅游路线elseifthencontext:='本店价格';//按本店价格withQ_xlcxdo//更新查询beginclose;sql.Clear;sql.Add('select*fromxlxxorderby'+context+'');open;//开场查询end;end;//降序排序procedureTcxglForm.RadioButton4Click(Sender:TObject);varcontext:string;beginthen按线路编号elseifthen按旅游路线elseifthencontext:='本店价格';按本店价格withQ_xlcxdo//更新查询beginclose;sql.Clear;sql.Add('select*fromxlxxorderby'+context+'desc');open;//开场查询end;end;(3)游客查询可以按编号、姓名、性别、会员以及交款分别对游客信息进procedureTcxglForm.Button5Click(Sender:TObject);...wd...withQ_ykcxdobeginclose;sql.Clear;dor款=:e');//添加新的SQL属性内容parambyname('b').AsString:=edit6.Text;parambyname('c').AsString:=combobox5.Text;//将combobox5输入内容赋parambyname('d').AsString:=combobox6.Text;parambyname('e').AsString:=combobox7.Text;open;end;end;除procedurebeginTcxglForm.Button6Click(Sender:TObject);edit5.Clear;edit6.Clear;//浏览全部数据procedureTcxglForm.CheckBox3Click(Sender:TObject);inifcheckbox3.CheckedthenwithQ_ykcxdoinclose;sql.Clear;sql.Add('select*fromykxx');open;dd//升序排序procedureTcxglForm.RadioButton5Click(Sender:TObject);context:string;inthenelseifthenelseif...wd...elseif(radiogroup6.ItemIndex=3)ntextwithQ_ykcxdo//更新查询beginclose;sql.Clear;sql.Add('select*fromykxxorderby'+context+'');open;//开场查询end;end;//降序排序procedureTcxglForm.RadioButton6Click(Sender:TObject);varcontext:string;beginthenelseifthenelseifthenelseifthencontext:='是否交款';//按是否交款withQ_ykcxdo//更新查询beginclose;sql.Clear;sql.Add