Các form xử lý và một số báo cáo điển hình

5. Một số giao diện chủ yếu của chương trình

5.3 Các form xử lý và một số báo cáo điển hình

KẾT LUẬN

Qua thời gian thực tập tại công ty cổ phần phần mềm GoldStarVietNam em đã học hỏi được rất nhiều kinh nghiệm, biết được một số nhu cầu đang là cần thiết hiện nay, đặc biệt là về phần mềm quản lý bán hàng. Như ta đã biết, hiện nay công việc bán hàng phần lớn là được thực hiện một cách thủ công bằng giấy bút, một số nơi dùng excel. Các phương pháp đấy mất nhiều thời gian, không chuyên nghiệp, đưa ra báo cáo không sát yêu cầu của nhà quản lý. Ở một nơi có số lượng hàng hoá lớn thì các phương pháp trên thể hiện rõ nhược điểm của mình.

Với phần mềm quản lý bán hàng nó sẽ giúp quản lý bán hàng được tốt hơn, giảm nhẹ thao tác tính toán, nhập liệu đơn thuần, đưa ra báo cáo nhanh chóng theo yêu cầu của nhà quản lý.

Đề tài “ Phân tích và thiết kế phần mềm quản lý bán hàng” chương trình đã đạt được một số kết quả sau :

 Giao diện thân thiện với người dùng

 Kiểm tra chặt chẽ dữ liệu nhập vào

 Kết xuất một số báo cáo điển hình như: Báo cáo hàng nhập, báo cáo hàng

tồn, báo cáo doanh thu, báo cáo nhập xuất tồn….. Một số hướng phát triển của đề tài

 Giao diện của chương trình chưa thể hiện được tất cả các chức năng liên

quan đến vấn đề quản lý hàng hóa nên cần hoàn thiện thêm.

 Hoàn thiện thêm các chức năng bảo mật và phân quyền người sử dụng

 Chương trình cần đưa ra được các báo cáo tổng hợp hơn theo yêu cầu của người quản lý để tạo điều kiện tốt hơn cho việc quản lý hàng hóa.

Với những kết quả mà chương trình đạt được và một số hướng phát triển của đề tài, em hy vọng ngày càng có nhiều các doanh nghiệp cũng như các cửa hàng sẽ ứng dụng phần mềm Quản lý bán hàng vào công tác quản lý hàng hóa của mình .

Em rất mong nhận được sự đóng góp ý kiến của các thầy cô giáo và bạn bè để đề tài của em được hoàn thiện hơn.

Em xin chân thành cảm ơn thầy giáo Đặng Quế Vinh và toàn thể cán bộ công nhân viên trong công ty cổ phần GoldstarVietNam đã tận tình giúp đỡ em trong suốt quá trình em làm đề tài chuyên đề thực tập tốt nghiệp.

DANH MỤC MỘT SỐ TÀI LIỆU THAM KHẢO

1. TS. Trương Văn Tú – TS. Trần Thị Song Minh, Giáo trình “Hệ thống thông tin kinh tế”.

2. TS. Trần Công Uẩn, Giáo trình Cơ sở dữ liệu 1 và cơ sở dữ liệu 2, nhà xuất bản Thống kê.

3. Các tài liệu về lịch sử hình thành, cơ cấu tổ chức của công ty cổ phần GoldstarVietNam.

4. Bài giảng “Công nghệ phần mềm” của PGS. TS Hàn Viết Thuận. 5. Các mẫu biểu của cửa hàng Tùng Lâm.

PHỤ LỤC FORM chính

Private Sub g_Click(index As Integer) Select Case index

Case 0: F_PN.Show 1 Case 1: F_DT.Show 1 End Select

End Sub

Private Sub Label10_Click() F_DT.Show 1

End Sub

Private Sub Label12_Click() F_LOCPN.Show 1

End Sub

Private Sub Label13_Click() F_LOCDT.Show 1

End Sub

