tailieunhanh - 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 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 End If End If Adodctkd. Refresh True True False False True cmdlhem. Visible True 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 False False Cmdkhong. Visible True cmdghi. Visible True False cmdthem. Visible False xthem False Exit_sua_Click Exit Sub Err_sua_Click MsgBox Resume Exit_sua_Click End Sub Private Sub cmdthem_Ciid On Error GoTo Err_them_Click Adodct kd .Recordset. Add New Datagridl .SetFocus False False True True False False xthem True Exitjhem .Click Exit Sub Errthem Click MsgBox 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. Adodct kd. Recordset. ReQuery Adodct kd. Recordset .Move N ext If Then Adodctkd. Recordset. MoveLast End If r - End If 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. .

TÀI LIỆU MỚI ĐĂNG
14    172    0    28-04-2024
75    138    0    28-04-2024
33    125    0    28-04-2024
24    109    0    28-04-2024
185    99    0    28-04-2024
6    93    0    28-04-2024
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.