[.Net] Quản lý nhân sự trường THCS

[Romeo8x]

Tên chương trình: Quản lý nhân sự trường THCS
Ngôn ngữ lập trình: VB.NET
Tác giả: Romeo8x
Chức năng: Đồ án tốt nghiệp: Xây dựng chuơng trình Quản lý nhân sự cho trường THCS

---

Vừa mới bảo vệ xong kết quả khá tốt. Bên trong có cả file word khảo sát và phân tích thiết kế hệ thống rồi, chỉ cần mang về sửa thành của mình là ok. Mang lên share cho ai cần
Phần biểu đồ phân cấp chức năng mức đỉnh vẽ bằng Visio 2003, chỉ cần cài lên là có thể sửa được.

QLNS.rar

Xây dựng chuơng trình Quản lý nhân sự cho trường THCS

(10.91 MiB) Đã tải 5137 lần

[QUANITGROBEST]

rất hoan nghênh tình thần chia sẻ của bạn

[QUANITGROBEST]

bài làm của bạn chi tiết quá, đề tài là "Xây dựng chương trình quản lý nhân sự cho trường THCS Đại Nghĩa – Mỹ Đức – Hà Nội" mà mình thấy bạn nói rất kỹ và chi tiết về phần cơ sở dữ liệu mình đọc mà gống như là đang học Acces và ngôn ngữ VB.net(cú pháp, khai báo biến...) giống như 1 tài liệu học nhập môn lập trình ý.

[miucon20]

Mình dùng code của bạn đoạn

Mã: Chọn hết

 Public Sub FillCombo(ByVal TableName As String, ByVal stDisplaymember As String, ByVal cbo As ComboBox)
        Try
            Da = New OleDbDataAdapter(SelectTable(TableName, stDisplaymember, , stDisplaymember), oleConn)
            Ds = New DataSet
            Da.Fill(Ds)
            cbo.DataSource = Ds.Tables(0)
            cbo.DisplayMember = stDisplaymember
        Catch ex As Exception
            ErrMsgbox("Lỗi FillCombobo")
        Finally
            Da.Dispose()
            Ds.Dispose()
        End Try
    End Sub

và khai báo trong form

Mã: Chọn hết

Dim stSQL As String = Nothing
    Dim stSelect As String = SelectTable(au_quanhe_name, , , "ten_quan_he")
    Dim ErrProvider As ErrorProvider = frmMain.ErrorProvider1

khi load form

Mã: Chọn hết

FillCombo(au_quanhe_name, "ten_quan_he", cboQuanhe)

đã khai trong modules

Mã: Chọn hết

Public Const au_quanhe_name As String = "au_quanhe"

vì trong csdl của mình có bảng au_quanhe gồm id, ma_quan_he, ten_quan_he nhưng chạy nó cứ thông báo ErrMsgbox("Lỗi FillCombobo") là lỗi 05 bạn có thể giải thích giúp mình vượt lỗi này không?