Cài đặt là quá trình chuyển đổi từ hệ thống cũ sang hệ thống mới. Trớc đây cơng ty TNHH Mỹ Hng cha áp dụng bất cứ phần mềm tính giá thành sản phẩm nào phục vụ cho bộ phận sản xuất kinh doanh và chơng trình này cũng là một chơng trình nhỏ nên hồn tồn cĩ thể sử dụng phơng pháp cài đặt trực tiếp. Theo phơng pháp này thì hệ
thống mới ngay lập tức đợc đa vào sử dụng. Ngồi ra, hệ thống các tệp và cơ sở dữ liệu của chuơng trình cha tồn tại nên phải tạo ra.
Kết luận
Sau thời gian thực tập và hồn thiện luận văn tốt nghiệp, với sự giúp đỡ của giáo viên hớng dẫn, đơn vị thực tập cũng nh đơn vị áp dụng chơng trình, em đã hồn thành
đề tài “ Xây dựng phân hệ thơng tin tính giá thành sản phẩm tại cơng ty Trách nhiệm hữu hạn Mỹ Hng”.
Chơng trình đã đạt đợc những yêu cầu mà đơn vị áp dụng đề ra nh tính đợc giá thành của sản phẩm dựa trên thơng tin chi tiết về từng giai đoạn sản xuất, cập nhật đợc giá thành của các sản phẩm khi cĩ sự thay đổi, đa ra đợc các báo cáo cĩ liên quan đến giá thành của các sản phẩm mà cơng ty cung cấp, màn hình cập nhật dữ liệu thuận tiện, các báo cáo bằng Crystal Report nên dễ dàng xuất sang các loại dữ liệu khác nh Excel, Word.
Tuy nhiên, do thời gian cĩ hạn và kinh nghiệm làm chơng trình cha nhiều nên thực tế chơng trình này vẫn cha hồn chỉnh. Nếu cĩ thêm thời gian và điều kiện cho phép, em sẽ phát triển chơng trình thêm một số chức năng nh tài liệu hớng dẫn ngời sử dụng và hồn thiện các màn hình cho thân thiện và dễ dàng sử dụng hơn.
Một lần nữa em xin chân thành cảm ơn sự giúp đỡ của cơ giáo TS Trần Thị Song Minh, đơn vị thực tập và đơn vị áp dụng chơng trình đã giúp đỡ em hồn thành luận văn tốt nghiệp này.
Sinh viên thực hiện Nguyễn Thuỳ Ninh
Danh mục tài liệu tham khảo
1- Giáo trình hệ thống thơng tin quản lý , TS Trơng Văn Tú- TS Trần Thị Song Minh- NXB Thống kê- 2000
2- Giáo trình cấu trúc dữ liệu và giải thuật – PGS.TS Hàn Viết Thuận- NXB Thống kê- 2005
3- Những bài thực hành cơ sở dữ liệu Visual Basic căn bản, KS Đinh Xuân Lâm- NXB Thống kê- 2006
4- Giáo trình cơ sở dữ liệu SQL, Access, Th.S Trần Cơng Uốn- NXB Thống kê- 2000
5- Microsoft Visual Basic 6.0 help file 6- Crystal Report 10.0 help file
Phụ lục
Màn hình chính của chong trình
Private Sub hethong_Click(Index As Integer) Select Case Index
Case 0: frmdanhsachnguoidung.Show 1
Case 1: frmthemnguoidung.Show 1 Case 2: frmdoimatkhau.Show 1 Case 3: End
End Select End Sub
Private Sub tinhgia_click(Index As Integer) Select Case Index
Case 0: frmtinhgiasanpham.Show 1
Case 1: frmtinhlaigiatoanbosanpham.Show 1 End Select
End Sub
Private Sub baocao_click(Index As Integer) Select Case Index
Case 0: frmbaocaotatca.Show 1 Case 1: frmreport_kh.Show 1 Case 2: frmreport_sp.Show 1 End Select
End Sub
Private Sub dm_click(Index As Integer) Select Case Index
Case 0: frmdanhmuccongdoan.Show 1 Case 1: frmdanhmucnguyenvatlieu.Show 1 Case 2: frmdanhmucnhancong.Show 1 Case 3: frmdanhmucmaymoc.Show 1 Case 4: frmdanhmuckhachhang.Show 1 End Select End Sub
frmgioithieu.Show 1 End Sub (adsbygoogle = window.adsbygoogle || []).push({});
Màn hình Tính giá thành một sản phẩm
Option Explicit
Private Flag As String
' chon cong doan cho cac cong doan Private Sub cmdchoncongdoan1_Click() frmchoncongdoan1.Show 1
End Sub
Private Sub cmdchoncongdoan2_Click() frmchoncongdoan2.Show 1
End Sub
Private Sub cmdchoncongdoan3_Click() frmchoncongdoan3.Show 1
End Sub
Private Sub cmdchoncongdoan4_Click() frmchoncongdoan4.Show 1
End Sub
Private Sub cmdchoncongdoan5_Click() frmchoncongdoan5.Show 1
End Sub
' chon khach hang
Private Sub cmdchonkhachhang_Click() frmchonkhachhang.Show 1
End Sub
' chon may moc cho cac cong doan Private Sub cmdchonmaymoc1_Click() frmchonmaymoc1.Show 1
End Sub
Private Sub cmdchonmaymoc2_Click() frmchonmaymoc2.Show 1
End Sub
Private Sub cmdchonmaymoc3_Click() frmchonmaymoc3.Show 1
End Sub
Private Sub cmdchonmaymoc4_Click() frmchonmaymoc4.Show 1
End Sub
Private Sub cmdchonmaymoc5_Click() frmchonmaymoc5.Show 1
End Sub
' chon nhan cong cho cac cong doan Private Sub cmdchonnhancong1_Click() frmchonnhancong1.Show 1
End Sub
Private Sub cmdchonnhancong2_Click() frmchonnhancong2.Show 1
End Sub (adsbygoogle = window.adsbygoogle || []).push({});
Private Sub cmdchonnhancong3_Click() frmchonnhancong3.Show 1
End Sub
Private Sub cmdchonnhancong4_Click() frmchonnhancong4.Show 1
End Sub
Private Sub cmdchonnhancong5_Click() frmchonnhancong5.Show 1
End Sub
' chon nguyen vat lieu cho cac cong doan Private Sub cmdchonnvl1_Click()
frmchonnvl1.Show 1 End Sub
Private Sub cmdchonnvl2_Click() frmchonnvl2.Show 1
End Sub
Private Sub cmdchonnvl3_Click() frmchonnvl3.Show 1
End Sub
Private Sub cmdchonnvl4_Click() frmchonnvl4.Show 1
End Sub
Private Sub cmdchonnvl5_Click() frmchonnvl5.Show 1
End Sub ' form load
Private Sub Form_Load() open_mdb
cmdsua.Enabled = False Set_Null
End Sub
' Cac command button cua form chinh Private Sub cmdghi_Click()
Dim rs As New ADODB.Recordset Dim str
If Flag <> "update" Then Flag = "save"
End If
str = "update sanpham set tensp= '" & Trim(txttensp) & "', mota= '" & Trim(txtmota) & "', ngaytinhgia= '" & Format(Trim(txtngaytinhgia), "dd/mm/yyyy") & "', cpthietke= '" & Trim(txtcpthietke) & "', cpvanchuyen= '" & Trim(txtcpvanchuyen) & "',
cpquanly= '" & Trim(txtcpquanly) & "', cpbansp= '" & Trim(txtcpbansp) & "' where masp= '" & Trim(txtmasp) & "'"
cn.Execute (str)
cmdsua.Enabled = False End Sub
Private Sub cmdsua_Click() Dim response
response = MsgBox(" Ban co muon ghi vao ban ghi moi khong?", vbYesNo + vbQuestion, "Thong bao")
If response = vbYes Then (adsbygoogle = window.adsbygoogle || []).push({});
MsgBox "Ban hay thay doi ma san pham", vbOKOnly + vbExclamation, "Thong bao" txtmasp.Enabled = True txtmasp.SetFocus Flag = "save" Else txtmasp.Enabled = False txttensp.SetFocus Flag = "update" End If End Sub
Unload Me End Sub
Private Sub cmdtim_Click() frmchonsanpham.Show 1 cmdsua.Enabled = True End Sub
Private Sub cmdxoa_Click() Dim response Dim str If Trim(txtmasp) = "" Then Me.MousePointer = 0 Exit Sub End If
MsgBox "Ban co chac chan xoa san pham nay khong?", vbYesNo + vbQuestion, "Thong bao"
If response = vbNo Then Exit Sub
Else
str = "delete from nguyenvatlieuchocongdoan where masp= '" & Trim(txtmasp) & "'" cn.Execute (str)
str = "delete from nhancongchocongdoan where masp= '" & Trim(txtmasp) & "'" cn.Execute (str)
str = "delete from maymocchocongdoan where masp= '" & Trim(txtmasp) & "'" cn.Execute (str)
str = "delete from congdoanchosanpham where masp= '" & Trim(txtmasp) & "'" cn.Execute (str)
str = "delete from sanpham where masp= '" & Trim(txtmasp) & "'" cn.Execute (str)
End If Set_Null End Sub
Private Sub cmdxembaocao_Click() ' hien report cua mot san pham Set_Null
End Sub
Private Sub txtmakh_change() Dim rs As New ADODB.Recordset Dim str
If (txtmasp = "") Then
MsgBox " Chu y phai nhap ma san pham", vbOKOnly + vbExclamation, "Thong bao"
txtmasp.SetFocus Else
str = "select* from sanpham where (masp='" & Trim(txtmasp) & "')" rs.Open str, cn
If rs.EOF = True Then
str = "insert into sanpham(masp) values('" & Trim(txtmasp) & "')" cn.Execute (str)
End If End If End Sub
' NGUYEN VAT LIEU CHO GIAI DOAN 1
' tu dong ghi lai cac gia tri vao bang congdoanchosanpham giai doan 1 vao he thong Private Sub txtmacd1_change()
Dim rs As New ADODB.Recordset Dim str
str = "select* from congdoanchosanpham, sanpham where
congdoanchosanpham.ID='1' and congdoanchosanpham.masp= '" & Trim(txtmasp) & "' and congdoanchosanpham.masp= sanpham.masp"
rs.Open str, cn
If rs.EOF = True Then (adsbygoogle = window.adsbygoogle || []).push({});
str = "insert into congdoanchosanpham(ID,masp,macd) values('1','" & Trim(txtmasp) & "', '" & Trim(txtmacd1) & "')"
cn.Execute (str) End If
rs.Close
str = "select stt from congdoanchosanpham where (ID= '1' and masp= '" & Trim(txtmasp) & "' and macd= '" & Trim(txtmacd1) & "')"
rs.Open str, cn txtstt11.Text = rs!stt End Sub
' hien thi listview cua NVL giai doan 1 Private Sub hienthinvl1()
Dim rs As New ADODB.Recordset Dim mitem As ListItem
Dim str
ivitem11.ListItems.Clear str = "select
nguyenvatlieuchocongdoan.manvl,danhmucnguyenvatlieu.tennvl,nguyenvatlieuchocon gdoan.khoiluong,danhmucnguyenvatlieu.donvitinh from danhmucnguyenvatlieu, nguyenvatlieuchocongdoan, congdoanchosanpham, sanpham where
danhmucnguyenvatlieu.manvl=nguyenvatlieuchocongdoan.manvl and nguyenvatlieuchocongdoan.stt= congdoanchosanpham.stt and
congdoanchosanpham.masp=sanpham.masp and sanpham.masp= '" & Trim(txtmasp) & "'and congdoanchosanpham.ID= '1'"
rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If (rs.EOF = False) Then
While Not (rs.EOF)
Set mitem = ivitem11.ListItems.Add(, , rs!manvl) mitem.SubItems(1) = rs!tennvl mitem.SubItems(2) = rs!khoiluong mitem.SubItems(3) = rs!donvitinh rs.MoveNext Wend End If End Sub
' Listview NVL cua giai doan 1- Thuoc tinh Itemclick
Private Sub ivitem11_ItemClick(ByVal item As MSComctlLib.ListItem) Dim rs As New ADODB.Recordset
Dim str
Dim mitem As ListItem txtmanvl1 = item.Text
str = "select tennvl,donvitinh from danhmucnguyenvatlieu where manvl='" & Trim(txtmanvl1) & "'"
rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText txttennvl1 = rs!tennvl
txtkhoiluong1 = item.SubItems(2) txtdonvitinh1 = rs!donvitinh
' Lock cac text txtmanvl1.Enabled = False txttennvl1.Enabled = False txtkhoiluong1.Enabled = False txtdonvitinh1.Enabled = False End Sub
' cmd THEM NVL giai doan 1- ghi lai cac gia tri vao bang nguyenvatlieuchocongdoan Private Sub cmdthem11_Click()
If Flag <> "update" Then Flag = "save"
End If
Dim rs As New ADODB.Recordset Dim str
If Trim(txtmanvl1) = "" Or Trim(txtkhoiluong1) = "" Then
MsgBox "Chu y: Phai nhap du lieu day du truoc khi luu.", vbOKOnly + vbExclamation, "Thong bao"
Exit Sub End If (adsbygoogle = window.adsbygoogle || []).push({});
str = "select* from nguyenvatlieuchocongdoan where
(nguyenvatlieuchocongdoan.manvl='" & Trim(txtmanvl1) & "' and nguyenvatlieuchocongdoan.masp= '" & Trim(txtmasp) & "' and nguyenvatlieuchocongdoan.ID='1' )"
rs.Open str, cn
If rs.EOF = True Then
str = "insert into nguyenvatlieuchocongdoan values ('" & Trim(txtmanvl1) & "', '" & CInt(txtstt11) & "','1', '" & (txtkhoiluong1) & "', '" & Trim(txtmasp) & "')"
cn.Execute (str)
Else
If Flag = "save" Then
MsgBox " Nguyen vat lieu cho cong doan ton tai. Xin vui long kiem tra lai.", vbOKOnly + vbExclamation, "Thong bao"
Me.MousePointer = 0 txtmanvl1 = "" txttennvl1 = "" txtkhoiluong1 = "" txtdonvitinh1 = "" Exit Sub End If
str = "update nguyenvatlieuchocongdoan set khoiluong='" & Trim(txtkhoiluong1) & "' where (manvl='" & Trim(txtmanvl1) & "' and ID='1' and masp= '" & Trim(txtmasp) & "')"
cn.Execute (str) End If
' display listview hienthinvl1
' set cac text box null txtmanvl1 = ""
txttennvl1 = "" txtkhoiluong1 = "" txtdonvitinh1 = "" ' Un_lock cac text box txtmanvl1.Enabled = True txttennvl1.Enabled = True txtkhoiluong1.Enabled = True txtdonvitinh1.Enabled = True
End Sub
' cmd Sua nguyenvat lieu giai doan 1 Private Sub cmdsua11_Click()
Flag = "update" txtmanvl1.Enabled = True txttennvl1.Enabled = True txtkhoiluong1.Enabled = True txtdonvitinh1.Enabled = True txtmanvl1.SetFocus End Sub
' cmd Xoa nguyen vat lieu giai doan 1 Private Sub cmdxoa11_Click()
Dim str
Dim response
If Trim(txtmanvl1) = "" Then Exit Sub
End If
MsgBox "Ban co chac chan xoa khong?", vbYesNo + vbQuestion, "Thong bao" If response = vbNo Then
Exit Sub Else
str = " delete from nguyenvatlieuchocongdoan where (manvl='" & Trim(txtmanvl1) & "' and ID='1' and masp='" & Trim(txtmasp) & "')"
cn.Execute (str) End If
hienthinvl1
' set cac text box null
txtmanvl1 = "" txttennvl1 = "" txtkhoiluong1 = "" txtdonvitinh1 = "" End Sub (adsbygoogle = window.adsbygoogle || []).push({});
' NHAN CONG CHO GIAI DOAN 1
' hien thi listview cua NHANCONG giai doan 1 Private Sub hienthinhancong1()
Dim rs As New ADODB.Recordset Dim mitem As ListItem
Dim str
ivitem12.ListItems.Clear str = "select
nhancongchocongdoan.manc,danhmucnhancong.tennc,nhancongchocongdoan.thoigia nlamviec from danhmucnhancong, nhancongchocongdoan, congdoanchosanpham, sanpham where danhmucnhancong.manc=nhancongchocongdoan.manc and
nhancongchocongdoan.stt= congdoanchosanpham.stt and
congdoanchosanpham.masp=sanpham.masp and sanpham.masp= '" & Trim(txtmasp) & "'and congdoanchosanpham.ID= '1'"
rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If (rs.EOF = False) Then
While Not (rs.EOF)
Set mitem = ivitem12.ListItems.Add(, , rs!manc) mitem.SubItems(1) = rs!tennc
mitem.SubItems(2) = rs!thoigianlamviec rs.MoveNext
Wend End If
End Sub
' Listview NHANCONG cua giai doan 1- Thuoc tinh Itemclick
Private Sub ivitem12_itemclick(ByVal item As MSComctlLib.ListItem) Dim rs As New ADODB.Recordset
Dim str
Dim mitem As ListItem txtmanc1 = item.Text
str = "select tennc from danhmucnhancong where manc='" & Trim(txtmanc1) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText
txttennc1 = rs!tennc
txtthoigianlamviec1 = item.SubItems(2) ' Lock cac text
txtmanc1.Enabled = False txttennc1.Enabled = False
txtthoigianlamviec1.Enabled = False End Sub
' cmd THEM Nhancong giai doan 1- ghi lai cac gia tri vao bang nguyenvatlieuchocongdoan
Private Sub cmdthem12_Click() If Flag <> "update" Then
Flag = "save" End If
Dim rs As New ADODB.Recordset Dim str
If Trim(txtmanc1) = "" Or Trim(txtthoigianlamviec1) = "" Then
MsgBox "Chu y: Phai nhap du lieu day du truoc khi luu.", vbOKOnly + vbExclamation, "Thong bao"
Exit Sub End If (adsbygoogle = window.adsbygoogle || []).push({});
str = "select* from nhancongchocongdoan where (nhancongchocongdoan.manc='" & Trim(txtmanc1) & "' and nhancongchocongdoan.masp= '" & Trim(txtmasp) & "' and nhancongchocongdoan.ID='1' )"
rs.Open str, cn
If rs.EOF = True Then
str = "insert into nhancongchocongdoan values ('" & Trim(txtmanc1) & "', '" & CInt(txtstt11) & "','1', '" & (txtthoigianlamviec1) & "', '" & Trim(txtmasp) & "')" cn.Execute (str)
Else
If Flag = "save" Then
MsgBox " Nhan cong cho cong doan ton tai. Xin vui long kiem tra lai.", vbOKOnly + vbExclamation, "Thong bao"
Me.MousePointer = 0 txtmanc1 = "" txttennc1 = "" txtthoigianlamviec1 = "" Exit Sub End If
str = "update nhancongchocongdoan set thoigianlamviec='" &
Trim(txtthoigianlamviec1) & "' where (manc='" & Trim(txtmanc1) & "' and ID='1' and masp= '" & Trim(txtmasp) & "')"
cn.Execute (str) End If
hienthinhancong1 ' set cac text box null txtmanc1 = ""
txttennc1 = ""
txtthoigianlamviec1 = "" ' Un_lock cac text box txtmanc1.Enabled = True txttennc1.Enabled = True
txtthoigianlamviec1.Enabled = True End Sub
' cmd Sua nhancong giai doan 1 Private Sub cmdsua12_Click() Flag = "update" txtmanc1.Enabled = True txttennc1.Enabled = True txtthoigianlamviec1.Enabled = True txtmanc1.SetFocus End Sub
' cmd Xoa nhan cong giai doan 1 Private Sub cmdxoa12_Click() Dim str
Dim response
If Trim(txtmanc1) = "" Then Exit Sub
End If
MsgBox "Ban co chac chan xoa khong?", vbYesNo + vbQuestion, "Thong bao"