Private Sub Label14_Click() F_TCHANGHOA.Show 1 End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label14.BackColor = &HFFC0C0 Label12.BackColor = &H8000000F Label4.BackColor = &H8000000F Label5.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label3.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label15_Click() F_TCNCC.Show 1

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label15.BackColor = &HFFC0C0 Label12.BackColor = &H8000000F Label4.BackColor = &H8000000F Label5.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label3.BackColor = &H8000000F End Sub

Private Sub Label3_Click() F_DMHANG.Show 1 End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label3.BackColor = &HFFC0C0 Label12.BackColor = &H8000000F Label4.BackColor = &H8000000F Label5.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label4_Click() F_DMKH.Show 1

End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label4.BackColor = &HFFC0C0 Label3.BackColor = &H8000000F Label12.BackColor = &H8000000F Label5.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label5_Click() F_DMDT.Show 1

End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label4.BackColor = &H8000000F Label3.BackColor = &H8000000F Label12.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label5.BackColor = &HFFC0C0 Label15.BackColor = &H8000000F End Sub

Private Sub Label6_Click() F_DMNV.Show 1

End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label6.BackColor = &HFFC0C0 Label4.BackColor = &H8000000F Label3.BackColor = &H8000000F Label12.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label5.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label7_Click() F_DMNCC.Show 1

End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label7.BackColor = &HFFC0C0 Label6.BackColor = &H8000000F Label4.BackColor = &H8000000F Label3.BackColor = &H8000000F Label12.BackColor = &H8000000F Label9.BackColor = &H8000000F

Label10.BackColor = &H8000000F Label5.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label9_Click() F_PN.Show 1

End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label9.BackColor = &HFFC0C0 Label7.BackColor = &H8000000F Label6.BackColor = &H8000000F Label4.BackColor = &H8000000F Label3.BackColor = &H8000000F Label12.BackColor = &H8000000F Label10.BackColor = &H8000000F Label5.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label10.BackColor = &HFFC0C0 Label9.BackColor = &H8000000F Label7.BackColor = &H8000000F Label6.BackColor = &H8000000F Label4.BackColor = &H8000000F Label12.BackColor = &H8000000F Label5.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label12.BackColor = &HFFC0C0 Label3.BackColor = &H8000000F Label4.BackColor = &H8000000F Label5.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Label12.BackColor = &H8000000F Label3.BackColor = &H8000000F Label4.BackColor = &H8000000F Label5.BackColor = &H8000000F Label6.BackColor = &H8000000F Label7.BackColor = &H8000000F Label9.BackColor = &H8000000F Label10.BackColor = &H8000000F Label15.BackColor = &H8000000F End Sub

Private Sub mnudtkh_Click() 'Form1.Show

End Sub

Private Sub mnuxnt_Click() BCXNT.Show 1

End Sub

Private Sub t_Click(index As Integer) Select Case index

Case 0: F_DMHANG.Show 1 Case 1: F_DMNCC.Show 1 Case 2: F_DMKH.Show 1 Case 3: F_DMDT.Show 1 Case 4: F_DMNV.Show 1 End Select End Sub

Private Sub Form_Load() Dim gw As Workspace Dim db As Database 'Dim res As Recordset

'Set gw = DBEngine.Workspaces(0)

'Set db = gw.OpenDatabase(App.Path & "\Database\db1.mdb") End Sub

Private Sub dk_Click(index As Integer) Select Case index

Case 0: F_THEMNGUOIDUNG.Show 1 Case 1: F_DOIMK.Show 1

Case 2: End End Select End Sub

Private Sub tg_Click() F_TROGIUP.Show 1 End Sub

Private Sub x_Click(index As Integer) Select Case index

Case 0: F_HANGXUAT.Show 1 Case 1: F_TONGTIENPN.Show 1 Case 2: F_HANGCUAHANG.Show 1 Case 3: F_HANGDT.Show 1 Case 4: F_HANGTHANG.Show 1 Case 5: F_TK.Show 1 Case 6: F_TK.Show 1 End Select End Sub

