• 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ý
Hình đại diện của người dùng
tiger86love102
Thành viên danh dự
Thành viên danh dự
Bài viết: 609
Ngày tham gia: CN 19/10/2008 1:10 am
Đến từ: http://ready.vn
Has thanked: 4 time
Been thanked: 21 time
Liên hệ:

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

Gửi bàigửi bởi tiger86love102 » T.Bảy 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) Đã tải 29615 lần


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

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4755
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 13 time
Been thanked: 509 time

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

Gửi bàigửi bởi truongphu » T.Năm 10/12/2009 5:07 am

HINCUTIN đã viết: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
Bài viết: 1
Ngày tham gia: CN 17/11/2013 8:03 pm

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

Gửi bàigửi bởi nguyen a troi » T.Tư 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

Gửi bàigửi bởi chelinh007 » T.Sáu 22/11/2013 3:56 pm

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


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

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách