Đang chuẩn bị liên kết để tải về tài liệu:
Đồ án viết chương trình quản lý kế toán doanh nghiệp - 3

Các kiểu truy vấn SQL nhất định có thể điền dữ liệu vào một điều khiển dữ liệu. Trong chương trình, các câu truy vấn SQL được dùng khi thao tác với các cơ sở dữ liệu thông qua sử dụng mô hình đối tượng DAO, RDO và ADO. | Private Sub cmdxoa_mousemove button As Integer shift As Integer x As Single y As Single txtTT.Text Xóa bản ghi End Sub Private Sub cmdghi_click On Error GoTo Loi_Ghi Ado_HDNHAP.Recordset.UpdateBatch adAffectAll Khoa them False sua False Thoat_Ghi DCDMCT.SetFocus Exit Sub Loi_Ghi MsgBox Dữ liệu không hợp lệ vbOKOnly Thông báo Resume Thoat_Ghi End Sub Private Sub cmdghi_mousemove button As Integer shift As Integer x As Single y As Single txtTT.Text Lưu bản ghi End Sub Private Sub cmdkhong_click Ado_HDNHAP.Refresh Ado_HDNHAP.Recordset. CancelUpdate Khoa cmdthem.SetFocus them False sua False End Sub Private Sub cmdkhong_mousemove button As Integer shift As Integer x As Single y As Single If them True Then txtTT.Text Bỏ qua không thêm bản ghi Else txtTT.Text Không cập nhật lại bản ghi End If End Sub Private Sub cmdthoat_click Unload Me End Sub Khi thay doi gia tri txtTHANG xu ly Private Sub txtTHANG_change Dim thang Dim nam Lay thang va nam cap nhat chung tu thang txtTHANG.Text nam txtNAM.Text chuoil Select from Tbl_HDNHAP where month NGAYLAP_CT Val thang . and year NGAYLAP_CT Val nam . Ado_HDNHAP.ConnectionString provider Microsoft.Jet.OLEDB.3.51 Persist security info false data source c QL_ktdn ktdn.mdb Ado_HDNHAP.RecordSource chuoi1 Ado_HDNHAP.Refresh Dem so ban ghi va cho biet ban ghi hien tai Dim bght Dim sobg sobg 0 bght 0 sobg Ado_HDNHAP.Recordset.Record Count If Ado_HDNHAP.Recordset.EOF False And Ado_HDNHAP.Recordset.BOF False Then bght Ado_HDNHAP.Recordset.Bookmark End If txtBGHH.Text bght txtSBG.Text sobg End Sub Private Sub VScrollTHANG_change Dim thang As .