5. Một số giao diện chủ yếu của chương trình
5.3Cá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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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 (adsbygoogle = window.adsbygoogle || []).push({});
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
(adsbygoogle = window.adsbygoogle || []).push({});