Đang chuẩn bị liên kết để tải về tài liệu:
Kế toán doanh nghiệp với Visual Basic part 2

Tham khảo tài liệu 'kế toán doanh nghiệp với visual basic part 2', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 2 Phân hệ tài khoản 51 cmdthem.Set Focus xthem False Exit_ghi_Cìick datagrid .SetFocus Exit Sub Err_ghi_clk k MsgBox Dữ liệu không hợp lệ Resume Exit_ghi Click End Sub Private Sub cmdkhong_Click If xthem Then Adodct kd. Recordset. De lete Adodct kd. Recordset. MoveN ext If Adodctkd. Recordset. EOF Then adodctkd.Recordset.MoveLast End If End If Adodctkd. Refresh cmdthoat.Visible True Cmdsua.Visible True Cmdkhong.Visible False cmdghi.Visible False cmdxoa.Visible True cmdlhem. Visible True cmdthem.SetFocus xthem False End Sub Private Sub cmdsua Click On Error GoTo ErrsuaClick 52 Kế toán doanh nghiệp với Visual Basic recnum Adodctkd. Recordset. Bookmark cmdthoat.Visible False Cmdsua.Visible False Cmdkhong. Visible True cmdghi. Visible True cmdxoa.Visible False cmdthem. Visible False xthem False Exit_sua_Click Exit Sub Err_sua_Click MsgBox Err.Description Resume Exit_sua_Click End Sub Private Sub cmdthem_Ciid On Error GoTo Err_them_Click Adodct kd .Recordset. Add New Datagridl .SetFocus cmdthoat.Visible False Cmdsua.Visible False Cmdkhong.Visible True cmdghi.Visible True cmdxoa.Visible False cmdthem.Visible False xthem True Exitjhem .Click Exit Sub Errthem Click MsgBox Err.Description Chương 2 Phân hộ tài khoản 53 Resume Exit-themClick End Sub Private Sub cmdthoat_Click Unload Me End Sub Private Sub cmdxoa_CUck On Error GoTo ErrxoaClick Dim traloi traloi MsgBoxCBạn muốn xóa Tài khoản Chrd 0 Chrd 3 Adodctkd. Recordset. FieldsC diengi a i cùng các mẩu tin liên quan không 11 48 4 Thông báo If traloi 6 Then Adodctkd. Recordset. Delete Adodctkd. Recordset.Clone Adodct kd. Recordset. ReQuery Adodct kd. Recordset .Move N ext If Adodctkd.Recordset.EOF Then Adodctkd. Recordset. MoveLast End If r - End If Adodctkd.Refresh Exit_xoa_Click Exit Sub Err_xoa_Click MsgBox Không thể xóa mẩu tin này Resume Exit_xoa_Click End Sub Private Sub Form_Load Adodctkd. .