frmcustomerregister.vb

来自「酒店管理系统,可以用户与酒店的管理,客房登记、结帐、预定」· VB 代码 · 共 521 行 · 第 1/3 页

VB
521 行
字号
123
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_贵宾", System.Data.SqlDbType.VarChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "贵宾", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 旅客 WHERE (身份证号码 = @Original_身份证号码) AND (姓名 = @Original_姓名) AND (工作单位 " & _
        "= @Original_工作单位 OR @Original_工作单位 IS NULL AND 工作单位 IS NULL) AND (性别 = @Original" & _
        "_性别) AND (职务 = @Original_职务 OR @Original_职务 IS NULL AND 职务 IS NULL) AND (职称 = @O" & _
        "riginal_职称 OR @Original_职称 IS NULL AND 职称 IS NULL) AND (贵宾 = @Original_贵宾 OR @Or" & _
        "iginal_贵宾 IS NULL AND 贵宾 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_身份证号码", System.Data.SqlDbType.VarChar, 18, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "身份证号码", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_工作单位", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工作单位", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_性别", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职务", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职务", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职称", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职称", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_贵宾", System.Data.SqlDbType.VarChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "贵宾", System.Data.DataRowVersion.Original, Nothing))
        '
        'daCustomer
        '
        Me.daCustomer.DeleteCommand = Me.SqlDeleteCommand1
        Me.daCustomer.InsertCommand = Me.SqlInsertCommand1
        Me.daCustomer.SelectCommand = Me.SqlSelectCommand1
        Me.daCustomer.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "旅客", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("身份证号码", "身份证号码"), New System.Data.Common.DataColumnMapping("姓名", "姓名"), New System.Data.Common.DataColumnMapping("性别", "性别"), New System.Data.Common.DataColumnMapping("工作单位", "工作单位"), New System.Data.Common.DataColumnMapping("职务", "职务"), New System.Data.Common.DataColumnMapping("职称", "职称"), New System.Data.Common.DataColumnMapping("贵宾", "贵宾")})})
        Me.daCustomer.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT 身份证号码, 入住时间, 离店时间, 房号, 床号, 预收金额, 优惠级别, 房金结帐, 消费结帐, 总帐 FROM 入住记录"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        '
        'SqlInsertCommand2
        '
        Me.SqlInsertCommand2.CommandText = "INSERT INTO 入住记录(身份证号码, 入住时间, 离店时间, 房号, 床号, 预收金额, 优惠级别, 房金结帐, 消费结帐, 总帐) VALUES (@" & _
        "身份证号码, @入住时间, @离店时间, @房号, @床号, @预收金额, @优惠级别, @房金结帐, @消费结帐, @总帐); SELECT 身份证号码, 入" & _
        "住时间, 离店时间, 房号, 床号, 预收金额, 优惠级别, 房金结帐, 消费结帐, 总帐 FROM 入住记录 WHERE (入住时间 = @入住时间) AND" & _
        " (身份证号码 = @身份证号码)"
        Me.SqlInsertCommand2.Connection = Me.SqlConnection1
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@身份证号码", System.Data.SqlDbType.VarChar, 18, "身份证号码"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住时间", System.Data.SqlDbType.DateTime, 8, "入住时间"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@离店时间", System.Data.SqlDbType.DateTime, 8, "离店时间"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@房号", System.Data.SqlDbType.VarChar, 5, "房号"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@床号", System.Data.SqlDbType.VarChar, 1, "床号"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@预收金额", System.Data.SqlDbType.Money, 8, "预收金额"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@优惠级别", System.Data.SqlDbType.VarChar, 1, "优惠级别"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@房金结帐", System.Data.SqlDbType.Money, 8, "房金结帐"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@消费结帐", System.Data.SqlDbType.Money, 8, "消费结帐"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@总帐", System.Data.SqlDbType.Money, 8, "总帐"))
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "UPDATE 入住记录 SET 身份证号码 = @身份证号码, 入住时间 = @入住时间, 离店时间 = @离店时间, 房号 = @房号, 床号 = @床号, 预" & _
        "收金额 = @预收金额, 优惠级别 = @优惠级别, 房金结帐 = @房金结帐, 消费结帐 = @消费结帐, 总帐 = @总帐 WHERE (入住时间 = @O" & _
        "riginal_入住时间) AND (身份证号码 = @Original_身份证号码) AND (优惠级别 = @Original_优惠级别 OR @Origi" & _
        "nal_优惠级别 IS NULL AND 优惠级别 IS NULL) AND (床号 = @Original_床号 OR @Original_床号 IS NUL" & _
        "L AND 床号 IS NULL) AND (总帐 = @Original_总帐 OR @Original_总帐 IS NULL AND 总帐 IS NULL)" & _
        " AND (房号 = @Original_房号) AND (房金结帐 = @Original_房金结帐 OR @Original_房金结帐 IS NULL AN" & _
        "D 房金结帐 IS NULL) AND (消费结帐 = @Original_消费结帐 OR @Original_消费结帐 IS NULL AND 消费结帐 IS" & _
        " NULL) AND (离店时间 = @Original_离店时间 OR @Original_离店时间 IS NULL AND 离店时间 IS NULL) AN" & _
        "D (预收金额 = @Original_预收金额 OR @Original_预收金额 IS NULL AND 预收金额 IS NULL); SELECT 身份证" & _
        "号码, 入住时间, 离店时间, 房号, 床号, 预收金额, 优惠级别, 房金结帐, 消费结帐, 总帐 FROM 入住记录 WHERE (入住时间 = @入住时间" & _
        ") AND (身份证号码 = @身份证号码)"
        Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@身份证号码", System.Data.SqlDbType.VarChar, 18, "身份证号码"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住时间", System.Data.SqlDbType.DateTime, 8, "入住时间"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@离店时间", System.Data.SqlDbType.DateTime, 8, "离店时间"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@房号", System.Data.SqlDbType.VarChar, 5, "房号"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@床号", System.Data.SqlDbType.VarChar, 1, "床号"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@预收金额", System.Data.SqlDbType.Money, 8, "预收金额"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@优惠级别", System.Data.SqlDbType.VarChar, 1, "优惠级别"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@房金结帐", System.Data.SqlDbType.Money, 8, "房金结帐"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@消费结帐", System.Data.SqlDbType.Money, 8, "消费结帐"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@总帐", System.Data.SqlDbType.Money, 8, "总帐"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入住时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "入住时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_身份证号码", System.Data.SqlDbType.VarChar, 18, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "身份证号码", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_优惠级别", System.Data.SqlDbType.VarChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "优惠级别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_床号", System.Data.SqlDbType.VarChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "床号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_总帐", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "总帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_房号", System.Data.SqlDbType.VarChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "房号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_房金结帐", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "房金结帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_消费结帐", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "消费结帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_离店时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "离店时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预收金额", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预收金额", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlDeleteCommand2
        '
        Me.SqlDeleteCommand2.CommandText = "DELETE FROM 入住记录 WHERE (入住时间 = @Original_入住时间) AND (身份证号码 = @Original_身份证号码) AND " & _
        "(优惠级别 = @Original_优惠级别 OR @Original_优惠级别 IS NULL AND 优惠级别 IS NULL) AND (床号 = @Or" & _
        "iginal_床号 OR @Original_床号 IS NULL AND 床号 IS NULL) AND (总帐 = @Original_总帐 OR @Ori" & _
        "ginal_总帐 IS NULL AND 总帐 IS NULL) AND (房号 = @Original_房号) AND (房金结帐 = @Original_房" & _
        "金结帐 OR @Original_房金结帐 IS NULL AND 房金结帐 IS NULL) AND (消费结帐 = @Original_消费结帐 OR @O" & _
        "riginal_消费结帐 IS NULL AND 消费结帐 IS NULL) AND (离店时间 = @Original_离店时间 OR @Original_离" & _
        "店时间 IS NULL AND 离店时间 IS NULL) AND (预收金额 = @Original_预收金额 OR @Original_预收金额 IS NU" & _
        "LL AND 预收金额 IS NULL)"
        Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入住时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "入住时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_身份证号码", System.Data.SqlDbType.VarChar, 18, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "身份证号码", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_优惠级别", System.Data.SqlDbType.VarChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "优惠级别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_床号", System.Data.SqlDbType.VarChar, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "床号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_总帐", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "总帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_房号", System.Data.SqlDbType.VarChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "房号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_房金结帐", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "房金结帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_消费结帐", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "消费结帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_离店时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "离店时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预收金额", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预收金额", System.Data.DataRowVersion.Original, Nothing))
        '
        'daStayRecord
        '
        Me.daStayRecord.DeleteCommand = Me.SqlDeleteCommand2
        Me.daStayRecord.InsertCommand = Me.SqlInsertCommand2
        Me.daStayRecord.SelectCommand = Me.SqlSelectCommand2
        Me.daStayRecord.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "入住记录", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("身份证号码", "身份证号码"), New System.Data.Common.DataColumnMapping("入住时间", "入住时间"), New System.Data.Common.DataColumnMapping("离店时间", "离店时间"), New System.Data.Common.DataColumnMapping("房号", "房号"), New System.Data.Common.DataColumnMapping("床号", "床号"), New System.Data.Common.DataColumnMapping("预收金额", "预收金额"), New System.Data.Common.DataColumnMapping("优惠级别", "优惠级别"), New System.Data.Common.DataColumnMapping("房金结帐", "房金结帐"), New System.Data.Common.DataColumnMapping("消费结帐", "消费结帐"), New System.Data.Common.DataColumnMapping("总帐", "总帐")})})
        Me.daStayRecord.UpdateCommand = Me.SqlUpdateCommand2
        '
        'DsCustomerRegister1
        '
        Me.DsCustomerRegister1.DataSetName = "dsCustomerRegister"
        Me.DsCustomerRegister1.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 168)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(88, 23)
        Me.Label1.TabIndex = 10
        Me.Label1.Text = "身份证号码"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(296, 168)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 23)
        Me.Label2.TabIndex = 11
        Me.Label2.Text = "姓名"
        '
        'txtCustomerID
        '
        Me.txtCustomerID.Location = New System.Drawing.Point(112, 168)
        Me.txtCustomerID.Name = "txtCustomerID"
        Me.txtCustomerID.Size = New System.Drawing.Size(168, 21)
        Me.txtCustomerID.TabIndex = 12
        Me.txtCustomerID.Text = ""
        '
        'txtCustomerName
        '
        Me.txtCustomerName.Location = New System.Drawing.Point(360, 168)
        Me.txtCustomerName.Name = "txtCustomerName"
        Me.txtCustomerName.TabIndex = 13
        Me.txtCustomerName.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 208)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 23)
        Me.Label3.TabIndex = 14
        Me.Label3.Text = "性别"
        '
        'txtCustomerSex
        '
        Me.txtCustomerSex.Location = New System.Drawing.Point(64, 208)
        Me.txtCustomerSex.Name = "txtCustomerSex"
        Me.txtCustomerSex.Size = New System.Drawing.Size(48, 21)
        Me.txtCustomerSex.TabIndex = 15
        Me.txtCustomerSex.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(152, 208)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(80, 23)
        Me.Label4.TabIndex = 16
        Me.Label4.Text = "工作单位"
        '
123

frmcustomerregister.vb - 源码说明

本页面展示了「酒店管理系统,可以用户与酒店的管理,客房登记、结帐、预定」中的 frmcustomerregister.vb 源码文件，采用 VB 编程语言编写，共 521 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?