• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Quản lý thư viện sách

Bộ sưu tập mã nguồn các ứng dụng về quản lý
User avatar
tiger86love102
Thành viên danh dự
Thành viên danh dự
Posts: 610
Joined: Sun 19/10/2008 1:10 am
Location: http://ready.vn
Has thanked: 4 times
Been thanked: 21 times
Contact:

Quản lý thư viện sách

Postby tiger86love102 » Sat 04/04/2009 10:06 am

Tên chương trình: Quản lý thư viện sách
Ngôn ngữ lập trình: VB6
Tác giả: tiger sưu tầm
Chức năng: Quản lý thư viện sách



Mình ko cài VB6, ko test đc. Ai cần thì tải về test nhé.
Đây là toàn bộ project Quản lý thư viện bao gồm cả csdl, bản word báo cáo luôn rồi đó.
Ai phải làm bài tập lớn hay đề tài QL thư viện thì ôm cả project này đi mà nộp.
Đc mấy điểm ko biết, có khi ăn ngỗng quay hay trứng vịt lộn cũng nên >:) :D

QL thu vien.rar
(1.54 MiB) Downloaded 30217 times


Đội bóng Ready
facebook.com/tiger86love102

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Re: Quản lý thư viện sách

Postby truongphu » Thu 10/12/2009 5:07 am

HINCUTIN wrote:HUHU vào phần code rồi ko tìm thấy pass ai gúp với chạy chương trình mà ko đăng nhập đc :


Một số bạn ít xem code quá, chỉ biết down về rồi chạy!

Tại Sub CmdLogin_Click đã nêu trên, để chạy không user và pass, ta tạm 'treo code xác nhận' là xong:

  1. Private Sub CmdLogin_Click()
  2. Dim ObjAgent As New ClsAgent
  3. Dim suid As String
  4. Dim spwd As String
  5. suid = Trim(Replace(TxtUID.Value, "'", "''"))
  6. spwd = Trim(Replace(txtPWD.Value, "'", "''"))
  7. Dim sresult As String
  8. sresult = ObjAgent.Verify(suid, spwd)
  9. 'If sresult <> "" Then  '<- khóa
  10. sAgentCode = sresult
  11. MDI.Show
  12. Unload Me
  13. 'Else '<- khóa
  14. 'MsgBox " Dang nhap that bai", vbCritical, StrSoftName '<- khóa
  15. 'TxtUID.SetFocus '<- khóa
  16. 'End If '<- khóa
  17. End Sub


Từ đây, không khai báo, cứ nhấn nút 'dang nhap' là xong
bổ sung tác giả: Sinh viên LE HOAI NAM
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

nguyen a troi
Posts: 1
Joined: Sun 17/11/2013 8:03 pm

Re: Quản lý thư viện sách

Postby nguyen a troi » Wed 20/11/2013 1:35 pm

mình thêm bạn đọc rồi, trong access có thông tin rồi mà trên datagrid lại không hiển thị vậy bạn, nó mặc định chỉ có 3 người thôi

chelinh007

Re: Quản lý thư viện sách

Postby chelinh007 » Fri 22/11/2013 3:56 pm

sao e k tìm thấy ID và pas vậy a :(


Return to “[VB] Mã nguồn chương trình quản lý”

Who is online

Users browsing this forum: No registered users and 1 guest