frmcustomerregister.vb

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

        'txtWorkUnit
        '
        Me.txtWorkUnit.Location = New System.Drawing.Point(248, 208)
        Me.txtWorkUnit.Name = "txtWorkUnit"
        Me.txtWorkUnit.Size = New System.Drawing.Size(208, 21)
        Me.txtWorkUnit.TabIndex = 17
        Me.txtWorkUnit.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 248)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(48, 23)
        Me.Label5.TabIndex = 18
        Me.Label5.Text = "职务"
        '
        'txtPosition
        '
        Me.txtPosition.Location = New System.Drawing.Point(56, 248)
        Me.txtPosition.Name = "txtPosition"
        Me.txtPosition.Size = New System.Drawing.Size(72, 21)
        Me.txtPosition.TabIndex = 19
        Me.txtPosition.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(160, 248)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(40, 23)
        Me.Label6.TabIndex = 20
        Me.Label6.Text = "职称"
        '
        'txtTitle
        '
        Me.txtTitle.Location = New System.Drawing.Point(208, 248)
        Me.txtTitle.Name = "txtTitle"
        Me.txtTitle.Size = New System.Drawing.Size(72, 21)
        Me.txtTitle.TabIndex = 21
        Me.txtTitle.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(296, 248)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(48, 23)
        Me.Label7.TabIndex = 22
        Me.Label7.Text = "贵宾"
        '
        'txtGuest
        '
        Me.txtGuest.Location = New System.Drawing.Point(352, 248)
        Me.txtGuest.Name = "txtGuest"
        Me.txtGuest.TabIndex = 23
        Me.txtGuest.Text = ""
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(0, 320)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(616, 88)
        Me.DataGrid1.TabIndex = 24
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(0, 288)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(128, 23)
        Me.Label8.TabIndex = 25
        Me.Label8.Text = "曾住过旅客身份证号码"
        '
        'txtSearch
        '
        Me.txtSearch.Location = New System.Drawing.Point(136, 288)
        Me.txtSearch.Name = "txtSearch"
        Me.txtSearch.Size = New System.Drawing.Size(192, 21)
        Me.txtSearch.TabIndex = 26
        Me.txtSearch.Text = ""
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(344, 288)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.TabIndex = 27
        Me.btnSearch.Text = "查询"
        '
        'btnAddStayRecord
        '
        Me.btnAddStayRecord.Location = New System.Drawing.Point(456, 288)
        Me.btnAddStayRecord.Name = "btnAddStayRecord"
        Me.btnAddStayRecord.TabIndex = 28
        Me.btnAddStayRecord.Text = "添加入住记录"
        '
        'frmCustomerRegister
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(640, 430)
        Me.Controls.Add(Me.btnAddStayRecord)
        Me.Controls.Add(Me.btnSearch)
        Me.Controls.Add(Me.txtSearch)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.txtGuest)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.txtTitle)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.txtPosition)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.txtWorkUnit)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.txtCustomerSex)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.txtCustomerName)
        Me.Controls.Add(Me.txtCustomerID)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "frmCustomerRegister"
        Me.Controls.SetChildIndex(Me.Label1, 0)
        Me.Controls.SetChildIndex(Me.Label2, 0)
        Me.Controls.SetChildIndex(Me.txtCustomerID, 0)
        Me.Controls.SetChildIndex(Me.txtCustomerName, 0)
        Me.Controls.SetChildIndex(Me.Label3, 0)
        Me.Controls.SetChildIndex(Me.txtCustomerSex, 0)
        Me.Controls.SetChildIndex(Me.Label4, 0)
        Me.Controls.SetChildIndex(Me.txtWorkUnit, 0)
        Me.Controls.SetChildIndex(Me.Label5, 0)
        Me.Controls.SetChildIndex(Me.txtPosition, 0)
        Me.Controls.SetChildIndex(Me.Label6, 0)
        Me.Controls.SetChildIndex(Me.txtTitle, 0)
        Me.Controls.SetChildIndex(Me.Label7, 0)
        Me.Controls.SetChildIndex(Me.txtGuest, 0)
        Me.Controls.SetChildIndex(Me.DataGrid1, 0)
        Me.Controls.SetChildIndex(Me.Label8, 0)
        Me.Controls.SetChildIndex(Me.txtSearch, 0)
        Me.Controls.SetChildIndex(Me.btnSearch, 0)
        Me.Controls.SetChildIndex(Me.btnAddStayRecord, 0)
        CType(Me.DsCustomerRegister1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub frmCustomerRegister_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BMStayRecord = Me.BindingContext(DsCustomerRegister1, "旅客.旅客入住记录")
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim vue As New DataView(DsCustomerRegister1.旅客)
        vue.Sort = "身份证号码"
        Dim index As Integer = vue.Find(txtSearch.Text)
        If index = -1 Then
            MsgBox("该旅客从未登记过")
            txtSearch.Text = ""
            Exit Sub
        Else
            Me.BmBaseDataEdit.Position = index
            showposition()
            Me.BMStayRecord.AddNew()

        End If
    End Sub

    Private Sub btnAddStayRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddStayRecord.Click
        daStayRecord.Update(DsCustomerRegister1)
        MsgBox("入住记录表中该记录已更新!")
        Me.BmBaseDataEdit.CancelCurrentEdit()
    End Sub
End Class