Private Sub o_Click(index As Integer) Select Case index

Case 0: F_TCHANGHOA.Show 1 Case 1: F_TCNCC.Show 1 Case 2: F_LOCPN.Show 1 Case 3: F_LOCDT.Show 1 End Select End Sub

Private Sub Timer1_Timer() Dim x As String Dim Y As String x = Left(Label1.Caption, 1) Y = Right(Label1.Caption, Len(Label1.Caption) - 1) Label1.Caption = Y + x End Sub Danh mục khách hàng Option Explicit Private flag As String Private Sub cmdin_Click()

If DataEnvironment2.rskhachhang.State = 0 Then DataEnvironment2.rskhachhang.Open End If DataEnvironment2.rskhachhang.Requery R_DMKH.Show 1 End Sub

Unload Me 'End End Sub

Private Sub cmdxoa_Click() Xoa_du_lieu

End Sub

Private Sub cmdmoi_click() un_lock_text

set_null End Sub

Private Sub cmdluu_Click() If flag <> "sua" Then flag = "luu" End If

Luu_Du_Lieu End Sub

Private Sub cmdBo_Click() set_null

lock_text End Sub

Private Sub cmdsua_click() flag = "sua"

sua_du_lieu End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

'Gan ND cot dau tien (ma loai) cua hang dc chon trong listview cho textbox txtma txtma = Item.Text

'Gan ND cot thu 2 (ten loai) cua hang dc chon trong listview cho textbox txtten txtten = Item.SubItems(1)

txtmadt = Item.SubItems(2) End Sub

Private Sub Form_Load() 'open_mdb

lock_text

display_listview ' nap DL trong table DM_LOAI_VB vao listview End Sub

txtma.BackColor = &HC0E0FF End Sub

Private Sub txtma_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txtten.SetFocus End Select

End Sub

Private Sub txtma_LostFocus() txtma.BackColor = &HFFFFFF txtma = Trim(txtma)

End Sub

Private Sub txtmadt_GotFocus() txtmadt.BackColor = &HC0E0FF End Sub

Private Sub txtmadt_KeyPress(KeyAscii As Integer) Dim str

Dim rs As New ADODB.Recordset Select Case KeyAscii

Case 13

str = "select tendt from dmdt where madt='" & Trim(txtma) & "'" rs.Open str, cn

If rs.EOF = False Then Label4.Caption = rs!Tendt cmdluu.SetFocus Else F_CHONDT.Show 1 cmdluu.SetFocus End If End Select End Sub

Private Sub txtmadt_LostFocus() txtmadt.BackColor = &HFFFFFF txtmadt = Trim(txtmadt)

End Sub

Private Sub txtten_GotFocus() txtten.BackColor = &HC0E0FF End Sub

Private Sub txtten_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txtmadt.SetFocus End Select

End Sub

Private Sub txtten_LostFocus() txtten.BackColor = &HFFFFFF End Sub

Private Sub Xoa_du_lieu() Dim str

Dim response

If Trim(txtma) = "" Then Exit Sub

End If

MsgBox "Co chac chan xoa ko?", vbYesNo + vbQuestion, "Thong bao" If response = vbNo Then

Exit Sub Else

str = "delete from dmkh where makh='" & Trim(txtma) & "'"

cn.Execute (str) 'thi hanh query xoa record hien hanh trong table DM_do_khan End If

set_null lock_text display_listview End Sub

Private Sub Luu_Du_Lieu()

Dim rs As New ADODB.Recordset Dim str

'neu ma loai hoac ten loai trong thi ko luu

If Trim(txtma) = "" Or Trim(txtten) = "" Or Trim(txtmadt) = "" Then

MsgBox "Chu y: Phai nhap DL day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao"

Exit Sub End If

'Tim xem da ton tai ma loai nay trong table DM_DO_KHAN hay chua str = "select * from dmkh where makh='" & Trim(txtma) & "'"

rs.Open str, cn

If rs.EOF = True Then

