⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmcash.vb

📁 用.net写的,不知道怎么样,各位看看再说吧.
💻 VB
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(13, 138)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(531, 31)
        Me.Label4.TabIndex = 1
        Me.Label4.Text = "应收帐款=（入住价格+加床价格）x住店天数+帐单明细消费金额；住店天数=当前日期-抵店日期结帐金额=应收帐款-预收款"
        '
        'dgdDetail
        '
        Me.dgdDetail.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgdDetail.CaptionVisible = False
        Me.dgdDetail.DataMember = ""
        Me.dgdDetail.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdDetail.Location = New System.Drawing.Point(0, 0)
        Me.dgdDetail.Name = "dgdDetail"
        Me.dgdDetail.Size = New System.Drawing.Size(608, 112)
        Me.dgdDetail.TabIndex = 0
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.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("结帐金额", "结帐金额"), New System.Data.Common.DataColumnMapping("是否结帐", "是否结帐"), New System.Data.Common.DataColumnMapping("结帐日期", "结帐日期"), New System.Data.Common.DataColumnMapping("付款方式", "付款方式")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CSCS;packet size=4096;integrated security=SSPI;data source=CSCS;pe" & _
        "rsist security info=False;initial catalog=hotelbook"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 入住单号, 客房类型, 客房编号, 抵店时间, 离店时间, 入住价格, 加床价格, 预收款, 应收帐款, 结帐金额, 是否结帐, 结帐日期, 付款方" & _
        "式 FROM 入住单"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 入住单(入住单号, 客房类型, 客房编号, 抵店时间, 离店时间, 入住价格, 加床价格, 预收款, 应收帐款, 结帐金额, 是否结帐, " & _
        "结帐日期, 付款方式) VALUES (@入住单号, @客房类型, @客房编号, @抵店时间, @离店时间, @入住价格, @加床价格, @预收款, @应收帐款" & _
        ", @结帐金额, @是否结帐, @结帐日期, @付款方式); SELECT 入住单号, 客房类型, 客房编号, 抵店时间, 离店时间, 入住价格, 加床价格, " & _
        "预收款, 应收帐款, 结帐金额, 是否结帐, 结帐日期, 付款方式 FROM 入住单 WHERE (入住单号 = @入住单号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住单号", System.Data.SqlDbType.VarChar, 36, "入住单号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房类型", System.Data.SqlDbType.VarChar, 4, "客房类型"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房编号", System.Data.SqlDbType.VarChar, 12, "客房编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@抵店时间", System.Data.SqlDbType.DateTime, 4, "抵店时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@离店时间", System.Data.SqlDbType.DateTime, 4, "离店时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住价格", System.Data.SqlDbType.Money, 8, "入住价格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@加床价格", System.Data.SqlDbType.Money, 8, "加床价格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@预收款", System.Data.SqlDbType.Money, 8, "预收款"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@应收帐款", System.Data.SqlDbType.Money, 8, "应收帐款"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@结帐金额", System.Data.SqlDbType.Money, 8, "结帐金额"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否结帐", System.Data.SqlDbType.Bit, 1, "是否结帐"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@结帐日期", System.Data.SqlDbType.DateTime, 4, "结帐日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@付款方式", System.Data.SqlDbType.VarChar, 20, "付款方式"))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 入住单 SET 入住单号 = @入住单号, 客房类型 = @客房类型, 客房编号 = @客房编号, 抵店时间 = @抵店时间, 离店时间 = @离店" & _
        "时间, 入住价格 = @入住价格, 加床价格 = @加床价格, 预收款 = @预收款, 应收帐款 = @应收帐款, 结帐金额 = @结帐金额, 是否结帐 = @" & _
        "是否结帐, 结帐日期 = @结帐日期, 付款方式 = @付款方式 WHERE (入住单号 = @Original_入住单号) AND (付款方式 = @Orig" & _
        "inal_付款方式 OR @Original_付款方式 IS NULL AND 付款方式 IS NULL) AND (入住价格 = @Original_入住价格" & _
        " OR @Original_入住价格 IS NULL AND 入住价格 IS NULL) AND (加床价格 = @Original_加床价格 OR @Orig" & _
        "inal_加床价格 IS NULL AND 加床价格 IS NULL) AND (客房类型 = @Original_客房类型 OR @Original_客房类型" & _
        " IS NULL AND 客房类型 IS NULL) AND (客房编号 = @Original_客房编号 OR @Original_客房编号 IS NULL " & _
        "AND 客房编号 IS NULL) AND (应收帐款 = @Original_应收帐款 OR @Original_应收帐款 IS NULL AND 应收帐款 " & _
        "IS NULL) AND (抵店时间 = @Original_抵店时间 OR @Original_抵店时间 IS NULL AND 抵店时间 IS NULL) " & _
        "AND (是否结帐 = @Original_是否结帐 OR @Original_是否结帐 IS NULL AND 是否结帐 IS NULL) AND (离店时间" & _
        " = @Original_离店时间 OR @Original_离店时间 IS NULL AND 离店时间 IS NULL) AND (结帐日期 = @Origi" & _
        "nal_结帐日期 OR @Original_结帐日期 IS NULL AND 结帐日期 IS NULL) AND (结帐金额 = @Original_结帐金额 " & _
        "OR @Original_结帐金额 IS NULL AND 结帐金额 IS NULL) AND (预收款 = @Original_预收款 OR @Origina" & _
        "l_预收款 IS NULL AND 预收款 IS NULL); SELECT 入住单号, 客房类型, 客房编号, 抵店时间, 离店时间, 入住价格, 加床价格," & _
        " 预收款, 应收帐款, 结帐金额, 是否结帐, 结帐日期, 付款方式 FROM 入住单 WHERE (入住单号 = @入住单号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住单号", System.Data.SqlDbType.VarChar, 36, "入住单号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房类型", System.Data.SqlDbType.VarChar, 4, "客房类型"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房编号", System.Data.SqlDbType.VarChar, 12, "客房编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@抵店时间", System.Data.SqlDbType.DateTime, 4, "抵店时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@离店时间", System.Data.SqlDbType.DateTime, 4, "离店时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入住价格", System.Data.SqlDbType.Money, 8, "入住价格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@加床价格", System.Data.SqlDbType.Money, 8, "加床价格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@预收款", System.Data.SqlDbType.Money, 8, "预收款"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@应收帐款", System.Data.SqlDbType.Money, 8, "应收帐款"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@结帐金额", System.Data.SqlDbType.Money, 8, "结帐金额"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否结帐", System.Data.SqlDbType.Bit, 1, "是否结帐"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@结帐日期", System.Data.SqlDbType.DateTime, 4, "结帐日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@付款方式", System.Data.SqlDbType.VarChar, 20, "付款方式"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入住单号", System.Data.SqlDbType.VarChar, 36, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "入住单号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房类型", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房类型", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房编号", System.Data.SqlDbType.VarChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_抵店时间", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "抵店时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_是否结帐", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否结帐", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_离店时间", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "离店时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_结帐日期", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "结帐日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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))
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 入住单 WHERE (入住单号 = @Original_入住单号) AND (付款方式 = @Original_付款方式 OR @Orig" & _
        "inal_付款方式 IS NULL AND 付款方式 IS NULL) AND (入住价格 = @Original_入住价格 OR @Original_入住价格" & _
        " IS NULL AND 入住价格 IS NULL) AND (加床价格 = @Original_加床价格 OR @Original_加床价格 IS NULL " & _
        "AND 加床价格 IS NULL) AND (客房类型 = @Original_客房类型 OR @Original_客房类型 IS NULL AND 客房类型 " & _
        "IS NULL) AND (客房编号 = @Original_客房编号 OR @Original_客房编号 IS NULL AND 客房编号 IS NULL) " & _
        "AND (应收帐款 = @Original_应收帐款 OR @Original_应收帐款 IS NULL AND 应收帐款 IS NULL) AND (抵店时间" & _
        " = @Original_抵店时间 OR @Original_抵店时间 IS NULL AND 抵店时间 IS NULL) AND (是否结帐 = @Origi" & _
        "nal_是否结帐 OR @Original_是否结帐 IS NULL AND 是否结帐 IS NULL) AND (离店时间 = @Original_离店时间 " & _
        "OR @Original_离店时间 IS NULL AND 离店时间 IS NULL) AND (结帐日期 = @Original_结帐日期 OR @Origi" & _
        "nal_结帐日期 IS NULL AND 结帐日期 IS NULL) AND (结帐金额 = @Original_结帐金额 OR @Original_结帐金额 " & _
        "IS NULL AND 结帐金额 IS NULL) AND (预收款 = @Original_预收款 OR @Original_预收款 IS NULL AND " & _
        "预收款 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入住单号", System.Data.SqlDbType.VarChar, 36, 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.Money, 8, 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.Money, 8, 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, 4, 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, 12, 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.Money, 8, 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.DateTime, 4, 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.Bit, 1, 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.DateTime, 4, 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.DateTime, 4, 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.Money, 8, 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.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "预收款", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet11
123

⌨️ 快捷键说明

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