数据库课程设计宾馆客房管理

1、课程设计说明书题目: 宾馆管理系统 课程设计任务书 学 号学生姓名专业（班级）设计题目人事管理系统设计技术参数后台数据库选用SQL Server 2000开发语言：isual Basic应用程序与数据库的连接方式可以采用ADO 、ODBC等。设计要求开发的系统要能够实现对数据库的添加、删除、修改、查询四项基本功能。工作量 说明书10000字VB数据库工作计划论文不少于8000完成VB模块与代码完成数据库建表和代码完成说明书部分参考资料1作者：李平一VisualBasic6.0程序设计参考手册出版社：工业出版社出版日期:2003.5.12作者：王磊VisualBasic开发指南出版社：邮电出版社

2、出版日期:2002.7.13作者：蔡万坤编新编酒店客房管理出版社：广东旅游出版社出版日期：2003-1-14作者：王磊VisualBasic数据库开发指南出版社：清华大学出版社出版日期:2001.8.1 年 月 日目录1、系统概述.51.1题目设计与目的.51.2开发背景.51.3开发环境.52.系统分析与设计.62.1编写目的.62.2系统功能分析.62.3功能概述.62.4实现目标.62.5业务流程72.6系统功能模设计.72.6.1系统功能模块图.82.7 数据字典.83.数据库设计.93.1数据库设计步骤93.11数据库需求分析图.10宾馆管理信息系统数据流程图.103.12数据库概念

3、结构设计.11客房标准信息实体-图.11客房信息实体-图.11订房信息实体-图结算信息实体-图.12实体之间关系-图.13 3.13数据库逻辑结构设计13 客房标准信息表.13 客房信息表.14订房信息表.14数据库的选择和部分重要的SQL代码与VB代码.144. 前台开发.245开发心得.27一、 系统概述一、题目设计意义及目的：随着我国经济的迅速发展，人们的生活水平有了显著提高，假日经济和旅游经济已成为人们消费的热点。各地也把旅游业当作本地经济发展的重要支柱之一，从而促进了宾馆酒店业的快速发展。同时，随着宾馆酒店越来越多，人们的要求越来越高，宾馆酒店业的竞争也愈来愈激烈。如何在激烈的竞争中

4、生存发展，是每一个宾馆酒店必须面临的问题。对宾馆的经营状况起决定作用的是宾馆的服务管理水平。如何利用先进的管理手段，提高宾馆的管理水平，已成为宾馆酒店业发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。虽然计算机管理并不是宾馆管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对宾馆的服务管理提供强有力的支持。因此，采用全新的计算机网络和宾馆管理系统，已成为提高宾馆的管理效率、改善服务水准的重要手段之一。在某种意义上，宾馆客房管理方面的信息化已成为现代化宾馆的重要标志。所以我们需要更完善的数据库宾馆管理系统。二、开发背景：阳光海岸座落

5、在美丽的三亚海滨，占地面积12000多平方米，建筑面积122000多平方米，职工800多人。该宾馆设有豪华套间、标准间、普间、双人间，房间共388间。有闭路电视、宽带100M、程控电话、国内国际直拨电话、电梯、中央空调、现代消防设施、大小餐厅2个、停车场、大小会议室2个，同时能接待120人住宿、50人以内的中小型会议，提供代购火车、汽车、飞机票等各种旅游观光服务。随着信息技术的发展和人们对宾馆酒店的要求越来越高，该宾馆已明显觉得手工管理已不能适应当前宾馆高速发展的需要，已意识到使用计算机网络和计算机管理的重要性，决定首先在客房部采用宾馆客房管理系统。三、开发环境：CPU：Intel Penti

6、um4 2GHz内存：512MB操作系统：Microsoft Windows Server 2000 + IIS5后台数据库在Microsoft SQL Server 2000 中文企业版 前台最终用户接口程序在 Insprise Delphi 7.0 Enterprise英文版 二、系统分析与设计一、编写目的：宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。二、系统功能分析：系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完成功能： 有关客房标准的制定、标准信息的输入，包括标准编号

7、、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。 客房标准信息的修改、查询等。 客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。 剩余客房信息的查询等。 订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 

8、;结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。三、功能概述：该系统应充分利用信息技术提高宾馆客房的管理水平、服务水平。宾馆客房管理系统要实现客房预定、住宿登记、宿费提醒、追加押金、调房登记、退房结账、挂账、查询统计、预收销售报表等等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态实时的住宿登记、客房调整、销售报表

