frmreserve.vb

用.net写的,不知道怎么样,各位看看再说吧.

        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'tmArrive
        '
        Me.tmArrive.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.抵店时间"))
        Me.tmArrive.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.tmArrive.Location = New System.Drawing.Point(210, 27)
        Me.tmArrive.Name = "tmArrive"
        Me.tmArrive.Size = New System.Drawing.Size(88, 21)
        Me.tmArrive.TabIndex = 54
        '
        'txbRemark
        '
        Me.txbRemark.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.备注"))
        Me.txbRemark.Location = New System.Drawing.Point(208, 155)
        Me.txbRemark.Name = "txbRemark"
        Me.txbRemark.Size = New System.Drawing.Size(352, 21)
        Me.txbRemark.TabIndex = 53
        Me.txbRemark.Text = ""
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(206, 136)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(69, 14)
        Me.Label23.TabIndex = 52
        Me.Label23.Text = "备注"
        '
        'txbDestineCompany
        '
        Me.txbDestineCompany.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.预定公司"))
        Me.txbDestineCompany.Location = New System.Drawing.Point(104, 155)
        Me.txbDestineCompany.Name = "txbDestineCompany"
        Me.txbDestineCompany.Size = New System.Drawing.Size(73, 21)
        Me.txbDestineCompany.TabIndex = 51
        Me.txbDestineCompany.Text = ""
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(102, 136)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(69, 14)
        Me.Label22.TabIndex = 50
        Me.Label22.Text = "预定公司"
        '
        'txbMemberId
        '
        Me.txbMemberId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.会员编号"))
        Me.txbMemberId.Location = New System.Drawing.Point(12, 155)
        Me.txbMemberId.Name = "txbMemberId"
        Me.txbMemberId.Size = New System.Drawing.Size(73, 21)
        Me.txbMemberId.TabIndex = 49
        Me.txbMemberId.Text = ""
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(11, 136)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(69, 14)
        Me.Label21.TabIndex = 48
        Me.Label21.Text = "会员编号"
        '
        'txbOperator
        '
        Me.txbOperator.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.操作员"))
        Me.txbOperator.Location = New System.Drawing.Point(488, 112)
        Me.txbOperator.Name = "txbOperator"
        Me.txbOperator.Size = New System.Drawing.Size(73, 21)
        Me.txbOperator.TabIndex = 47
        Me.txbOperator.Text = ""
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(488, 95)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(56, 14)
        Me.Label20.TabIndex = 46
        Me.Label20.Text = "操作员"
        '
        'txbOperationPeople
        '
        Me.txbOperationPeople.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.业务员"))
        Me.txbOperationPeople.Location = New System.Drawing.Point(392, 112)
        Me.txbOperationPeople.Name = "txbOperationPeople"
        Me.txbOperationPeople.Size = New System.Drawing.Size(73, 21)
        Me.txbOperationPeople.TabIndex = 45
        Me.txbOperationPeople.Text = ""
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(396, 95)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(56, 14)
        Me.Label19.TabIndex = 44
        Me.Label19.Text = "业务员"
        '
        'txbDestinePeople
        '
        Me.txbDestinePeople.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.预定人"))
        Me.txbDestinePeople.Location = New System.Drawing.Point(304, 112)
        Me.txbDestinePeople.Name = "txbDestinePeople"
        Me.txbDestinePeople.Size = New System.Drawing.Size(73, 21)
        Me.txbDestinePeople.TabIndex = 43
        Me.txbDestinePeople.Text = ""
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(301, 95)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(69, 14)
        Me.Label18.TabIndex = 42
        Me.Label18.Text = "预定人"
        '
        'ckbAddBed
        '
        Me.ckbAddBed.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.DataSet11, "预定单.是否加床"))
        Me.ckbAddBed.Location = New System.Drawing.Point(492, 72)
        Me.ckbAddBed.Name = "ckbAddBed"
        Me.ckbAddBed.Size = New System.Drawing.Size(76, 21)
        Me.ckbAddBed.TabIndex = 41
        Me.ckbAddBed.Text = "是否加床"
        '
        'txbState
        '
        Me.txbState.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.单据状态"))
        Me.txbState.Location = New System.Drawing.Point(210, 112)
        Me.txbState.Name = "txbState"
        Me.txbState.Size = New System.Drawing.Size(73, 21)
        Me.txbState.TabIndex = 40
        Me.txbState.Text = ""
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(206, 95)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(69, 14)
        Me.Label17.TabIndex = 39
        Me.Label17.Text = "单据状态"
        '
        'txbBeforMoney
        '
        Me.txbBeforMoney.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.预收款"))
        Me.txbBeforMoney.Location = New System.Drawing.Point(107, 112)
        Me.txbBeforMoney.Name = "txbBeforMoney"
        Me.txbBeforMoney.Size = New System.Drawing.Size(73, 21)
        Me.txbBeforMoney.TabIndex = 38
        Me.txbBeforMoney.Text = ""
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(102, 95)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(69, 14)
        Me.Label16.TabIndex = 37
        Me.Label16.Text = "预收款"
        '
        'txbAddPrice
        '
        Me.txbAddPrice.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.加床价格"))
        Me.txbAddPrice.Location = New System.Drawing.Point(12, 112)
        Me.txbAddPrice.Name = "txbAddPrice"
        Me.txbAddPrice.Size = New System.Drawing.Size(73, 21)
        Me.txbAddPrice.TabIndex = 36
        Me.txbAddPrice.Text = ""
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(11, 95)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(69, 14)
        Me.Label15.TabIndex = 35
        Me.Label15.Text = "加床价格"
        '
        'txbNumber
        '
        Me.txbNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.入住人数"))
        Me.txbNumber.Location = New System.Drawing.Point(396, 72)
        Me.txbNumber.Name = "txbNumber"
        Me.txbNumber.Size = New System.Drawing.Size(73, 21)
        Me.txbNumber.TabIndex = 34
        Me.txbNumber.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(393, 56)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(69, 14)
        Me.Label14.TabIndex = 33
        Me.Label14.Text = "入住人数"
        '
        'btnOpen
        '
        Me.btnOpen.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
        Me.btnOpen.Location = New System.Drawing.Point(579, 26)
        Me.btnOpen.Name = "btnOpen"
        Me.btnOpen.Size = New System.Drawing.Size(21, 21)
        Me.btnOpen.TabIndex = 32
        '
        'txbReasonDiscount
        '
        Me.txbReasonDiscount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "预定单.折扣原因"))
        Me.txbReasonDiscount.Location = New System.Drawing.Point(304, 72)
        Me.txbReasonDiscount.Name = "txbReasonDiscount"