来到郑州轻工业学院至今日,近两年的时光里,我在计算机软件学院的各位授业恩师的关心和教诲下慢慢成长,在同学们的热情帮助中不断地进步。我深知我有幸进入计算机IT这一全新领域,虽然自己努力学习,但在学业上的每一点进步都无不凝聚着老师们的汗水和心血,这里谨表示我衷心的感谢!
本文以及本次设计是在朱会东老师的悉心指导下完成的。在近一个学期的毕业设计中,朱老师严谨的治学态度和谦和的待人风范给了我很大的影响,在我的毕业设计过程中也给予很大帮助,成为我学习的榜样。衷心的感谢朱老师给予我的亲切的关怀、耐心的指导和无私的帮助。
最后我还要感谢我的同学们和在公司实习中热心帮助我克服难关的同事们,在这次设计中他们给了我很大的帮助和支持,在这里谨向他们表示我衷心的感谢!
参考文献
[1]刘韬.SQLServer2003数据库系统开发实例导航[M].北京:人民邮电出版社,2004,48~60
[2]郭胜.SQLServer数据库开发入门与范例解析[M].北京:机械工业出版社,2004,110~120
[3]王晓东.计算机算法设计与分析[M].北京:电子工业出版社.2001.1~26-40.
[4]陈洛资陈绍平数据库系统及应用基础[M]北京:清华大学出版社2005.6
[5]韦向峰vb.net程序设计技术精讲[M]北京:机械工业出版社2003.7245-280.
[6]王晓东.计算机算法设计与分析[M].北京:电子工业出版社.2001.1
26-40.
[7]陈洛资陈绍平数据库系统及应用基础[M]北京:清华大学出版社2005.6128-160.
[8]罗斌等VisualBasic.net编程技巧精选500例[M]北京:中国水利水电出版社2005.1125-180.
[9]王保国,李乐明.软件工程系统框架结构的设计.中国信息导报,2005,1:32~33
[10]H.M.Deitel,P.J.Deitel著,施平安,施惠琼等译.Sqlserver2003程序设计教程.北京:清华大学出版社,2004:917~945.
[11]KevinMukhar,ToddLauinger等著,魏海萍,倪健等译.Sqlserver数据库应用程序编程指南.北京:电子工业出版社,2002:180~246.
[12]C.BURGerandK.ROTHERMAL.AFramewoktosupportteachingindistributedsystem.ACMJoumalofEducationalResourcesincomputer,2003,56~67
[13]WesterBachter.CourseandExercisesquencingusingMetadatainadaptivehypermedialearningsystems.ACMJoumalofEducationalResourcesincomputer,2001,1(1):27~28
[14]C.BURGerandK.ROTHERMAL.AFramewoktosupportteachingindistributedsystem.ACMJoumalofEducationalResourcesincomputer,Springr2001,1(1):5~6
[15]TimBerners-Lee.WeavingtheWeb.NewYork:HarperCollings,1999:15~38.
[16]BruceEckel.ThinkingInJava.america:electronicbooks,2004:41~56.
[17]JosephWeber,etal.SpecialEditionUsingJava.QUE.1996:32~34
附录
附录一部分重要模块程序代码清单
1.系统登陆主界面代码
DimcnAsNewSystem.Data.SqlClient.SqlConnection("datasource=(Local);initialcatalog=酒店管理系统;uid=sa;pwd=;")
DimcmAsNewSystem.Data.SqlClient.SqlCommand("select密码,权限级别from操作员where账号='"&Trim(TextBox1.Text)&"'",cn)
cn.Open()
DimdrAsSystem.Data.SqlClient.SqlDataReader=cm.ExecuteReader
Ifdr.HasRowsThen
Ifdr.ReadThen
IfTrim(dr.Item(0).ToString)=TextBox2.TextThen
SelectCaseTrim(dr.Item(1).ToString)
Case1
dr.Close()
cn.Close()
logonuser=TextBox1.Text.Trim
DimmainAsNewForm2(Me)
main.Show()
MyBase.Hide()
............
CaseElse
dr.Close()
cn.Close()
logonuser=TextBox1.Text.Trim
DimmainAsNewForm2(Me)
main.MenuItem20.Enabled=False
main.Show()
MyBase.Hide()
EndSelect
2.打印功能实现打印效果设置和打印
'打印设置代码
Try
IfGridPrinterIsNothingThen
GridPrinter=NewDataGridPrinter(Me.DataGrid1)
EndIf
WithMe.PageSetupDialog1
.Document=GridPrinter.PrintDocument
.ShowDialog()
EndWith
CatchexAsException
MsgBox(ex.Message)
EndTry
'打印代码
Try
IfGridPrinterIsNothingThen
GridPrinter=NewDataGridPrinter(Me.DataGrid1)
EndIf
WithGridPrinter
.HeaderText=Me.TextBox1.Text
.HeaderHeightPercent=CInt(Me.NumericUpDown_HeaderHeightPercentage.Value)
.FooterHeightPercent=CInt(Me.NumericUpDown_FooterHeightPercent.Value)
.InterSectionSpacingPercent=CInt(Me.NumericUpDown_InterSectionSpacingPercent.Value)
.HeaderPen=NewPen(CType(Me.ComboBox_ColourHeaderLine.SelectedItem,System.Drawing.Color))
.FooterPen=NewPen(CType(Me.ComboBox_ColourFooterLine.SelectedItem,System.Drawing.Color))
.GridPen=NewPen(CType(Me.ComboBox_ColourBodyline.SelectedItem,System.Drawing.Color))
.HeaderBrush=CType(Me.ComboBox_HeaderBrush.SelectedItem,Brush)
.EvenRowBrush=CType(Me.ComboBox_EvenBrush.SelectedItem,Brush)
.OddRowBrush=CType(Me.ComboBox_OddRowBrush.SelectedItem,Brush)
.FooterBrush=CType(Me.ComboBox_FooterBrush.SelectedItem,Brush)
.ColumnHeaderBrush=CType(Me.ComboBox_ColumnHeaderBrush.SelectedItem,Brush)
.PagesAcross=CInt(Me.NumericUpDown_PagesAcross.Value)
EndWith
WithMe.PrintPreviewDialog1
.Document=GridPrinter.PrintDocument
If.ShowDialog=DialogResult.OKThen
GridPrinter.Print()
EndIf
EndWith
3.实现智能化数据处理代码
PrivateSubform_load
cn.Open()
da.Fill(ds,"优惠活动")
cn.Close()
ListBox1.DataSource=ds.Tables("优惠活动")
ListBox1.DisplayMember=ds.Tables("优惠活动").Columns("活动名称").ColumnName
manager=CType(Me.BindingContext(ds.Tables("优惠活动")),CurrencyManager)
TextBox1.DataBindings.Add("text",ds.Tables("优惠活动"),"活动名称")
TextBox2.DataBindings.Add("text",ds.Tables("优惠活动"),"对象")
TextBox5.DataBindings.Add("text",ds.Tables("优惠活动"),"内容")
TextBox3.DataBindings.Add("text",ds.Tables("优惠活动"),"开始日期")
DateTimePicker1.DataBindings.Add("text",ds.Tables("优惠活动"),"截止日期")
Endsub
PrivateSubListBox1_Click
manager.EndCurrentEdit()
Ifds.HasChanges=TrueThen
DimupdateAsNewSqlCommandBuilder(da)
da.Update(ds.Tables("优惠活动"))
EndIf
Endsub
Privatesubadd
Try
'定义一个自动更新数据库的commandbuilder对象
DimcbAsNewSqlCommandBuilder(da)
addnew()
cn.Open()
ds.Tables("优惠活动").Clear()
da.Fill(ds,"优惠活动")
cn.Close()
ListBox1.SelectedIndex=ListBox1.Items.Count-1
TextBox3.Text=Today
MsgBox("插入一条空记录成功,请给其输入值!")
CatchexAsException
MsgBox(ex.Message)
EndTry
Endsub
Privatesubdelete
ds.Tables("优惠活动").Rows(ListBox1.SelectedIndex).Delete()
DimupdateAsNewSqlCommandBuilder(da)
da.Update(ds.Tables("优惠活动"))
Endsub
4.部分数据统计实现代码
(1)实现客流高峰期的统计
CREATEPROCEDUREdatemax(@datedatetime)
AS
SelectMax(P.入住日期)As入住日期
From
(selectsum(人数)AsTotal,入住日期from开台whe
上一篇:
VB_net网吧计费系统软件(论文和程序)
下一篇:
法律专业开题报告范文