str = "insert into dmkh values('" & Trim(txtma) & "','" & Trim(txtten) & "','" & Trim(txtmadt) & "')"

cn.Execute (str) Else

If flag = "luu" Then

MsgBox "Ma khach hang [" & txtma & "] da ton tai.", vbOKOnly + vbExclamation, "Thong bao"

Me.MousePointer = 0 Exit Sub

End If

'Neu da ton tai va o che do sua thi cap nhat lai noi dung ten loai

str = "update dmkh set tenkh ='" & Trim(txtten) & "' , madt='" & Trim(txtmadt) & "' where makh='" & Trim(txtma) & "'"

cn.Execute (str) End If lock_text display_listview cmdmoi.SetFocus Me.MousePointer = 0 End Sub

Private Sub set_null() txtma = ""

txtten = "" txtmadt = "" End Sub

Private Sub lock_text() txtma.Enabled = False txtten.Enabled = False txtmadt.Enabled = False cmdluu.Enabled = False cmdbo.Enabled = False cmdmoi.Enabled = True cmdsua.Enabled = True cmdxoa.Enabled = True cmdin.Enabled = True flag = "" End Sub

Private Sub un_lock_text() txtma.Enabled = True txtten.Enabled = True txtmadt.Enabled = True txtma.SetFocus cmdluu.Enabled = True cmdbo.Enabled = True cmdmoi.Enabled = False cmdsua.Enabled = False cmdxoa.Enabled = False

End Sub

Private Sub display_listview() Dim rs As New ADODB.Recordset Dim str

Dim mItem As ListItem 'xoa ND listview

ListView1.ListItems.Clear

'Doc ND table DM_CHUC_VU vao Listview str = "select * from dmkh order by makh asc"

rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then

While Not rs.EOF

Set mItem = ListView1.ListItems.Add(, , rs!makh) mItem.SubItems(1) = rs!tenkh mItem.SubItems(2) = rs!madt rs.MoveNext Wend End If End Sub

Private Sub sua_du_lieu() un_lock_text txtma.Enabled = False txtten.SetFocus End Sub Danh mục nhà cung cấp Option Explicit Private flag As String Private Sub cmdin_Click()

If DataEnvironment2.rsHanghoa.State = 0 Then DataEnvironment2.rsHanghoa.Open End If DataEnvironment2.rsHanghoa.Requery R_DMH.Show 1 End Sub

Private Sub cmdthoat_click() Unload Me

'End End Sub

Private Sub cmdxoa_Click() Xoa_du_lieu

Private Sub cmdmoi_click() un_lock_text

set_null End Sub

Private Sub cmdluu_Click() If flag <> "sua" Then flag = "luu" End If

Luu_Du_Lieu End Sub

Private Sub cmdBo_Click() set_null

lock_text End Sub

Private Sub cmdsua_click() flag = "sua"

sua_du_lieu End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset Dim str

Dim mItem As ListItem 'xoa ND listview

ListView1.ListItems.Clear

'Doc ND table dmthuoc vao Listview

str = "select * from dmHangHoa where mahang='" & Text1.Text & "' order by mahang asc" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText

If rs.EOF = False Then While Not rs.EOF

Set mItem = ListView1.ListItems.Add(, , rs!mahang) mItem.SubItems(1) = rs!tenhang mItem.SubItems(2) = rs!dvt mItem.SubItems(3) = rs!vitri mItem.SubItems(4) = rs!soluongdk rs.MoveNext Wend End If End Sub

Private Sub Command2_Click() Dim rs As New ADODB.Recordset Dim str

Dim mItem As ListItem 'xoa ND listview

ListView1.ListItems.Clear

'Doc ND table dmthuoc vao Listview

str = "select * from dmHangHoa order by mahang asc"

rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then

While Not rs.EOF

Set mItem = ListView1.ListItems.Add(, , rs!mahang) mItem.SubItems(1) = rs!tenhang mItem.SubItems(2) = rs!dvt mItem.SubItems(3) = rs!vitri mItem.SubItems(4) = rs!soluongdk rs.MoveNext Wend End If End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

