Header Page of 113 Đề tài: “Xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức cho công ty cổ phần” Footer Page of 113 Header Page of 113 PHẦN MỞ ĐẦU Tính cấp thiết đề tài Trong năm qua phủ đưa nhiều chế, sách thích hợp, kịp thời nhằm đẩy mạnh trình cổ phần hóa doanh nghiệp nhà nước với mục tiêu đổi doanh nghiệp nâng cao hiệu sử dụng vốn nhà nước doanh nghiệp Tuy nhiên, trình cổ phần hóa đặt nhiều thách thức việc chuyển từ doanh nghiệp nhà nước sang công ty cổ phần đồng nghĩa với việc chuyển đổi hình thức pháp lý môi trường kinh doanh doanh nghiệp Một số vấn đề nảy sinh quản lý danh sách cổ đông cho chặt chẽ, chi trả cổ tức thật xác, phải tiến hành bầu cử Hội đồng quản trị theo định kỳ Ở nhiều doanh nghiệp việc quản lý chưa khoa học dẫn đến tượng chồng chéo, thông tin đưa không quán xác Ngày nay, Công nghệ thông tin phát triển mạnh mẽ, công tác quản lý ngày tin học hoá nhiều để phù hợp với yêu cầu công việc đặt Xuất phát từ thực tiễn trên, tác giả tiến hành nghiên cứu xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Phần mềm chia làm hai mảng là: + Quản lý cổ đông, chi trả cổ tức + Hỗ trợ bầu cử Mục tiêu đề tài: Đề tài: “Xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Footer Page of 113 Header Page of 113 cho công ty cổ phần Naphaco” chọn nghiên cứu nhằm mục đích : Hỗ trợ cho việc tập hợp số liệu bầu cử cách nhanh chóng xác, đảm bảo tính minh bạch khoa học số liệu biên bầu cử Theo dõi danh sách cổ đông công ty, trình chia, tách, điều chuyển, tăng giảm cổ phần chi trả cổ tức hàng năm công ty Lập báo cáo, tổng hợp thông tin cách nhanh chóng xác, liệu lưu qua nhiều năm, dễ dàng truy cập, tìm kiếm Đối tượng phạm vi nghiên cứu đề tài Đối tượng nghiên cứu: + Các thành phần hệ thống thông tin hỗ trợ bầu cử quản lý cổ đông, cổ tức; + Luật chứng khoán thị trường chứng khoán; + Lý thuyết xây dựng phát triển phần mềm gồm vấn đề vòng đời phát triển phần mềm , thiết kế phần mềm, tổ chức đào tạo người sử dụng Phạm vi nghiên cứu đề tài: Phân tích trạng Công ty Naphaco, vào sở lý thuyết để tập trung xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Phương pháp nghiên cứu - Sử dụng phương pháp vật- biện chứng phân tích thiết kế, t phân tích chức đến mô hình hoá, xem xét vấn đề tổng hoà mối quan hệ, đảm bảo tính toàn vẹn quan hệ kết hợp với yếu tố lịch sử Đồng thời áp dụng phương pháp điều tra, khảo sát thực tế - Đề tài sử dụng phương pháp thiết kế Top – Down - Sử dụng ngôn ngữ lập trình Visualbasic 6.0 kết nối CSDL Access Đóng góp khoa học đề tài Footer Page of 113 Header Page of 113 Khắc phục nhược điểm Hệ thống thông tin cũ, phần trung tâm đề tài xây dựng phần mềm hỗ trợ bầu cử (đối với công tác bầu cử ) quản lý cổ đông, cổ tức nhằm tin học hoá khâu trình quản lý ban đầu Đóng góp vào việc giảm sai sót trình chi trả cổ tức (một trình nhạy cảm với cổ đông), có thông tin cập nhật thường xuyên đầy đủ cổ đông, hỗ trợ đắc lực cho cán lãnh đạo với nguồn thông tin nhanh chóng, xác Kết cấu luận văn Mở đầu Chương 1: Tổng quan công ty cổ phần dược phẩm Nam Hà trạng quản lý cổ đông, cổ tức, bầu cử Chương 2: Phương pháp luận quy trình xây dựng phần mềm quản lý cổ đông, cổ tức Chương 3: Xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Kết luận Tài liệu tham khảo Phụ lục Footer Page of 113 Header Page of 113 CHƯƠNG TỔNG QUAN VỀ CÔNG TY CỔ PHẦN DƯỢC PHẨM NAM HÀ VÀ HIỆN TRẠNG QUẢN LÝ CỔ ĐÔNG, CỔ TỨC, B ẦU C Ử 1.1.Tổng quan công ty cổ phần dược phẩm Nam Hà (Naphaco) 1.1.1 Lịch sử hình thành lĩnh vực sản xuất - Lịch sử hình thành Công ty cổ phần dược phẩm Nam Hà trải qua số mốc lịch sử sau: * Năm 1960 Công ty thành lập sở tiền thân công ty hợp doanh Ích Hoa Sinh * Năm 1966 Sát nhập lấy tên Xí nghiệp dược phẩm Nam Hà Do xu phát triển kinh tế nước cổ phần hoá doanh nghiệp quốc doanh nên Ngày 1/1/2000 Công ty chuyển đổi thành công ty Cổ phần Dược Phẩm Nam Hà Công ty dược phẩm Nam Hà công ty hàng đầu lĩnh vực sản xuất kinh doanh mặt hàng dược phẩm Vì vậy, Công ty tiến hành cổ phần hoá nhà nước tham gia nắm giữ số lượng cổ phiếu trở thành cổ đông lớn - Lĩnh vực sản xuất Công ty có đông đảo đội ngũ cán đại học, sau đại học dày dạn kinh nghiệm quản lý kỹ thuật nghiệp vụ Đội ngũ tiếp thị rộng khắp tỉnh thành nước, có nghiệp vụ động, sáng tạo đội ngũ công nhân đào tạo bản, mức độ thành thạo tay nghề ngày tăng dây truyền sản xuất thuốc Đông dược, Tân dược với 110 sản phẩm cấp số đăng ký lưu hành toàn quốc đa dạng phong phú: Thuốc nước, Footer Page of 113 Header Page of 113 thuốc viên nén, viên nén ép vỉ, viên nang (capsule), viên mềm (Soft-Gelatine), viên thuốc sủi bọt cao đơn hoàn tán Chất lượng hàng hóa ổn định kiểm soát chặt chẽ, nhiều sản phẩm công ty sản xuất tặng Huân chương vàng, bạc nhiều hội chợ triển lãm thành tựu kinh tế kỹ thuật: năm 2000 2001 người tiêu dùng bình chọn "Hàng Việt Nam chất lượng cao" báo Sài gòn tiếp thị tổ chức Mục tiêu Công ty: Chất lượng hướng tới người tiêu dùng, sản phẩm có sức cạnh tranh cao tiến tới hội nhập khu vực giới Công ty đầu tư gần 30 tỷ đồng xây dựng, lắp đặt thiết bị dây truyền thuốc tân dược Soft-Gelatine đạt tiêu chuẩn GMP-ASEAN, phòng kiểm tra chất lượng đạt tiêu chuẩn GLP cảnh quan,môi sinh, môi trường toàn khu vực sản xuất trụ sở hành Tiến tới công ty đạt tiêu chuẩn thực hành tốt bảo quản thuốc GSP Tiêu chuẩn quản lý chất lượng hàng hóa ISO9002 Công ty nỗ lực phấn đấu để xứng đáng nơi tin cậy người tiêu dùng, bạn hàng nước lĩnh vực: Sản xuất Lưu thông nước - Xuất nhập 1.1.2 Sơ đồ tổ chức Naphaco với hệ thống phòng ban, chi nhánh phối hợp chặt chẽ tạo nên hệ thống quản lý tốt Mỗi phòng ban có chức riêng như: + Phòng tổ chức hành có chức quản lý cán công nhân viên, quản lý bảo hiểm, Quản lý danh sách cổ đông, hệ số lương, thực sách từ ban giám đốc hội đồng quản trị + Phòng kế hoạch với chức chủ yếu lập kế hoạch dài hạn ngắn hạn phù hợp với tình hình phát triển công ty Kiểm tra tiến độ thực hiện, hoàn thành kế hoạch thực Footer Page of 113 Header Page of 113 NA PHA CO Phòng Tổ chức hành Phòng Phòng Kế hoạch Marketing Phòng Các Chi Kiểm nhánh tra Chất Các Hiệu Phòng Phòng Phòng thuốc Kế toán Kinh Nghiên Tài vụ doanh cứu phát lượng Hình 1.1: Sơ đồ tổ chức Công ty cổ phần dược phẩm Nam Hà Footer Page of 113 triển Header Page of 113 Footer Page of 113 Header Page of 113 + Phòng Marketing: Nghiên cứu tìm hiểu thị trường nước, giới thiệu sản phẩm công ty sản xuất mặt hàng mà công ty nhập + Phòng kiểm tra chất lượng: Trước tung sản phẩm thị trường sản phẩm kiểm tra chất lượng theo tiêu chuẩn định + Các chi nhánh hiệu thuốc mạng lưới phân phối sản phẩm công ty Naphaco có chi nhánh Đà nẵng, Hà nội, Thành phố Hồ Chí Minh, Lạng Sơn Mạng lưới hiệu thuốc phân bố rộng rãi nước + Phòng kế toán tài vụ:có nhiều chức có chức tính cổ tức cho cổ đông, phát cổ tức tiền mặt chuyển khoản vào tài khoản cổ đông + Phòng kinh doanh + Phòng nghiên cứu phát triển 1.2 Các thuật ngữ kinh tế sử dụng Trong luận văn này, tác giả có đề cập đến số khái niệm thị trường chứng khoán cổ đông, cổ tức, cổ phần, cổ phiếu số khái niệm khác Vậy cổ đông, cổ tức, cổ phần, cổ phiếu ? Cổ đông (tiếng Anh: Shareholder) người hay tổ chức nắm giữ quyền sở hữu phần hay toàn phần vốn góp (cổ phần) công ty cổ phần.Cổ đông cá nhân tổ chức.Cổ đông hiểu nhà đầu tư cổ phiếu Cổ tức phần lợi nhuận sau thuế chia cho cổ đông công ty cổ phần Cổ tức trả tiền cổ phiếu Cổ tức mà cổ đông hưởng nhiều hay phụ thuộc vào số cổ phần loại cổ Footer Page of 113 Header Page 10 of 113 10 phần mà cổ đông nắm giữ Cổ phiếu giấy chứng nhận số tiền nhà đầu tư đóng góp vào công ty phát hành Cổ phiếu chứng công ty cổ phần phát hành bút toán ghi sổ xác nhận quyền sở hữu cổ phần công ty đó.Cổ phiếu loại giấy có giá trị mua, bán, cho, tặng…Có số loại cổ phiếu như: +Cổ phiếu phổ thông +Cổ phiếu ưu đãi + Cổ phiếu quỹ: + Cổ phiếu chưa phát hành + Cổ phiếu phát hành + Cổ phiếu lưu hành Cổ phiếu phổ thông: loại cổ phiếu có thu nhập phụ̀ thuộc vào hoạt động kinh doanh công ty Người sở hữu cổ phiếu phổ thông tham gia họp Đại hội đồng cổ đông bỏ phiếu định vấn đề quan trọng công ty, quyền bầu cử ứng cử vào Hội đồng quản trị công ty Cổ phiếu ưu đãi: tương tự cổ phiếu phổ thông cổ đông sở hữu không tham gia bầu cử ứng cử vào Hội đồng quản trị, lại có quyền hưởng thu nhập cố định hàng năm theo tỷ lệ lãi suất cố định không phụ thuộc vào lợi nhuận công ty, ưu tiên chia lãi cổ phần trước cổ đông phổ thông ưu tiên chia tài sản lại công ty công ty lý, giải thể Cổ phiếu quỹ: cổ phiếu giao dịch thị trường tổ chức phát hành mua lại nguồn vốn Cổ phiếu chưa phát hành: loại cổ phiếu mà công ty chưa bán Footer Page 10 of 113 Header Page 127 of 113 127 End With '=============================DU LIEU=================================================== === lLeft = Me.lblSTT.Width lHeight = Me.fldSTT.Height lTop = Me.fldSTT.Top 'Them data field With KetQuaBau.Sections("Detail").Controls Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = "SO_CP" ctlTang.Text = "" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = lTop ctlTang.Font.Bold = False Footer Page 127 of 113 Header Page 128 of 113 128 ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width For i = To nSoCot 'Tang co phan Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = arrTitle(i) ctlTang.Text = "" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = lTop ctlTang.Font.Bold = False ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" Footer Page 128 of 113 Header Page 129 of 113 129 lLeft = lLeft + ctlTang.Width 'Giam co phan Next Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "CP_Bau" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Khong hop le Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "KHONG_HOPLE" Footer Page 129 of 113 Header Page 130 of 113 130 ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Ghi chu Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "GHI_CHU" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = Footer Page 130 of 113 Header Page 131 of 113 131 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXLeft ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With lLeft = Me.lblSTT.Width lHeight = Me.Group_Label1.Height lTop = Me.Group_Label1.Top '====================================TOTAL============= ============================= ' Them phần tính tổng cộng With KetQuaBau.Sections("GroupFooter").Controls Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = "SUM_SO_CP" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = Footer Page 131 of 113 Header Page 132 of 113 132 ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" '============================= 'ctlTang.SummaryFunc = ddSFSum 'ctlTang.SummaryGroup = "GroupFooter" 'ctlTang.SummaryRunning = ddSRGroup 'c'tlTang.SummaryType = ddSMSubTotal '============================ lLeft = lLeft + ctlTang.Width For i = To nSoCot Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = arrTong(i) ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = Footer Page 132 of 113 Header Page 133 of 113 133 ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" '============================= 'tlTang.SummaryFunc = ddSFSum 'ctlTang.SummaryGroup = "GroupFooter" 'ctlTang.SummaryRunning = ddSRGroup 'ctlTang.SummaryType = ddSMSubTotal '============================ lLeft = lLeft + ctlTang.Width Next Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "CongCuaSum" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = Footer Page 133 of 113 Header Page 134 of 113 134 ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "SUM_KHONG_HOPLE" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth Footer Page 134 of 113 Header Page 135 of 113 135 ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Footer Page 135 of 113 Header Page 136 of 113 136 End With '============================TONG HOP KET QUA=========================================== lLeft = Me.lblSTT.Width lHeight = Me.LblFooter.Height lTop = Me.LblFooter.Top ' Them phan tong hop ket qua With KetQuaBau.Sections("ReportFooter").Controls Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = "ABC" ctlTang.Text = "Kết quả" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle Footer Page 136 of 113 Header Page 137 of 113 137 lLeft = lLeft + ctlTang.Width For i = To nSoCot Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = arrPhanTramKq(i) 'ctlTang.OutputFormat = "#,##0" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Next Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" Footer Page 137 of 113 Header Page 138 of 113 138 ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth Footer Page 138 of 113 Header Page 139 of 113 139 ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With Footer Page 139 of 113 Header Page 140 of 113 140 With Toolbar.Tools Add "Ra excel" End With End Sub Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool) Dim xls As ARExportExcel Dim XLSFileName As String On Error GoTo Err_handle If Tool.Caption = "Ra excel" Then frmAccsys.CDialog.FileName = "*.xls" frmAccsys.CDialog.Filter = "Excel (*.xls) | *.xls |All file (*.*) | *.*" frmAccsys.CDialog.FilterIndex = frmAccsys.CDialog.Flags = &H4 frmAccsys.CDialog.InitDir = App.path frmAccsys.CDialog.ShowSave XLSFileName = frmAccsys.CDialog.FileName If Trim(XLSFileName) "" And InStr(XLSFileName, "*")