8. Xét yêu cầu kiểm tra phòng trống
1.3. Thiết kế giao diện màn hình tiếp nhận khách
Danh sách các biến cố
ST T
Biến Cố Xử Lý Biến Cố
1 Tiếp tõn click vào Combobox
(cmbLoạiphũng) dể chọn mó phũng
tất cả cỏc loại phũng ở đõy đó được Load lờn từ cơ sở dữ liệu,khi click vào combobox loại phũng sẽ phỏt sinh sự kiện
cmbMaloaiphong_Change() , sự kiện này giỳp add vào Textbox giỏ tiền (txtGia) tương ứng với loại phũng mà ta chọn., và add Tờn Loại phũng vào TextBox (txtTenloaiphong) và add
danh sỏch mó phũng tương ứng với loạiphũng vào cmbMaphong
2 Tờn Loại Phũng (txtTenloaiphong ) ở
trạng thỏi readonly, được load lờn khi cú sự kiện click vào cmbMaloaiphong
3 Giỏ tiền Phũng (txtGia) ở trạng
thỏi readonly, được load lờn khi cú sự kiện click vào cmbMaloaiphong
4 Tiếp tõn click vào Combobox
(cmbMaphong) để chọn mó phũng
click vào combobox
(cmbMaphong) sẽ phỏt sinh sự kiện cmbMaphong_Change() , sự kiện nay giỳp add vào Textbox Tờn Phũng (txtTenphong) tương ứng với mó phũng mà ta chọn
5 Chọn vào
Combobox (cmbNgayo) để chọn ngày ở .
Ngày mặc định lấy ngày giờ hiện tại, người dựng chỉ cú thể chọn ngày lớn hơn hay bằng ngày hiện tại (Chương trỡnh đó được ràng buộc).
6 Nhập số ngày ở để đăng kớ xử lý ràng buộc chỉ cho nhập số ngày ở >=1, lấy mặc định là 1 7 Nhập Họ tờn khỏch hàng vào Textbox (txtKhachhang) 8 Nhập Địa chỉ khỏch hàng vào Textbox (txtDiachi) 9 Nhập Nghề nghiệp khỏch hàng vào Textbox (txtNghenghiep) 10 Nhập số CMND khỏch hàng vào Textbox Ràng buộc chỉ cho nhập 9 số
(txtCMND)
11 Click chọn loại khỏch vào cmbLoạikhỏch
Loại khỏch được Load từ cơ sở dữ liệu lờn.
12 Nhấn vào Buttom Đồng í
Sẽ thực hiện một loạt cỏc kiểm tra Xem cỏc thụng tin về đăng kớ phũng đó nhập đầy đủ chưa,hoặc là phũng cũn trống khụng, nếu khụng hộp lệ sẽ thụng bỏo người dựng nhập lại,ngược lại sẽ thụng bỏo người dựng Băng 1 mesg lưu thành cụng.
13 Nhấn vào Buttom Xoỏ Kho nhấn vào Buttom Xoỏ sẽ xuất hiện 1 message thụng bỏo gồm hai Buttom Yes/No ? người dựng cú chắc chắn muốn xoỏ khụng , nếu nhõn Yes Thỡ nội dung tất cả cỏc TextBox và Combobox sẽ được xoỏ. ngược lại sẽ khụng làm gỡ hết. 14 Nhấn vào Buttom Thoỏt Đúng màn hỡnh ứng dụng Tiếp nhận khỏch trọ. 15 Load tất cả cỏc phũng ,loại phũng
, và ngay đăng kớ ở, ngày hết hạn, tỡnh trạng của tất cả cỏc phũng cú từ cơ sở dữ liệu ,chỳ ý ngày hết hạn cú thể thay
đổi nếu như khỏch trả phũng trước. 1.4. Thiết kế giao diện cho màn hình tra cứu phòng
Vỡ việc tra cứu phũng ở đõy theo biểu mẫu nờn ta cú thể tra cứu theo một trong 3 cỏch sau: tra cứu theo thời gian, tra cứu theo loại phũng tra cứu theo phũng ở đõy dựng 1 màn hỡnh cú 3 tab tra cứu
1.4.1. Màn hình tra cứu theo thời gian Danh sách các biến cố Danh sách các biến cố ST T Biến Cố Xử Lý Cỏc Biến Cố 1 Click vào Combobox Từ ngày (dtpTungay) để chọn ngày
Khi người dựng click vào
Combobox chọn ngày (dtpTungay) , ta ràng buộc chỉ cho phộp người dựng chọn ngày nhỏ hơn ngày hiện tại, nếu chọn ngày > ngày hiện tại , thi sẽ tự trả về ngày hiện tại
2
Click vào Combobox Đến ngày (dtpDenngay) để chọn ngày
Khi người dung click vào
Combobox chọn ngày (dtpĐếnngay) , ta ràng buộc chỉ cho phộp người dựng chọn ngày>=Đến ngày, nếu người dựng chọn ngày nhỏ hơn dtpTungay thỡ ta trả dtpDenngay bằng ngày hiện tại
3
Click vào Button TRA CỨU
Chương trỡnh sẽ dựa vào
dtpTungay và dtpDenngay đ ể duyệt vào Cơ sở dữ liệu để tỡn dữ liệu thoả và xuất ra như lưới như màn hỡnh được thiết kế trờn
4
Click vào Button XểA
Chương trỡnh sẽ Xuất hiện 1 message “bạn cú chắc chắn muốn xoỏ khụng ?” gồm 2 button Yes/No , nếu nhấn Yes thỡ lưới bờn dưới sẽ trả về rổng (lưới bõy giờ khụng cũn dữ liệu), nếu người dựng nhấn No sẽ khụng làm gi cả, chỳ ý ở đõy Default là button No
5 Click vào button ĐểNG
Chương trỡnh sẽ Xuất hiện 1 message “bạn cú chắc chắn muốn đúng khụng ?” gồm 2 button Yes/No , nếu nhấn Yes thỡ thỡ Màn hỡnh tra cứu sẽ được đúng, ngược lại nhấn button No thi chương trỡnh sẽ khụng làm gỡ cả,
1.4.2. Màn hình tra cứu theo loại phòng
Danh sách các biến cố
ST T
Biến Cố Xử Lý Cỏc Biờn Cố
1 Click vào combobox mó loại phũng
(cmbMaloaiphong)
Khi click vào Combobox mó loại phũng sẽ phỏt sinh ra sự kiện cmbMaloaiphong_change() sự kiện này cú chức năng add tờn loại phũng tương ứng vào textbox tờn loại phũng (txtTenloaiphong)
2 Text box (txtTenloaiphong) ở
trạng thỏi ReadOnly
3 Click vào Button TRA CỨU
Chương trỡnh sẽ dựa vào
cmbMaloaiphong duyệt vào Cơ sở dữ liệu để tỡm dữ liệu thoả món và xuất ra như lưới (6) như màn hỡnh được thiết kế trờn
4
Click vào Button XểA
Chương trỡnh sẽ Xuất hiện 1 message “bạn cú chắc chắn muốn xoỏ khụng ?” gồm 2 button Yes/No , nếu nhấn Yes thỡ lưới bờn dưới (6) sẽ trả về rổng (lưới bõy giờ khụng cũn dữ liệu), nếu người dựng nhấn No sẽ khụng làm gi cả,
chỳ ý ở đõy Default là button No
5
Click vào button ĐểNG
Chương trỡnh sẽ Xuất hiện 1 message “bạn cú chắc chắn muốn đúng khụng ?” gồm 2 button
Yes/No , nếu nhấn Yes thỡ thỡ Màn hỡnh tra cứu sẽ được đúng, ngược lại nhấn button No thi chương trỡnh sẽ khụng làm gỡ cả, chỳ ý ở
đõy Default là button No
Danh sách các biến cố ST T Biờn Cố Xử Lý Biến Cố 1 Chọn vào combobox Mó loại phũng (cmbMaloaiphong)
Mó Loại phũng được Load lờn từ cơ sở dữ liệu , khi bạn chọn vào cmbMaloaiphong thỡ sẽ phỏt sinh ra sư kiện
cmbMaloaiphong_Change() sự kiện này sẽ lấy tất cả cỏc Mó phũng tương ứng với loại phũng đú đưa vào cmbMaphong, Tờn loại phũng tương ứng đưa vào txtTenphong.
2 Text Box (txtTenloaiphong) ở
trạng thỏi ReadOnly,Tờn loại Phũng được Load lờn từ cơ sở dữ liệu ứng với mỗi mó loại phũng tương ứng,
3
Chọn vào combobox phũng (cmbMaphong)
Loại phũng được Load lờn từ cơ sở dữ liệu ứng với Mó loại
phũng, khi bạn chọn Mó loại phũng thỡ sẽ phỏt sinh ra sư kiện
cmbMaphong_Change() sự kiện này sẽ lấy Tờn phũng của mó phũng tương ứng với loại phũng đú đưa vào textbox (txtTenphong)
4 Text Box (txtTenphong) ở
trạng thỏi ReadOnly,Tờn Phũng được Load lờn từ cơ sở dữ liệu ứng với mỗi mó phũng tương ứng
Người dựng click vào Buttom tra cứu
Combobox , dựa vào cỏc giỏ trị trờn Combox để tỡm kiếm, kết quả sẽ tỡm kiếm sẽ trả về vào bảng bờn dưới (bảng 8).
6 Người dựng click vào Buttom Xoỏ .
Người dựng bấm vào nỳt xoỏ sẽ xuất hiện 1 message thụng bỏo bạn cú chắc chắn muốn xoỏ khụng gồm 2 buttom Yes/No, nếu nhấn Yes thỡ cỏc Combobox và lưới bờn dưới (8) sẽ được xoỏ., Ngược lại thỡ khụng làm gỡ cả., lưu ý ỏ dõy
Default la button No
7 Người dựng click vào Buttom Đúng .
Người dựng bấm vào nỳt xoỏ sẽ xuất hiện 1 message thụng bỏo bạn cú chắc chắn muốn đúng khụng gồm 2 buttom Yes/No, nếu nhấn Yes thỡ cỏc màn hỡnh tra cứu sẽ đúng., Ngược lại thỡ khụng làm gỡ cả., lưu ý ỏ dõy Default la button No
1.5. Thiết kế màn hình cho yêu cầu báo cáo tháng Danh sách các biến cố Danh sách các biến cố ST T Biến Cố Xử Lý Biến Cố 1 Click vào Combobox (cmbTungay) để chọn khoảng thời gian cần thống kờ.
Chương trỡnh sẽ ràng buộc
khụng cho người dựng chọn ngày nhỏ hơn ngày hiện tại
2 Click vào Combobox
(cmbĐếnngay) để chọn khoảng thời gian cần thống kờ
Chương trỡnh sẽ ràng buộc
khụng cho người dựng chọn ngày nhỏ hơn ngày hiện tại và txtĐếnngay cú giỏ trị phải lớn hơn giỏ trị trong txtTungay
3 TextBox này ỏ dạng ReadOnly,
cỏc giỏ trị sẽ được gỏn khi Buttom thống kờ được nhấn
4 TextBox này ỏ dạng ReadOnly,
cỏc giỏ trị sẽ được gỏn khi Buttom thống kờ được nhấn
5 TextBox này ỏ dạng ReadOnly, cỏc giỏ trị sẽ được gỏn khi Buttom thống kờ được nhấn
6 TextBox này ỏ dạng ReadOnly,
cỏc giỏ trị sẽ được gỏn khi Buttom thống kờ được nhấn
7 Datagrip này ỏ dạng ReadOnly,
cỏc giỏ trị sẽ được add khi Buttom thống kờ được nhấn
8 TextBox này ỏ dạng ReadOnly,
cỏc giỏ trị sẽ được gỏn khi Buttom thống kờ được nhấn
9 Người dựng nhấn vào Buttom thống kờ
10 Người dựng nhấn vào Buttom Đúng
2. Một số code chính của chơng trình
Code của form main (FrmMain.vb)
Public Class frmMain
Inherits System.Windows.Forms.Form Dim movemouse As Integer
#Region " Windows Form Designer generated code " Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer. InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then components.Dispose()
End If End If
MyBase.Dispose(disposing) End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents lbTimer As System.Windows.Forms.Label Friend WithEvents Timer2 As System.Windows.Forms.Timer Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents lbTiepnhankhỏch As
System.Windows.Forms.Label
Friend WithEvents lbTracuuphũng As System.Windows.Forms.Label
Friend WithEvents lbBaocaodoanhthu As System.Windows.Forms.Label
Friend WithEvents lbGioithieuchuongtrỡnh As System.Windows.Forms.Label
Friend WithEvents Panel5 As System.Windows.Forms.Panel Friend WithEvents lbTraphũng As System.Windows.Forms.Label Friend WithEvents lblChỡnhsuaphũng As
System.Windows.Forms.Label
Friend WithEvents lblTaomoiphũng As System.Windows.Forms.Label
Friend WithEvents lbQuangtri As System.Windows.Forms.Label Friend WithEvents PictureBox1 As
System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
Me.Label1 = New System.Windows.Forms.Label Me.Timer1 = New
System.Windows.Forms.Timer(Me.components)
Me.lbTimer = New System.Windows.Forms.Label Me.Timer2 = New
System.Windows.Forms.Timer(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel
Me.lblTaomoiphũng = New System.Windows.Forms.Label Me.lbTraphũng = New System.Windows.Forms.Label Me.Panel5 = New System.Windows.Forms.Panel
Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.lbThoat = New System.Windows.Forms.Label
Me.lbGioithieuchuongtrỡnh = New System.Windows.Forms.Label
Me.lbQuangtri = New System.Windows.Forms.Label
Me.lbBaocaodoanhthu = New System.Windows.Forms.Label Me.lbTracuuphũng = New System.Windows.Forms.Label Me.lbTiepnhankhỏch = New System.Windows.Forms.Label Me.lblChỡnhsuaphũng = New System.Windows.Forms.Label Me.Panel2 = New System.Windows.Forms.Panel
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.Panel1.SuspendLayout() Me.Panel5.SuspendLayout() Me.Panel2.SuspendLayout() Me.SuspendLayout() ' 'Label1 ' Me.Label1.BackColor = System.Drawing.Color.Turquoise Me.Label1.Font = New System.Drawing.Font("Times New Roman", 18.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(728, 48) Me.Label1.TabIndex = 0
Me.Label1.Text = "Chương Trỡnh Quản Lý Phũng Nghỉ" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Timer1 ' Me.Timer1.Enabled = True Me.Timer1.Interval = 1000 ' 'lbTimer ' Me.lbTimer.BackColor = System.Drawing.Color.Turquoise Me.lbTimer.Font = New System.Drawing.Font("Times New Roman", 16.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbTimer.ForeColor = System.Drawing.Color.Red
Me.lbTimer.Location = New System.Drawing.Point(560, 0) Me.lbTimer.Name = "lbTimer"
Me.lbTimer.Size = New System.Drawing.Size(160, 40) Me.lbTimer.TabIndex = 1 Me.lbTimer.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Timer2 ' Me.Timer2.Enabled = True Me.Timer2.Interval = 5000 ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveCaptionText Me.Panel1.Controls.Add(Me.lblTaomoiphũng) Me.Panel1.Controls.Add(Me.lbTraphũng) Me.Panel1.Controls.Add(Me.Panel5) Me.Panel1.Controls.Add(Me.lbThoat) Me.Panel1.Controls.Add(Me.lbGioithieuchuongtrỡnh) Me.Panel1.Controls.Add(Me.lbQuangtri) Me.Panel1.Controls.Add(Me.lbBaocaodoanhthu) Me.Panel1.Controls.Add(Me.lbTracuuphũng) Me.Panel1.Controls.Add(Me.lbTiepnhankhỏch) Me.Panel1.Controls.Add(Me.lblChỡnhsuaphũng)
Me.Panel1.Location = New System.Drawing.Point(0, 48) Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(248, 408) Me.Panel1.TabIndex = 2 ' 'lblTaomoiphũng ' Me.lblTaomoiphũng.BackColor = System.Drawing.Color.Turquoise
Me.lblTaomoiphũng.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTaomoiphũng.ForeColor = System.Drawing.Color.WhiteSmoke
Me.lblTaomoiphũng.Location = New System.Drawing.Point(0, 80)
Me.lblTaomoiphũng.Name = "lblTaomoiphũng"
Me.lblTaomoiphũng.Size = New System.Drawing.Size(248, 48)
Me.lblTaomoiphũng.TabIndex = 13
Me.lblTaomoiphũng.Text = "Tạo Mới Phũng" Me.lblTaomoiphũng.TextAlign = System.Drawing.Content_u108 ?ignment.MiddleLeft Me.ToolTip1.SetToolTip(Me.lblTaomoiphũng, "lập danh mục phũng") ' 'lbTraphũng ' Me.lbTraphũng.BackColor = System.Drawing.Color.Turquoise Me.lbTraphũng.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbTraphũng.ForeColor = System.Drawing.Color.White Me.lbTraphũng.Location = New System.Drawing.Point(0, 192)
Me.lbTraphũng.Name = "lbTraphũng"
Me.lbTraphũng.Size = New System.Drawing.Size(248, 40) Me.lbTraphũng.TabIndex = 11
Me.lbTraphũng.Text = "Lập Hoỏ Đơn" Me.lbTraphũng.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ToolTip1.SetToolTip(Me.lbTraphũng, "Tiếp Nhận Khỏch") ' 'Panel5 ' Me.Panel5.Controls.Add(Me.PictureBox1)
Me.Panel5.Location = New System.Drawing.Point(0, 0) Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(248, 80) Me.Panel5.TabIndex = 10 ' 'PictureBox1 ' Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 0) Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(248, 80) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'lbThoat ' Me.lbThoat.BackColor = System.Drawing.Color.Turquoise Me.lbThoat.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbThoat.ForeColor = System.Drawing.Color.White Me.lbThoat.Location = New System.Drawing.Point(0, 368) Me.lbThoat.Name = "lbThoat"
Me.lbThoat.Size = New System.Drawing.Size(248, 40) Me.lbThoat.TabIndex = 9 Me.lbThoat.Text = "Đúng Chương Trỡnh" Me.lbThoat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ToolTip1.SetToolTip(Me.lbThoat, "Đúng Chương Trỡnh") ' 'lbGioithieuchuongtrỡnh ' Me.lbGioithieuchuongtrỡnh.BackColor = System.Drawing.Color.Turquoise
Me.lbGioithieuchuongtrỡnh.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbGioithieuchuongtrỡnh.ForeColor = System.Drawing.Color.White Me.lbGioithieuchuongtrỡnh.Location = New System.Drawing.Point(0, 336) Me.lbGioithieuchuongtrỡnh.Name = "lbGioithieuchuongtrỡnh" Me.lbGioithieuchuongtrỡnh.Size = New System.Drawing.Size(248, 32) Me.lbGioithieuchuongtrỡnh.TabIndex = 8
Me.lbGioithieuchuongtrỡnh.Text = "Giới Thiệu Chương Trỡnh"
Me.lbGioithieuchuongtrỡnh.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.ToolTip1.SetToolTip(Me.lbGioithieuchuongtrỡnh, "Lập Danh Mục Phũng khi cú quyờn Quan trị")
'
'lbQuangtri '
Me.lbQuangtri.BackColor = System.Drawing.Color.Turquoise Me.lbQuangtri.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbQuangtri.ForeColor = System.Drawing.Color.White Me.lbQuangtri.Location = New System.Drawing.Point(0, 304)
Me.lbQuangtri.Name = "lbQuangtri"
Me.lbQuangtri.Size = New System.Drawing.Size(248, 32) Me.lbQuangtri.TabIndex = 7
Me.lbQuangtri.Text = "Quản Trị" Me.lbQuangtri.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.ToolTip1.SetToolTip(Me.lbQuangtri, "Quang Trị") ' 'lbBaocaodoanhthu ' Me.lbBaocaodoanhthu.BackColor = System.Drawing.Color.Turquoise Me.lbBaocaodoanhthu.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbBaocaodoanhthu.ForeColor = System.Drawing.Color.White
Me.lbBaocaodoanhthu.Location = New System.Drawing.Point(0, 264)
Me.lbBaocaodoanhthu.Name = "lbBaocaodoanhthu"
Me.lbBaocaodoanhthu.Size = New System.Drawing.Size(248, 40)
Me.lbBaocaodoanhthu.TabIndex = 5
Me.lbBaocaodoanhthu.Text = "Bỏo Cỏo Doanh Thu" Me.lbBaocaodoanhthu.TextAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.ToolTip1.SetToolTip(Me.lbBaocaodoanhthu, "Bao Cỏo Doanh Thu") ' 'lbTracuuphũng ' Me.lbTracuuphũng.BackColor = System.Drawing.Color.Turquoise
Me.lbTracuuphũng.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbTracuuphũng.ForeColor = System.Drawing.Color.White Me.lbTracuuphũng.Location = New System.Drawing.Point(0, 232)
Me.lbTracuuphũng.Size = New System.Drawing.Size(248, 32) Me.lbTracuuphũng.TabIndex = 4
Me.lbTracuuphũng.Text = "Tra Cứu Phũng " Me.lbTracuuphũng.TextAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.ToolTip1.SetToolTip(Me.lbTracuuphũng, "Tra Cứu Phũng") ' 'lbTiepnhankhỏch ' Me.lbTiepnhankhỏch.BackColor = System.Drawing.Color.Turquoise
Me.lbTiepnhankhỏch.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbTiepnhankhỏch.ForeColor = System.Drawing.Color.White
Me.lbTiepnhankhỏch.Location = New System.Drawing.Point(0, 160)
Me.lbTiepnhankhỏch.Name = "lbTiepnhankhỏch"
Me.lbTiepnhankhỏch.Size = New System.Drawing.Size(264, 32) Me.lbTiepnhankhỏch.TabIndex = 1 Me.lbTiepnhankhỏch.Text = "Tiếp Nhận Khỏch" Me.lbTiepnhankhỏch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ToolTip1.SetToolTip(Me.lbTiepnhankhỏch, "Tiếp Nhận Khỏch") ' 'lblChỡnhsuaphũng ' Me.lblChỡnhsuaphũng.BackColor = System.Drawing.Color.Turquoise Me.lblChỡnhsuaphũng.Font = New System.Drawing.Font("Times New Roman", 14.0!, CType((System.Drawing.FontStyle.Bold Or
System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblChỡnhsuaphũng.ForeColor = System.Drawing.Color.WhiteSmoke
Me.lblChỡnhsuaphũng.Location = New System.Drawing.Point(0, 128)
Me.lblChỡnhsuaphũng.Name = "lblChỡnhsuaphũng"
Me.lblChỡnhsuaphũng.Size = New System.Drawing.Size(248, 32) Me.lblChỡnhsuaphũng.TabIndex = 12 Me.lblChỡnhsuaphũng.Text = "Xoỏ Phũng" Me.lblChỡnhsuaphũng.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ToolTip1.SetToolTip(Me.lblChỡnhsuaphũng, "lập danh mục phũng") ' 'Panel2 ' Me.Panel2.Controls.Add(Me.PictureBox2)
Me.Panel2.Location = New System.Drawing.Point(248, 48) Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(576, 408) Me.Panel2.TabIndex = 3
'
'PictureBox2 '
Me.PictureBox2.Font = New System.Drawing.Font("Times New Roman", 12.0!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.PictureBox2.Image =
CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(0, 0) Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(480, 408) Me.PictureBox2.SizeMode =
Me.PictureBox2.TabIndex = 0 Me.PictureBox2.TabStop = False '
'frmMain '
Me.AutoScaleBaseSize = New System.Drawing.Size(7, 19) Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(192, Byte))
Me.ClientSize = New System.Drawing.Size(728, 453) Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.lbTimer) Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Times New Roman", 12.0!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.SystemColors.ActiveCaption Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.MaximizeBox = False Me.Name = "frmMain" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Phan Mem Quan Ly Phũng Nghi " Me.Panel1.ResumeLayout(False) Me.Panel5.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.ResumeLayout(False) End Sub #End Region
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbTimer.Text = Format(Now, "hh:mm:ss") End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
lbTimer.Text = Format(Now, "dd:mm:yy") End Sub
Private Sub xulychuot() Select Case (movemouse) J Case 1 r lblChỡnhsuaphũng.Cursor = System.Windows.Forms.Cursors.Hand Àu32 ? lbTiepnhankhỏch.Cursor = System.Windows.Forms.Cursors.Default 5 lbTraphũng.Cursor = System.Windows.Forms.Cursors.Default > lbTracuuphũng.Cursor = System.Windows.Forms.Cursors.Default ỉ lbBaocaodoanhthu.Cursor = System.Windows.Forms.Cursors.Default 1 lbQuangtri.Cursor = System.Windows.Forms.Cursors.Default Àu32 ? lbGioithieuchuongtrỡnh.Cursor = System.Windows.Forms.Cursors.Default á lbThoat.Cursor = System.Windows.Forms.Cursors.Default F lblTaomoiphũng.Cursor = System.Windows.Forms.Cursors.Default ỡ lblChỡnhsuaphũng.ForeColor = Color.Red V lbTiepnhankhỏch.ForeColor = Color.WhiteSmoke ề lbTraphũng.ForeColor = Color.WhiteSmoke D lbTracuuphũng.ForeColor = Color.WhiteSmoke ) lbBaocaodoanhthu.ForeColor = Color.WhiteSmoke : lbQuangtri.ForeColor = Color.WhiteSmoke ơ lbGioithieuchuongtrỡnh.ForeColor = Color.WhiteSmoke 6 lbThoat.ForeColor = Color.WhiteSmoke % lblTaomoiphũng.ForeColor = Color.WhiteSmoke _ Case 2
D lblChỡnhsuaphũng.Cursor = System.Windows.Forms.Cursors.Default ọ lbTiepnhankhỏch.Cursor = System.Windows.Forms.Cursors.Hand ! lbTraphũng.Cursor = System.Windows.Forms.Cursors.Default _ lbTracuuphũng.Cursor = System.Windows.Forms.Cursors.Default ê lbBaocaodoanhthu.Cursor = System.Windows.Forms.Cursors.Default J lbQuangtri.Cursor = System.Windows.Forms.Cursors.Default ĩ lbGioithieuchuongtrỡnh.Cursor = System.Windows.Forms.Cursors.Default Š lbThoat.Cursor = System.Windows.Forms.Cursors.Default _ lblTaomoiphũng.Cursor = System.Windows.Forms.Cursors.Default ỉ lblChỡnhsuaphũng.ForeColor = Color.WhiteSmoke 6 lbTiepnhankhỏch.ForeColor = Color.Red Ô lbTraphũng.ForeColor = Color.WhiteSmoke _ lbTracuuphũng.ForeColor = Color.WhiteSmoke ễ lbBaocaodoanhthu.ForeColor = Color.WhiteSmoke Àu32 ? lbQuangtri.ForeColor = Color.WhiteSmoke ~ lbGioithieuchuongtrỡnh.ForeColor =
Color.WhiteSmoke
€u32 ? lbThoat.ForeColor = Color.WhiteSmoke é lblTaomoiphũng.ForeColor = Color.WhiteSmoke ợ Case 3 _ lblChỡnhsuaphũng.Cursor = System.Windows.Forms.Cursors.Default ả lbTiepnhankhỏch.Cursor = System.Windows.Forms.Cursors.Default T lbTraphũng.Cursor = System.Windows.Forms.Cursors.Hand
‹ lbTracuuphũng.Cursor = System.Windows.Forms.Cursors.Default | lbBaocaodoanhthu.Cursor = System.Windows.Forms.Cursors.Default _ lbQuangtri.Cursor = System.Windows.Forms.Cursors.Default ‡ lbGioithieuchuongtrỡnh.Cursor = System.Windows.Forms.Cursors.Default \ lbThoat.Cursor = System.Windows.Forms.Cursors.Default ờ lblTaomoiphũng.Cursor = System.Windows.Forms.Cursors.Default ƒ lblChỡnhsuaphũng.ForeColor = Color.WhiteSmoke €u32 ? lbTiepnhankhỏch.ForeColor = Color.WhiteSmoke „ lbTraphũng.ForeColor = Color.Red ố lbTracuuphũng.ForeColor = Color.WhiteSmoke ` lbBaocaodoanhthu.ForeColor = Color.WhiteSmoke > lbQuangtri.ForeColor = Color.WhiteSmoke P lbGioithieuchuongtrỡnh.ForeColor = Color.WhiteSmoke Ú lbThoat.ForeColor = Color.WhiteSmoke F lblTaomoiphũng.ForeColor = Color.WhiteSmoke À Case 4 : lblChỡnhsuaphũng.Cursor = System.Windows.Forms.Cursors.Default ˆ lbTiepnhankhỏch.Cursor = System.Windows.Forms.Cursors.Default & lbTraphũng.Cursor = System.Windows.Forms.Cursors.Default 6 lbTracuuphũng.Cursor = System.Windows.Forms.Cursors.Hand N lbBaocaodoanhthu.Cursor = System.Windows.Forms.Cursors.Default ợ lbQuangtri.Cursor = System.Windows.Forms.Cursors.Default
2 lbGioithieuchuongtrỡnh.Cursor = System.Windows.Forms.Cursors.Default . lbThoat.Cursor = System.Windows.Forms.Cursors.Default ẳ lblTaomoiphũng.Cursor = System.Windows.Forms.Cursors.Default \ lblChỡnhsuaphũng.ForeColor = Color.WhiteSmoke . lbTiepnhankhỏch.ForeColor = Color.WhiteSmoke V lbTraphũng.ForeColor = Color.WhiteSmoke ẩ lbTracuuphũng.ForeColor = Color.Red 2 lbBaocaodoanhthu.ForeColor = Color.WhiteSmoke * lbQuangtri.ForeColor = Color.WhiteSmoke " lbGioithieuchuongtrỡnh.ForeColor = Color.WhiteSmoke ơ lbThoat.ForeColor = Color.WhiteSmoke _ lblTaomoiphũng.ForeColor = Color.WhiteSmoke ’ Case 5 & lblChỡnhsuaphũng.Cursor = System.Windows.Forms.Cursors.Default Z lbTiepnhankhỏch.Cursor = System.Windows.Forms.Cursors.Default ứ lbTraphũng.Cursor = System.Windows.Forms.Cursors.Default " lbTracuuphũng.Cursor = System.Windows.Forms.Cursors.Default & lbBaocaodoanhthu.Cursor = System.Windows.Forms.Cursors.Hand À lbQuangtri.Cursor = System.Windows.Forms.Curlors.Default _ lbGioithieuchuongtrỡnh.Cursor = System.Windows.Forms.Cursors.Default _u32 ? lbThoat.Cursor = System.Windows.Forms.Cursors.Default Ž lblTaomoiphũng.Cursor = System.Windows.Forms.Cursors.Default
. lblChỡnhsuaphũng.ForeColor = Color.WhiteSmoke Ù lbTiepnhankhỏch.ForeColor = Color.WhiteSmoke ( lbTraphũng.ForeColor = Color.WhiteSmoke š lbTracuuphũng.ForeColor = Color.WhiteSmoke _ lbBaocaodoanhthu.ForeColor = Color.Red ế lbQuangtri.ForeColor = Color.WhiteSmoke ụ lbGioithieuchuongtrỡnh.ForeColor = Color.WhiteSmoke ~ lbThoat.ForeColor = Color.WhiteSmoke ờ lblTaomoiphũng.ForeColor = Color.WhiteSmoke d Case 6 ẹ lblChỡnhsuaphũng.Cursor = System.Windows.Forms.Cursors.Default , lbTiepnhankhỏch.Cursor = System.Windows.Forms.Cursors.Default ấ lbTraphũng.Cursor = System.Windows.Forms.Cursors.Default Í lbTracuuphũng.Cursor = System.Windows.Forms.Cursors.Default ứ lbBaocaodoanhthu.Cursor =