'Gan ND cot dau tien (ma loai) cua hang dc chon trong listview cho textbox txtma txtma = Item.Text

'Gan ND cot thu 2 (ten loai) cua hang dc chon trong listview cho textbox txtten txtten = Item.SubItems(1)

txtdvt = Item.SubItems(2) txtvitri = Item.SubItems(3) soluong = Item.SubItems(4) End Sub

Private Sub Form_Load() 'open_mdb

lock_text

display_listview ' nap DL trong table DM_LOAI_VB vao listview End Sub

Private Sub soluong_GotFocus() soluong.BackColor = &HC0E0FF End Sub

Private Sub soluong_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

cmdluu.SetFocus End Select

Private Sub soluong_LostFocus() soluong.BackColor = &HFFFFFF soluong = Trim(soluong)

End Sub

Private Sub txtdvt_GotFocus() txtdvt.BackColor = &HC0E0FF End Sub

Private Sub txtdvt_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txtvitri.SetFocus End Select

End Sub

Private Sub txtdvt_LostFocus() txtdvt.BackColor = &HFFFFFF txtdvt = Trim(txtdvt)

End Sub

Private Sub txtma_GotFocus() txtma.BackColor = &HC0E0FF End Sub

Private Sub txtma_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txtten.SetFocus End Select

End Sub

Private Sub txtma_LostFocus() txtma.BackColor = &HFFFFFF txtma = Trim(txtma)

End Sub

Private Sub txtten_GotFocus() txtten.BackColor = &HC0E0FF End Sub

Private Sub txtten_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txtdvt.SetFocus End Select

Private Sub txtten_LostFocus() txtten.BackColor = &HFFFFFF txtten = Trim(txtten)

End Sub

Private Sub Xoa_du_lieu() Dim str

Dim response

If Trim(txtma) = "" Then Exit Sub

End If

MsgBox "Co chac chan xoa ko?", vbYesNo + vbQuestion, "Thong bao" If response = vbNo Then

Exit Sub Else

str = "delete from dmhanghoa where mahang='" & Trim(txtma) & "'"

cn.Execute (str) 'thi hanh query xoa record hien hanh trong table DM_do_khan End If

set_null lock_text display_listview End Sub

Private Sub Luu_Du_Lieu()

Dim rs As New ADODB.Recordset Dim str

'neu ma loai hoac ten loai trong thi ko luu

If Trim(txtma) = "" Or Trim(txtten) = "" Or Trim(txtvitri) = "" Or Trim(txtdvt) = "" Or Trim(soluong) = "" Then

MsgBox "Chu y: Phai nhap DL day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao"

Exit Sub End If

'Tim xem da ton tai ma loai nay trong table DM_DO_KHAN hay chua str = "select * from dmhanghoa where mahang='" & Trim(txtma) & "'" rs.Open str, cn

If rs.EOF = True Then

str = "insert into dmhanghoa values('" & Trim(txtma) & "','" & Trim(txtten) & "','" & Trim(txtvitri) & "','" & Trim(txtdvt) & "','" & Trim(soluong) & "')"

cn.Execute (str) Else

If flag = "luu" Then

MsgBox "Ma hang hoa [" & txtma & "] da ton tai.", vbOKOnly + vbExclamation, "Thong bao"

Me.MousePointer = 0 Exit Sub

End If

'Neu da ton tai va o che do sua thi cap nhat lai noi dung ten loai

str = "update dmhanghoa set tenhang ='" & Trim(txtten) & "' ,dvt='" & Trim(txtdvt) & "',vitri='" & Trim(txtvitri) & "',soluongdk='" & Trim(soluong) & "' where mahang='" & Trim(txtma) & "'" cn.Execute (str) End If lock_text display_listview cmdmoi.SetFocus Me.MousePointer = 0 End Sub

Private Sub set_null() txtma = "" txtten = "" txtdvt = "" txtvitri = "" soluong = "" End Sub