9、、追加押金等有机地联系在一起，对宾馆客房进行全方位的管理。四、实现目标：  1>可轻松管理多楼号及数百间客房. 2>可完全定制的房态图. 能及时方便地查询实时房态，并处理打扫好的房间状态 3>灵活的复杂业务处理能力.业务规则可以由用户根据酒店实际情况自行设置,以 提高操作效率.   4>内置多种统计.提供各种明细查询.5>对宾客预定，入住，续住，离店结账等业务进行处理。  6>能对宾客的消费等账务进行修理  7>对于处理好团队订房事务 

10、; 8>能对客房消费对行相关处理,及时快速的查询和统计客房物品的消耗情况五、业务流程六、系统功能模块设计：图系统功能模块图七、数据字典：本程序设计主要用于宾馆的客房管理，各部分具体功能如下：欢迎界面.scx：    显示界面，并用命令按钮调用其他子表单；主表单.scx：      为调用其他表单建立快捷菜单，方便使用；预定登记.scx：    录入预定人的基本资料，查寻空房；入住登记.scx：    登记已入住人的基本资料，查寻空房；后台管

11、理.scx：    浏览客房状态，并能调出：客房资料维护、帐目浏览、月结算；客房帐目.scx：    计算客房的帐目资料； 客房资料维护.scx：对客房资料进行查寻、修改、添加、删除；退出界面.scx:     退出系统。 三、数据库设计1、数据库设计步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计数据库需求分析分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程图 宾馆管理信息系统数据流程图数据库概念结构设计本系统根据以上的设计规划出的实体有：客房标准信息实体、

12、客房信息实体、订房信息实体、结算信息实体。各个实体具体的描述-图如下：客房信息实体客房种类客房编号客房位置客房单价是否预定客房信息实体-图数据库逻辑结构设计首先将宾馆管理信息系统的数据库概念结构转化为SQL 2000数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下  客房标准信息表列名 数据类型 可否为空客房编号 char NOT NULL （主键）标准名称  char NOT NULL 房间面积 numeric NULL房间类型   char NULL  是否有空调  &#

13、160; char NULL 是否有电话    char NULL  是否有电视   char NULL是否有宽带   char NULL  单价  numeric NULL备注 text NULL   客房信息表列名 数据类型 可否为空 客房编号 char NOT NULL  （主键）客房种类 char NOT NULL客房位置  char NULL  是否被预定 char NOT NULL   

14、; 备注 text NULL 订房信息表列名 数据类型 可否为空  客房编号 char NOT NULL （主键） 顾客姓名   char NOT NULL 身份证号码     char NOT NULL 入住日期 datetime NULL  折扣 numeric NULL   结算日期   datetime NULL    金额  numeric NULL   备注 text NULL

