Code BT QLNV

troi oi kho' coi wa di.

Ôi mẹ ơi nó dài,khó coi nữa,nhưng dù sao cũng thank bạn nhìu nhìu.Học VB ngày càng chán.

ua sao ko thay code khai bao' nvien

Kêu chép vào file text rồi post lên ứ đứa nào làm ~:~ luời quá

Option Explicit
Dim ds(100) As NVIEN
Dim n As Integer
Dim vt As Integer
__________________________________________________________________________________
Private Sub LoadDSNV()
On Error GoToerr_load
Dim fileNum As
Integer, i
Open"data.dat" For Random As fileNum Len = Len(ds(1))
n = LOF(fileNum) /Len(ds(1))
For i = i To n
Get fileNum, ,ds(i)
Next
Close fileNum
Exit Sub
err_load:
n = 0
End Sub
_____________________________________________________________________________________
Private Sub HienthiNV()
txtMaNV.Text =ds(vt).MaNV
txthoten.Text =ds(vt).hoten
txtngsinh.Text =ds(vt).ngsinh
cboGT.Text =ds(vt).GT
txtdiachi.Text =ds(vt).diachi
End Sub
______________________________________________________________________
Private Sub cmddong_Click()
Unload Me
End Sub
____________________________________________________________________________________
Private Sub cmdfirst_Click()
If (n > 0) Then
vt = 0
lblvt.Caption= "1/" & CStr(n)
Call HienthiNV
Else
vt = 0:lblvt.Caption = "0/0"
Call resetNV
End If
End Sub
___________________________________________________________________________________
Private Sub resetNV()
txtMaNV.Text =""
txthoten.Text =""
txtngsinh.Text =""
txtdiachi.Text =""
End Sub
_____________________________________________________________________________________
Private Sub cmdlast_Click()
If (n > 0) Then
vt = n
lblvt.Caption= CStr(vt) & "/" & CStr(n)
Call HienthiNV
Else
vt = 0:lblvt.Caption = "0/0"
Call resetNV
End If
End Sub
________________________________________________________________________________
Private Sub cmdlui_Click()
If (vt > 1) Then
vt = vt - 1
Call HienthiNV
If (n <= 0) Then
vt = 0
Call resetNV
End If
End If
lblvt.Caption =CStr(vt) & "/" & CStr(n)
End Sub
___________________________________________________________________________________
Private Sub cmdluu_Click()
Dim MaNV As String
MaNV = txtMaNV
If (MaNV = "") Then
MsgBox "nhap ma nhan vien"
txtMaNV.SetFocus
Exit Sub
End If
Dim hoten As String
hoten = txthoten
If (hoten ="") Then
MsgBox"nhap ho ten"
txthoten.SetFocus
Exit Sub
End If
Dim ngsinh As string
ngsinh = txtngsinh
If (ngsinh ="") Then
MsgBox"nhap ngay sinh"
txtngsinh.SetFocus
Exit Sub
End If
Dim diachi As String
diachi = txtdiachi
If (diachi ="") Then
MsgBox"nhap dia chi"
txtdiachi.SetFocus
Exit Sub
End If
Dim GT As Byte
GT =cboGT.ListIndex
ds(vt).MaNV = MaNV
ds(vt).hoten =hoten
ds(vt).ngsinh =ngsinh
ds(vt).GT = GT
ds(vt).diachi =diachi
If (vt > n) Then
n = vt
End Sub
_____________________________________________________________________________________
Private Sub cmdthemmoi_Click()
frmQLNV.Enabled =True
Call resetNV
vt = n + 1
lblvt.Caption =CStr(vt) & "/" & CStr(vt)
End Sub
___________________________________________________________________________________
Private Sub cmdtoi_Click()
If (vt < n)Then
vt = vt + 1
Call HienthiNV
If (n <= 0)Then
vt = 0
Call resetNV
End If
End If
lblvt.Caption =CStr(vt) & "/" & CStr(n)
End Sub
________________________________________________________________________________
Private Sub cmdxoa_Click()
Dim traloi
traloi =MsgBox("ban co chac chan xoa nhan vien nay khong?", vbYesNo Or vbQuestion, "thong bao")
If (traloi = vbNo) Then Exit Sub
Dim i
For i = vt + 1 To n
ds(i -1).hoten = ds(i).hoten
Next
n = n - 1
if (n <= 0)Then
vt = 0
Call resetNV
Else
Call HienthiNV
End If
End Sub
__________________________________________________________________________________
Private Sub Form_Load()
Call LoadDSNV
If (n > 0) Then
vt = 1
Call HienthiNV
frmQLNV.Enabled = True
Else
vt = 0:lblvt.Caption = "0/0"
End If
End Sub
++++++++++++
code này tuj chạy thử rùi,mọi thứ đều ok nhưng hok bít có thiếu sót j hok nữa.mấy pạn tham khảo rùi cho ý kiến hén.ah wen mọi người tự canh lề nha,tuj chỉ lèm được thế thuj àh

Sao ko nén bài lại rùi post lên cho bà con cùng xem lun, ( rùi copy zề cho khỏe)

co ai co' code trong module ko

code modules nè.

Public Type NVIEN
MaNV As String * 10
hoten As String * 10
ngsinh As String * 10
GT As Byte
diachi As String * 100
End Type
------------
Tui cũng mún nén bài lại rùi post lên cho bà con cùng xem lun,nhưng hem được,nếu ai bít thì post len hén.

cai modules cua tui lam cung jong vay ma khi chay no bao sai.ko bit la sai o cho nao nua