1. Trang chủ
  2. » Tất cả

Phân tích thiết kế hệ thống thông tin quản trị quan hệ khách hàng sử dụng sản phẩm fast accounting online của công ty fast

91 1 0

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Nội dung

1 Lời mở đầu Môi trường kinh doanh ngày thay đối nhanh chóng, cạnh tranh ngày gia tăng, khoa học kỹ thuật ngày phát triển nhanh Các doanh nghiệp muốn tồn cần phải thích nghi với thay đổi Nhu cầu khách hàng có tính chun biệt địi hỏi doanh nghiệp cần hiếu rõ nhu cầu khách hàng, từ có sản phẩm, dịch vụ đáp ứng nhu cầu chuyên biệt nhằm gia tăng giá trị cho khách hàng, thu hút trì lịng trung thành khách hàng để đạt mục tiêu lợi nhuận doanh nghiệp Chỉ lợi cạnh tranh giá cả, sản phẩm thơi chưa đủ chúng dễ dàng bị bắt chước đối thủ cạnh tranh Một công cụ hữu hiệu thu hút giới nghiên cứu thực hành Marketing, giúp doanh nghiệp hiểu rõ thỏa mãn nhu cầu khách hàng, có vị cạnh tranh thị trường quản trị quan hệ khách hàng Tại Việt Nam, quản trị quan hệ khách hàng khái niệm mẻ cộng đồng doanh nghiệp Nhận thức doanh nghiệp tầm quan trọng công nghệ quản trị quan hệ khách hàng hạn chế Hiện nay, quản trị quan hệ khách hàng coi trọng đánh giá yếu tố cốt yếu tạo nên thành công cho doanh nghiệp Cùng với ứng dụng công nghệ thông tin, quản trị quan hệ khách hàng mang lại hiệu lợi ích to lớn cho doanh nghiệp Đặc biệt thời đại mà cơng nghệ thơng tin phát triển nhanh chóng nay, hầu hết tổ chức, doanh nghiệp nhận thức tầm quan trọng tác dụng to lớn việc áp dụng tin học hoá cơng tác quản lý Vì mà nhu cầu xây dựng phần mềm quản lý doanh nghiệp lớn Hầu hết doanh nghiệp, tố chức dù lớn hay nhỏ có xu hướng muốn áp dụng tin học công tác quản lý Nắm bắt nhu cầu cấp thiết xã hội, có nhiều cơng ty xây dựng phần mềm quản lý đời Một công ty cơng ty Phần mềm Quản lý doanh nghiệp Fast Đây công ty chuyên xây dựng phần mềm phục vụ việc quản lý doanh nghiệp phần mềm kế tốn có uy tín thị trường Công ty Fast số công ty đón đầu cơng nghệ lĩnh vực phần mềm quản trị quan hệ khách hàng số Tuy nhiên số dịng sản phẩm Fast năm gần chưa áp dụng công nghệ quản trị quan hệ khách hàng Trong đợt thực tập em xin thực tập học hỏi, tìm hiểu nhiều thơng tin có ích Vì vậy, em định chọn đề tài: “Phân tích thiết kế hệ thống thông tin quản trị quan hệ khách hàng sử dụng sản phẩm Fast Accounting Online công ty Fast” Phương pháp nghiên cứu: - Tiếp cận hệ thống - Phân tích hệ thống Phương pháp thu thập thơng tin: để lấy thơng tin hồn thiện báo cáo, em sử dụng phương pháp vấn, nghiên cứu tài liệu, khảo sát Phương pháp xây dựng phần mềm: Sử dụng phương pháp Top Down Đối tượng phạm vi nghiên cứu: Đối tượng nghiên cứu: Các khách hàng công ty sử dụng phần mềm kế toán Fast Accounting Online (FAO) Phạm vi nghiên cứu  Phạm vi địa điểm: thực công ty Fast  Phạm vi thời gian: từ ngày 5/1/2015-23/5/2015  Phạm vi nội dung: Nghiên cứu quy trình quản trị quan hệ khách hàng sử dụng phần mềm kế toàn Fast Accounting Online Mục đích nghiên cứu: Mục tiêu tổng quan: Nâng cao chất lượng cho việc quản lý quan hệ khách hàng cách đầy đủ, nhanh chóng mang lại hiệu bắt kịp với xu hướng đại Mục tiêu cụ thể: Để đạt mục tiêu tổng quan cần thực mục tiêu chi tiết sau: • Nắm thơng tin khách hàng, thói quen sử dụng, ngun lý kế tốn, q trình hạch tốn doanh nghiệp thơng qua việc sản phẩm phần mềm FAO • Nắm thơng tin sản phẩm cơng ty Fast WEB Mobile • Nghiên cứu tìm hiểu khó khăn từ thực trạng hệ thống CRM cũ chưa phù hợp với dòng sản phẩm Sản phẩm hướng tới: Bản phân tích thiết kế hệ thống CRM cho dòng sản phẩm FAO Fast Cấu trúc báo cáo: Cấu trúc báo cáo ngồi lời nói đầu, phụ lục kết luận gồm có ba chương Nội dung cụ thể sau: Chương 1: Tổng quan Công ty cổ phần phần mềm quản lý doanh nghiệp Fast toán quản trị quan hệ khách hàng cho dòng sản phẩm Fast Accounting Online Chương 2: Cơ sở phương pháp luận ứng dụng để thiết kế hệ thống thông tin quản trị quan hệ khách hàng Chương 3: Phân tích thiết kế hệ thống thơng tin Quản trị quan hệ khách hàng sử dụng sản phẩm Fast Accounting Online Để hoàn thiện báo cáo này, trước hết em xin chân thành cảm ơn ban lãnh đạo, anh Ngơ Đình Hưởng- Trưởng phịng lập trình anh chị nhân viên công ty Fast tạo điều kiện thuận lợi cho em đợt thực tập Đồng thời, em xin gửi lời cảm ơn tới thầy giáo Ths Nguyễn Anh Phương giúp đỡ bảo em tận tình suốt thời gian vừa qua CHƯƠNG TỔNG QUAN VỀ CÔNG TY CỔ PHẦN PHẦN MỀM QUẢN LÝ DOANH NGHIỆP FAST VÀ BÀI TOÁN QUẢN TRỊ QUAN HỆ KHÁCH HÀNG SỬ DỤNG SẢN PHẨM PHẦN MỀM FAST ACCOUNTING ONLINE 1 Giới thiệu Công ty cổ phần phần mềm quản lý doanh nghiệp Fast 1 Giới thiệu chung 1 1 Thông tin chung  Một số thông tin chung công ty:  Tên công ty: Cơng ty cổ phần phần mềm quản lí doanh nghiệp Fast  Tên tiếng Anh: The Fast Software Company  Tên viết tắt: Fast  Năm thành lập: 11/06/1997  Giấy phép thành lập công ty: Số 3096/GP-UB UBND TP Hà Nội cấp ngày 11-06-1997  Giấy chứng nhận đăng ký kinh doanh: Số 056067 Sở Kế hoạch Đầu tư Hà Nội cấp ngày 18-06-1997  Trụ sở Hà Nội: Tầng 11, tòa nhà Việt Á, đường Duy Tân, Cầu Giấy, Hà Nội Ðiện thoại: (04) 3771-5590 - Fax: (04) 3771-5591  Email: comlinkhn@comlink com  Website: www fast com  Loại hình hoạt động: Doanh nghiệp  Logo giao dịch: Ngoài trụ sở Hà Nội, Cơng ty cịn có văn phòng đại diện bao gồm:  Văn phòng đại diện miền trung: VĂN PHÒNG TẠI TP ÐÀ NẴNG: Ðịa chỉ: 39-41 Quang Trung, Q Hải Châu Ðiện thoại: (0511) 381-0532 - Fax: (0511) 381-2692 • Văn phịng miền Nam VĂN PHỊNG TẠI TP HỒ CHÍ MINH: Ðịa chỉ: Lầu 9, khu B, tòa nhà Waseco, 10 Phổ Quang, P 2, Q Tân Bình, Tp HCM Ðiện thoại: (08) 3848-6068 - Fax: (08) 3848-6425 Khẩu hiệu: Phần mềm giúp quản lý tốt - Software for Better Management Công ty cổ phần Fast công ty chuyên sâu lĩnh vực cung cấp Giải pháp Phần mềm kế toán, tài quản trị Doanh nghiệp, giải pháp ERP online Sứ mệnh: Fast chuyên sâu nghiên cứu, phát triển triển khai ứng dụng hệ thống thông tin quản lý sản xuất kinh doanh tiên tiến nhầm nâng cao hiệu điều hành cho doanh nghiệp Tầm nhìn: Là cơng ty phát triển bền vững, nhà cung cấp giải pháp hàng đầu Việt Nam hệ thống thông tin quản lý doanh nghiệp, có trách nhiệm với cộng đồng, góp phần xây dựng đất nước, thành viên ngày phát triển nghề nghiệp, giàu có vật chất tinh thần Fast đặt mục tiêu đạt giữ vững vị trí số cung cấp giải pháp phần mềm quản trị doanh nghiệp thị trường Việt Nam "Chuyên sâu tạo nên khác biệt" phương châm kinh doanh Fast nhằm đạt mục tiêu đề Fast kinh doanh chuyên sâu lĩnh vực phần mềm quản trị doanh nghiệp Với chuyên sâu Fast cung cấp cho khách hàng sản phẩm dịch vụ ngày tốt Các giá trị niềm tin: Fast mong muốn làm giàu cho thân, cho công ty phát triển cá nhân, phát triển cơng ty, đóng góp cho xã hội, xây dựng đất nước Việt Nam giàu mạnh thông qua sản phẩm dịch vụ cung cấp cho khách hàng Fast tin tưởng vào lao động hết mình, có trách nhiệm nghề nghiệp, ln ln đối hồn thiện đường để tạo nhiều sản phẩm, dịch vụ có giá trị cho xã hội 1 Quy mô công ty Ban đầu thành lập quy mơ cơng ty cịn nhỏ bé Cơng ty có khoảng 17 nhân viên doanh thu năm 1, 45 tỉ đồng, số lượng khách hàng 100 khách hàng( năm 1998) Sau đó, quy mơ cơng ty ngày mở rộng Công ty thành lập thêm chi nhánh TP Hồ Chí Minh văn phịng đại diện Đà Nằng 1 Lịch sử hình thành phát triển Công ty Cổ Phần Phần mềm Quản lý Doanh nghiệp Fast (Fast Software Company) thành lập ngày 11 tháng năm 1997 công ty Việt Nam có định hướng chuyên sâu lĩnh vực cung cấp giải pháp phần mềm quản trị doanh nghiệp Fast thành lập chuyên gia có kinh nghiệm nhiều năm lĩnh vực phần mềm tài kế tốn, ngân hàng quản trị doanh nghiệp với mục tiêu kết hợp hiểu biết nghiệp vụ, công nghệ, phương thức hỗ trợ khách hàng kinh nghiệm thực tế để tạo sản phẩm dịch vụ chất lượng cao cho thị trường Người đưa ý tưởng thành lập Công ty Fast: Ông Nguyễn Thành Nam Các sáng lập viên:  Ông Trương Đình Anh (rút khỏi cổ đơng từ tháng 10-1998)  Ồng Nguyễn Hồng Chương, giám đốc Công ty đầu tư kỹ nghệ FINTEC  Ông Phan Quốc Khánh, giám đốc FAST  Ông Khúc Trung Kiên, giám đốc Công ty phần mềm Đan Phong  Ông Nguyễn Thành Nam, giám đốc Công ty phần mềm xuất DPT- FSOFT  Ông Nguyễn Khắc Thành, giám đốc trung tâm đào tạo FPTAptech  Ông Phan Đức Trung, trưởng phòng ngoại hối ngân hàng Techcombank Thành viên hội đồng quản tri:  Ông Nguyễn Thành Nam: chủ tịch hội đồng quản trị  Ông Phan Quốc Khánh: phó chủ tịch hội đồng quản trị kiêm giám đốc Cơng ty  Ơng Phan Đức Trung: phó chủ tịch hội đồng quản trị - Giới thiệu thành viên hội đồng quản trị:  Ông Nguyễn Thành Nam sinh năm 1961 học chun tốn khối phổ thơng chuyên trường (AO) đại học tổng hợp Hà Nội, tốt nghiệp khoa toán đại học tổng hợp Lomonoxov (MGU Liên Xơ), học vị- tiến sỹ (chun ngành tốn lý), lĩnh vực hoạt động nay- phần mềm tin học, công tác nay- giám đốc Công ty phần mềm xuất FPT- FSORT  Ông Phan Quốc Khánh sinh năm 1951 học chuyên toán trường chuyên Hàm Rồng Thanh Hố, tốt nghiệp khoa kĩ thuật tính tốn tự động hố đại học lượng Moxcva MEI, Liên Xơ), học vị- Tiến sỹ (chuyên ngành điều khiển học lý thuyết thơng tin), lĩnh vực hoat động nay- phần mềm tin học, công tác nay- Giám đốc Cơng ty Fast  Ơng Phan Đức Trung, sinh năm 1971, học chuyên lý trường chuyên Hà Nội- Amsterdam, tốt nghiệp khoa kinh tế lượng đại học Bách Khoa Hà Nội, học vị- cử nhân, lĩnh vực hoạt động naytrưởng phịng ngoại hối ngân hàng TECHCOMBANK Thời gian chuẩn bị thành lập Công ty: Từ tháng sáu đến tháng tám năm 1996 Ngày bắt đầu có trụ sở làm việc: 01/09/1996 67c Thái Hà, Quận Đống Đa, Thành Phố Hà Nội Các nhân viên đầu tiên:  Phan Quốc Khánh: Giám đốc  Phan Đức Trung: Phó Giám đốc(hiện khơng làm Fast)  Phạm Văn Lộc: Nhân viên kỹ thuật (hiện không làm Fast)  Phạm Văn Nam: Nhân viên bảo vệ(hiện không làm Fast) 1 Tổ chức công ty 1 Tổ chức phòng ban chức - Tổ chức phòng ban Fast Hình 1: Sơ đồ tổ chức phịng ban Fast - Chức công việc phòng ban  Ban giám đốc: Xác định chiến lược phát triển dài hạn Công Ty  Giám đốc Công ty: o Điều hành thực chiến lược đề phát triển kinh doanh o Xây dựng quy định, chế độ, sách chung Cơng ty o Lập kế hoạch năm cho tồn Cơng ty chi nhánh  Các trợ lý giám đốc(Tổng hợp): Trợ lý cho giám đốc Công ty vấn đề nhân sự, Marketing, tổ chức sản xuất kinh doanh, làm việc với đối tác, tài kế tốn tồn Cơng ty, xây dựng dự án phát triển kinh doanh  Các chi nhánh văn phòng: o Bán hàng dịch vụ khách hàng o Hiện có chi nhánh Hà Nội, Sài Gịn, Đà Nẵng • Trung tâm FRD: o Nghiên cứu phát triển sản phẩm o Hỗ trợ phận kinh doanh sửa đổi sản phẩm theo yêu cầu đặc thù 1 Tổ chức chi nhánh chức Tổ chức chi nhánh phận kinh doanh Hình 2: Tổ chức chi nhánh chức - Chức công việc phịng ban: • Giám đốc chi nhánh: o Điều hành tổ chức thực kế hoạch kinh doanh đặt o Xây dựng quy định, chế độ sách chung chi nhánh tổ chức nhân sự, lương, tài kế tốn o Tham gia vào xác định chiến lược Công ty lập kế hoạch năm • • cho chi nhánh Các trợ lý giám đốc: Trợ lý cho giám đốc vấn đề thị trường, tiếp thị, tuyển dụng đào tạo Phòng kinh doanh: o Tim kiếm khách hàng o Bán hàng • Phịng tư vấn thiết kế: Hỗ trợ phịng kinh doanh bán hàng cơng việc sau: o Khảo sát yêu cầu khách hàng, xác định tốn, xác định khối lượng khối lượng cơng việc để xác định giá bán, nhân thực thời gian thực 10 o Đề phương án thiết kế sơ giải toán cua khách hàng o Hỗ trợ phịng lập trình phịng triển khai thực hợp đồng • nghiệp vụ, tốn khảo sát trước Phịng tư vấn ứng dụng (triển khai hợp đồng), phòng có nhóm cố định nhóm thành lập theo dự án nhân viên dự án người triển khai Mỗi chi nhánh có phịng tư vấn ứng dụng o Khảo sát chi tiết thêm yêu cầu khách hàng o Tư vấn xây dựng hệ thống thông tin o Phối hợp với phịng lập trình để sửa đổi, test tiếp nhận chương trình sửa đổi theo yêu cầu đặc thù o Cài đặt đào tạo o Hỗ trợ sử dụng thời gian đầu o Hỗ trợ sử dụng bảo hành chương trình cần thiết • Phịng lập trình ứng dụng: o Tham gia vào xây dựng phương án thiết kế sơ giải toán khách hàng giai đoạn khảo sát- bán hàng o Hỗ trợ phòng triển khai thực hợp đồng việc lập trình sửa • đổi theo yêu cầu đặc thù Phòng hỗ trợ bảo hành: o Hỗ trợ khách hàng sử dụng chương trinh o Bảo hành sản phẩm • • Kế tốn: Kế tốn Văn phòng o Văn phòng, tổng đài, lễ tân o Tạp vụ 1 Cơng việc 1 Lĩnh vực hoạt động Lĩnh vực kinh doanh: Phát triển, tư vấn triển khai ứng dụng phần mềm giải pháp quản trị doanh nghiệp tảng CNTT  Sản xuất kinh doanh phần mềm máy tính  Dịch vụ thơng tin khoa học công nghệ 77 #End Region #Region "checkform" Public Function checkform() As Boolean Dim kq As Boolean = True If txtIDnhanvien.Text = "" Then MsgBox("Bạn Không để mã NV trống", vbOKOnly, "Thông Báo") kq = False ElseIf txtbietdanh.Text = "" Then MsgBox("Bạn Không để Biệt danh trống", vbOKOnly, "Thông Báo") kq = False ElseIf txtphongban.Text = "" Then MsgBox("Bạn Khơng để Phịng ban trống", vbOKOnly, "Thơng Báo") kq = False ElseIf txtnhomnv.Text = "" Then MsgBox("Bạn Không để Nhóm NV trống", vbOKOnly, "Thơng Báo") kq = False End If End Function #End Region #Region "btn_huy" Private Sub btnhuy_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhuy.Click txtIDnhanvien.Enabled = True addstatus = False edistatus = False status() End Sub #End Region #Region "xử lý sửa" Public Function sua() As Boolean ' Khai bao so luong tham so Dim numberparam As Integer = 12 Dim name(numberparam) As String 78 Dim value(numberparam) As String ' gan tham so name(1) = "@IDNhanVien" name(2) = "@BietDanh" name(3) = "@NgaySinh " name(4) = "@GioiTinh " name(5) = "@DiaChi" name(6) = "@SDT" name(7) = "@TrinhDo" name(8) = "@TrangThai" name(9) = "@IDNhomNV" name(10) = "@IDPhongBan " name(11) = "@GhiChu" name(12) = "@TenNV" 'gan gia tri value(1) = txtIDnhanvien.Text value(2) = txtbietdanh.Text value(3) = txtngaysinh.Text value(4) = txtgioitinh.Text value(5) = txtdiachi.Text value(6) = txtsdt.Text value(7) = txttrinhdo.Text If chkactive.CheckState = Then value(8) = True ElseIf chkactive.CheckState = Then value(8) = False End If value(9) = dtnhomnv.Rows(txtnhomnv.SelectedIndex)("IDNhomNV") value(10) = dtphongban.Rows(txtphongban.SelectedIndex)("IDPhongBan") value(11) = txtghichu.Text value(12) = txttennv.Text ' thực thiện update Try If DataProvider.UpdateData("usp_DMNhanVien_Update", name, value, numberparam) = False Then 79 MsgBox("Sửa chưa thành công!!!", MsgBoxStyle.OkOnly, "cảnh báo") Return False Else MsgBox("Sửa thành công thành công!!", MsgBoxStyle.OkOnly, "Thông Báo") Return True End If Catch ex As Exception MsgBox("Lỗi:" + ex.Message) End Try End Function #End Region Private Sub btnluu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluu.Click bs.EndEdit() If addstatus = True Then If them() = False Then Return bs.MoveLast() End If ElseIf edistatus = True Then If sua() = False Then Return bs.RemoveCurrent() End If End If settextbox() btnhuy_Click_1(sender, e) bs.ResetBindings(False) End Sub Private Sub btnin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnin.Click 80 MsgBox("" + GridView1.GetFocusedRowCellDisplayText("TrangThai") + "") ' GridControl1.ShowRibbonPrintPreview() End Sub Private Sub btnsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsua.Click txtIDnhanvien.Enabled = False If (txtIDnhanvien.Text = "") Then MsgBox("bạn vui lịng chọn nhóm muốn sửa", vbOK, "thông báo") End If edistatus = True status() End Sub Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnxoa.Click If txtIDnhanvien.Text = "" Then MsgBox("Bạn chưa chọn ghi cần xóa", vbOK, "Thơng Báo") End If Dim numberparam As Integer = Dim name(numberparam) As String Dim value(numberparam) As String ' gan tham so name(1) = "@IDNhanVien" value(1) = txtIDnhanvien.Text Try If DataProvider.UpdateData("usp_DMNhanVien_Delete", name, value, 1) = False Then MsgBox("Nhóm có nhân viên khơng xóa được!!!", vbOKOnly, "Cảnh báo!!") Return Else MsgBox("XóaThành Cơng!!", vbOKOnly, "Thông Báo") 81 End If Catch ex As Exception MsgBox("Lỗi: " + ex.Message) End Try dt.Rows(GridView1.GetFocusedDataSourceRowIndex).Delete() End Sub End Class 4.Code form DM_NhomTaiKhoan Imports System.Data.SqlClient Public Class DM_TaiKhoan Public dt As New DataTable Public bs As BindingSource Public da As SqlDataAdapter Dim dtnhomnv As DataTable Dim dtphongban As DataTable Dim addstatus As Boolean Dim edistatus As Boolean Private Sub DM_TaiKhoan_Load(ByVal sender, ByVal e) Handles MyBase.Load DataProvider.MoKetNoi() cbnhomnv() cbogioitinh() cbphongban() dt = DataProvider.LayDataTable("sp_nhanvien") bs = New BindingSource(dt, Nothing) txttennv.DataBindings.Add("text", bs, "TenNV") txtbietdanh.DataBindings.Add("text", bs, "BietDanh") txtIDnhanvien.DataBindings.Add("text", bs, "IDNhanVien") txtdiachi.DataBindings.Add("text", bs, "DiaChi") txtghichu.DataBindings.Add("text", bs, "GhiChu") txtngaysinh.DataBindings.Add("text", bs, "NgaySinh") txtnhomnv.DataBindings.Add("text", bs, "TenNhom") txtphongban.DataBindings.Add("text", bs, "TenPhongBan") txtsdt.DataBindings.Add("text", bs, "SDT") 82 chkactive.DataBindings.Add("Checked", bs, "TrangThai") ' chkactive.DataBindings.Add("CheckState", bs, "TrangThai") txttrinhdo.DataBindings.Add("text", bs, "TrinhDo") txtgioitinh.DataBindings.Add("text", bs, "GioiTinh") 'chkactive.ch() Me.GridControl1.DataSource = bs status() End Sub #Region "load cas combobox" Public Sub cbogioitinh() txtgioitinh.Items.Add("Nam") txtgioitinh.Items.Add("Nữ") End Sub Public Sub cbphongban() dtphongban = DataProvider.LayDataTable("phongban") txtphongban.DisplayMember = "TenPhongBan" txtphongban.ValueMember = "TenPhongBan" txtphongban.DataSource = dtphongban txtphongban.Text = "" End Sub Public Sub cbnhomnv() dtnhomnv = DataProvider.LayDataTable("nhomnv") txtnhomnv.DisplayMember = "TenNhom" txtnhomnv.ValueMember = "TenNhom" txtnhomnv.DataSource = dtnhomnv txtnhomnv.Text = "" End Sub #End Region #Region " Status button" Public Sub status() If addstatus = True Or edistatus = True Then btnadd.Enabled = False btnhuy.Enabled = True 83 btnin.Enabled = False btnluu.Enabled = True btnsua.Enabled = False btnxoa.Enabled = False Else btnadd.Enabled = True btnhuy.Enabled = False btnin.Enabled = True btnluu.Enabled = False btnsua.Enabled = True btnxoa.Enabled = True End If End Sub #End Region #Region "Button Thêm" Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click addstatus = True status() settextbox() bs.AddNew() End Sub #End Region #Region "Settextbox" Public Sub settextbox() txttennv.Text = "" txtbietdanh.Text = "" txtngaysinh.Text = "" txtgioitinh.Text = "Nam" txtdiachi.Text = "" txttrinhdo.Text = "" 84 txtghichu.Text = "" txtsdt.Text = "" txtIDnhanvien.Text = "" chkactive.CheckState = cbnhomnv() cbphongban() End Sub #End Region #Region "xử lý thêm" Public Function them() As Boolean ' Khai bao so luong tham so Dim numberparam As Integer = 12 Dim name(numberparam) As String Dim value(numberparam) As String ' gan tham so name(1) = "@manv" name(2) = "@BietDanh" name(3) = "@NgaySinh " name(4) = "@GioiTinh " name(5) = "@DiaChi" name(6) = "@SDT" name(7) = "@TrinhDo" name(8) = "@TrangThai" name(9) = "@IDNhomNV" name(10) = "@IDPhongBan " name(11) = "@GhiChu" name(12) = "@TenNV" 'gan gia tri value(1) = txtIDnhanvien.Text value(2) = txtbietdanh.Text value(3) = txtngaysinh.Text value(4) = txtgioitinh.Text value(5) = txtdiachi.Text value(6) = txtsdt.Text 85 value(7) = txttrinhdo.Text If chkactive.CheckState = Then value(8) = True ElseIf chkactive.CheckState = Then value(8) = False End If value(9) = dtnhomnv.Rows(txtnhomnv.SelectedIndex)("IDNhomNV") value(10) = dtphongban.Rows(txtphongban.SelectedIndex) ("IDPhongBan") value(11) = txtghichu.Text value(12) = txttennv.Text ' thực thiện update Try If DataProvider.UpdateData("usp_DMNhanVien_Add", name, value, numberparam) = False Then MsgBox("Nhân viên tồn tại!!!", MsgBoxStyle.OkOnly, "cảnh báo") Return False Else MsgBox("thêm thành công!!", MsgBoxStyle.OkOnly, "Thông Báo") Return True End If Catch ex As Exception MsgBox("Lỗi:" + ex.Message) End Try End Function #End Region #Region "checkform" Public Function checkform() As Boolean Dim kq As Boolean = True If txtIDnhanvien.Text = "" Then MsgBox("Bạn Không để mã NV trống", vbOKOnly, "Thông Báo") kq = False 86 ElseIf txtbietdanh.Text = "" Then MsgBox("Bạn Không để Biệt danh trống", vbOKOnly, "Thông Báo") kq = False ElseIf txtphongban.Text = "" Then MsgBox("Bạn Không để Phịng ban trống", vbOKOnly, "Thơng Báo") kq = False ElseIf txtnhomnv.Text = "" Then MsgBox("Bạn Không để Nhóm NV trống", vbOKOnly, "Thơng Báo") kq = False End If End Function #End Region #Region "btn_huy" Private Sub btnhuy_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhuy.Click txtIDnhanvien.Enabled = True addstatus = False edistatus = False status() End Sub #End Region #Region "xử lý sửa" Public Function sua() As Boolean ' Khai bao so luong tham so Dim numberparam As Integer = 12 Dim name(numberparam) As String Dim value(numberparam) As String ' gan tham so name(1) = "@IDNhanVien" name(2) = "@BietDanh" 87 name(3) = "@NgaySinh " name(4) = "@GioiTinh " name(5) = "@DiaChi" name(6) = "@SDT" name(7) = "@TrinhDo" name(8) = "@TrangThai" name(9) = "@IDNhomNV" name(10) = "@IDPhongBan " name(11) = "@GhiChu" name(12) = "@TenNV" 'gan gia tri value(1) = txtIDnhanvien.Text value(2) = txtbietdanh.Text value(3) = txtngaysinh.Text value(4) = txtgioitinh.Text value(5) = txtdiachi.Text value(6) = txtsdt.Text value(7) = txttrinhdo.Text If chkactive.CheckState = Then value(8) = True ElseIf chkactive.CheckState = Then value(8) = False End If value(9) = dtnhomnv.Rows(txtnhomnv.SelectedIndex)("IDNhomNV") value(10) = dtphongban.Rows(txtphongban.SelectedIndex) ("IDPhongBan") value(11) = txtghichu.Text value(12) = txttennv.Text ' thực thiện update Try If DataProvider.UpdateData("usp_DMNhanVien_Update", name, value, numberparam) = False Then MsgBox("Sửa chưa thành công!!!", MsgBoxStyle.OkOnly, "cảnh báo") Return False 88 Else MsgBox("Sửa thành công thành công!!", MsgBoxStyle.OkOnly, "Thông Báo") Return True End If Catch ex As Exception MsgBox("Lỗi:" + ex.Message) End Try End Function #End Region Private Sub btnluu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluu.Click bs.EndEdit() If addstatus = True Then If them() = False Then Return bs.MoveLast() End If ElseIf edistatus = True Then If sua() = False Then Return bs.RemoveCurrent() End If End If settextbox() btnhuy_Click_1(sender, e) bs.ResetBindings(False) End Sub Private Sub btnin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnin.Click MsgBox("" + GridView1.GetFocusedRowCellDisplayText("TrangThai") + "") 89 ' GridControl1.ShowRibbonPrintPreview() End Sub Private Sub btnsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsua.Click txtIDnhanvien.Enabled = False If (txtIDnhanvien.Text = "") Then MsgBox("bạn vui lịng chọn nhóm muốn sửa", vbOK, "thông báo") End If edistatus = True status() End Sub Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnxoa.Click If txtIDnhanvien.Text = "" Then MsgBox("Bạn chưa chọn ghi cần xóa", vbOK, "Thơng Báo") End If Dim numberparam As Integer = Dim name(numberparam) As String Dim value(numberparam) As String ' gan tham so name(1) = "@IDNhanVien" value(1) = txtIDnhanvien.Text Try If DataProvider.UpdateData("usp_DMNhanVien_Delete", name, value, 1) = False Then MsgBox("Nhóm có nhân viên khơng xóa được!!!", vbOKOnly, "Cảnh báo!!") Return Else MsgBox("XóaThành Cơng!!", vbOKOnly, "Thơng Báo") End If Catch ex As Exception MsgBox("Lỗi: " + ex.Message) End Try 90 dt.Rows(GridView1.GetFocusedDataSourceRowIndex).Delete() End Sub End Class 91

Ngày đăng: 29/03/2023, 09:23

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w