Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân Lời nói đầu Trong sống thông tin đợc sử dụng hàng ngày Con ngời có nhu cầu nghe đài, đọc báo, tham khảo ý kiến ngời khác để thu nhận thông tin Khi tiếp nhận thông tin ngời phải xử lý để tạo thông tin có ích hơn, thân thiện để đến định chắn Để xử lý thông tin ngời phải sử dụng số công cụ định nh giấy, bút trí nhớ ngời Có thể nói thông tin đóng vai trò quan trọng đời sống, Khoa học, kỹ thuật, kinh doanh, quan hệ nh hoạt động khác xã hội Chúng ta sống kỷ nguyên với bùng nổ thông tin mạnh mẽ phong phú Thông tin trở thành nguồn tài nguyên quan trọng, nguồn cải vô giá ngời Vì việc nắm bắt thông tin nhanh, lu trữ thông tin với số lợng lớn xử lý thông tin xác kịp thời đóng vai trò cốt lõi toán Để công nghệ khao học tiên tiến Tin học ngành khoa học đáp ứng đợc đòi hỏi Những năm gần đây, giới nói chung nớc ta nói riêng tin học phát triển nhanh chóng, tin học đợc áp dụng nhiều ngành: Khoa học, công nghệ, quản lý kinh tế, sản xuất kinh doanh, giáo dục Đặc biệt ngành quản lý, giúp nhà quản lý giải công việc cách khoa học xác Nớc ta có chủ trơng tin học hóa, bớc đa ứng dụng tin học vào công tác quản lý giảng dạy Với tình hình quan sớm đa máy tính vào sử dụng nhiên khai thác mức độ văn phòng Phần mềm cho công tác quản lý cần thiết cho tình hình Từ yêu cầu thiết kế chơng trình quản lý cần thiết cho tình hình Từ yêu cầu thực tế với nhiệm vụ cho phép làm đề tài tốt nghiệp với yêu cầu đề tài là: " Xây dựng hệ thống thông tin quản lý nhân công ty cổ phần Thiên Minh chơng trình phần lời nói đầu kết luận đợc chia làm chơng: SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân - chơng I: Tổng quan công ty cổ phần Thiên Minh - chơngII:Bài toán quản lý nhân sở phơng pháp luận xây dựng đề tài - chơng III: phân tích thiết kế phần mềm quản lý nhân công ty cổ phần Thiên Minh - Trong thời gian làm đề tài thân có nhiều cố ngắng nhng lần xây dựng ứng dụng tin học vào thực tế, với thời gian tìm hiểu học hỏi không đợc nhiều nên khả nắm bắt vấn đề giải toán nhiều thiếu sót Kính mong đợc giúp đỡ thầy giáo hớng dẫn ThS Nguyễn Anh Phơng thầy cô bạn bè trờng, để hoàn thành tốt chơng trình này, sớm đợc đa vào áp dụng cho công tác quản lý nhân quan Cuối xin bày tỏ lòng biết ơn sâu sắc tới thầy Nguyễn Anh Phơng hớng dẫn giúp đỡ tạo điều kiện giúp đỡ hoàn thành nhiệm vụ Xin chân thành cảm ơn! SV thực tập Chơng I Tổng quan công ty cổ phần Thiên Minh 1.1 Giới thiệu công ty cổ phần Thiên Minh 1.1.1 Giới thiệu chung SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân - Tên công ty : công ty cổ phần Thiên Minh (Thiên Minh JSC) - Ngày thành lập : 03/09/ 1994 - Địa : Lô Bằng quân - cẩm Định - Cẩm Giàng Hải Dơng - Điện thoại/ Fax : 03203572463 1.1.2 Ngành kinh doanh - Kinh doanh thiết bị máy tính, máy in, đồ dùng văn phòng - Phân phối sơn, mặt hàng độc quyền - Xây dựng 1.1.3 Các phòng ban chức phòng Công ty cổ phần Thiên Minh công ty chuyên phân phối mặt hàng nhiều công ty sản xuất công ty hoạt động lĩnh vực xây dựng Công ty đợc chia có phận chủ yếu là: - ban quản trị ban giám đốc công ty - Phòng kế hoạch tổ chức - Phòng tài kế toán - Phòng kỹ thuật sản xuất - Phòng bảo hành - Phòng Kinh doanh Trong phòng ban công ty chia phân nhóm riêng cho phù hợp với nhu cầu đặc thù riêng công ty Thuộc phòng kinh doanh có hai nhóm trực thuộc : - Các đại lý phân phối mặt hàng công ty - Các hàng trực tiếp công ty mở để phân phối hàng hóa Thuộc phòng kỹ thuật đợc phân cấp có đội trực tiếp sản xuất : - Đội sản xuất số - Đội sản xuất số - Đội sản xuất số Chức phận cụ thể công ty đợc phân cụ thể ngời chịu trách nhiệm: - Ban quản trị: Gồm có chủ tịch hai phó chủ tịch hội đồng quản trị Chịu trách nhiệm tìm kế hoạch chung đờng nối phát triển cho phòng ban thực thi triển khai - Ban giam đốc: Gồm có giám đốc điều hành (là phó chủ tịch hội đồng quản trị) ba phó giám đốc, chịu trác nhiệm điều hành công ty - Phòng kế hoạch tổ chức: gồm trởng phòng hai phó phòng, phó phòng SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân chịu trách nhiệm nhân phó phòng chịu trách nhiệm công điềm số nhân viên - Phòng kế toán: gồm kế toán trởng bốn nhân viên kế toán - Phòng kỹ thuật: gồm có trởng phòng ba phó phòng chịu trách nhiệm kỹ thuật xây dựng nhân viên - Phòng bảo hành: gồm trởng phòng hai phó phòng, chịu trách nhiệm kỹ thuật bán hàng, bảo hành sản phẩm số nhân viên - Phòng kinh doanh: gồm trởng phòng hai phó phòng, chịu trách nhiệm bán hàng nhập hàng số nhân viên SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân 1.1.4 Sơ đồ hoạt động công ty Ban quản trị Ban giám đốc Phòng kế hoạch tổ chức Ban nhân Ban chấm công Phòng kế toán Đội sản xuất số Phòng kỹ thuật Đội sản xuất số Phòng bảo hành Đội sản xuất số Phòng kinh doanh Đại lý công ty 1.2 Tìm hiểu hệ thống thông tin công ty Thiên Minh 1.2.1 Tìm hiểu hệ thống thông tin công ty Trong trình thực tập công ty đợc cai hộ nhân viên công ty hớng dẫn bảo tận tình em đợc tiếp xúc với hệ thống máy tính công ty Tất phòng ban công ty đợc lắp đặt hệ thống máy tính đại an toàn Máy tính công ty đợc nối mạng internét mạng Lan Qua trình tìm hiểu em thấy công ty sử dụng số phần mềm phục vụ công ty là: - Phần mềm kế toán - Phần mềm quản lý hàng hóa - vật t - Phần mền kế toán bán hàng 1.2.2 Thực hệ thống tin công ty Tất phần mềm công ty đợc mua có quyền tơng SV: vũ hồng tứ Lớp th 46a Cửa hàng công ty Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân đối đại phù hợp với nhu cầu kinh doanh công ty Hệ thống máy tính công ty đợc lắp đặt nối mạng Internet mạng cục Hiện nhu cầu kinh doanh công ty ngày mở rộng việc tuyển cập nhập nhân viên bất cập Do em chọn đề tài quản lý nhân công ty Thiên Minh 1.3 Đề tài ngôn ngữ thực đề tài 1.3.1 Đề tài Trong trình tìm hiểu thực công ty em cảm thấy vấn đề quản lý ngời quan trọng Vấn đề nhân yếu tố phát triển sống hoạt động sản xuất kinh doanh doanh nghiệp Hiện vấn đề tin học hóa diễn biến mạnh mẽ tất doanh nghiệp hoà nhập tiến triển mạnh mẽ Doanh nghiệp không tự trang bị cho phần mềm quản lý tốt gặp nhiều khó khăn sản xuất kinh doanh Từ thực em chọn đề tài thực cho là: "Xây dựng hệ thống thông tin quản lý nhân công ty cổ phần Thiên Minh" 1.3.2 Ngôn ngữ xây dựng phần mềm phạm vi phần mền Qua trình đợc học tập nghiên cứu nhà trờng, em thấy visua Foxpro ngôn ngữ tiện sử dụng phù hợp với khả thân Do để hoàn thành đề tài em chọn Visua Foxpro ngôn ngữ để hoàn thành chơng trình Phạm vi chơng trình Chơng trình quản lý nhân đợc lập hoàn chỉnh với tính chất chơng trình thông dụng ( Thêm, Xoá, Sửa, Tra cứu, Thống kê, Báo cáo ) Chơng trình xây dựng phần tính lơng cho nhân viên nhng môi trờng máy đơn Kém bảo mật Không thể thực thi với ứng dụng mạng Khả chơng trình SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân Với yêu cầu mục đích nh chơng trình quản lý nhân có khả sau để nhằm phục vụ cho việc quản lý hồ sơ nhân viên : Nhập hồ sơ nhân viên, cán vào quan từ nơi khác đến Sau đó, lu lại hồ sơ cán quan hu chuyển công tác Xem Sửa hồ sơ nhân viên, cán làm việc quan, hu chuyển công tác Có thể xem sửa theo mã hồ sơ, mã cán bộ, mã phòng ban, số điện thoại, địa chỉ, chức vụ tổng số tiền lĩnh tháng Tìm kiếm hồ sơ nhân viên, cán quan Tìm kiếm theo mã hồ sơ, mã cán bộ, mã phòng ban, họ tên, ngày sinh, trình độ, ngày lên lơng, mức lơng Xoá hồ sơ cán bộ, nhân viên quan mà hu chuyển công tác - Trớc đây, cán bộ, nhân viên nghỉ hu chuyển công tác phận quản lý hồ sơ Công ty chuyển toàn hồ sơ đầu vào đầu cán sang phận bảo hiểm Sau đó, phận bảo hiểm tính mức lơng đợc hởng với cán bộ, nhân viên theo trình công tác lu hồ sơ cán bộ, nhân viên - Nhng nay, theo thông t Nhà nớc ban hành Khi cán bộ, nhân viên nghỉ hu chuyển công tác phận quản lý hồ sơ Công ty chuyển toàn hồ sơ đầu vào đầu cán sang phận bảo hiểm Sau phận bảo hiểm tính mức lơng xong phải trả lại hồ sơ cán phận quản lý hồ sơ Công ty - Tóm lại, tuỳ theo thời điểm mà chức đợc sử dung không đợc sử dụng In trích ngang chi tiết hồ sơ cán bộ, nhân viên phòng ban toàn quan cán hu, chuyển công tác In bảng tổng hợp nh : Tổng hợp lơng, tổng hợp trình độ, tổng hợp ngày lên lơng lần cuối cùng, tổng hợp cán đủ điều kiên h- SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân u Hệ thống có khả thờng xuyên thông báo cho ban lãnh đạo mặt công tác : tổ chức lao động, tiền lơng, thi đua, chấm công, khen thởng, kỷ luật hệ thống đặt dới đạo trực tiếp giám đốc Với khả nh vậy, hệ thống quản lý nhân có nhiệm vụ cập nhật hồ sơ cán bộ, công nhân, nhân viên theo quy định, thờng xuyên bổ xung thông tin thay đổi trình công tác cán công nhân viên, việc theo dõi quản lý lao động để chấm công toán lơng nhiệm vụ quan trọng hệ thống Ngoài ra, công tác thống kê báo cáo tình hình theo yêu cầu ban giám đốc nhiệm vụ thiếu hệ thống quản lý nhân SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân Chơng II toán Quản lý nhân sở phơng pháp luận xây dựng đề tài 2.1.tổng quan hệ thống quản lý nhân 2.1.1 Khái niệm, mục tiêu, tầm quan trọng quản trị nhân lực Hiện phát triển toàn xã hội nh việc phát triển riêng công nghệ cao cho lên việc quản lý ngời có tầm chiến lợc quan trọng Do vấn đề cạnh tranh quản lý ngời có tầm chiến lợc Quản lý nhân thự chất vấn đề quản lý ngời Yêu cầu thực tiễn quản lý ngời nh tế nào? Vấn đề quản lý ngời, nguồn lực đạt hiệu cao để doanh nghiệp đạt đợc hiệu làm việc cao tạo điều kiện cho phát triển Bất tổ chức đợc tạo thành thành viên ngời hay nguồn nhân lực Do đó, nói nguồn nhân lực tổ chức bao gồm tất ngời lao động làm việc tổ chức đó, nhân lực đợc hiểu nguồn lực ngời mà nguồn lực gồm lực trí lực Thể lực sức khoẻ thân thể, phụ thuộc vào sức vóc, tình trạng sức khoỏe ngời, mức sống, thu nhập, chế độ ăn uống, chế độ làm việc nghỉ ngơi, chế độ y tế Thể lực ngời tuỳ thuộc vào tuổi tác, thời gian công tác, giới tính Trí lực sức suy nghĩ, hiểu biết, tiếp thu kiến thức, tài năng, lòng tin nhân cách ngời Trong sản xuất kinh doanh truyền thông, việc tận dụng tiềm thể lực ngời không thiếu lãng quên nói đợc khai thác gần tới mức cạn kiệt Sự khai thác tiềm trí lực ngời mức mẻ cha cạn kiệt, kho tàng nhiều bí ẩn ngời Có nhiều cách hiểu quản trị nhân lực, khái niệm quản trị nhân lực trình bày nhiều giác độ khác Với t cách chức quản trị tổ chức quản lý nhân bao gồm việc hoạch định, tổ chức, chi huy kiểm SV: vũ hồng tứ Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân soát hoạt đồng nhằm thu hút, sử dụng phát triển ngời để đạt đợc mục tiêu tổ chức Đi sâu vào việc làm quản trị nhân ngời ta hiểu quản trị nhân việc tuyển mộ, tuyển chọn, trì phát triển, động viên cung cấp tiện nghi cho nhân lực thông qua tổ chức Song giác độ quản trị nhân hoạt động tổ chức để thu hút, xây dựng, phát triển, sử dụng, đánh giá, bảo toàn giữ gìn lực lợng lao động phù hợp với yêu cầu công việc tổ chức mặt số lợng chất lợng Đối tợng quản trị nhân ngời lao động với t cách cá nhân, cán tổ chức vấn đề có liên quan đến họ nh công việc quyền lợi, nghĩa vụ họ tổ chức Mục tiêu tổ chức sử dụng cách có hiệu suất nguồn nhân lực để đạt đợc mục tiêu tổ chức Quản trị nhân lực nhằm củng cố trì đầy đủ số lợng chất lợng lao động cần thiết cho tổ chức để đạt đợc mục tiêu đặt Quản trị nhân lực giúp tìm kiếm phát triển hình thức, phơng pháp tốt để ngời lao động góp nhiều sức lực cho việc đạt đợc mục tiêu tổ chức đồng thời tạo hội để phát triển không ngừng cho thân ngời lao động Quản trị nhân lực phận cấu thành thiếu quản trị kinh doanh Quản trị nhân lực thờng nguyên nhân thành công hay thất bại hoạt động sản xuất kinh doanh Thực chất quản trị nhân lực công tác quản lý phạm vi nội tổ chức, đối sử tổ chức ngời lao động Nói cách khác, quản trị nhân lực chịu trách nhiệm việc đa ngời vào tổ chức, giúp cho họ thực công việc, thù lao cho sức lao động họ giải vấn đề phát sinh Con ngời yếu tố cấu thành lên tổ chức, vận hành tổ chức định thành bại tổ chức Nguồn nhân lực nguồn lực thiếu, mặt khác quản lý nguồn lực khác hiệu tổ chức không quản lý hiệu nguồn nhân lực, suy đến hoạt động quản lý thực ngời Trong thời đại ngày quản trị nhân lực có tầm quan trọng ngày tăng lý sau Do cạnh tranh ngày gay gắt thị trờng nên tổ chức SV: vũ hồng tứ 10 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân STOR [ không] TO MangChuSo(1) STOR [ một] TO MangChuSo(2) STOR [ hai] TO MangChuSo(3) STOR [ ba] TO MangChuSo(4) STOR [ bốn] TO MangChuSo(5) STOR [ năm] TO MangChuSo(6) STOR [ sáu] TO MangChuSo(7) STOR [ bảy] TO MangChuSo(8) STOR [ tám] TO MangChuSo(9) STOR [ chín] TO MangChuSo(10) SoChu = [] IF So < So = - So SoChu = SoChu + " âm" ENDIF So_sau_dau_phay = So - INT(So) ****Doc phan nguyen truoc So = INT(So) &&Vi ben duoi co doan S = LEFT(ALLT(S), LEN(ALLT(S)) - 1) ; && cho nen phai cho so vao de neu doc so thi no khong bi mat chu "g" IF So = SoChu = SoChu + " " + 'không0' ELSE &&Cong them cac so khong vao dang truoc chuoi de duoc chan cac to hop so So = ALLT(STR(So,16)) IF MOD(LEN(So) , ) = So = '00' + So ENDIF IF MOD(LEN (So), ) = So = '0' + So ENDIF SV: vũ hồng tứ 111 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân So_Nhom = LEN(So)/3 Stt_Nhom = So_Nhom Stt_So = &&Doc theo tung nhom so DO WHILE Stt_So IF Stt_Nhom < &&Nho hon mot ty thi phai cng them dau phay SoChu = SoChu + DOI_SO_CHU_NHOM(So_Phu, Stt_Nhom, So_Nhom) + [,] ELSE SoChu = SoChu + DOI_SO_CHU_NHOM(So_Phu, Stt_Nhom, So_Nhom) ENDIF ELSE SoChu = SoChu + DOI_SO_CHU_NHOM(So_Phu, Stt_Nhom, So_Nhom) ENDIF Stt_So = Stt_So + ENDDO ENDIF SoChu = LEFT(ALLT(SoChu), LEN(ALLT(SoChu)) - 1) ****Doc phan thap phan * Neu chu so dau tien sau dau phay khac khong thi doc nhu phan so nguyen IF So_sau_dau_phay > SoChu = SoChu + " phẩy" So_sau_dau_phay = ALLTR(STR(So_sau_dau_phay, 8, 6)) &&Chi doc den chu so sau dau ph So_sau_dau_phay = SUBS(So_sau_dau_phay, 3, LEN(So_sau_dau_phay) - 2) &&Cat lay phan sau da IF LEFT(So_sau_dau_phay, 1) '0' &&Cat nhung so o ben phai STR() di DO WHILE RIGHT(So_sau_dau_phay, 1) = '0' SV: vũ hồng tứ 112 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân So_sau_dau_phay = LEFT(So_sau_dau_phay, LEN(So_sau_dau_phay) - 1) ENDDO &&Cong them cac so khong vao dang truoc chuoi de duoc chan cac to hop so IF MOD(LEN(So_sau_dau_phay) , ) = So_sau_dau_phay = '00' + So_sau_dau_phay ENDIF IF MOD(LEN(So_sau_dau_phay), ) = So_sau_dau_phay = '0' + So_sau_dau_phay ENDIF So_Nhom = ROUND(LEN(So_sau_dau_phay) / 3,0) Stt_Nhom = So_Nhom Stt_So = &&Doc theo tung nhom so O WHILE Stt_So 1) Nhom_Chu = Nhom_Chu + Tu_Bon SV: vũ hồng tứ 114 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân ELSE Nhom_Chu = Nhom_Chu + Don_Vi_Chu ENDIF ENDIF ENDIF ELSE Nhom_Chu = Nhom_Chu + ' lăm' ENDIF ELSE Nhom_Chu = Nhom_Chu + ' mời' IF ALLTR(Don_Vi_Chu) 'năm' IF ALLTR(Don_Vi_Chu) 'không' Nhom_Chu = Nhom_Chu + Don_Vi_Chu ENDIF ELSE Nhom_Chu = Nhom_Chu + ' lăm' ENDIF ENDIF ELSE IF ALLTR(Don_Vi_Chu) 'không' Nhom_Chu = Nhom_Chu + ' linh' IF ALLTR(Don_Vi_Chu) 'bốn' Nhom_Chu = Nhom_Chu + Don_Vi_Chu ELSE Nhom_Chu = Nhom_Chu + Tu_Bon ENDIF ENDIF ENDIF IF (Tram = '0') AND (Chuc = '0') AND (Don_Vi '0') AND (Stt_Nhom > 1) Nhom_Chu = Don_Vi_Chu ENDIF IF (Tram = '0') AND (Chuc = '0') AND (Don_Vi '0') AND (So_Nhom = 1) Nhom_Chu = Don_Vi_Chu ENDIF SV: vũ hồng tứ 115 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân DO CASE CASE Stt_Nhom = Nhom_Chu = Nhom_Chu + ' nghìn' CASE Stt_Nhom = Nhom_Chu = Nhom_Chu + ' triệu' CASE Stt_Nhom = Nhom_Chu = Nhom_Chu + ' tỷ' CASE Stt_Nhom = Nhom_Chu = Nhom_Chu + ' nghìn' CASE Stt_Nhom = Nhom_Chu = Nhom_Chu + ' triệu' ENDCASE IF (Tram = '0') AND (Chuc = '0') AND (Don_Vi = '0') Nhom_Chu = '' ENDIF RETURN Nhom_Chu *!* -*!* PROCEDURE HookObjectBrowse *!* -PROCEDURE HookObjectBrowse oBrowse.Tag = ORDER() oBrowse.Comment = FILTER() FOR i =1 TO oBrowse.ColumnCount WITH oBrowse.Columns(i) cCaption = Header1.Caption RemoveObject("Header1") AddObject("Header1", "hdrSort") Header1.Tag = ControlSource Header1.Caption = cCaption ENDWITH ENDFOR FOR i =1 TO oBrowse.ColumnCount WITH oBrowse.Columns(i) SV: vũ hồng tứ 116 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân RemoveObject("Text1") AddObject("Text1", "txtSort") Text1.Visible = T ENDWITH ENDFOR IF oBrowse.Partition > oBrowse.Panellink = F oBrowse.Panel = oBrowse.ScrollBars = oBrowse.Panel = oBrowse.DeleteMark = F oBrowse.RecordMark = F oBrowse.Panellink = T oBrowse.Partition = oBrowse.Partition - 18 ENDIF ENDPROC *!* -DEFINE CLASS hdrSort AS Header PROCEDURE Init THIS.FontName = m_Font_Name THIS.FontSize = m_Font_Size THIS.FontBold = T THIS.Alignment = THIS.BackColor = m_Back_color ENDPROC PROCEDURE DblClick IF NOT ISEXCLUSIVE() RETURN ENDIF sIndex = THIS.Tag IF NOT EMPTY(oBrowse.ToolTipText) sExecute = "oBrowse." + ALLTRIM(oBrowse.ToolTipText)+ ".Header1.ForeColor = 0" &sExecute ENDIF SV: vũ hồng tứ 117 Lớp th 46a Chuyên đề thực tập tốt nghiệp Trờng ĐH kinh tế quốc dân DO CASE CASE EMPTY(THIS.Comment) INDEX ON &sIndex TAG fOrder THIS.Comment = "1" THIS.ForeColor = 16711680 CASE THIS.Comment = "1" INDEX ON &sIndex DESCENDING TAG fOrder THIS.Comment = "2" THIS.ForeColor = 16711680 CASE THIS.Comment = "2" oldOrder = ALLTRIM(oBrowse.Tag) SET ORDER TO &oldOrder THIS.Comment = "" THIS.ForeColor = ENDCASE oBrowse.Refresh oBrowse.ToolTipText = THIS.Parent.Name ENDPROC ENDDEFINE *!* -DEFINE CLASS txtSort AS TextBox PROCEDURE Init THIS.FontName = m_Font_Name THIS.FontSize = m_Font_Size THIS.BorderStyle = ENDPROC PROCEDURE GotFocus THIS.StatusBarText = ALLTRIM(m_Prompt) + " - " + ALLTRIM(STR(RECNO(), 16)) + "/" ALLTRIM(STR(RECCOUNT(), 16)) + " " + Cat_dau(ALLTRIM(THIS.Parent.Header1.Caption)) + Cat_dau(THIS.Text) ENDPROC ENDDEFINE SV: vũ hồng tứ 118 Lớp th 46a Chuyên đề thực tập tốt nghiệp *!* Trờng ĐH kinh tế quốc dân FUNCTION MsgBox(sMessageText,iDialogBoxType,cTitleBarText) FUNCTION MsgBox PARAMETER sMessageText,iDialogBoxType,cTitleBarText PRIVATE OldError IF VARTYPE(iDialogBoxType) = "C" cTitleBarText = iDialogBoxType nDialogBoxType = ELSE nDialogBoxType = iDialogBoxType ENDIF IF EMPTY(m_user_pre) cMessageText = sMessageText ELSE cMessageText = IIF(; MOD(INT(SECOND()), 2) = 0, ; m_user_dear + " " + ALLTRIM(m_user_pre), ; ALLTRIM(m_user_pre) + " ơi") + ", " + sMessageText && , ECode2String('SMLIB0073'))) ENDIF PRIVATE iReturn iReturn=0 IF PARAMETER()=1 nDialogBoxType=0 ENDIF IF PARAMETER()