1 LỜI CẢM ƠN Trong suốt trình học tập rèn luyện vừa qua trường em thầy cô cung cấp truyền đạt kiến thức chuyên môn tinh thần học tập sáng tạo, tảng để chúng em bước vào sống Giai đoạn thực tập khoảng thời gian cần thiết quan trọng sinh viên trường Kinh tế nói chung sinh viên chuyên ngành Tin học kinh tế nói riêng; giai đoạn chúng em tiếp xúc với thực tế công việc Chuyên đề thực tập kết gần tháng thực tập, hội để áp dụng kiến thức học rút kinh nghiệm quý báu cho công việc sau thân sinh viên Sau thời gian thực tập nghiên cứu đề tài công ty Tin học Xây dựng công ty Công nghiệp Bê tông Vật liệu Xây dựng, hướng dẫn cẩn thận, khoa học, chu đáo cô giáo Trần Thị Song Minh bảo nhiệt tình anh chị công ty Tin học Xây dựng -Bộ Xây dựng công ty Công nghiệp Bê tông Vật liệu Xây dựng giỳp em hồn thành chun đề thực tập Bên cạnh kết đạt được, chun đề khơng tránh khỏi thiếu sót, kính mong thầy thơng cảm Sự góp ý, phê bình thầy bạn ý kiến quý báu giúp em hoàn thiện Em xin gửi lời cảm ơn chân thành sâu sắc tới giáo TS Trần Thị Song Minh tồn thể cán giáo viên khoa Tin học kinh tế, kĩ sư Nguyễn Đắc Tuấn - trưởng phịng xí nghiệp phần mềm quản lý, công ty Tin học Xây dựng tất nhân viên công ty Tin học Xây dựng công ty Công nghiệp Bê tông Vật liệu Xây dựng giúp đỡ, hướng dẫn tạo điều kiện thuận lợi cho em suốt thời gian vừa qua Hà Nội, tháng 05 năm 2005 Sinh viên: Đỗ Thị Hồng Chinh LỜI MỞ ĐẦU Thơng tin ngày đóng vai trị quan trọng kinh tế đời sống xã hội Lượng thông tin ngày nhiều phức tạp nên việc lựa chọn, phân tích, khai thác quản lý thơng tin thủ cơng ngày gặp nhiều khó khăn Bởi thế, tin học hoá vấn đề cần thiết, nhờ hoạt động sản xuất, quản lý trở nên thuận tiện, mang lại nhiều lợi ích Ở nước ta, cơng nghệ thơng tin khơng cịn xa lạ, ứng dụng rộng rãi nhiều lĩnh vực đời sống xã hội công tác quản lý: quản lý kinh tế, quản lý xã hội, quản lý sản xuất; quản lý kho, quản lý nhân sự, quản lý bán hàng…Hệ thống thông tin kinh doanh sản xuất có mặt tất doanh nghiệp, định hoạt động khác, địi hỏi phải có hệ thống quản lý tốt, hiệu quả; khâu quản lý sản phẩm Dựa nhu cầu, thị hiếu khách hàng phát triển chung xã hội công ty Tin học Xây dựng thành lập Sản phẩm công ty nhiều doanh nghiệp sử dụng, đặc biệt doanh nghiệp ngành Xây dựng, có công ty Công nghiệp Bê tông Vật liệu Xây dựng muốn xây dựng phần mềm để quản lý việc tiêu thụ sản phẩm Công ty Công nghiệp Bê tông Vật liệu Xây dựng đơn vị sản xuất kinh doanh nên việc tiêu thụ sản phẩm có ý nghĩa định để xác định chỗ đứng thị trường Do đó, hệ thống thơng tin quản lý tiêu thụ sản phẩm có vai trị quan trọng, khơng nói lên trạng kinh doanh cơng ty mà phản ánh nhu cầu thị trường người tiêu dùng Công việc quản lý tiêu thụ sản phẩm địi hỏi nhà quản lý phải ln nắm bắt, xử lý thơng tin cách nhanh chóng, xác để đưa định đắn Việc ứng dụng công nghệ thông tin vào quản lý tiêu thụ sản phẩm góp phần giúp cơng ty xây dựng chiến lược kinh doanh phù hợp, nâng cao hiệu kinh doanh Qua trình tìm hiểu thực tập công ty Tin học Xây dựng công ty Công nghiệp Bê tông Vật liệu Xây dựng, em hồn thành chun đề thực tập tốt nghiệp với đề tài: “Tin học hóa hệ thống thơng tin quản lý tiêu thụ sản phẩm công ty Công nghiệp Bê tông Vật liệu Xây dựng” Mục đích đề tài nhằm phân tích thiết kế hệ thống thông tin quản lý tiêu thụ sản phẩm, giỳp phũng thị trường công ty nắm bắt, xử lý thơng tin nhanh chóng, xác, làm sở trợ giúp việc định, lập kế hoạch nhà quản lý hệ thống chức khác Ngoài phần mở đầu kết luận chuyên đề gồm chương : Chương I: Giới thiệu chung quan thực tập tổng quan đề tài nghiên cứu : trình bày khái quát quan thực tập, cần thiết ứng dụng tin học công tác quản lý đưa lý lựa chọn đề tài Chương II: Cơ sở phương pháp luận nghiên cứu : trình bày phương pháp luận phân tích thiết kế hệ thống thơng tin quản lý, số vấn đề hệ thống thông tin quản lý tiêu thụ sản phẩm công ty Công nghiệp Bê tông Vật liệu Xây dựng công cụ thực đề tài Chương III: Phân tích thiết kế hệ thống thông tin quản lý tiêu thụ sản phẩm công ty Công nghiệp Bê tông Vật liệu Xây dựng : trình bày việc phân tích chi tiết hệ thống thông tin quản lý tiêu thụ sản phẩm công ty Công nghiệp Bê tông Vật liệu Xây dựng từ thiết kế xây dựng giải pháp giúp hệ thống hoạt động tốt Đề tài đưa vào sử dụng giúp cho hoạt động quản lý tiêu thụ sản phẩm công ty hiệu Tuy nhiên, khuôn khổ thời gian lực có hạn, cố gắng chuyên đề nhiều hạn chế Hy vọng nội dung nghiên cứu đề tài bổ sung phát triển tương lai CHƯƠNG I GIỚi THIỆU CHUNG VỀ CƠ QUAN THỰC TẬP VÀ TỔNG QUAN VỀ ĐỀ TÀI NGHIÊN CỨU 1.1 Giới thiệu chung công ty Tin học Xây dựng - Bộ Xây dựng Công ty Tin học Xây dựng doanh nghiệp nhà nước trực thuộc Bộ Xây dựng, thành lập theo Quyết định số 243/QĐ-BXD ngày 16 tháng 02 năm 2000 Bộ trưởng Bộ Xây dựng sở Trung tâm Tin học Xây dựng thành lập ngày 27 tháng 11 năm 1990 Tiền thân từ phòng ứng dụng Tốn Máy tính (5 / 1974) phát triển thành Trung tâm Tin học Xây dựng Công ty không ngừng phát triển hoạt động nghiên cứu - sản xuất - tư vấn, chuyển giao công nghệ Nhà nước chứng nhận quyền cho nhiều sản phẩm phần mềm công nghệ thông tin Các sản phẩm phần mềm công ty ứng dụng rộng rãi nhiều năm qua Với thành cơng ty góp phần thúc đẩy phát triển ngành công nghệ thông tin Việt Nam Cơng ty Thủ tướng Chính phủ tặng khen năm 2000 Bộ Xây dựng đề nghị Nhà nước tặng thưởng Huân chương Lao động hạng năm 2002 Tên thức cơng ty: Cơng ty Tin học Xây dựng Tên giao dịch quốc tế: Contruction Informatics Corporation - CIC Điện thoại: 84.49761381 Fax: 84.48216793 E_mail: cic@.fpt.vn Website: www.cic.com.vn Trụ sở chính: Số 5, Hoa Lư, Hai Bà Trưng, Hà Nội 1.1.1 Chức nhiệm vụ cơng ty Cơng ty có gần 13 năm hoạt động lĩnh vực công nghệ thông tin chuyên ngành xây dựng với chức nhiệm vụ sau đây: • Nghiên cứu, thiết kế, sản xuất, khai thác phát triển cung cấp phần mềm CNTT phục vụ quản lý, kinh tế, kỹ thuật • Tư vấn giải pháp tổng thể hệ thống thiết bị tin học, viễn thông; nghiên cứu ứng dụng chuyển giao giải pháp CNTT, thực lắp đặt hệ thống thiết bị tin học viễn thông • Thực nội dung công tác tư vấn xây dựng cơng trình tin học viễn thơng, cơng trình dân dụng, cơng nghiệp, cơng trình kỹ thuật hạ tầng thị, khu cơng nghiệp • Xuất nhập cung cấp thiết bị, sản phẩm CNTT ứng dụng công nghệ khác • Tổ chức đào tạo, bồi dưỡng CNTT ứng dụng cơng nghệ khác • Liên doanh, liên kết với đơn vị nước để phát triển đầu tư cơng nghệ • Thực nhiệm vụ khác Bộ xây dựng giao Mỗi phận cơng ty có chức nhiệm vụ cụ thể riêng để hoàn thành mục tiêu chung Công ty Công ty thường xuyên tổ chức đào tạo cấp chứng Tin học xây dựng cho học viên về: Tin học bản, tin học văn phòng, tin học chuyên ngành xây dựng, đào tạo quản trị mạng, sử dụng Intranet, Internet…sử dụng phần mềm chuyên dụng Archicard, Sap… Chuyển giao phần mềm theo hình thức chọn gói, nghiên cứu phát triển hệ thống quản lý mạng phục vụ cho công tác quản lý điều hành kết nối liệu đơn vị, xây dựng sở liệu đơn vị… 1.1.2 Cơ cấu tổ chức công ty Từ đơn vị có khoảng 30 cán thời kỳ 1990 – 1995, đến nay, cơng ty có đội ngũ 200 cán bộ, hầu hết có trình độ đại học trở lên, có gần 20 cán theo học cao học, tiến sỹ ngồi nước Cơ cấu tổ chức Cơng ty có đơn vị thành viên gồm: - Trung tâm Nghiên cứu phát triển công nghệ thông tin - Trung tâm Đào tạo chuyển giao công nghệ - Xí nghiệp phát triển phần mềm tư vấn xây dựng - Xí nghiệp phát triển phần mềm quản lý - Xí nghiệp xuất nhập thiết bị CNTT - Xí nghiệp Tự động hoá thiết kế tư vấn xây dựng - Trung tâm GIS xây dựng - Phòng Dự án Thị trường - Chi nhánh thành phố Hồ Chí Minh Cần Thơ Tổ chức công ty theo cấp bậc, phân nhánh, quản lý theo phân quyền theo chức Cấp cao Ban giám đốc có quyền điều hành cơng việc chung Công ty, chịu trách nhiệm phân bổ quản lý đơn vị Các đơn vị có quy chế hoạt động chuyên môn sâu rộng theo phân công Ban giám đốc Công ty BAN GIÁM ĐỐC TỔ CHỨC HÀNH CHÍNH BAN KHOA HỌC VÀ CƠNG NGHỆ Xí nghiệp Xí nghiệp XN xuất nhập XN tự động phần mềm phần mềm kinh hóa tư vấn quản lý tư vấn xây doanh thiết bị xây dựng dựng tin học Trung tâm đào Trung Trung tâm tạo chuyển tâm GIS nghiên cứu giao cơng nghệ phát triển CNTT Hình 1.1: Sơ đồ tổ chức Cơng ty Tin học Xây dựng 1.1.3 Tình hình hoạt động Cơng ty Cơng ty Tin học Xây dựng quan thường trực Ban đạo phát triển CNTT Bộ Xây dựng, đơn vị tham gia chủ yếu Ban soạn thảo Đề án phát triển CNTT ngành Xây dựng đến 2005, 2010 Là đơn vị nghiên cứu sản xuất phần mềm chuyển giao công nghệ phục vụ quan quản lý nhà nước, đơn vị nghiên cứu, đào tạo doanh nghiệp ngành Hoạt động Công ty chủ yếu diễn trờn cỏc lĩnh vực sau: Hoạt động đào tạo: Công ty đào tạo cấp chứng trình độ CNTT cho cán chuyên viên, đầu mối triển khai hoạt động CNTT, tư vấn xây dựng hệ thống thiết bị mạng, tham gia xây dựng số sở liệu quản lý ngành Hoạt động nghiên cứu phần mềm: Đã hoàn thiện 30 sản phẩm phần mềm phục vụ quản lý, kinh tế, kỹ thuật ngành như: phần mềm phục vụ công tác tư vấn thiết kế, quản lý thiết kế qui hoạch, quản lý quan doanh nghiệp… nhà nước cấp quyền giao sử dụng cho 3000 khách hàng ngồi ngành Xây dựng, góp phần đẩy mạnh đại hóa ngành Xây dựng Về cơng tác đào tạo, phổ biến kiến thức: Đã đào tạo ứng dụng tin học cho 5000 lượt cán chuyên viên ngành phổ cập tin học, sử dụng khai thác phần mềm, internet, chương trình phục vụ thiết kế, dự tốn, tính tốn kết cấu, kế toán, nhân sự- tiền lương, hợp đồng… Hoạt động cung cấp trang thiết bị tin học: trang bị hàng ngàn máy vi tớnh-mạng cho gần 800 đơn vị, có mạng XD.NET-01 Bộ Xây dựng, mạng Viện, trường cao đẳng trung học xây dựng, Ủy ban nhân dân tỉnh - thành phố, tổng công ty đơn vị thuộc Bộ Về hoạt động sản xuất kinh doanh: Trong năm 2000- 2002, tình hình sản xuất kinh doanh Cơng ty phát triển vững chắc, hoàn thành tốt tiêu kế hoạch hàng năm Việc đào tạo bồi dưỡng nâng cao trình độ đội ngũ cán Cơng ty coi trọng, có nhiều người theo học cao học, tiến sỹ nước Tất lao động có việc làm ổn định, thu nhập bình qn tồn Cơng ty đạt mức 1,6 triệu đồng/ người/ tháng Hoạt động đầu tư công nghệ mới: Do CNTT phát triển với tốc độ cao nên việc đầu tư cho công nghệ Công ty trọng Hàng năm Công ty tiếp tục đầu tư thay thế, nâng cấp thiết bị cũ mua sắm thiết bị đại Trong năm 2001 đầu tư 1.6 tỷ để đại hóa thiết bị cơng nghệ Công tác hợp tác quốc tế: Công ty quan hệ với 25 hãng 20 nước giới hợp tác phát triển phần mềm chuyển giao công nghệ, đào tạo… Đặc biệt, công ty trở thành đối tác cỏc cụng tỵ Nemetscheck (CHLB Đức), EagePoint (Mỹ), Soft Promotion (Hàn Quốc), TEKLA (Phần Lan), Viện hàn lâm Khoa học xây dựng (Trung Quốc), MVA (Vương quốc Anh),… việc phát triển ứng dụng phần mềm Việt Nam theo tiêu chuẩn nước 1.1.4 Sản phẩm thị trường Công ty Các sản phẩm phần mềm Cơng ty chiếm lĩnh tồn 61 tỉnh thành nước, góp phần tích cực việc đẩy mạnh cơng nghiệp hóa đại hóa ngành Xây dựng Cơng ty số đơn vị chuyờn sõu lĩnh vực CNTT xây dựng với phần mềm có tính tự động hóa cao, phương pháp tính đại trở thành cơng cụ trợ giúp cho nhiều kỹ sư cán chun mơn Ngồi ra, công ty sản xuất đa dạng phần mềm khác Quản lý kế toán đơn vị hành nghiệp, quản lý thị, quản lý nhân sự, quản lý học phí, quản lý hợp đồng, quản lý khách hàng thu tiền nước… Công ty không ngừng mở rộng thị trường tăng cường hoạt động lĩnh vực CNTT với việc mở chi nhánh thành phố Hồ Chí Minh, mở thờm phũng giới thiệu bán sản phẩm 177 Bùi Thị Xuân, Hà Nội để tăng cường hoạt động hỗ trợ khách hàng Tại trưng bày công nghệ máy tính, thiết bị mạng khách hàng tư vấn, giải đáp phần mềm, xem Demo giới thiệu sản phẩm phần mềm Công ty Đến Công ty cung cấp, đào tạo chuyển giao phần mềm cho 1200 đơn vị ngành Xây dựng Cùng với quan ngành nước Cơng ty góp sức đẩy mạnh phát triển Việt Nam giới 1.2 Giới thiệu công ty Công nghiệp Bê tông Vật liệu Xây dựng Ở Việt Nam máy tính khoa học máy tính phát triển rộng khắp, ngày có nhiều cơng ty, trung tâm công nghệ thông tin với 10 sản phẩm, dịch vụ ngày tốt Nhưng ngày có nhiều nhu cầu sử dụng ứng dụng tin học phần cứng phần mềm doanh nghiệp muốn đón đầu thành cơng khơng thể khơng cần đến sản phẩm dịch vụ mà cơng nghệ máy tính mang lại Nắm bắt nhu cầu doanh nghiệp, thị hiếu khách hàng hội phát triển chung xã hội Công ty Tin học Xây dựng thành lập Một chức công ty là: Nghiên cứu, thiết kế, sản xuất, khai thác phát triển cung cấp phần mềm CNTT phục vụ quản lý, kinh tế, kỹ thuật Công ty Công nghiệp Bê tông Vật liệu Xây dựng khách hàng công ty muốn xây dựng phần mềm để quản lý việc sản xuất tiêu thụ sản phẩm Công ty Công nghiệp Bê tông Vật liệu Xây dựng công ty chuyên sản xuất vật liệu xây dựng sản phẩm gạch men ốp lát cao cấp sản phẩm Cơng ty Cơng nghiệp Bê tơng Vật liệu Xây dựng tiền thân Nhà máy Bê tông Việt Trì, trực thuộc Tổng Cơng ty xây dựng Sơng Hồng – Bộ Xây Dựng doanh nghiệp Nhà nước thành lập theo định Số 126A/BXD – TCLĐ ngày 26 tháng năm 1993 Bộ trưởng Bộ Xây Dựng Trụ sở Công ty đặt phường Tiờn Cỏt, Thành Phố Việt Trỡ,Tỉnh Phỳ Thọ có hệ thống giao thông đường sắt, đường thủy thuận lợi Hoạt động sản xuất kinh doanh chủ yếu Công ty sản xuất vật liệu xây dựng, sản phẩm gạch men ốp lát cao cấp sản phẩm mũi nhọn Với đội ngũ kỹ sư, kỹ thuật, công nhân lành nghề chiếm 80% tổng số 580 CBCNV công nghệ tiên tiến Italia Tây Ban Nha Tổng giá trị sản lượng Công ty tăng nhanh nhiều năm liền Năm 1996 74,3 tỷ đồng, năm 1999 122 tỷ đồng, sản lượng gạch năm 2002 đạt 3817187 m Công ty áp dụng hệ thống kiểm tra chất lượng phù hợp với tiêu chuẩn ISO 9001 cho qui trình sản xuất khơng ngừng nâng cao suất chất lựợng đáp ứng nhu cầu thị hiếu người tiêu dùng đòi hỏi Chuyên đề thực tập tốt nghiệp 126 GVHD:TS Trần Thị SongM inh txtSoLuong.BackColor = &H80000013 End Sub Private Sub txtSoLuong_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtDgNhap.SetFocus End Select End Sub Private Sub txtSoLuong_LostFocus() txtSoLuong.BackColor = &HFFFFFF 'txtSoLuong = Trim(txtSoLuong) End Sub Private Sub txtDgNhap_GotFocus() txtDgNhap.BackColor = &H80000013 End Sub Private Sub txtDgNhap_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtDgXuat.SetFocus End Select End Sub Private Sub txtDgNhap_LostFocus() txtDgNhap.BackColor = &HFFFFFF 'txtDgNhap = Trim(txtDgNhap) End Sub Private Sub txtDgXuat_GotFocus() txtDgXuat.BackColor = &H80000013 End Sub Private Sub txtDgXuat_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 127 GVHD:TS Trần Thị SongM inh txtMaKichThuoc.SetFocus 'cmdSave.SetFocus End Select End Sub Private Sub txtDgXuat_LostFocus() txtDgXuat.BackColor = &HFFFFFF 'txtDgXuat = Trim(txtDgXuat) End Sub Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtMa) = "" Then Exit Sub End If MsgBox " co xoa khong?", vbYesNo + vbQuestion, "Thong bao" If response = vbNo Then Exit Sub Else str = "Delete from DmGach where MaGach='" & Trim(txtMa) & "'" cn.Execute str End If Set_NULL Lock_Text Display_Listview End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str As String If Trim(txtMa) = "" Or Trim(txtTen) = "" Then 'If Trim(txtMa) = "" Or Trim(txtTen) = "" Or Trim(txtMaKichThuoc) Or Trim(txtMaPhamCap) = "" = "" Then Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 128 GVHD:TS Trần Thị SongM inh MsgBox " phai nhap du du lieu truoc luu", vbOKOnly + vbExclamation, "Thong bao" Me.MousePointer = Exit Sub End If str = "select*from QryGach where maGach='" & Trim(txtMa) & "'" rs.Open str, cn If rs.EOF = True Then 'str = "insert into DmGach values('" & Trim(txtMa) & "','" & Trim(txtTen) & "')" 'str = "INSERT INTO QryGach (maGach, TenGach, DonViTinh,MaKichThuoc,TenKichThuoc,maLoaiGach,TenLoaiGach,maPha mCap,TenPhamCap,SLTrongKho,DonGiaNhap,DonGiaXuat) VALUES ('" & Trim(txtMa.Text) & "','" & Trim(txtTen.Text) & "','" & Trim(txtDvt.Text) & "','" & Trim(txtMaKichThuoc.Text) & "','" & Trim(txtTenKichThuoc.Text) & "','" & Trim(txtMaLoaiGach.Text) & "','" & Trim(txtTenLoaiGach.Text) & "','" & Trim(txtMaPhamCap.Text) & "','" & Trim(txtTenPhamCap.Text) & "'," & txtSoLuong & "," & txtDgNhap & "," & txtDgXuat & ")" str = "INSERT INTO QryGach (maGach, TenGach, DonViTinh,MaKichThuoc,maLoaiGach,maPhamCap,SLTrongKho,DonGiaNh ap,DonGiaXuat) VALUES ('" & Trim(txtMa.Text) & "','" & Trim(txtTen.Text) & "','" & Trim(txtDvt.Text) & "','" & Trim(txtMaKichThuoc.Text) & "','" & Trim(txtMaLoaiGach.Text) & "','" & Trim(txtMaPhamCap.Text) & "'," & txtSoLuong & "," & txtDgNhap & "," & txtDgXuat & ")" cn.Execute str Else If flag = "save" Then MsgBox "Ma gach da ton tai, hay kiem tra lai", vbOKOnly + vbExclamation, "thong bao" Me.MousePointer = Exit Sub End If str = "update QryGach set TenGach='" & Trim(txtTen) & "',maLoaiGach='" & Trim(txtMaLoaiGach.Text) & "',maKichthuoc='" & Trim(txtMaKichThuoc.Text) & "',maPhamCap='" & Trim(txtMaPhamCap.Text) & "',SLTrongKho=" & txtSoLuong & Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 129 GVHD:TS Trần Thị SongM inh ",DonGiaNhap=" & txtDgNhap & ",DonGiaXuat=" & txtDgXuat & " where maGach='" & Trim(txtMa) & "'" cn.Execute (str) End If Set_NULL Lock_Text Display_Listview cmdNew.SetFocus Me.MousePointer = End Sub Private Sub Set_NULL() txtMa = "" txtTen = "" txtDvt = "" txtMaLoaiGach = "" txtTenLoaiGach = "" txtMaKichThuoc = "" txtTenKichThuoc = "" txtMaPhamCap = "" txtTenPhamCap = "" txtSoLuong = txtDgNhap = txtDgXuat = End Sub Private Sub Lock_Text() txtMa.Enabled = False txtTen.Enabled = False txtDvt.Enabled = False txtMaLoaiGach.Enabled = False txtTenLoaiGach.Enabled = False txtMaKichThuoc.Enabled = False txtTenKichThuoc.Enabled = False Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 130 txtMaPhamCap.Enabled = False txtTenPhamCap.Enabled = False txtSoLuong.Enabled = False txtDgNhap.Enabled = False txtDgXuat.Enabled = False Command2.Enabled = False Command3.Enabled = False cmdSave.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True cmdUpdate.Enabled = True cmdDel.Enabled = True cmdSearch.Enabled = True flag = "" End Sub Private Sub Un_Lock_Text() txtMa.Enabled = True txtTen.Enabled = True txtDvt.Enabled = True txtMaLoaiGach.Enabled = True txtTenLoaiGach.Enabled = True txtMaKichThuoc.Enabled = True txtTenKichThuoc.Enabled = True txtMaPhamCap.Enabled = True txtTenPhamCap.Enabled = True txtSoLuong.Enabled = True txtDgNhap.Enabled = True txtDgXuat.Enabled = True Command2.Enabled = True Command3.Enabled = True txtMa.SetFocus Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B GVHD:TS Trần Thị SongM inh Chuyên đề thực tập tốt nghiệp 131 GVHD:TS Trần Thị SongM inh cmdSave.Enabled = True cmdSkip.Enabled = True cmdNew.Enabled = False cmdUpdate.Enabled = False cmdDel.Enabled = False cmdSearch.Enabled = False End Sub Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mItem As ListItem lvItem.ListItems.Clear str = "select*from QryGach order by MaGach asc" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mItem = lvItem.ListItems.Add(, , rs!MaGach) mItem.SubItems(1) = rs!TenGach mItem.SubItems(2) = rs!DonVitinh mItem.SubItems(3) = rs!MaKichThuoc mItem.SubItems(4) = rs!tenKichThuoc mItem.SubItems(5) = rs!MaLoaiGach mItem.SubItems(6) = rs!tenLoaiGach mItem.SubItems(7) = rs!MaPhamCap mItem.SubItems(8) = rs!tenPhamCap mItem.SubItems(9) = rs!sltrongkho mItem.SubItems(10) = rs!DonGiaNhap mItem.SubItems(11) = rs!DonGiaXuat rs.MoveNext Wend End If Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 132 End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtMa.Enabled = False txtTen.SetFocus txtDvt.Enabled = True txtSoLuong.Enabled = True txtDgNhap.Enabled = True txtDgXuat.Enabled = True End Sub Form Phiếu xuất bán Option Explicit Private flag As String Private Sub cmdClose_Click() Dim sqlDEL As String Unload Me sqlDEL = "DELETE * FROM PXuatBan" cn.Execute sqlDEL End Sub Private Sub cmdDm_Click() frmDmPXBan.Show End Sub Private Sub cmdIn_Click() 'DETT.rsinxuatban.Open 'If DETT.connect1.State = adStateOpen Then ' DETT.rsinxuatban.Close 'End If 'DETT.rsinxuatban.Open Report_PhieuxuatBan.Show End Sub Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B GVHD:TS Trần Thị SongM inh Chuyên đề thực tập tốt nghiệp 133 GVHD:TS Trần Thị SongM inh Private Sub cmdNew_Click() Un_Lock_Text Set_NULL End Sub Private Sub cmdSearch_Click() 'unload me frmTimPXuatBan.Show End Sub Private Sub cmdSkip_Click() Set_NULL Lock_Text End Sub Private Sub cmdthem_Click() If txtMaKh.Text = "" Or txtMaKho = "" Or txtMaNV = "" Then MsgBox "Ban chua nhap du du lieu!" Exit Sub End If frmThemXuatNhap.Show end Sub Private Sub Command1_Click() Dim str As String Dim cmd1 As New ADODB.Command str = "INSERT INTO PXuatBan (MaPXB,ngayxuat,TenNV,TenKhDl,TenKho,Diengiai) VALUES ('" & Trim(txtMa.Text) & "',#" & DTPicker1.Value & "#,'" & Trim(txtTenNV.Text) & "','" & Trim(txtTenKh.Text) & "','" & Trim(txtTenKho.Text) & "','" & Trim(txtDienGiai.Text) & "')" cn.Execute (str) cmd1.ActiveConnection = cn cmd1.CommandText = str 'cmd1.Execute End Sub Private Sub Form_Load() Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 134 GVHD:TS Trần Thị SongM inh Init Lock_Text upXuatflag = False dgrchitiet.Enabled = False DTPicker1.Value = Date End Sub Private Sub txtMa_LostFocus() Dim rsPhieu As New ADODB.Recordset KiemTraOpen rsPhieu ' Mo recordset rsPhieu rsPhieu.Open "SELECT MaPXB FROM XuatBan", cn 'rsPhieu.MoveFirst While Not rsPhieu.EOF If UCase$(Trim(txtMa.Text)) = rsPhieu!MaPXB Then MsgBox "So phieu da ton tai Nhap so phieu khac!", vbOKOnly, "Trung ma phieu" txtMa.Text = "" txtMa.SetFocus Exit Sub End If rsPhieu.MoveNext Wend Set rsPhieu = Nothing txtMa.BackColor = &HFFFFFF txtMa = UCase(Trim(txtMa)) End Sub Private Sub cmdChonKhDl_Click() frmChonKhDl.Show End Sub Private Sub cmdChonkho_Click() frmChonKho.Show End Sub Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 135 GVHD:TS Trần Thị SongM inh Private Sub cmdChonnv_Click() frmChonNhanVien.Show End Sub Private Sub txtMa_GotFocus() txtMa.BackColor = &H80000013 End Sub Private Sub txtMa_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase$(Chr(KeyAscii))) Select Case KeyAscii Case 13 txtDienGiai.SetFocus End Select End Sub Private Sub txtMakh_GotFocus() txtMaKh.BackColor = &H80000013 End Sub Private Sub txtMakh_KeyPress(KeyAscii As Integer) Dim str Dim rs As New ADODB.Recordset Select Case KeyAscii Case 13 str = "select TenKhDl from DmKhDaily where maKhDl='" & txtMaKh & "'" rs.Open str, cn If rs.EOF = False Then txtTenKh = rs!tenKhDl txtMaKh.SetFocus Else frmChonKhDl.Show End If txtMaKho.SetFocus End Select Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 136 GVHD:TS Trần Thị SongM inh End Sub Private Sub txtMaKh_LostFocus() txtMaKh.BackColor = &HFFFFFF End Sub Private Sub txtMaKho_GotFocus() txtMaKho.BackColor = &H80000013 End Sub Private Sub txtMaKho_KeyPress(KeyAscii As Integer) Dim str Dim rs As New ADODB.Recordset Select Case KeyAscii Case 13 str = "select TenKho from DmKho where maKho='" & txtMaKho & "'" rs.Open str, cn If rs.EOF = False Then txtTenKho = rs!tenKho txtMaKho.SetFocus Else frmChonKho.Show End If txtMaNV.SetFocus End Select End Sub Private Sub txtMaKho_LostFocus() txtMaKho.BackColor = &HFFFFFF End Sub Private Sub txtMaNV_GotFocus() txtMaNV.BackColor = &H80000013 End Sub Private Sub txtMaNV_KeyPress(KeyAscii As Integer) Dim str Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 137 GVHD:TS Trần Thị SongM inh Dim rs As New ADODB.Recordset Select Case KeyAscii Case 13 str = "select TenNV from DmNhanVien where maNV='" & txtMaNV & "'" rs.Open str, cn If rs.EOF = False Then txtTenNV = rs!tenNV txtMaNV.SetFocus Else frmChonNhanVien.Show End If cmdthem.SetFocus End Select End Sub Private Sub txtMaNV_LostFocus() txtMaNV.BackColor = &HFFFFFF End Sub Private Sub Set_NULL() txtMa = "" txtDienGiai = "" txtMaKh = "" txtTenKh = "" txtMaKho = "" txtTenKho = "" txtMaNV = "" txtTenNV = "" End Sub Private Sub Lock_Text() txtMa.Enabled = False txtDienGiai.Enabled = False txtMaKh.Enabled = False Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 138 txtTenKh.Enabled = False txtMaKho.Enabled = False txtTenKho.Enabled = False txtMaNV.Enabled = False txtTenNV.Enabled = False cmdChonKhdl.Enabled = False cmdChonKho.Enabled = False cmdChonNV.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True flag = "" End Sub Private Sub Un_Lock_Text() txtMa.Enabled = True txtDienGiai.Enabled = True txtMaKh.Enabled = True txtTenKh.Enabled = True txtMaKho.Enabled = True txtTenKho.Enabled = True txtMaNV.Enabled = True txtTenNV.Enabled = True cmdChonKhdl.Enabled = True cmdChonKho.Enabled = True cmdChonNV.Enabled = True txtMa.SetFocus cmdSkip.Enabled = True cmdNew.Enabled = False End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtMa.Enabled = False Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B GVHD:TS Trần Thị SongM inh Chuyên đề thực tập tốt nghiệp 139 GVHD:TS Trần Thị SongM inh txtDienGiai.SetFocus txtMaKh.Enabled = True txtMaKho.Enabled = True txtMaNV.Enabled = True End Sub Private Sub txtDienGiai_GotFocus() txtDienGiai.BackColor = &H80000013 End Sub Private Sub txtDienGiai_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtMaKh.SetFocus End Select End Sub Private Sub txtDienGiai_LostFocus() txtDienGiai.BackColor = &HFFFFFF txtDienGiai = Trim(txtDienGiai) End Sub Form tìm kiếm nhân viên Option Explicit Public rsTim As New ADODB.Recordset Dim textsql As String Private Sub cmdthoat_Click(Index As Integer) Unload Me End Sub Private Sub Form_Load() 'Init End Sub Private Sub txtTen_Change() Timkiem End Sub Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B Chuyên đề thực tập tốt nghiệp 140 GVHD:TS Trần Thị SongM inh Private Sub txtMa_Change() Timkiem End Sub Private Sub Timkiem() On Error Resume Next textsql = "SELECT Manv,Tennv,ngaysinh,chucvu, phongban, diachi, dienthoai FROM DmNhanvien WHERE" If txtTen.Text "" Then textsql = textsql & " Tennv LIKE '%" & txtTen.Text & "%'" Else If txtMa.Text "" Then textsql = textsql & " Manv LIKE '%" & txtMa.Text & "%'" End If End If KiemTraOpen rsTim rsTim.Open textsql, cn Set dgrchuyen.DataSource = rsTim dgrchuyen.Columns(0).Caption = "Mã nhân viên" dgrchuyen.Columns(1).Caption = "Tên nhân viên" dgrchuyen.Columns(2).Caption = "Ngày sinh" dgrchuyen.Columns(3).Caption = "chức vụ" dgrchuyen.Columns(4).Caption = "phòng ban" dgrchuyen.Columns(5).Caption = "Địa chỉ" dgrchuyen.Columns(6).Caption = "Điên thoại" End Sub Sinh viên Đỗ Thị Hồng Chinh - Tin học 43B ... tông Vật liệu Xây dựng khách hàng công ty muốn xây dựng phần mềm để quản lý việc sản xuất tiêu thụ sản phẩm Công ty Công nghiệp Bê tông Vật liệu Xây dựng công ty chuyên sản xuất vật liệu xây dựng. .. thông tin quản lý tiêu thụ sản phẩm công ty Công nghiệp Bê tông Vật liệu Xây dựng công cụ thực đề tài Chương III: Phân tích thiết kế hệ thống thơng tin quản lý tiêu thụ sản phẩm công ty Công nghiệp. .. mềm tin học quản lý Do đó, tin học hóa hệ thống thông tin quản lý tiêu thụ sản phẩm công ty Công nghiệp Bờ tụngvà Vật liệu Xây dựng nhu cầu tất yếu phát triển 2.1.4 Mục đích xây dựng hệ thống