Đang tải... (xem toàn văn)
Tài liệu tham khảo công nghệ thông tin, chuyên ngành tin học Ứng dụng công nghệ thông tin quản lý cho bán hàng của công ty TNHH Minh Ngọc
MỤC LỤC LỜI MỞ ĐẦU Ngày với phát triển khoa học công nghệ, công nghệ thông tin trở thành phần thiếu lĩnh vực hoạt động đời sống người Đặc biệt nước phát triển tin học đưa vào ứng dụng quản lí từ lâu đóng vai trị quan trọng nghành công nghiệp dịch vụ, Việt Nam điều mẻ tổ chức, doanh nghiệp Trước đây, việc quản lí chủ yếu dựa giấy tờ sổ sách, thực cách thủ công, thời gian, thiếu xác, gây ảnh hưởng tới việc kinh doanh, sản xuất năm gần đây, với bùng nổ công nghệ thông tin, tin học dần thay việc làm thủ công ngày khẳng định vai trị quan trọng Với việc phát triển kinh tế nay, hàng ngày, hàng doanh nghiệp ln phải xử lí khối lượng liệu khổng lồ, không áp dụng phần mềm quản lí khơng thể đưa báo cáo xác kịp thời để hỗ trợ việc đưa định kinh doanh Do vậy, việc đưa tin học hóa vào doanh nghiệp việc làm cần thiết cấp bách doanh nghiệp Việt Nam muốn tồn có chỗ đứng thương trường thời kì mở cửa hội nhập vào kinh tế giới với cạnh tranh liệt từ doanh nghiệp nước CHƯƠNG I: GIỚI THIỆU CHUNG VỀ CÔNG TY TNHH QUỐC TẾ MINH NGỌC I Q TRÌNH THÀNH LẬP CƠNG TY Công ty TNHH quốc tế Minh Ngọc Việt Nam (có tên giao dịch: Vietnam Orient Pearl International Company Limited, tên viết tắt OPEVE) loại công ty TNHH có hai thành viên trở lên Cơng ty thành lập vào ngày 30 tháng năm 2004 theo định 010213097 phịng đăng kí kinh doanh, thuộc sở kế hoạch đầu tư thành phố Hà Nội thức vào hoạt động tư tháng năm 2004 Cơng ty có trụ sở số 75 Lương Định Của, phường Phương Mai, Quận Đống Đa thành phố Hà Nội II CƠ CẤU TỔ CHỨC Cơ cấu nhân sự: - Giám đốc: Ông Đinh Anh Hào - Phó giám đốc kinh doanh: Bà Trần Minh Ngọc - Phó giám đốc kĩ thuật: Ơng Nguyễn Hồng Khanh - Trưởng phịng tài chính: Bà Trần Thị Tuyết Mai - Trưởng phịng kinh doanh: Ơng Phạm Tiến Sơn - Trưởng phịng vật tư: Ơng Đơng Dược Thảo - Trưởng phịng kĩ thuật: Ông Mai Văn Tiến Cơ cấu phịng ban Ban giám đốc Phó giám đốc kinh doanh Phịng tài Phó giám đốc kĩ thuật Phịng kinh doanh Phòng vật tư Phòng kĩ thuật a Ban giám đốc: Bao gồm: Một giám đốc hai phó giám đốc (phó giám đốc kinh doanh phó giám đốc kĩ thuật) thực chức sau: - Nghiên cứu đề chiến lược cho việc phát triển kinh doanh công ty, lập kế hoạch kinh doanh cho chu kì, thời kì hoạt động - Điều hành kiểm tra trực tiếp hoạt động cấp - Trực tiếp xây dựng qui định, chế độ, sách chung cơng ty tổ chức nhân sự, lương, tài kế tốn Bên cạnh phó giám đốc người trực tiếp giúp giám đốc điều hành công ty giám đốc phân công trách nhiệm số lĩnh vực cụ thể - Phó giám đốc kinh doanh chịu trách nhiệm tình hình kinh doanh cơng ty Dưới đạo giám đốc phó giám đốc giao nhiệm vụ cho cấp quyền đồng thời thu thập, tổng hợp thông tin để từ ban giám đốc lập kế hoạch kinh doanh thời gian tới - Phó giám đốc kĩ thuật chịu trách kĩ thuật công ty, người trực tiếp lập kế hoạch kiểm tra, bảo trì sản phẩm, tìm hiểu thơng tin chức kĩ thuật mặt hàng chuẩn bị nhập báo cáo lên ban giám đốc b Phòng tài Bao gồm: Trưởng phịng tài kiêm kế tốn trưởng, thủ quĩ nhân viên có nhiệm vụ thống kê sổ sách, báo cáo tình hình tài lên ban giám đốc, tổng hợp tình hình hoạt động tài chu kì kinh doanh giúp ban giám đốc đưa sách lược thời gian tới c Phòng kinh doanh: Bao gồm: Trưởng phịng kinh doanh, phó phịng kinh doanh bốn nhân viên thực chức sau: - Khai thác thị trường: phịng kinh doanh ngồi việc phát triển thị trường nước, họ cịn cần tìm hiểu thị trường nước ngồi để mở rộng phạm vi kinh doanh Tìm mặt hàng mà nước cần, hay giới thiệu sản phẩm cơng ty nước giới - Bán hàng: phận bán hàng nhân viên phụ trách, có nhiệm vụ giới thiệu tính sản phẩm đến khách hàng giúp họ đưa lựa chọn đắn, phù hợp với nhu cầu - Dự án: ban giám đốc đưa xuống cho phòng kinh doanh, trưởng phòng người trực tiếp tiếp nhận giao nhiệm vụ xuống cho cấp dưới, họ có trách nhiệm tìm hiểu dự án mà cơng ty tham gia, từ lập kế hoạch để giành lợi việc dự thầu - Xuất nhập khẩu: phòng kinh doanh có trách nhiệm trực tiếp làm giấy tờ xuất nhập cho lô hàng mà công ty nhập nước hay xuất nước theo cam kết hợp đồng kí với khách hàng Tất hoạt động phòng kinh doanh trưởng phòng kinh doanh trực tiếp báo cáo lên ban giám đốc để từ nhận thị để lập kế hoạch kinh doanh cho phòng thời gian tới d Phòng vật tư: Bao gồm: Trưởng phòng vật tư nhân viên quản lí kho trực tiếp quản lí kho hàng, dán tem cho sản phẩm Để đảm bảo quản lí kho cách chặt chẽ lần nhập hàng hay xuất hàng phịng vật tư có trách nhiệm kiểm tra sản phẩm, đánh giá chất lượng, kiểm kê số lượng cho phù hợp với kế hoạch kinh doanh cơng ty e Phịng kĩ thuật: Bao gồm: Trưởng phịng kĩ thuật, phó phịng kĩ thuật nhân viên thực chức sau: - Kiểm tra sản phẩm sản phẩm mà công ty chuẩn bị nhập vào - Trực tiếp thực nghĩa vụ sau bán hàng theo hợp đồng kí với khách hàng: lắp đặt, hướng dẫn sử dụng, cung cấp tài liệu kĩ thuật có liên quan đến thiêt bị bàn giao, bảo hành III TÌNH HÌNH HOẠT ĐỘNG KINH DOANH Các nghành nghề kinh doanh chủ yếu: - Xây lắp điện dân dụng, công nghiệp, nông nghiệp, giao thông thủy lợi, san lấp mặt hạ tầng sở - Sản xuất, bn bán trang thiết bị y tế, máy móc, thiết bị phục vụ ngành y tế, mỹ phẩm, văn phòng phẩm, vật liệu xây dựng - Nghiên cứu thị trường - Vận tải hàng hóa, vận chuyển hành khách - Dịch vụ Makerting - Dịch vụ cho thuê xe ôtô, nhà, văn phịng - Dịch vụ mơ giới kinh doanh bất động sản - Sản xuất, buôn bán phần mềm, phần cứng máy vi tinh, linh phụ kiện máy vi tính - Bn bán thiết bị điện, điện tử, điện lạnh - Cho thuê thiết bị công ty kinh doanh Trong năm gần đây, công ty TNHH quốc tế Minh Ngọc hoạt động chủ yếu lĩnh vực trang thiết bị y tế, cung cấp sản phẩm y tế cho bệnh viện, phòng khám lớn nhỏ nước Kinh nghiệm hoạt động: Công ty TNHH quốc tế Minh Ngọc bắt đầu kinh doanh lĩnh vực trang thiết bị y tế từ cuối năm 2004 Danh mục sản phẩm thiết bị y tế công ty cung cấp vào thị trường Việt Nam đa dạng, bao gồm thiết bị đại, chất lượng đảm bảo, sản xuất nước phát triển với nên y học phát triển vượt bậc trình độ khoa học cơng nghệ cao Bên cạnh mặt hàng thiết bị y tế, danh mục sản phẩm kinh doanh cơng ty cịn bao gồm thiết bị đặc chủng, thiết bị thí nghiệm, xét nghiệm Công ty liên tục giành hợp đồng cung cấp thiết bị y tế quan trọng cho đơn vị nghành y tế Q năm 2005, cơng ty mở rộng danh mục kinh doanh trang thiết bị y tế với mặt hàng nẹp vít xương thần kinh Đối tác cơng ty nhà sản xuất BK Meditech (Hàn Quốc), doanh nghiệp lớn có uy tín thị trường chỉnh hình Chúng tơi nhà cung cấp sản phẩm hãng vào thị trường Việt Nam Khách hàng công ty bệnh viện lớn: Bệnh viện quân y 108, bệnh viện Bạch mai,…và bệnh viện khác thuộc địa bàn phía bắc Một số sản phẩm công ty: a Túi y tế thơn bản: - Kẹp Korcher thẳng 160mm có mấu khóa hãm - Kẹp cong 160mm có mấu khóa hãm - Kẹp phẫu tích 160mm - kẹp thẳng 160mm có đầu tù - y nhiệt kế 42 độ C - thước dây nhựa 2m - đè lưỡi loại vô trùng - bơm tiêm nhựa loại 5ml - kim tiêm cho bơm tiêm 5ml - bơm tiêm nhựa loại 10ml - kim tiêm cho bơm tiêm 10ml - đèn pin + pin đại 1,5V-A - Bông y tế - băng vết thương y tế - lam kích (hộp 72 chiếc) - Kim chích máu (vơ trùng) - bút viết kính - Hộp nhơm đựng dụng cụ (22cm x 10cm x 5cm) - túi giả da y tế đựng dụng cụ - cồn y tế b Máy phá rung tim: POWER HEART AED (Cardiac Sience-Mỹ) - hệ thống máy POWER HEART AED 3G - điện cực khử rung tim - Túi đeo - tài liệu hướng dẫn sử dụng c Máy truyền dịch tự động: TOP 3300 (Nhật Bản) - thân máy - giá treo máy - treo máy (Inox-SX Việt Nam) d Bơm tiêm tự động: TOP 5300 (Nhật Bản) - sử dụng nhiều loại bơm tiêm khách - lưư trữ lần cài đặt trước để sử dụng cho lần cài đặt sau mà không cần cài đặt lại - sử dụng nguồn điện DC xe cứu thương e Máy đo điện tâm đồ: P80 ESAOTE.a Iso9001, EN 46001 (Ý) - đo 12 kênh đồng thời - in kênh khổ giấy 80mm - máy in có độ phân giải cao - tốc độ in 5/25/50mm/giây - bàn phím bọc cao su - lựa chọn ngôn ngữ Anh, Nga, Pháp - Sử dụng nguồn điện 230V 50/60HZ - pin sạc sử dụng (2h liên tục) f Hệ thống chụp X-Quang CORNAD (sản xuất Mỹ) - Máy phát tia cao tần HF: + Kiểm sốt vi xử lí, quản lí thơng số chụp xác đáng tin cậy + độ tuyến tính cao khơng ripple, dịng bóng phát tia 300-400mA + bảng điều khiển phẳng dễ sử dụng + hoạt động với lựa chọn thông số Generator (kVp, mA, thời gian) với lựa chọn mÁ + dải chọn thời gian chiếu rộng, dễ dàng linh hoạt lựa chọn thông số + Mode chuẩn tự động chụp nhanh giảm thời gian xử lí tiến hành chụp + giảm liều lượng tia chiếu tới bệnh nhân - Bàn chụp X-Quang: + Cấu trúc chịu tải trọng lớn + bàn dịch chuyển theo bốn hướng có khóa từ + khoang chứa Grid, khay Inox - Giá đỡ đèn đầu: + khóa điện cho dịch chuyển lên xuống + tube quay 360 độ có khóa điện + hoạt động gây ồn nhờ hệ thống nâng đỡ thiết kế đặc biệt + hoàn toàn đối trọng, hệ thống dây đơi đảm bảo an tồn + trực chuẩn chùm tia bảo đảm dễ địng vị + Collimator điều khiển tay - Bóng phát tia X-Quang - Giá chụp phổi: + dịch chuyển lên xuống dọc theo cột + khoang chứa Grid với khay Inox g Máy rửa phim tự động Hãng sản xuất: ELK Corporation (Nhật Bản) - Hệ thống tự ngắt cho phép vận hành an tồn: mạch bị hở q trình vận hành, thiết bị tự động ngắt kèm theo đèn báo động - Vận hành đơn giản nhanh chóng: chế độ rửa: 90/110/115s, vận hành phím bấm - Chế độ chờ tiết kiệm lượng, không ô nhiễm môi trường: Ở chế độ chờ, cuộn quay làm bề mặt theo chu trình, giữ nhiệt độ máy mức thấp, tránh bay nước khí, điều chỉnh nhiệt độ sấy, tránh tình trạng tăng nhiệt cao - Cấu tạo đơn giản, bảo trì dễ dàng: Cấu tạo đơn giản máy cho phép người sử dụng tháo lắp nhanh chóng, vệ sinh, bảo trì máy ngày - Cấu tạo kèm chức lưu thơng khơng khí, an tồn sử dụng: Chức lưu thơng khơng khí máy ngăn ngừa tình trạng nghẽn phim oxi hóa máy - Cho phép tráng rửa phim laser h Máy phân tích sinh hóa hồn hảo với cấu hình cực mạnh - Đứng đầu lĩnh vực sinh hóa đa kết - 400 test/hour, bao gồm ISE 10 Cùng với phát triển công nghệ thông tin, tin học ngày áp dụng rộng rãi vào đời sống thực tế ngày trở nên thiếu trình phát triển xã hội nói chung cơng ty nói riêng Đối với cán quản lí hệ thống thơng tin hồn thiện bán hàng giúp họ lập kế hoạch đưa định quản lí tối ưu với chiến lược quản lí kinh doanh tìm kiếm khách hàng, đối tác tiềm hiệu Từ thúc đẩy hoạt động sản xuất kinh doanh cơng ty Chương trình xây dựng hồn tồn hướng mở nhằm hoàn thiện nâng cấp tương lai Tuy nhiên chưa phải chương trình hồn chỉnh cịn có hạn chế mặt thực tế, kinh nghiệm kiến thức Vì vậy, em mong đóng góp ý kiến thầy bạn Một số đoạn mã chương trình: 74 Private Sub cmdin_Click() If DataEnvironment2.rskhachhang.State = Then DataEnvironment2.rskhachhang.Open End If DataEnvironment2.rskhachhang.Requery R_DMKH.Show 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 Đăng nhập Private Sub cmdin_Click() 75 If DataEnvironment2.rskhachhang.State = Then DataEnvironment2.rskhachhang.Open End If DataEnvironment2.rskhachhang.Requery R_DMKH.Show 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 Đổi mật Private Sub cmddongy_Click() Dim rs As New ADODB.Recordset Dim str 76 str = "update nguoidung set matkhau= '" & Trim(txtmatkhaumoi) & "' where tennguoidung= '" & (txttendangnhap) & "'" cn.Execute (str) txttendangnhap.Text = "" txtmatkhaucu.Text = "" txtmatkhaumoi.Text = "" End Sub Private Sub cmdthoat_click() Unload Me End Sub Private Sub txttendangnhap_Gotfocus() txttendangnhap.BackColor = &HC0E0FF End Sub Private Sub txttendangnhap_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtmatkhaucu.SetFocus End Select End Sub Private Sub txttendangnhap_LostFocus() txttendangnhap.BackColor = &HFFFFFF End Sub Private Sub txtmatkhaucu_Gotfocus() txtmatkhaucu.BackColor = &HC0E0FF End Sub Private Sub txtmatkhaucu_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtmatkhaumoi.SetFocus End Select End Sub Private Sub txtmatkhaucu_LostFocus() txtmatkhaucu.BackColor = &HFFFFFF End Sub Private Sub txtmatkhaumoi_Gotfocus() txtmatkhaucu.BackColor = &HC0E0FF End Sub Private Sub txtmatkhaumoi_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmddongy.SetFocus End Select 77 End Sub Private Sub txtmatkhaumoi_LostFocus() txtmatkhaumoi.BackColor = &HFFFFFF End Sub Private Sub Form_Load() 'open_mdb End Sub Tìm kiếm đơn hàng Private Sub in_Click() Dim str If optsodon.Value = True Then str = "shape {select donhang.sodon,donhang.ngay,donhang.loaihang,donhang.soluong,donhang makh,dmkh.tenkh,dmkh.makh,dmkh.tendt from donhang,dmkh where donhang.makh=dmkh.makh and donhang.sodon='" & Trim(Text3.Text) & "' } as DT append " & _ "({select chitietdon.*,dmHangHoa.tenhang from dmhanghoa,chitietdon where chitietdon.mahang=dmhanghoa.mahang} as CTD relate sodon to sodon) as CTD" DataEnvironment2.Commands(5).CommandText = str If DataEnvironment2.rsDTUONG.State = Then DataEnvironment2.rsDTUONG.Open End If DataEnvironment2.rsDTUONG.Requery R_DONHANG.Show End If If optbn.Value = True Then str = "shape {select donhang.sodon,donhang.ngay,donhang.loaihang,donhang.soluong,donhang makh,dmkh.tenkh,dmkh.makh,dmkh.tendt from donhang,dmkh where donhang.makh=dmkh.makh and donhang.sodon='" & Trim(Text3.Text) & "'} as DT append " & _ "({select chitietdon.*,dmhanghoa.tenhang from dmhanghoa,chitietdon where chitietdon.mahang=dmhanghoa.mahang} as CTD relate sodon to sodon) as CTD" DataEnvironment1.Commands(5).CommandText = str If DataEnvironment1.rsDTUONG.State = Then DataEnvironment1.rsDTUONG.Open End If DataEnvironment1.rsDT.Requery 78 R_DONHANG.Show End If End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Text3 = Item.Text End Sub Private Sub tim_Click() If optsodon.Value = True Then If Text1 = "" Then MsgBox "Phai nhap so don truoc tim kiem", vbOKOnly + vbExclamation, "Thong bao" Else display_listview End If End If If optbn.Value = True Then If Text2 = "" Then MsgBox "Phai nhap ten hang truoc tim kiem", vbOKOnly + vbExclamation, "Thong bao" Else display_listview End If End If End Sub Private Sub display_listview() Dim strr Dim rr As ADODB.Recordset Set rr = New ADODB.Recordset Dim mm As ListItem ListView1.ListItems.Clear If optsodon.Value = True Then strr = "SELECT donhang.sodon,donhang.ngay,dmkh.tenkh FROM DMKH INNER JOIN DonHang ON DMKH.MaKH = DonHang.MaKH where donhang.sodon like '%" & Trim(Text1.Text) & "%'" End If If optbn.Value = True Then strr = "SELECT donhang.sodon,donhang.ngay,dmkh.tenkh FROM DMKH INNER JOIN DonHang ON DMKH.MaKH = DonHang.MaKH where dmkh.tenkh like '%" & Trim(Text2.Text) & "%'" End If 79 rr.Open strr, cn, adOpenKeyset, adLockOptimistic, adCmdText If rr.EOF Then MsgBox "KHONG TIM THAY GIA TRI THOA MAN!.", vbOKCancel + vbExclamation, "Thong bao" Exit Sub Else While Not rr.EOF Set mm = ListView1.ListItems.Add(, , rr!sodon) mm.SubItems(1) = rr!tenkh mm.SubItems(2) = rr!ngay rr.MoveNext Wend End If rr.Close End Sub Private Sub Form_Load() 'open_mdb Text1.Enabled = True Text2.Enabled = False End Sub Private Sub optsodon_Click() If optsodon.Value = True Then Text2.Enabled = False Text1.Enabled = True End If End Sub Private Sub optbn_Click() If optbn.Value = True Then Text1.Enabled = False Text2.Enabled = True End If End Sub Private Sub Text1_GotFocus() Text1.BackColor = &HC0E0FF End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 80 Select Case KeyAscii Case 13 Tim.SetFocus End Select End Sub Private Sub Text1_LostFocus() Text1.BackColor = &HFFFFFF Text1 = Trim(Text1) End Sub Private Sub Text2_GotFocus() Text2.BackColor = &HC0E0FF End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Tim.SetFocus End Select End Sub Private Sub Text2_LostFocus() Text2.BackColor = &HFFFFFF Text2 = Trim(Text2) End Sub Private Sub thoat_Click() Unload Me End Sub Tìm kiếm phiếu nhập Private Sub in_Click() If otpsopn.Value = True Then Dim str str = "shape {select phieunhap.sopn,phieunhap.ngay,phieunhap.manhacc,phieunhap.nguoinhan, dmncc.tenncc,dmncc.manhacc,dmncc.diachi,dmncc.dienthoai from phieunhap,dmncc where phieunhap.manhacc=dmncc.manhacc and phieunhap.sopn='" & Trim(Text3.Text) & "' } as PN append " & _ 81 "({select phieunhapct.*,dmHangHoa.tenhang,phieunhapct.soluong*phieunhapct.don gia as ttien from dmHangHoa,phieunhapct where phieunhapct.mahang=dmHangHoa.mahang} as PNCT relate sopn to sopn) as PNCT" DataEnvironment2.Commands(4).CommandText = str If DataEnvironment2.rsPN.State = Then DataEnvironment2.rsPN.Open End If DataEnvironment2.rsPN.Requery R_PN.Show End If If otpncc.Value = True Then str = "shape {select phieunhap.sopn,phieunhap.ngay,phieunhap.manhacc,phieunhap.nguoinhan, dmncc.tenncc,dmncc.manhacc,dmncc.diachi,dmncc.dienthoai from phieunhap,dmncc where phieunhap.manhacc=dmncc.manhacc and phieunhap.sopn='" & Trim(Text3.Text) & "' } as PN append " & _ "({select phieunhapct.*,dmHangHoa.tenhang,phieunhapct.soluong*phieunhapct.don gia as ttien from dmHangHoa,phieunhapct where phieunhapct.mahang=dmHangHoa.mahang} as PNCT relate sopn to sopn) as PNCT" 'str = "shape {select phieunhap.sopn,phieunhap.ngay,phieunhap.manhacc,phieunhap.nguoinhan, dmncc.tenncc,dmncc.manhacc,dmncc.diachi,dmncc.dienthoai from phieunhap,dmncc where phieunhap.manhacc=dmncc.manhacc and phieunhap.sopn=ma } as PN append " & _ '"({select phieunhapct.*,dmthuoc.tenthuoc,phieunhapct.soluong*phieunhapct.dongia as ttien from dmthuoc,phieunhapct where phieunhapct.mathuoc=dmthuoc.mathuoc} as PNCT relate sopn to sopn) as PNCT" DataEnvironment2.Commands(4).CommandText = str If DataEnvironment2.rsPN.State = Then DataEnvironment2.rsPN.Open End If DataEnvironment2.rsPN.Requery R_PN.Show End If End Sub 82 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Text3 = Item.Text End Sub Private Sub tim_Click() If otpsopn.Value = True Then If Text1 = "" Then MsgBox "Phai nhap so phieu truoc tim kiem", vbOKOnly + vbExclamation, "Thong bao" Else display_listview End If End If If otpncc.Value = True Then If Text2 = "" Then MsgBox "Phai nhap ten thuoc truoc tim kiem", vbOKOnly + vbExclamation, "Thong bao" Else display_listview End If End If End Sub Private Sub display_listview() Dim strr Dim rr As ADODB.Recordset Set rr = New ADODB.Recordset Dim mm As ListItem ListView1.ListItems.Clear If otpsopn.Value = True Then strr = "SELECT phieunhap.sopn,phieunhap.ngay,dmncc.tenncc FROM DMNCC INNER JOIN PhieuNhap ON DMNCC.MaNhaCC = PhieuNhap.MaNhaCC where phieunhap.sopn like '%" & Trim(Text1.Text) & "%'" End If If otpncc.Value = True Then strr = "SELECT phieunhap.sopn,phieunhap.ngay,dmncc.tenncc FROM DMNCC INNER JOIN PhieuNhap ON DMNCC.MaNhaCC = PhieuNhap.MaNhaCC where dmncc.tenncc like '%" & Trim(Text2.Text) & "%'" End If rr.Open strr, cn, adOpenKeyset, adLockOptimistic, adCmdText If rr.EOF Then 83 MsgBox "KHONG TIM THAY GIA TRI THOA MAN!.", vbOKCancel + vbExclamation, "Thong bao" Exit Sub Else While Not rr.EOF Set mm = ListView1.ListItems.Add(, , rr!sopn) mm.SubItems(1) = rr!ngay mm.SubItems(2) = rr!tenncc rr.MoveNext Wend End If rr.Close End Sub Private Sub Form_Load() 'open_mdb Text1.Enabled = True Text2.Enabled = False End Sub Private Sub otpsopn_Click() If otpsopn.Value = True Then Text2.Enabled = False Text1.Enabled = True End If End Sub Private Sub otpncc_Click() If otpncc.Value = True Then Text1.Enabled = False Text2.Enabled = True End If End Sub Private Sub Text1_GotFocus() Text1.BackColor = &HC0E0FF End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 84 Tim.SetFocus End Select End Sub Private Sub Text1_LostFocus() Text1.BackColor = &HFFFFFF Text1 = Trim(Text1) End Sub Private Sub Text2_GotFocus() Text2.BackColor = &HC0E0FF End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Tim.SetFocus End Select End Sub Private Sub Text2_LostFocus() Text2.BackColor = &HFFFFFF Text2 = Trim(Text2) End Sub Private Sub thoat_Click() Unload Me End Sub TÀI LIỆU THAM KHẢO 85 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ê Hà Nội Giáo trình sở liệu - THS.Trần Công Uẩn, NXB Thống kê Giáo trình cấu trúc liệu giải thuật – PGS.TS.Hàn Viết Thuận, NXB Thống kê Microsoft visual Basic 6.0 & lập trình sở liệu – Nguyễn Thị Ngọc Mai, NXB Lao động xã hội Cộng hòa xã hội chủ nghĩa Việt Nam Độc lập - Tự - Hạnh phúc 86 *-*-* GIẤY XÁC NHẬN Công ty TNHH quốc tế Minh Ngọc xác nhận: Sinh viên: Trần Ngọc Kiên Lớp: Tin 46A Khoa: Tin học kinh tế Trường: Đại học Kinh tế quốc dân Đã hoàn thành thực tập tốt nghiệp công ty TNHH quốc tế Minh Ngọc từ ngày 01/01/2008 đến ngày 28/04/2008 Hà Nội, ngày tháng năm Đại diện công ty 87 ... PHÂN TÍCH VÀ THIẾT KẾ PHẦN MỀM QUẢN LÍ BÁN HÀNG CHO CƠNG TY TNHH MINH NGỌC I BÀI TỐN ĐẶT RA ĐỐI VỚI VIỆC QUẢN LÍ BÁN HÀNG TẠI CƠNG TY TNHH MINH NGỌC Cơng ty TNHH Minh Ngọc hoạt động kinh doanh chủ... mại Quản lí nhân lực Quản lí bán hàng Quản lí kho hàng Trên sở phác thảo thứ nhất, tiếp tục phân rã thành khối chi tiết 23 Phác thảo 2: Quản lí bán hàng Quản lí theo quầy Quản lí theo mặt hàng. .. học công nghệ, công nghệ thông tin trở thành phần thiếu lĩnh vực hoạt động đời sống người Đặc biệt nước phát triển tin học đưa vào ứng dụng quản lí từ lâu đóng vai trị quan trọng nghành công