15、60;2、数据库的选择和部分重要的SQL代码与VB代码创建系统用户表格 user_Info CREATE TABLE dbo.user_Info1(   user_IDchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,   user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL,   user_D

16、es char(10) COLLATE Chinese_PRC_CI_AS NULL   ) ON PRIMARY 创建客房标准信息表格roomtype  CREATE TABLE dbo.roomtype(    客房编号char(10) COLLATE Chinese_PRC_CI_AS NOT NULL,    标准名称char(1

17、0) COLLATE Chinese_PRC_CI_AS NOT NULL,    房间面积numeric(5,0) NULL,    是否有空调char(2) COLLATE Chinese_PRC_CI_AS NULL,     是否有电话char(2) COLLATE Chinese_PRC_CI_AS NULL,   &

18、#160;是否有电视char(2) COLLATE Chinese_PRC_CI_AS NULL,    是否有宽带char(2) COLLATE Chinese_PRC_CI_AS NULL,    单价numeric(10,2)NULL备注text COLLATE Chinese_PRC_CI_AS NULL   ) ON PRIMARY创建客房信息表格roomsCREATE

19、0;TABLE dbo.rooms(   客房编号char(10) COLLATE Chinese_PRC_CI_AS NOT NULL,   客房种类char(10) COLLATE Chinese_PRC_CI_AS NOT NULL,   客房位置char(20) COLLATE Chinese_PRC_CI_AS NULL,   是否被预定char(

20、2) COLLATE Chinese_PRC_CI_AS NOT NULL,   备注text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY创建订房信息表bookinCREATE TABLE dbo.bookin(   客房编号char(18)COLLATE Chinese_PRC_CI_AS 

21、NOT NULL,   顾客姓名char(10) COLLATE Chinese_PRC_CI_AS NOT NULL,   身份证号码char(18) COLLATE Chinese_PRC_CI_AS NOT NULL,   入住日期datetime NULL,   折扣numeric(2,0) NULL,   结算日期datetim

22、e NULL,    金额numeric(10,2) NULL备注text COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY宾馆管理信息系统具体程序实现创建公用模块 Module1.bas  添加公共数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：Public Function ExecuteSQL(ByVal

23、SQL As String,MsgString AsString)_ As ADODB.Recordset 执行SQL语句，并返回记录集对象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String异常处理On Error GoTo ExecuteSQL_Error用Split函数产生一个包含各个子串的数组 

24、60; sTokens=Split(SQL)   Set cnn=NEW ADODB.Connection打开连接   cnn.Open ConnectString   If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0) Then       Cnn.Execute SQL    

25、   MsgString=sTokens(0)&”query successful”   Else       Set rst=NEW ADODO.Recordset       rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic     

26、60; rst.MoveLast       get RecordCount  返回记录集对象       Set ExecuteSQL=rst       MsgString=”查询到”&rst.RecordCount&”条记录”   End IfExecuteSQL_Exit:&

27、#160;  Set rst=Nothing   Set cnn=Nothing   Exit FunctionExecuteSQL_Error:   MsgString=”查询错误:”&Err.Description   Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Int

28、eger)判断是否为回车键  If Keyasc=13 Then  Keyasc用来保存当前按键      转换成Tab键     SendKeys”TAB”   End IfEnd sub添加全局变量，用来记录各个窗口的读写状态，代码如下：Public flagTedit As Boolean  标示是否进入修改的窗体Publ

29、ic flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As Integer Public gintTmode As Integer 记录是添加还是修改状态，1为添加，2为修改Public gintRmode As IntegerPublic gintBmo

30、de As Integer Public flagSedit As Boolean系统用户管理模块的创建 用户管理模块主要实现：   用户登陆。   添加用户。修改用户  具体客房标准添加代码：Private Sub Form_Load() 载入窗体后，判断所处状态   Dim intCount As Integer   Dim

31、 MsgText As String    Dim i As Integer   If gintTmode=1 Then 判断是否属于添加状态      Me.Caption=Me.Caption & ”添加”      For i=0 To 3 &#

32、160;      Combo1(i).AddItem ”否”        Combo1(i).AddItem ”是”        Combo1(i).ListIndex=0      Next i     ElseIf gi

33、ntTmode=2 Then 判断是否处于修改状态         Set mrc=ExecuteSql(txtSQL,MsgText)         If mrc.EOF=false Then            With mrc&#

34、160;              For intCount=0 To 3                   txtItem(intCount)=.Fields(intCount)     

35、;          Next intCount               txtItem(4)=.Fileds(8)               For i=0 To

36、 3                   Combo1(i).Additem ”否”                   Combo1(i).Additem ”是”  &

37、#160;            Combo1(i).ListIndex=0           Next i         End With         txtI

38、tem(0).Enabled=False       End If       Me.Caption=Me.caption&”修改”End IfmblChang=False End SubPrivate Sub cmd_Click()用户输入内容完毕后，单击cmdSave按钮触发Click事件  Dim intCount As Intege

39、r  Dim sMeg As String  Dim MsgText As String  For intCount=0 To 4 判断是否输入内容        If Trim(txtItem(intCount)&”)=” Then        &

40、#160;      Select Case intCount                    Case 0                &#

41、160;        sMeg=”客房编号”                    Case 1                 

42、0;       sMeg=”标准名称”                    Case 2                   

43、      sMeg=”房间面积”                 Case 3                       &#

44、160; sMeg=” 房间类型“                    Case 4                        

45、60;sMeg=”床位单价”               End Select               sMeg=sMeg&”不能为空!”           

46、0;   MsgBox sMeg,vbOkOnly+vbExclamation,”警告”               txtItem(intCount).SetFocus               Exit Sub   

47、;    End if       Next intCount 判断输入内容是否为数字       For intCount=2 To 4           If Not IsNumeric(Trim(txtItem(intCo

48、unt) Then                 Select Case intCount                        Case 

49、2                            sMeg=”房间面积”                    

50、    Case 3                            sMeg=” 房间类型”              &

51、#160;         Case 4                            sMeg=”床位单价”        

52、60;         End Select                  sMeg=sMeg&”请输入数字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExit Sub  

53、0;        End If       Next intCount       If gintTmode=1 Then 判断是否有相同ID记录            txtSQL=”select*from

54、 roomtype where typeid_ =”&Trim(txtItem(0)&”            Set mrc=ExecuteSQL(txtSQL,MsgText)            If mrc.EOF=False Then  &#

55、160;            MsgBox “已经存在此标准编号的记录!”,vbOKOnly+vbExclamation,”警告”            txtItem(0).SetFocus            Exit&#

56、160;Sub       End If        Mrc.Close    End If    txtSQL=”select * from roomtype where typeid<>”&Trim(txtItem(0)&”and typename=”&a

57、mp;Trim(txtItem(1)&”     Set mrc=ExecuteSQL(txtSQL,MsgText)    If mrc.EOF=False Then        MsgBox”已经存在相同客房标准的记录!”,vbOKOnly+vbExclamation,“警告”        txtIte

58、m(1).Setfocus        Exit Sub    End If    txtSQL=”delete from roomtype where typeid=”&Trim(txtItem(0)&”删除已有记录    Set mrc=ExecuteSQL(txtSQL,MsgText) 

59、60;  txtSQL=”select *from roottype”添加新记录    Set mrc=ExecuteSQL(txtSQL,MsgText)    mrc.AddNew    For intCount=0 To 3        mrc.Fields(intCount)=Trim(txtItem(int

60、Count)    Next intCount    For intCount=0 To 3        mrc.Fields(intCount+4)=Trim(Combo1(intCount)    Next intCount    mrc.Fields(8)=Trim(txtItem(4) &

61、#160;  mrc.Update 更新数据库    mrc.Close    if gintTmode=1 Then 判断是否属于添加状态       MsgBox “添加纪录成功!”,vbOKOnly+vbExclamtion,“添加记录”       For intCount=0 T

62、o 4           txtItem(intCount)=” 清除已经输入的内容       Next intCount       For intCount=0 To 3         &#

63、160; Combo1(intCount).ListIndex=0       Next intCount       mblChange=False判断是否打开窗口       if flagTedit Then           Un

64、load frmRoomtype           frmRoomtype.txtSQL=“select *from roomtype”           frmRoomtype.Show       End If    &#

65、160;ElseIf gintTmode=2 Then 判断是否处于修改状态           Unload Me           If flagTedit Then            &#

66、160;  Unload frmRoomtype           EndIf           frmRoomtype.txtSQL=”select *from roomtype”           frmRoo

67、mtype.Show     End If End SubPrivate Sub txtItem_GotFocus(Index As Integer)文本框获得焦点时触发该事件，即自动选中输入的内容，便于修改txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index)End SubPrivate Sub cmdExit_Click()单击按钮cmdExit取消添加信息If

68、 mblChange And cmdSave.Enabled Then      If MsgBox(“保存当前记录的变化吗？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then 保存             Call cmdSave_Click    &#

69、160; End IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)输入完内容，单击回车键将自动进入下一个文本框，触发文本框的Keydown事件  EnterToTab KeyCodeEnd Sub修改客房标准窗体的创建Private Sub Fr

70、om_Load()ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle()调用showTitle函数，显示表头Dim i As IntegerWith msgList     .Cols=10     .TextMatrix(0,1)=”客房编号”     .TextMatrix(0,2)=”标准名称” 

71、;    .TextMatrix(0,3)=”房间面积”     .TextMatrix(0,4)=”床位数量”      .TextMatrix(0,5)=”是否有空调”     .TextMatrix(0,6)=”是否有电话”     .TextMatrix(0,7)=”是否有电视”     .

72、TextMatrix(0,8)=”是否有宽带”     .TextMatrix(0,9)=”房间单价”     .FixedRows=1固定表头     For i=0 To 9 设置各列的对齐方式         .ColAlignment(i)=0     Next

73、 i     .FillStyle=flexFillRepeat表头项居中     .Col=0     .Row=0     .RowSel=1     .ColSel=.Cols-1     .CellAlignment=4     .

74、ColWidth(0)=300设置单元大小     .ColWidth(1)=1000     .ColWidth(2)=2000     .ColWidth(3)=2000     .ColWidth(4)=1000     .ColWidth(5)=1000     .ColWidth(6)=1

75、000     .ColWidth(7)=1000     .ColWidth(8)=1000     .ColWidth(9)=1000     .Row=1End WithEnd SubPrivate Sub ShowData()调用showData函数，显示记录列表   Dim i As In

76、teger   Set mrc=ExecuteSQL(txtSQL,MsgText)根据需要设置SQL语句，显示需要的记录   With msgList   .Rows=1   Do While Not mrc.EOF       .Rows=Rows+1       For i

77、=1 To mrc.Fields.Count           Select Case mrc.Fields(i-1).Type                  Case adDBDate     

78、0;                .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&”,”yyyy-mm-dd”)                  Case Else  

79、60;                   .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&”           End Select       Next i 

80、;       Mrc.MoveNext   Loop   End With   mrc.CloseEnd SubPrivate Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)选择记录，然后单击鼠标右键，触发

81、MouseUp事件   If Button=2 And Shift=0 Then     PopupMenu fMainFrom.menuRoomtype   End IfEnd SubPrivate Sub menuModifyroomtype_Click()   Dim intCount As Integer  &

82、#160;If flagTedit Then  判断是否打开记录窗体        If frmRoomtype.msgList.Rows>1 Then            fintTmode=2设置为修改状态          &

83、#160; intCount=frmRoomtype.msgList.Row记下选择记录           frmRoomtype1.txtSQL=”select*from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&”         

84、60; frmRoomtype1.Show         Else              Call menuAddroomtype_Click         End If   Else  &#

85、160;      frmRoomtype.txtSQL=”select*from roomtype”         frmRoomtype.Show   End IfEnd SubPrivate Sub From_Resize()窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方    If

86、60;Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimized Then边界处理           If Me.Scaleheight<10*lblTitle.Height Then            

87、60; Exit Sub           End If           If Me.ScaleWidth<lblTitle.Width+lblTitle.Width/2 Then           

88、60;  Exit Sub           End If           lblTitle.Top=lblTitle.Height控制控件的位置           lblTitle.Left=(Me.Width-lblT

89、itle.Width)/2           msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2           msgList.Width=Me.ScaleWidth-200           

90、msgList.Left=Me.ScaleLeft+100           msgList.Height=Me.ScaleHeight-msgList.Top-200   End IfEnd Sub删除客房标准Private Sub menuDeleteroomtype_Click()      Dim txtSQL As 

91、String      Dim intCount As Integer      Dim mrc As ADODB.Recordset      Dim MsgText As String      If flagTedit Then 判断

92、是否打开记录窗体         If frmRoomtype.msgList.Rows>1 Then            If MsgBox(“真的要删除这条文件记录么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then       &

93、#160;        intCount=frmRoomtype.msgList.Row                txtSQL=”delete from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&

94、”               Set mrc=ExecuteSQL(txtSQL,MsgText)               Unload frmRoomtype关闭记录窗体        

95、60;      frmRoomtype.txtSQL=”select*from roomtype”重新选择所有记录               frmRoomtype.Show            End If   

96、     End If     End IfEnd Sub客房信息管理模块的创建  客房信息管理模块主要实现如下功能：   添加客房信息   修改客房信息   删除客房信息   查询客房信息  具体实现代码如下：Private Sub From_Load()载入窗体时，自动添加客房信息种类

97、     Dim sSql As String     Dim intCount As Integer     Dim MsgText As String     Dim mrcc As ADODB.Recordset     I

98、f gintRmode=1 Then 判断是否处于添加状态        Me.Caption=me.Caption&“添加”        txtSQL=”select DISTINCT typename from roomtype”        Set mrc=Ex

99、ecuteSQL(txtSQL,MsgText)        If Not mrc.EOF Then             Do While Not mrc.EOF             

100、60;  cboItem(0).AddItem Trim(mrc.Fields(0)                mrc.MoveNext             Loop         

101、;    cboItem(0).ListIndex=0显示记录内容        Else             MsgBox “请先进行客房标准设置!”,vbOKOnly+vbExclamation,“警告”          

102、0;  cmdSave.Enabled=False             Exit Sub        End If        mrc.Close     ElseIf gintRmode=2 

103、;Then 判断是否处于修改状态             Set mrcc=ExecuteSQL(txtSQL,MsgText)设置SQL语句显示当前选择记录             If mrcc.EOF=False Then      

104、          With mrcc                     txtItem(0)=.Fields(0)             &

105、#160;        For intCount=1 To 2                          If Not IsNull(.Fields(intCount+1)Then判断内容是否为空