1. Khởi động mỏy tớnh
2. Cho đĩa CD cú chứa chương trỡnh vào ổ CD-ROM 3. Chọn Start\Run
4. Gừ vào ụ Open lệnh F:\QLNS\Setup và chọn OK Sau đú chạy chương trỡnh bằng cỏch :
1.Chọn Start\Progam\QLNS 2.Kớch vào QLNS.
KẾT LUẬN
Tin học hoỏ quản lý quỏ trỡnh ỏp dụng những thành tựu khoa học cụng nghệ thụng tin vào cỏc hoạt động quản lý với tốc độ cao và độ chớnh xỏc tối đa. Cựng với xu hướng phỏt triển mạnh mẽ của cụng nghệ thụng tin thỡ yờu cầu về nhõn lực con người cũng ngày càng được xó hội đũi hỏi cao hơn cả về thể lực lẫn trớ lực. Để cú thể điều hành và quản lý tốt trong thời đại thụng tin này, con người phải cú đủ trỡnh độ, kiến thức, tầm hiểu biết rụng mới cú thể nắm bắt và điều hành cỏc hoạ động xử lý thụng tin diễn ra hàng ngày. Đõy chớnh là mục tiờu mà cỏc nhà quản lý kinh tế đặt ra cho đội ngũ cỏn bộ cụng nhõn viờn của họ. Vỡ vậy cỏc nhà quản lý cần phải cú sự theo dừi, điều tra thường xuyờn về nguồn nhõn lực mà mỡnh đang sử dụng để từ đú cú những kế hoạch bồi dưỡng, nõng cao trỡnh độ chuyờn mụn nghiệp vụ, tay nghề đỏp ứng kịp thời cho sự tăng trưởng của nền Kinh Tế Quốc Dõn. Chương trỡnh này được xõy dựng nhắm đỏp ứng được phần nào nhu cầu đú.
Tuy nhiờn do thời gian cú hạn cộng với kiến thức cũn ớt ỏi, kinh nghiệm cũn non nớt nờn chương trỡnh khụng trỏnh khỏi những hạn chế. Em rất mong được sự gúp ý của cỏc thầy cụ để chương trỡnh hoàn thiện hơn.
DANH MỤC TÀI LIỆU THAM KHẢO
1. Giỏo trỡnh Hệ thống thụng tin quản lý
Trần Thị Song Minh, Trương Văn Tỳ, NXB Thống Kờ 2000 2. Cơ sở dữ liệu
Trần Cụng Uốn, NXB Thống Kờ 2000 3. Những bài thựchành Visual Foxpro
Đinh Xuõn Lõm, NXB Thống Kờ
4. Sử dụng và khai thỏc Microsoft Visual Foxpro 6.0 Nguyễn Ngọc Minh, NXB Giỏo Dục
5. Quản trị nhõn lực
PHỤ LỤC Cap nhat sua danh muc phong ban
Private Sub cmdsua_Click() Dim traloi As String
If kiemtra2 = 0 Then
traloi = MsgBox("Bạn có muốn sửa không?", vbYesNo, "Thông báo") If traloi = vbYes Then
themmoi
MsgBox "Đã sửa", vbOKOnly, "Thông báo!" Else
MsgBox " Đã không sửa", vbOKOnly, " Thông báo" End If
End If End Sub
Private Sub cmdxacnhan_Click() If kiemtra = 0 Then
MsgBox "Đã xác nhận!", vbOKOnly, "Thong bao!" cbomapb.Enabled = False cmdxacnhan.Enabled = False txttenpb.Enabled = True txtngay.Enabled = True txtdiachi.Enabled = True txtdienthoai.Enabled = True txtfax.Enabled = True txtemail.Enabled = True txtkhac.Enabled = True CMdsua.Enabled = True End If End Sub
Function kiemtra() As Integer Dim sql, mapb As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset
mapb = cbomapb.Text kiemtra = 0
'kiem tra ma nhan vien co dc nhap ko? If Len(mapb) = 0 Then
MsgBox "Mã phòng không đợc trống!", vbOKOnly, "Lỗi nhập liệu" kiemtra = 1
Exit Function End If
sql = "select * from phongban where mapb ='" + mapb + "'" rs.Open sql, conn
If rs.EOF Then (adsbygoogle = window.adsbygoogle || []).push({});
MsgBox "Mã phòng không đúng!", vbOKOnly, "Lỗi nhập liệu" kiemtra = 1 Exit Function End If rs.Close
'kiem tra so dien thoai va he so luong co phai la so ko? End Function
Function kiemtra2() As Integer
Dim tenpb, ngay, fax, email, khac, diachi, dienthoai, sql As String Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset tenpb = txttenpb.Text ngay = txtngay.Text diachi = txtdiachi.Text dienthoai = txtdienthoai.Text fax = txtfax.Text email = txtemail.Text khac = txtkhac.Text kiemtra2 = 0
'kiem tra ma nhan vien co dc nhap ko? If Len(tenpb) = 0 Then
MsgBox "Tên phòng không đợc để trống!", vbOKOnly, "Lỗi nhập liệu" kiemtra2 = 1
Exit Function End If
If Len(ngay) = 0 Then
MsgBox "Ngày thành lập không đợc để trống!", vbOKOnly, "Lỗi nhập liệu"
Exit Function End If
If Not IsNumeric(ngay) Then
MsgBox " Ngày thành lập phải nhập bằng số", vbOKOnly, "Lỗi nhập liệu"
kiemtra2 = 1 Exit Function End If
If Not IsNumeric(dienthoai) Then
MsgBox " Điện thoại phải nhập băng số", vbOKOnly, "Lỗi nhập liệu" kiemtra2 = 1
Exit Function End If
If Not IsNumeric(fax) Then
MsgBox " Fax phai nhập bằng số", vbOKOnly, " Lỗi nhập liệu!" kiemtra2 = 1
Exit Function End If
End Function Sub themmoi()
Dim mapb, ten, ngay, diachi, dienthoai, fax, email, khac, sql As String Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset mapb = cbomapb.Text
traloi = MsgBox("Bạn có muốn sửa hay không?", vbYesNo, "Thông báo!") If traloi = vbYes Then
sql = "delete * from phongban where mapb ='" + mapb + "'" rs.Open sql, conn mapb = cbomapb.Text ten = txttenpb.Text ngay = txtngay.Text diachi = txtdiachi.Text dienthoai = txtdienthoai.Text fax = txtfax.Text email = txtemail.Text khac = txtkhac.Text
BeginTrans Adodc1.Recordset.AddNew DataGrid1.Columns(0).Text = mapb DataGrid1.Columns(1).Text = ten DataGrid1.Columns(2).Text = ngay DataGrid1.Columns(3).Text = diachi DataGrid1.Columns(4).Text = dienthoai DataGrid1.Columns(5).Text = fax DataGrid1.Columns(6).Text = email DataGrid1.Columns(7).Text = khac DataGrid1.Refresh CommitTrans Else
MsgBox " Không sửa!", vbOKOnly, "Thông báo!" Me.Show
End If End Sub
Private Sub Command3_Click() Unload Me
End Sub Dang nhap (adsbygoogle = window.adsbygoogle || []).push({});
Public dem As Integer
Private Sub TXTQD_Change() End Sub
Private Sub CMDTHEM_Click() End Sub
Private Sub CMDdangnhap_Click() 'If kiemtra = 0 Then
MDI.mnubaocao.Enabled = True Unload FRMDANGNHAP
MsgBox " Đăng nhập thành công!", vbOKOnly, "Thông báo!" MDI.MNUDANGNHAP.Enabled = False
'End If End Sub
'Function kiemtra() As Integer 'main
'Dim taikhoan, matkhau, sql As String 'Dim rs As ADODB.Recordset
'Set rs = New ADODB.Recordset 'taikhoan = txttaikhoan.Text 'matkhau = txtmatkhau.Text 'kiemtra = 0 ' ' ' '
''kiem tra ma nhan vien co dc nhap ko? ' If Len(taikhoan) = 0 Then
' MsgBox "Tài khoản không đợc trống!", vbOKOnly, "Cảnh báo!!!" ' kiemtra = 1 ' ' ' Exit Function ' End If ' If Len(matkhau) = 0 Then
' MsgBox "Mật khẩu không đợc trống!", vbOKOnly, "Cảnh báo!!!" ' kiemtra = 1
' Exit Function ' End If
' If dem < 4 Then
' sql = "select * from dangnhap where taikhoan ='" + taikhoan + "' and matkhau='" + matkhau + "'"
' rs.Open sql, conn ' If rs.EOF Then
' MsgBox "Tài khoản và mật khẩu không đung!Nhập lạii!", vbOKOnly, "Canh bao!"
' kiemtra = 1 ' dem = dem + 1
' Exit Function ' End If
' Else
' MsgBox " Kết thúc!", vbOKOnly, "Thông báo!" ' ' Unload MDI ' ' Unload Me ' ' kiemtra = 2 ' End If ' ' ' ' End Function
Private Sub Form_Load() txttaikhoan = ""
txtmatkhau = "" End Sub
Private Sub thoat_Click() Unload Me
End Sub
Tim kiem nhan vien Dim dk As Integer
Private Sub CMDTIM_Click()
Dim mapb, manv, hodem, ten, sql As String manv = txtkhoa.Text
If dk = 1 Then (adsbygoogle = window.adsbygoogle || []).push({});
Adodc1.RecordSource = "select * from luong where manv ='" + manv + "'" Adodc1.ConnectionString = conn
Adodc1.Refresh DataGrid1.Refresh End If
Adodc1.ConnectionString = conn Adodc1.Refresh
DataGrid1.Refresh End If
End Sub
Private Sub cmdthoat_Click() Unload Me
End Sub
Private Sub CMDTK_Click()
Dim mapb, manv, hodem, ten, sql As String Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset manv = txtkhoa.Text
If dk = 1 Then
Adodc1.RecordSource = "select * from luong where manv ='" + manv + "'" Adodc1.ConnectionString = conn
Adodc1.Refresh DataGrid1.Refresh
sql = "select * from luong where manv ='" + manv + "'" rs.Open sql, conn
If rs.EOF Then
MsgBox "Khoong tim thay ket qua nao!", vbOKOnly, "Thong bao!'" End If
End If
If dk = 2 Then
Adodc1.RecordSource = "select * from ttluong where manv ='" + manv + "'" Adodc1.ConnectionString = conn
Adodc1.Refresh DataGrid1.Refresh
sql = "select * from ttluong where manv ='" + manv + "'" rs.Open sql, conn
If rs.EOF Then
MsgBox "Khoong tim thay ket qua nao!", vbOKOnly, "Thong bao!'" End If
End Sub
Private Sub Option1_Click() dk = 1
End Sub
Private Sub Option2_Click() dk = 2
MỤC LỤC
Lời mở đầu...1
CHƯƠNG I: TỔNG QUAN VỀ CễNG TY PHẦN MỀM QUẢN Lí DOANH NGHIỆP FAST...2 (adsbygoogle = window.adsbygoogle || []).push({});
1.1. Giới thiệu chung về cụng ty Fast...2
1.1.1. Chức năng nhiệm vụ...2
1.1.2. Sơ đồ cơ cấu tổ chức...3
1.1.3. Tổ chức của cụng ty...5
1.2. Thực trạng ứng dụng cụng nghệ thụng tin tại cụng FAST và lý do lựa chọn đề tài...9
1.3. Giải phỏp tin học húa cho bài toỏn quản lý...10
CHƯƠNG II: CƠ SỞ PHƯƠNG PHÁP LUẬN CỦA PHÂN TÍCH THIẾT KẾ HỆ THỐNG THễNG TIN QUẢN Lí...12
2.1. Thụng tin...12
2.1.1 Khỏi niệm thụng tin...12
2.1.2 Đặc trưng của thụng tin...12
2.1.3 Vai trũ của thụng tin trong quản lý...13
2.2. Hệ thống thụng tin...14
2.2.1 Định nghĩa và cỏc bộ phận cấu thành hệ thống thụng tin...14
2.2.2 Phõn loại hệ thống thụng tin trong một tổ chức...15
2.2.3 Mụ hỡnh biểu diễn hệ thống thụng tin...17
2.3. Cỏc phương phỏp xõy dựng hệ thống thụng tin quản lý...19
2.3.1 Phương phỏp tổng hợp...19
2.3.2 Phương phỏp phõn tớch...19
2.3.3 Phương phỏp tổng hợp và phõn tớch...19
2.4. Phõn loại hệ thống thụng tin trong quản trị nhõn lực...19
2.4.1 Cỏc hệ thống thụng tin nhõn lực mức tỏc nghiệp...20
2.4.2 Cỏc hệ thống thụng tin nhõn lực sỏch lược...22
2.4.3 Cỏc hệ thống thụng tin nhõn lực chiến lược...24
2.5. Phõn tớch thiết kế hệ thống thụng tin quản lý...25
2.5.1 Đỏnh giỏ yờu cầu...25
2.5.2 Phõn tớch chi tiết...26
2.5.3 Thiết kế logic...33
2.5.4 Đề xuất cỏc phương ỏn của giải phỏp...34
2.5.6 Triển khai kỹ thuật hệ thống...36
2.5.7 Cài đặt và khai thỏc...36 (adsbygoogle = window.adsbygoogle || []).push({});
CHƯƠNG III: PHÂN TÍCH THIẾT KẾ HỆ THỐNG THễNG TIN QUẢN Lí NHÂN SỰ TẠI CễNG TY PHẦN MỀM QUẢN Lí DOANH NGHIỆP FAST ...37
3.1. Yờu cầu về chức năng của hệ thống thụng tin ...37
3.2. Đặc tả hệ thống ...37
3.3. Phõn tớch thiết kế chi tiết hệ thống thụng tin quản lý nhõn sự tại cụng ty phần mềm quản lý doanh nghiệp FAST...38
3.3.1 Phõn tớch thực tế quản lý nhõn sự tại cụng ty phần mềm quản lý doanh nghiệp FAST...38
3.3.2 Sơ đồ luồng thụng tin (IFD) của hệ thống thụng tin quản lý nhõn sự...38
3.3.3 Sơ đồ chức năng (BFD) của hệ thống thụng tin quản lý nhõn sự ...41
3.3.4 Sơ đồ luồng dữ liệu (DFD) của hệ thống thụng tin quản lý nhõn sự...41
3.3.5 Phõn tớch thiết kế cơ sở dữ liệu...46
3.4. Một số thuật toỏn sử dụng trong chương trỡnh...54
3.5. Ngụn ngữ sử dụng...61
3.6. Thiết kế giao diện của chương trỡnh...62
3.7. Yờu cầu cấu hỡnh để cài đặt chương trỡnh...81
3.8. Hướng dẫn cài đặt và chạy chương trỡnh...81
Kết luận...82
Tài liệu tham khảo...83
Phụ lục...84