Private Sub lock_text() txtma.Enabled = False txtten.Enabled = False txtdvt.Enabled = False txtvitri.Enabled = False soluong.Enabled = False cmdluu.Enabled = False cmdbo.Enabled = False cmdmoi.Enabled = True cmdsua.Enabled = True cmdxoa.Enabled = True flag = "" End Sub

Private Sub un_lock_text() txtma.Enabled = True txtten.Enabled = True txtdvt.Enabled = True txtvitri.Enabled = True soluong.Enabled = True txtma.SetFocus cmdluu.Enabled = True cmdbo.Enabled = True cmdmoi.Enabled = False

cmdsua.Enabled = False cmdxoa.Enabled = False End Sub

Private Sub display_listview() Dim rs As New ADODB.Recordset Dim str

Dim mItem As ListItem 'xoa ND listview

ListView1.ListItems.Clear

'Doc ND table DM_CHUC_VU vao Listview

str = "select * from dmhanghoa order by mahang asc"

rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then

While Not rs.EOF

Set mItem = ListView1.ListItems.Add(, , rs!mahang) mItem.SubItems(1) = rs!tenhang mItem.SubItems(2) = rs!dvt mItem.SubItems(3) = rs!vitri mItem.SubItems(4) = rs!soluongdk rs.MoveNext Wend End If End Sub

Private Sub sua_du_lieu() un_lock_text

txtma.Enabled = False txtten.SetFocus End Sub

Private Sub txtvitri_GotFocus() txtvitri.BackColor = &HC0E0FF End Sub

Private Sub txtvitri_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

soluong.SetFocus End Select

End Sub

Private Sub txtvitri_LostFocus() txtvitri.BackColor = &HFFFFFF txtvitri = Trim(txtvitri)

Danh mục nhà cung cấp

Option Explicit Private flag As String Private Sub cmdin_Click()

If DataEnvironment2.rsNCC.State = 0 Then DataEnvironment2.rsNCC.Open End If DataEnvironment2.rsNCC.Requery R_NCC.Show 1 End Sub

Private Sub cmdthoat_click() Unload Me

'End End Sub

Private Sub cmdxoa_Click() Xoa_du_lieu

End Sub

Private Sub cmdmoi_click() un_lock_text

set_null End Sub

Private Sub cmdluu_Click() If flag <> "sua" Then flag = "luu" End If

Luu_Du_Lieu End Sub

Private Sub cmdBo_Click() set_null

lock_text End Sub

Private Sub cmdsua_click() flag = "sua"

sua_du_lieu End Sub

'Gan ND cot dau tien (ma loai) cua hang dc chon trong listview cho textbox txtma txtma = Item.Text

'Gan ND cot thu 2 (ten loai) cua hang dc chon trong listview cho textbox txtten txtten = Item.SubItems(1)

txtdiachi = Item.SubItems(2) txttel = Item.SubItems(3) End Sub

Private Sub Form_Load() 'open_mdb

lock_text

display_listview ' nap DL trong table DM_LOAI_VB vao listview End Sub

Private Sub txtdiachi_GotFocus() txtdiachi.BackColor = &HC0E0FF End Sub

Private Sub txtDiachi_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txttel.SetFocus End Select

End Sub

Private Sub txtdiachi_LostFocus() txtdiachi.BackColor = &HFFFFFF txtdiachi = Trim(txtdiachi)

End Sub

Private Sub txtma_GotFocus() txtma.BackColor = &HC0E0FF End Sub

Private Sub txtma_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

txtten.SetFocus End Select

End Sub

Private Sub txtma_LostFocus() txtma.BackColor = &HFFFFFF txtma = Trim(txtma)

Private Sub txttel_GotFocus() txttel.BackColor = &HC0E0FF End Sub

Private Sub txttel_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

cmdluu.SetFocus End Select

End Sub

Private Sub txttel_LostFocus() txttel.BackColor = &HFFFFFF txttel = Trim(txttel)

End Sub