Đang tải... (xem toàn văn)
Ngày nay với việc phát triển cao công nghệ khoa học kỹ thuật được áp dụng cho đời sống. Công nghệ thông tin là một trong những ngành khoa học đó. Đi đôi với việc phát triển của công nghệ chế tạo các thiết bị máy tính thì việc các phần mềm ứng dụng ra đời có tính chất quyết định đối với việc hoạt động kinh doanh của các công ty. Trong một công ty sản xuất, kinh doanh thì việc giao dịch với nhà cung cấp là điều không tránh khỏi, và công ty càng lớn thì các mối giao dịch càng nhiều, không những là nhà cung cấp trong nước mà trong tiến trình hội nhập kinh tế như hiện nay thì việc giao dịch với các nhà cung cấp nước ngoài cũng quan trọng, để tiếp thu ngành khoa học công nghệ hiện đại từ nước ngoài. Vấn đề đặt ra là làm sao để theo dõi và quản lý tốt các nhà cung cấp của công ty. Thử hình dung xem nếu việc quản lý này được tiến hành một cách thủ công thì mỗi lần cần thông tin về một nhà cung cấp nào đó ta lại phải lục tìm trong một đống hồ sơ, và việc này sẽ rất mất thời gian khi đống hồ sơ này sẽ càng ngày càng nhiều thêm. Không chỉ như vậy trong các giao dịch với các nhà cung cấp sẽ có những vấn đề nảy sinh, khi đó đòi hỏi những cán bộ phải cập nhật những phát sinh mới này vào hồ sơ để theo dõi và giải quyết, và nếu làm thủ công thì việc giao dịch một lúc với nhiều nhàcung cấp là một điều không thể. Điều trên là một bất lợi đối với bất kỳ một công ty nào hoạt động trong lĩnh vực sản xuất, kinh doanh đặc biệt là trong thời kỳ kinh tế thị trường với sự cạnh tranh gay gắt. Tương tự như vậy việc hoạt động có hiệu quả đối với Tổng công ty Công Nghiệp tàu thuỷ Việt Nam, thì việc quản lý nhà cung cấp để làm sao có hiệu quả và giúp đỡ nhà quản lý nắm được thông tin mà họ muốn quản lý một cách chính xác và tốn ít thời gian nhất, không có cách nào khác ngoài việc áp dụng công nghệ thông tin vào việc quản lý. Trước yêu cầu thực tế của công ty và với những mong muốn được áp dụng những kiến thức về công nghệ thông tin đã được học ở trường, em đã chọn đề tài “ Xây dựng chương trình quản lý nhà cung cấp tại tổng công ty Công Nghiệp Tàu thuỷ Việt Nam ” Với đề tài này sẽ có cấu trúc như sau : Lời nói đầu Chương I : Tổng quan về tổng công ty Công nghiệp tàu thuỷ Việt Nam Chương II : Cơ sở phương pháp luận trong việc nghiên cứu đề tài Chương III : Thiết kế chương trình quản lý nhà cung cấp tại Tổng Công ty công nghiệp Tàu thuỷ Việt Nam Phần Kết Luận Mặc dù rất cố gắng để hoàn thành công việc, song thời gian có hạn và kinh nghiệm kiến thức còn hạn chế nên đề tài này còn có nhiều thiếu sót. Em rất mong nhận được đóng góp của thầy cô và bạn bè để đề tài ngày càng hoàn thiện hơn. Em xin chân thành cảm ơn các thầy cô giáo trong khoa, các anh chị nơi thực tập và các bạn bè đã giúp em hoàn thành đề tài này, và đặc biệt là thầy giáo Ths. Trần Công Uẩn đã tận tình chỉ bảo em để hoàn thành chương trình này.
1 Lời nói đầu Ngày với việc phát triển cao công nghệ khoa học kỹ thuật đợc áp dụng cho đời sống Công nghệ thông tin ngành khoa học Đi đôi với việc phát triển công nghệ chế tạo thiết bị máy tính việc phần mềm ứng dụng đời có tính chất định việc hoạt động kinh doanh công ty Trong công ty sản xuất, kinh doanh việc giao dịch với nhà cung cấp điều không tránh khỏi, công ty lớn mối giao dịch nhiều, nhà cung cấp nớc mà tiến trình hội nhập kinh tế nh việc giao dịch với nhà cung cấp nớc quan trọng, để tiếp thu ngành khoa học công nghệ đại từ nớc Vấn đề đặt để theo dõi quản lý tốt nhà cung cấp công ty Thử hình dung xem việc quản lý đợc tiến hành cách thủ công lần cần thông tin nhà cung cấp ta lại phải lục tìm đống hồ sơ, việc thời gian đống hồ sơ ngày nhiều thêm Không nh giao dịch với nhà cung cấp có vấn đề nảy sinh, đòi hỏi cán phải cập nhật phát sinh vào hồ sơ để theo dõi giải quyết, làm thủ công việc giao dịch lúc với nhiều nhàcung cấp điều Điều bất lợi công ty hoạt động lĩnh vực sản xuất, kinh doanh đặc biệt thời kỳ kinh tế thị trờng với cạnh tranh gay gắt Tơng tự nh việc hoạt động có hiệu Tổng công ty Công Nghiệp tàu thuỷ Việt Nam, việc quản lý nhà cung cấp để có hiệu giúp đỡ nhà quản lý nắm đợc thông tin mà họ muốn quản lý cách xác tốn thời gian nhất, cách khác việc áp dụng công nghệ thông tin vào việc quản lý Trớc yêu cầu thực tế công ty với mong muốn đợc áp dụng kiến thức công nghệ thông tin đợc học trờng, em chọn đề tài Xây dựng chơng trình quản lý nhà cung cấp tổng công ty Công Nghiệp Tàu thuỷ Việt Nam Với đề tài có cấu trúc nh sau : Lời nói đầu Chơng I : Tổng quan tổng công ty Công nghiệp tàu thuỷ Việt Nam Chơng II : Cơ sở phơng pháp luận việc nghiên cứu đề tài Chơng III : Thiết kế chơng trình quản lý nhà cung cấp Tổng Công ty công nghiệp Tàu thuỷ Việt Nam Phần Kết Luận Mặc dù cố gắng để hoàn thành công việc, song thời gian có hạn kinh nghiệm kiến thức hạn chế nên đề tài có nhiều thiếu sót Em mong nhận đợc đóng góp thầy cô bạn bè để đề tài ngày hoàn thiện Em xin chân thành cảm ơn thầy cô giáo khoa, anh chị nơi thực tập bạn bè giúp em hoàn thành đề tài này, đặc biệt thầy giáo Ths Trần Công Uẩn tận tình bảo em để hoàn thành chơng trình CHƯƠNG I TổNG QUAN Về TổNG CÔNG TY CÔNG NGHIệP TàU THUỷ VIệT NAM ( VINASHIN ) I giới thiệu tổng công ty Quá trình hình thành phát triển Tổng Công Ty Công nghiệp tàu thuỷ Việt Nam (VietNam Shipbuilding Industry Corporation ) (Vinashin) 17 tổng công ty lớn nhà nớc đợc thành lập theo Quyết định số No 69/TTg Thủ tớng Chính phủ ban hành ngày 31/1/1996 sở tổ chức lại ngành công nghiệp tàu thủy Việt Nam - ngành có truyền thống lâu đời Việt Nam Trải qua chặng đờng xây dựng phát triển cha phải dài, song tổng công ty đạt đợc kết đáng khích lệ: Duy trì đợc tốc độ tăng trởng cao, đổi thiết bị công nghệ, tăng lực đóng sửa tàu, tạo bớc chuyển biến mạnh mẽ hiệu lực cạnh tranh để tiếp tục vơn lên mở rộng thị phần nớc khu vực Tổng sản lợng tăng nhanh, doanh thu năm sau cao năm trớc, năm 2002 toàn tổng công ty đạt 3251 tỷ đồng tăng 93% so với năm 2001 Tổng giá trị xuất thực năm 2002 đạt giá trị 51,1 triệu USD 216% so với năm 2001 Doanh thu sửa chữa tàu nớc năm 2002 nhà máy đạt khoảng 2,7 triệu USD Bên cạnh tăng trởng nhanh chóng tổng sản lợng, doanh thu , mặt hàng sản phẩm công ty khẳng định vị trí thơng trờng Tổng Công Ty Công nghiệp tàu thuỷ Việt Nam có 40 đơn vị thành viên, gồm 29 đơn vị hạch toán độc lập, đơn vị hạch toán phụ thuộc, đơn vị liên doanh, gần 13.000 cán công nhân viên, có liên doanh HYUNDAI-VINASHIN lớn với vốn đầu t gần 160 triệu USD; có lực vào vụ sửa chữa cho loại tàu đến 40.000 DWT Các đơn vị thành viên Vinashin nằm khắp đất nớc trải dài từ Bắc vào Nam Để xúc tiến mở rộng thị trờng Vinashin có quan đại diện nớc Đức, Hà Lan, Ba Lan, úc, Irắc Mỹ Vinashin đóng cần cẩu 600T, sà lan nâng hạ 2.000T, tàu hút bùn 1500m3/ h xuất cho Irăc, tàu vận tải quân cho Bộ Quốc phòng, tàu khách tốc độ cao 200 chỗ, tàu nghiên cứu biển, tàu dầu 3.500T, tàu chở khí hoá lỏng 2.500T, tàu hàng khô 6.500DWT, ụ 8.500T tàu tuần tra cho Hải Quan v v Trên sở nhu cầu thị trờng phù hợp với kế hoạch phát triển đợc cấp có thẩm quyền phê duyệt, Vinashin tích cực đầu t nâng cấp nhà máy có để khởi công 2002 đóng tàu lớn nh tàu hàng 12.000DWT, tàu chở dầu sản phẩm 13.500DWT, tàu chở dầu thô 100.000T, tàu Container 1016TEU tàu hút bùn 1500m3/h Với sở vật chất đội ngũ kỹ s công nhân kỹ thuật bậc cao Vinashin cung cấp cho khách hàng nớc sản phẩm đóng sửa chữa với tính kỹ thuật chất lợng cao Sản phẩm công ty phần đáp ứng đợc nhu cầu ngành kinh tế nớc xuất - Sự tăng trởng Vinashin hàng năm đạt xấp xỉ 30% - Mục tiêu phát triển Vinashin đến năm 2005 đợc xác định Vinashin xây dựng trung tâm đóng tàu lớn miền Bắc, miền Trung miền Nam - Đến năm 2005 công nghiệp tàu thuỷ Vinashin thông qua hình thức liên doanh hợp tác với nớc đóng tàu có trọng tải đến 80.000T sửa chữa tàu có trọng tải đến 400.000T, sản xuất thép đóng tàu, loại máy thủy, thiết bị, phụ tùng phục vụ cho công nghiệp tàu thuỷ.v v - Sau năm 2005, Vinashin tiếp tục phát triển sở vật chất kỹ thuật mình, nâng cao lực nhà máy để đóng đợc loại tàu có kỹ thuật cao phục vụ ngành dầu khí Quốc phòng, sản xuất, lắp ráp thiết bị thuỷ, gia tăng tỉ lệ nội địa hoá vật t thiết bị phục vụ đóng sửa chữa tàu cho khách hàng nớc - Đến năm 2010 , Việt Nam trở thành quốc gia có công nghiệp đóng tàu ngang với nớc khu vực Tỷ lệ nội địa hoá sản phẩm tàu thuỷ đạt tới 60-70% sản phẩm, góp phần có hiệu cao vào chơng trình cải thiện, nâng cao kim nghạch xuất đất nớc, tạo động lực phát triển cho ngành kinh tế khác Chức nhiệm vụ Thành lập ngày 23-8-2000 theo định 197 CĐ/TCCB-LĐ Hội đồng Quản trị Tổng công ty công nghiệp tàu thuỷ Việt Nam, Công ty vận tải dịch vụ hàng hải đợc giao nhiệm vụ làm chủ đầu t đóng tàu biển trọng điểm Tổng công ty khai thác trực tiếp tàu xuất xởng - Đại lý tàu biển, môi giới dịch vụ hàng hải, bốc xếp, vận tải hàng hoá; môi giới thuê mua, kinh doanh tàu biển - Huấn luyện , đào tạo chuyên viên Công ty đợc cấp giấy chứng nhận phù hợp (DOC) Giấy chứng nhận quản lý an toàn quốc tế (ISM code) II CáC CHƯƠ NG TRìNH HợP TáC QuốC Tế Và ĐầU T Ư CủA TổNG CÔ NG TY Các chơng trình hợp tác Để hội nhập thị trờng khu vực quốc tế, việc mở rộng hợp tác nhiều lĩnh vực với đối tác Ba Lan, Hàn Quốc, Nhật Bản, Singapore Tổng CTCNTTVN tiếp tục đẩy mạnh quan hệ với nớc có công nghiệp đóng tàu phát triển Tây Bắc Âu, Trung nh Trung Quốc , CHLB Đức, Đan mạch , Thuỷ Điển để tiếp thu công nghệ Nhằm bớc xúc tiến xuất sản phẩm công nghiệp tàu thuỷ, Tổng công ty đẩy mạnh hoạt động Marketting nớc Trung Đông, Đông Nam á, Châu Mỹ Từ năm 2000 Tổng công ty ký đợc số hợp đồng xuất tàu thuỷ sang Trung Đông, Singapore Để kịp thời nắm bắt thông tin thị trờng Tổng công ty xây dựng mạng lới bán hàng khu vực thị trờng tiềm với văn phòng đại diện nh bớc khởi đầu Hiện Vinashin có công ty liên doanh : - Công ty liên doanh nhà máy tàu biển Hyundai - Vinashin - Vietnam Korea Demolition Old ship and Rolling steel Joint Venture Company (Visco Ltd.co) - Bai can shipping company (Basco) - Shell gas Hải Phòng Tổng công ty có kế hoạch hợp tác với hãng Issota Fraschini & Fincantery (ý) thành lập công ty liên doanh lắp ráp động c thuỷ cao tốc hợp tác lắp đặt máy thuỷ thấp tốc MAN B&W khu công nghiệp tàu thuỷ An hồng Hải phòng Nhằm bớc nâng cao chất lợng sản phẩm tạo nguồn cung cấp chỗ nguyên vật liệu thiết yếu phục vụ cho ngành CNTT, Tổng cty đàm phán với số đối tác Châu Âu để xây dựng nhà máy sản xuất thép đóng tàu khu công nghiệp tàu thuỷ Cái Lân-Quảng Ninh với công suất ban đầu 250.000tấn / năm Ngoài Tổng cty ký nhiều thoả thuận đại lý bán hàng với đối tác nớc để thúc đẩy hoạt động bán hàng mở rộng thị trờng ngành Hợp tác lĩnh vực đào tạo với tập đoàn kinh tế NKK Nhật Bản - Hợp tác lĩnh vực đóng tàu - Đào tạo theo hợp đồng ký - Hàng năm TCT cử 100-200 tu nghiệp sinh sang học tập làm việc NKK - Thời hạn tu nghiệp sinh đợt năm Các dự án đầu t * Giai đoạn 2002-2005 : Xây dựng nhà máy đóng tàu: - Phía Bắc xây dựng công ty CNTT Nam triệu đóng sửa chữa tàu đến 50000DWT - Bắc miền Trung xây dựng nhà máy đóng tàu đến 10000DWT (Nghi Sơn Thanh Hoá) - Nam miền Trung xây dựng nhà máy liên hiệp CNTT Dung Quất, đóng sửa chữa tàu đến 100.000DWT, chế tạo thép đóng tàu, (Quảng Ngãi) - Phía Nam xây dựng nhà máy đóng tàu Long Sơn, Nhơn Trạch Đồng Nai đóng tàu sửa chữa tàu đến 50.000DWT - Xây dựng nhà máy vật liệu hàn Nam Triệu - Chế tạo thép đóng tàu, lắp ráp động thuỷ có công suất đến 6000HP, sản xuất loại phụ kiện, thiết bị tàu thuỷ, cụ thể nh sau: - Xây dựng nhà máy cán thép nóng đóng tàu Cái Lân(Quảng Ninh) : cán nóng thép có chiều dày từ đến 50mm với máy phát điện 60 MW - Khu công nghiệp An Hải An Hồng, Hải Phòng với nhà máy: - Nhà máy lắp ráp động Diezel 2kỳ công suất từ 4000 đến 6000HP - Nhà máy lắp ráp động Diezel 4kỳ công suất từ 300 đến 3000HP - Nhà máy xích neo tàu thuỷ, thiết bị địên, trang trí nội thất, chế tao container - Nhà máy lắp ráp nồi tàu thuỷ - Nhà máy chế tạo bảng điện điều khiển tàu thuỷ - Nhà máy trang trí nội thất tàu thuỷ - Nhà máy lắp ráp thiết bị điện nghi khí hàng hải - Trạm bảo hành máy móc thiết bị tau thuỷ - Kho ngoại quan cung cấp phụ tùng thay máy móc, trang thiết bị tàu thuỷ Nâng cấp xây dựng sở nghiên cứu khoa học, t vấn thiết kế đào tạo - Nâng cấp viện KHCNTT thành phòng thí nghiệm quốc gia (Hà Nội): Đầu t chiều sâu bể thử mô hình đầu t trung tâm thiết kế công ngiệp tạo mẫu - Xây dựng trung tâm điều hành sản xuất thơng mại kỹ thuật cao CNTT (Hà Nội) - Xây dựng trờng đào tạo kỹ thuật CNTT TP Hồ Chí Minh, Hải Phòng Quảng Ninh - Đầu t xây dựng kinh doanh khu du lịch, nhà nghỉ - Xây dựng nhà nghỉ khu du lịch Cát Bà- Hải Phòng - Xây dựng nhà nghỉ khu du lịch hồ Sông Giá - Xây dựng nhà nghỉ khu du lịch đảo Tuần Châu - Xây dựng khu điều dỡng Xuân Thành - Xây dựng nhà nghỉ chuyên gia du lịch Bà Ná - Đà Nẵng * Giai đoạn 2006-2010 : Hoàn thành việc xây dựng nhà máy mới, đại hoá hội nhập - Đầu t hoàn chỉnh công nghệ, thiết bị đóng sửa chữa tàu lên mức đại khu vực, nâng cao tỷ lệ nội địa hoá ngành lên 60 đến 70% - Mục tiêu đến 2010: đóng tàu đến 100.000DWT, sửa chữa tàu đến 400.000DWT, chế tạo lắp ráp đợc thiết bị vật t cho ngành CNTT - Tổng công ty cần tìm đối tác nớc tập đoàn, công ty nớc có kỹ thuật đóng tàu cao để thiết lập dự án liên doanh xây dựng nhà máy đóng tàu với công nghệ tiên tiến Tình hình thực vốn đầu t phát triển công ty quý 1/2005: Quý I/2005 Công ty thực vốn đầu t xây dựng với kết ớc đạt 43.603 triệu đồng Trong vốn ngân sách Nhà nớc ớc đạt 12.233 triệu đồng; Vốn tín dụng u đãi ớc đạt 31.370 triệu đồng So với kế hoạch vốn đầu t xây dựng năm 2005 484.405 triệu đồng, quý đạt 9% Kim ngạch xuất Vinashin tăng trởng khá: Trong quý I năm nay, kim ngạch xuất Vinashin đạt đựơc số thành tựu đáng khích lệ, kim ngạch xuất ớc đạt 68.000USD Một số sản phẩm xuất bảo đảm tiến độ Đáng ý là: Tại công ty CNTT Nam Triệu NMĐT Hạ Long ngày 16/2/2005 đồng loạt đặt ky tàu 53.000DWT xuất sang Anh Quốc, NMĐT Bạch Đằng triển khai đóng tàu 10.500DWT xuất cho NOMA Nhật Bản Một số sản phẩm gia công khí tàu thuỷ, sửa chữa tàu nớc đơn vị Phà Rừng, Nam Triệu đảm bảo đợc kế hoạch đặt Với khối lợng công việc nh dự kiến kim ngạch xuất 2005 gặt hái đợc thành tốt Hội nghị sơ kết quý I, triển khai kế hoạch 2005 Vinashin Ngày 8/4 Hà Nội, công ty công nghiệp tàu thuỷ Việt Nam tổ chức Hội nghị sơ kết quý I tiếp tục triển khai kế hoạch năm 2005, ông Phạm Thanh Bình chủ tịch HĐQT, tổng giám đốc công ty chủ trì hội nghị Các đồng chí Phó TGĐ báo cáo hoạt động công ty lĩnh vực SXKD, thơng mại, xuất khẩu, đầu t khoa học công nghệ Quý I/2005, hoạt động SXKD Cty đạt đợc số kết quả: Giá trị tổng sản lợng đạt: 1.882,591 Tỷ đồng, 18,2 % kế hoạch tăng 121,7% so với kỳ năm ngoái Trong giá trị sản xuất công nghiệp đạt 974,667 tr đồng 16,8% kế hoạch năm Giá trị sản lợng xây dựng đạt 153,811 tỷ đồng, tăng 172,9 % so với kỳ năm 2004; giá trị sản lợng vận tải đạt 130,548 tỷ đồng , 20,1% kế hoạch 2005; giá trị sản lợng khối thơng mại dịch vụ đạt 623,564 tăng 111,4% so với kỳ năm 2004 Giá trị doanh thu đạt 835,246 tỷ đồng 10,8 % kế hoạch năm, doanh thu SXCN đạt 400,859 tỷ đồng 8,1 % kế hoạch năm; giá trị doanh thu khối xây dựng đạt 76,347 Tỷ đồng 14,2 %kế hoạch năm; giá trị doanh thu vận tải đạt 118,813 tỷ đồng tăng 183,3% so với kỳ năm 2004; giá trị doanh thu thơng mại dịch vụ đạt 239,227 Tỷ đồng, 14,6 % kế hoạch năm 10 III Sơ đồ tổ chức Hội đồng quản trị Tổng giám đốc Các phó Tổng gđ Các công ty liên doanh Các phòng ban ttâm Các dn đóng & sửa chữa tàu Các cty dịch vụ sX Các đv ht phụ thuộc Các đơn vị cổ phần Các công ty liên doanh Ban ql đổi dn Nmđt 76 Cty vận tải biển đông Cty cntt&xd sông hồng Cty cổ phần Xd vinashin Cty tnhh shellgag hải phòng Ban kỹ thuật & sx Cty vt thuỷ cần thơ Cty cntt đà nẵng Cty cp cntt vinashin Cty cnth ngô quyền Cty đt & tm gtvt Cty cp đt& vt dầu khí vinashin Cty cntt&xd hồng bàng Cty kt công nghệ biển Cty khí, thuỷ, điện Cty kt điều khiển & tt Cty tài cntt Cty lắp máy & xd Cty cn nt sản phú yên Cty tư vấn tkế cntt Cty tư vấn đtư tm Cty vận tải& dv hàng hải Cty ncth khí gtvt Tt ạơp tác đào tạo lđ nước Cty vận tải bãi cạn Cty ldoanh phá dơ tàu cũ visko Ban kd &đối ngoại Ban kế hoạch Đtư Ban giám định & qlcl Ban tc - kt Ban tổ chức cb & lđ Văn phòng tổng cty Các công ty liên doanh Bạch đằng Bến kiền Ban Hải dương Hạ long Nam hà Nam triệu Nha trang Phả rưng Cntt sài gòn đóng tàu cnhh sg Sông cấm Sông hàn Sông lô Tam bạc Cty xd&ưd công nghệ Cty xnk vật tư tàu thủy Ctycn xl&đt hoá Cty vt sông biển cần thơ Xn cn tàu ts nhật lệ Cty cp kt ct thủy vinashin Cty cp xd& ptcs hạ tầng vinashin Cty cp môi trường cntt 80 + Sau click nút in giao diện sau đợc mở 81 Phần kết Luận Sơ đánh giá hiệu chơng trình Quản Lý Nhà Cung Cấp Tổng Công ty Công nghiệp tàu thuỷ Việt Nam Sau chơng trình xây dựng xong đa vào sử dụng giúp ích nhiều cho cán nhân viên công ty việc quản lý nhà cung cấp nh việc giao dịch với nhà cung cấp, hạn chế đợc sai sót không cần thiết, đem lại nhiều hiệu công việc Với chơng trình này, cán quản lý lu trữ thông tin nhà cung cấp cách khoa học, thuận tiện theo dõi, tra cứu nhanh chóng thông tin nhà cung cấp nh hợp đồng nhà cung cấp Chơng trình đa báo cáo liên quan đến nhà cung cấp nh danh sách nhà cung cấp theo nớc hay theo đặc điểm nhà cung cấp thờng xuyên hay không Cùng thông tin hợp đồng với nhà cung cấp, thông tin phiếu chi, giao hàng Những hạn chế chơng trình Một chơng trình phần mềm có hạn chế, thiếu sót tránh khỏi Cũng nh phần mềm Quản lý nhà cung cấp không tránh khỏi thiếu sót nên cần đợc bổ sung sửa chữa dần Hạn chế phần mềm cha theo dõi đợc trình kiểm tra vật t mà thấy h hỏng, chất lợng trả lại nhà cung cấp, cha theo dõi đợc kết chuyển khoản mà công ty nợ, cha trả cho nhà cung cấp Hớng phát triển đề tài Với đề tài phát triển thêm phần mềm kế toán để tiện lợi cho việc quản lý công ty, thêm phần tiện ích để phát triển môi trờng mạng Kết luận Sau trình thực tập công ty em lĩnh hội đợc nhiều kiến thức, kinh nghiệm quý báu Những kinh nghiệm giúp em thực đề tài cách đễ dàng Tuy cha hoàn chỉnh nhng mà em học hỏi đợc 82 từ nhà trờng, từ thời gian thực tập kiến thức giúp đỡ em trình làm việc sau Để chơng trình đợc hoàn thiện em mong đóng góp ý kiến thầy cô giáo bạn bè Một lần em xin chân thành cảm ơn thầy giáo ThS Trần Công Uẩn tận tình bảo, hớng dẫn em trình thực đề tài Và em xin cảm ơn bác, anh chị quan nơi thực tập giúp đỡ em trình tìm hiểu nghiệp vụ công ty 83 Tài liệu tham khảo TS Trơng Văn Tú Trần Thị Song Minh Giáo trình Hệ thống thông tin quản lý, Trờng Đại Học Kinh Tế Quốc Dân, Hà Nội 2000 ThS Trần Công Uẩn Giáo trình Cơ Sở Dữ Liệu, Trờng Đại Học Kinh Tế Quốc Dân, Nhà Xuất Thống Kê-2000 TS Hàn Viết Thuận Giáo Trình Cấu trúc liệu, Trờng Đại Học Kinh Tế Quốc Dân, NXB Thống Kê -1999 VN- Guide Những thực hành Cơ Sở Dữ Liệu Visual Basic Căn bản, NXB Thống Kê- 2001 Nguyễn Thị Ngọc Mai (Chủ biên), Cố vấn khoa học : GSTS Nguyễn Hữu Anh Microsoft Visual Basic 6.0 Lập trình sở liệu, NXB Lao Động-Xã Hội-2004 Nguyễn Thị Kim Trang- Hoàng Đức Hải Microsoft Visual Basic 6.0 Lập Trình sở liệu, NXB Giáo Dục Đinh Thế Hiển Học VS.Basic qua thực chơng trình, NXB Thống Kê 84 Phần Phụ Lục Dim db As DAO.Database Dim rs As DAO.Recordset ************************************************************* Private Sub Form_Load() appfolder = App.Path If Right(appfolder, 1) "\" Then appfolder = appfolder & "\" Set db = OpenDatabase(appfolder & "db1.mdb") Set rs = db.OpenRecordset("login") End Sub ************************************************************* Private Function ktra(id1 As String, pass1 As String) As Boolean Dim dung As Boolean dung = False Set rs = db.OpenRecordset("login") rs.MoveFirst Do Until rs.EOF If (rs![use] = id1 And rs![pass] = pass1) Then dung = True Exit Do End If rs.MoveNext Loop ktra = dung End Function ************************************************************ Private Sub cmdlogin_Click() Dim ten As String 85 Dim t As Boolean If Trim(txtuse.Text) " " And Trim(txtpass.Text) " " Then t = ktra(txtuse, txtpass) If t Then MsgBox "Dang Nhap Thanh Cong", vbOKOnly, "LOGIN" Unload Me fmain.Show hien_menu End If If t = False Then MsgBox "Phai Dang Nhap Lai", vbOKOnly, "THONGBAO" txtuse = "" txtpass = "" txtuse.SetFocus End If End If End Sub *********************************************************** Private Sub Form_Load() Dim appfolder As String appfolder = App.Path If Right(appfolder, 1) "\" Then appfolder = appfolder & "\" Set db = OpenDatabase(appfolder & "db1.mdb") Set rs = db.OpenRecordset("dmncc") lock_text hienthi_listview Dim str str = "select * from dmncc order by mancc asc" Set rs = db.OpenRecordset(str) hienthi 86 Dim str1 As String str1 = App.Path & "\db1.mdb" Dim db2 As Connection Set db2 = New Connection db2.CursorLocation = adUseClient db2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str1 & ";Persist Security Info=False" Set adoRS2 = New Recordset adoRS2.Open "select * from tncc", db2, adOpenStatic, adLockOptimistic Set txtghichu.RowSource = adoRS2 End Sub ************************************************************* Sub hienthi() With rs If EOF = False Then txtmancc.Text = Fields("mancc") txttenncc.Text = Fields("tenncc") txtdiachi.Text = Fields("diachi") txtmanuoc.Text = Fields("manuoc") txtdienthoai.Text = Fields("dienthoai") txtfax.Text = Fields("fax") txtemail.Text = Fields("email") txtghichu.Text = Fields("ghichu") hienthitennuoc End If 87 End With End Sub ************************************************************* Sub hienthitennuoc() Set rs = db.OpenRecordset("dmnuoc") rs.MoveFirst Do Until rs.EOF If rs!manuoc = txtmanuoc.Text Then txttennuoc.Text = rs!tennuoc Exit Do End If rs.MoveNext Loop End Sub ************************************************************* Private Sub hienthi_listview() Dim str Dim mitem As ListItem listv.ListItems.Clear str = "select * from dmncc order by mancc asc" Set rs = db.OpenRecordset(str) If rs.EOF = False Then While Not rs.EOF Set mitem = listv.ListItems.Add(, , rs!mancc) mitem.SubItems(1) = rs!tenncc mitem.SubItems(2) = rs!diachi mitem.SubItems(3) = rs!manuoc mitem.SubItems(4) = rs!dienthoai mitem.SubItems(5) = rs!fax mitem.SubItems(6) = rs!email 88 mitem.SubItems(7) = rs!ghichu rs.MoveNext Wend End If End Sub ************************************************************* Sub xoa_du_lieu() Dim str Dim response If txtmancc = "" Then Exit Sub End If response = MsgBox("Ban co chac chan xoa khong?", vbYesNo + vbQuestion, "THONG BAO") If response = vbNo Then Exit Sub Else str = "delete from dmncc where mancc='" & txtmancc & "'" db.Execute (str) End If set_null lock_text hienthi_listview End Sub ************************************************************ Sub luu_du_lieu() Dim str, s, t If Trim(txtmancc) = "" Or Trim(txttenncc) = "" Or Trim(txtdiachi) = "" Or Trim(txtmanuoc) = "" Or Trim(txtdienthoai) = "" Or Trim(txtfax) = "" Or Trim(txtemail) = "" Then 89 MsgBox "Chu y: Ban chua nhap du du lieu", vbOKOnly, "THONG BAO" Exit Sub End If If IsNumeric(txtdienthoai.Text) And IsNumeric(txtfax.Text) Then If flag "sua" Then str = "select * from dmncc where mancc='" & txtmancc & "'" Set rs = db.OpenRecordset(str) If rs.EOF = True Then s = "insert into dmncc values('" & txtmancc & "', '" & txttenncc & "', '" & txtdiachi & "', '" & txtmanuoc & "', '" & txtdienthoai & "', '" & txtfax & "', '" & txtemail & "', '" & txtghichu & "')" db.Execute (s) Else MsgBox "Ma nha cung cap [" & txtmancc & "] da ton tai hay kiem tra lai", vbOKOnly + vbExclamation, "THONG BAO" Exit Sub Me.MousePointer = Exit Sub End If Else t = "update dmncc set tenncc='" & txttenncc & "', diachi = '" & txtdiachi & "', manuoc='" & txtmanuoc & "', dienthoai='" & txtdienthoai & "', fax='" & txtfax & "', email='" & txtemail & "', ghichu='" & txtghichu & "' where mancc='" & txtmancc & "'" db.Execute (t) End If Else MsgBox "Dien Thoai va Fax la kieu so, Hay Nhap Lai", vbOKOnly, "THONG BAO" Exit Sub 90 txtdienthoai.SetFocus End If lock_text hienthi_listview cmdthem.SetFocus End Sub ************************************************************* Private Sub listv_Click() sql = "select * from dmncc where mancc='" & listv.SelectedItem & "' " Set rs = db.OpenRecordset(sql) hienthi End Sub ************************************************************* Private Sub Image1_Click() Dim ls As ListItem Dim tien As DAO.Recordset Dim rt As DAO.Recordset Dim sql Dim mitem As ListItem sql = "select * from dmncc where mancc like '" & "*" & txttk & "*" & "'" Set tien = db.OpenRecordset(sql) listv.ListItems.Clear If Not tien.EOF Then Do While Not tien.EOF Set mitem = listv.ListItems.Add(, , tien!mancc) mitem.SubItems(1) = tien!tenncc mitem.SubItems(2) = tien!diachi mitem.SubItems(3) = tien!manuoc mitem.SubItems(4) = tien!dienthoai mitem.SubItems(5) = tien!fax 91 mitem.SubItems(6) = tien!email mitem.SubItems(7) = tien!ghichu tien.MoveNext Loop End If Set rs = db.OpenRecordset("dmncc") rs.MoveFirst Do Until rs.EOF If rs!mancc = txttk Then sql = "select * from dmncc where mancc='" & listv.SelectedItem & "' " Set rs = db.OpenRecordset(sql) hienthi Exit Sub Exit Do End If rs.MoveNext Loop MsgBox "Khong co Ma nha cung cap Hay kiem tra lai", vbOKOnly, "THONG BAO" set_null End Sub ************************************************************* 92 93 [...]... là Visual Basic 6.0, chúng ta sẽ thấy đây là một công cụ lập trình dễ chịu và có xu hớng trở thành môi trờng lập trình hoàn hảo cho những năm sắp tới Vì những lí do trên mà em chọn Visual Basic là ngôn ngữ để viết chơng trình Quản lý Nhà Cung cấp của công ty Công Nghiệp tàu thuỷ Việt Nam IV Tổng quan về ngôn ngữ SQL SQL (Structured Query Language)- Ngôn Ngữ truy vẫn cấu trúc - SQL cho phép truy cập vào... tiến bộ về khoa học công nghệ, đổi mới mạnh mẽ hoạt động thị trờng và hoạt động tài chính, về tổ chức quả lý và điều hành, việc chăm lo xây dựng đội ngũ đảm bảo các chế độ chính sách, việc làm và đời sống của ngời lao động luôn đợc tổng công ty quan tâm đúng mức Tổng công ty rất chú trọng đến việc đào tạo cán bộ công nhân viên Đội ngũ nhân sự của công ty thể hiện qua sơ đồ sau: Công nhân kỹ thuật 8.220... xử lý: Là 1 xử lý cập nhật hoặc tra cứu bên trong của 1 pha và thao tác với số lợng tơng đối ít dữ liệu Đây là cách chia nhỏ các xử lý Yêu cầu xử lý với ít dữ liệu là 1 khái niệm tơng đối tuỳ thuộc vào một số những tiêu chuẩn khác và nhiều khi mang tính chủ quan của nhà Thiết kế Pha 1 Công việc Tiến trình 1 Pha 2 Tiến trình 2 Pha 3 Tiến trình 3 - Lập trình: Sau khi đã thiết kế vật lý trong xong, công. .. các chơng trình sau này, IBM đã đa ra phơng pháp IPT-HIPO (Kĩ thật phát triển chơng trình phân cấp theo Vào Xử lý - Ra) Một số khái niệm: Sự kiện: Là một việc thực khi đến nó làm khởi sinh việc thực hiện 1 hoặc nhiều xử lý nào đó Công việc: Là dãy xử lý có chung sự kiện khởi sinh Tiến trình: Là dãy các công việc mà các xử lý bên trong của nó nằm bên trong cùng 1 lĩnh vực nghiệp vụ Pha xử lý: Là tập... thanh công cụ và cửa sổ để tạo ra chơng trình Mỗi phần của IDE có các tính năng ảnh hởng đến các hoạt động lập trình khác nhau Thanh menu cho phép bạn tác động cũng nh quản lý trực tiếp trên toàn bộ ứng dụng Thanh công cụ cho phép truy cập các chức năng của thanh menu qua các nút trên thanh công cụ Các biểu mẫu (Form) - khối xây dựng chính của các chơng trình Visual Basic xuất hiện trong cửa sổ to Hộp công. .. lập trình, để xây dựng chơng trình máy tính Thực chất của công việc này là chuyển đổi các Thiết kế vật lý của hệ thống thành các chơng trình máy tính - Thử nghiệm chơng trình: Sau khi chơng trình đã đợc hoàn thành, nó cần phải đợc thử nghiệm nhằm kiểm tra xem nó có đạt đợc các yêu cầu mà hệ thống đa ra hay không, phát hiện các lỗi trong quá trình vận hành để tìm cách khắc phục Ngoài ra trong quá trình. .. trạng mới nhất của các đối tợng mà nó quản lý + Tính toán khối lợng xử lý, tra cứu, cập nhật: Một xử lý trên sơ đồ con logic đợc phân rã thành các thao tác xử lý dữ liệu cơ sở hay xử lý cập nhật Để tính toán khối lợng hoạt động củâ các thao tác xử lý cơ sở đó về theo khối lợng xử lý của một thao tác đợc lựa chọn làm đơn vị 2.4 Thiết kế vật lý ngoài Thiết kế vật lý ngoài là mô tả chi tiết các phơng án... các nhà cung cấp thứ 3 đa ra - Các đối tợng đợc chèn (Insertable Object, Nh là đối tợng bảng tính (Worksheet) của MicrosoftExcel chứa một danh sách các nhân viên của công ty hay đối tợng lịch biểu (Calendar) của Microsoft Project chứa việc lập biểu thông tin cho một đề án Bởi vì chúng có thể thêm vào hộp công cụ, chúng có 28 thể là các điều khiển đợc chuẩn bị chu đáo Một vài đối tợng kiểu này cũng cung. .. phát triển HTTT, ngời ta còn tiến hành các công đoạn khác nh: Cài đặt và vận hành, đào tạo sử dụng, bảo trì II Tìm hiểu Ngôn ngữ lập trình visual basic Khác với ngôn ngữ nh C++, visual basic có thể làm hết mọi việc, nó cung cấp mức độ cao hơn của lập trình tự động nh vậy ta có thể làm đợc nhiều thứ mà không phải lập trình nhiều Tuy nhiên, đừng hiểu sai Không lập trình nhiều nghĩa là Không có nhiều tính... sự kiện khởi tạo bởi ngời sử dụng, và ta sẽ phải lập trình cho chúng 24 Tầm quan trọng của lập trình theo sự kiện Khi tạo một chong trình trong Visual Basic ta chủ yếu lập trình theo sự kiện, điều này có nghĩa là chơng trình chỉ thi hành khi ngời sử dụng làm một thao tác trên giao diện hoặc có một việc gì đó xảy ra trong Windowns Dĩ nhiên, lập trình theo cách này có nghĩa là ta phải biết khi nào sự ... : Tổng quan tổng công ty Công nghiệp tàu thuỷ Việt Nam Chơng II : Cơ sở phơng pháp luận việc nghiên cứu đề tài Chơng III : Thiết kế chơng trình quản lý nhà cung cấp Tổng Công ty công nghiệp Tàu. .. thực tế công ty với mong muốn đợc áp dụng kiến thức công nghệ thông tin đợc học trờng, em chọn đề tài Xây dựng chơng trình quản lý nhà cung cấp tổng công ty Công Nghiệp Tàu thuỷ Việt Nam Với... Công Uẩn tận tình bảo em để hoàn thành chơng trình 3 CHƯƠNG I TổNG QUAN Về TổNG CÔNG TY CÔNG NGHIệP TàU THUỷ VIệT NAM ( VINASHIN ) I giới thiệu tổng công ty Quá trình hình thành phát triển Tổng