khi đó Form in khách hàng sẽ hiện ra cho phép bạn có thể in bất kỳ khách hàng nào nếu bạn muốn đIều này giúp cho các nhân viên bưu điện dễ dàng truy cập hơn
*Các Phương Thức Public cvthu As Integer
Private Sub Cmd01_Click(Index As Integer) End Sub
Private Sub cmd2_Click()
If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious Else
Data1.Recordset.MoveLast End If
End Sub
Private Sub Cmd3_Click()
If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext Else
Data1.Recordset.MoveFirst End If
End Sub
Private Sub Cmd4_Click() Data1.Recordset.MoveLast
Private Sub cd1_Click() Data1.Recordset.MoveFirst thu.Caption = 1
T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13)
& Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13)
& Chr(10)
T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " &
Chr(13) & Chr(10)
T.Text = T.Text & " 04.117 "
End Sub
Private Sub cd2_Click() If thu.Caption > 1 Then
Data1.Recordset.MovePrevious thu.Caption = thu.Caption - 1 T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13)
& Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13)
& Chr(10)
T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " &
Chr(13) & Chr(10)
T.Text = T.Text & " 04.117 "
Else
MsgBox "ban ghi da het ", , "in ban ghi cuoi"
Exit Sub End If End Sub
Private Sub cd3_Click()
If thu.Caption < Data1.Recordset.RecordCount Then Data1.Recordset.MoveNext
thu.Caption = thu.Caption + 1 T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13)
& Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13)
& Chr(10)
T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " &
Chr(13) & Chr(10)
T.Text = T.Text & " 04.117 "
Else
MsgBox "ban ghi ban chon da het ", , "in ban ghi dau"
Exit Sub End If End Sub
Private Sub cd4_Click() Data1.Recordset.MoveLast
thu.Caption = Data1.Recordset.RecordCount T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13)
& Chr(10)
T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " &
Chr(13) & Chr(10)
T.Text = T.Text & " 04.117 "
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\PHONE.mdb"
Data1.RecordSource = "NGDUNG"
Data1.Refresh
Data1.Recordset.MoveLast sobanin.Text = ""
cvthu = Data1.Recordset.RecordCount thu = cvthu
T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13)
& Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13)
& Chr(10)
T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " &
Chr(13) & Chr(10)
T.Text = T.Text & " 04.117 "
End Sub
Private Sub inan_Click() Dim i, l As Integer T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13)
& Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13)
& Chr(10)
T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " &
Chr(13) & Chr(10)
T.Text = T.Text & " 04.117 "
If sobanin.Text = "" Then
MsgBox " TOI THIEU PHAI NHAP SO BAN IN VAO"
sobanin.SetFocus Else
l = MsgBox("BAN MUON IN KHACH HANG NAY KHONG ?", 4, "NEU IN CHON YES") If l = 6 Then
For i = 1 To Val(sobanin.Text)
Printer.Print T.Text Printer.NewPage
Else Exit Sub End If
On Error Resume Next
If ActiveForm Is Nothing Then Exit Sub
With dlgCommonDialog .DialogTitle = "Print"
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums If ActiveForm.rtfText.SelLength = 0 Then .Flags = .Flags + cdlPDAllPages
Else
.Flags = .Flags + cdlPDSelection End If
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then ActiveForm.rtfText.SelPrint .hDC End If
End With End If End Sub
Private Sub sobanin_Change()
If Not IsNumeric(sobanin.Text) Then sobanin.Text = ""
Else
If Val(sobanin.Text) < 1 Then sobanin.Text = ""
End If End If End Sub
Private Sub thoat_Click() Form1.WindowState = 0 Unload Me
End Sub
Form IV (Tìm Kiếm)
Từ Form chính nếu bạn chọn trên thanh Menu chức năng bạn chọn Menu tìm kiếm hoặc bạn có thể ấn phím nóng(Ctr-D)khi đó Form tìm kiếm hiện ra nó sẽ cho
phép bạn tìm kiếm theo số đIện thoại hay địa chỉ và có thể đưa ra các thông tin mà bạn muốn.
Các Phương thức sử dụng trong Form này Option Explicit
Dim DB As Database Dim DongSQL As String Dim SQL1 As String Dim i As Integer
Private Sub Cmdthoat_Click() Form1.WindowState = 0 Unload Me
End Sub
Private Sub CmdClear_Click() comhien.Text = ""
ComDK.Text = ""
ComPheptoan.Text = ""
Gt.Text = ""
ComDK.SetFocus Data1.Refresh
Data1.RecordSource = "NGDUNG"
Data1.Refresh
Text1.Text = "Select"
End Sub
Private Sub cmdxem_Click() If ComDK.Text = "" Then
MsgBox "ban phai chon thong tin can xem"
Exit Sub End If
If ComPheptoan.Text = "" Then
MsgBox " ban phai chon dieu kien so sanh"
Exit Sub End If
If Gt.Text = "" Then
MsgBox "ban phai chon gia tri so sanh"
Exit Sub End If
'---
If ComDK.Text <> "" And ComPheptoan.Text <> "" And Gt.Text <> "" Then If comhien.Text = "" Or comhien.Text = "TAT CA" Then
DongSQL = "Select * From NGDUNG Where [" & ComDK.Text & "]" & ComPheptoan.Text Else
DongSQL = "Select " & "[" & comhien.Text & "]" & " From NGDUNG Where [" &
ComDK.Text & "]" & ComPheptoan.Text End If
Case 0 To 10
If ComPheptoan.Text <> "Like" Then
DongSQL = DongSQL & "'" & Trim(Gt.Text) & "'"
Else
DongSQL = DongSQL & "'" & Trim(Gt.Text) & "*'"
End If End Select
Data1.RecordSource = DongSQL Data1.Refresh
Text1.Text = ""
If comhien.Text = "" Or comhien.Text = "TAT CA" Then
SQL1 = "Select *" & " From NGDUNG Where [" & ComDK.Text & "] " &
ComPheptoan.Text & " '" & Gt.Text & "'"
Else
SQL1 = "Select [" & comhien.Text & "]" & " From NGDUNG Where [" & ComDK.Text & "]
" & ComPheptoan.Text & " '" & Gt.Text & "'"
End If
Text1.Text = SQL1 End If
End Sub
Private Sub ComDK_Click() If ComDK.Text <> "" Then Select Case ComDK.ListIndex Case 0 To 10
ComPheptoan.Clear
ComPheptoan.AddItem "="
End Select Gt.Text = ""
If comhien.Text = "" Or comhien.Text = "TAT CA" Then
SQL1 = "Select *" & " From NGDUNG Where [" & ComDK.Text & "] " &
ComPheptoan.Text & " '" & Gt.Text & "'"
Else
SQL1 = "Select [" & comhien.Text & "]" & " From NGDUNG Where [" & ComDK.Text & "]
" & ComPheptoan.Text & " '" & Gt.Text & "'"
End If Else
ComDK.SetFocus End If
End Sub
Private Sub ComPheptoan_Click() If ComPheptoan.Text <> "" Then Gt.SetFocus
Text1.Text = ""
If comhien.Text = "" Or comhien.Text = "TAT CA" Then
SQL1 = "Select *" & " From NGDUNG Where [" & ComDK.Text & "] " &
ComPheptoan.Text & " '" & Gt.Text & "'"
Else
SQL1 = "Select [" & comhien.Text & "]" & " From NGDUNG Where [" & ComDK.Text & "]
" & ComPheptoan.Text & " '" & Gt.Text & "'"
End If Else
ComPheptoan.SetFocus End If
End Sub
Private Sub Form_Load()
Set DB = OpenDatabase(App.Path & "\PHONE.mdb") Data1.Refresh
Call HIEN Call Dieukien Gt.Text = ""
Text1.Text = "Select"
End Sub
Public Sub Dieukien()
For i = 0 To Data1.Recordset.Fields.Count - 1
ComDK.AddItem (Data1.Recordset.Fields(i).Name) Next i
End Sub
Public Sub HIEN()
comhien.AddItem "TAT CA"
For i = 0 To Data1.Recordset.Fields.Count - 1
comhien.AddItem (Data1.Recordset.Fields(i).Name) Next i
End Sub
FORM V (In ra các hoá đơn trả tiền của khách hàng)
Từ Form chính nếu bạn chọn trên thanh Menu chức năng bạn chọn Menu hoá đơn trả tiền hoặc bạn có thể ấn phím nóng(Ctr-H) khi dó sẽ hiện ra form in háo đơn trã tiền của khách hàng trên dó sẽ có ba nút lệnh nếu bạn muốn in ra các thông tin của quí khách hàng có các cuộc gọi trong tháng thì bạn có thể chọn nút lệnh hoá đơn.
Các phương thức trong Form này Option Explicit
Dim da As DAO.Database Dim rec As DAO.Recordset Dim st
Dim rec2 As DAO.Recordset Dim r As TableDef
Public dem As Integer Dim qur As DAO.QueryDef
Dim rs As New ADODB.Recordset Dim dem1 As Integer
Private Sub Command1_Click() xuly.WindowState = 0
Unload inbaocao End Sub
Private Sub Form_Load() open_db
Data1.DatabaseName = App.Path & "\PHONE.mdb"
Data1.RecordSource = "GOI"
Data1.Refresh
Data1.Recordset.MoveLast
Data2.DatabaseName = App.Path & "\PHONE.mdb"
Data2.RecordSource = "NGDUNG"
Data2.Refresh
dem = Data1.Recordset.RecordCount thu = dem
' qur.Name = "canh"
st = "select HO,TEN ,DC from NGDUNG,GOI where NGDUNG.MASDT=GOI.MASDT "
rs.open st, cn, adOpenKeyset, adLockOptimistic, adCmdText dem1 = rs.RecordCount
' qur.SQL = st
'da.QueryDefs.Append qur rs.MoveLast
T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10)
T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & rs![DC] & Chr(13) & Chr(10) 'T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " SO DT HIEN DANG THUE BAO : " &
Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10)
T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10)
T.Text = T.Text & " MAVUNG : " & Data1.Recordset.Fields("MAVUNG") &
Chr(13) & Chr(10)
T.Text = T.Text & " SODT : " & Data1.Recordset.Fields("SODT") & Chr(13) &
Chr(10)
T.Text = T.Text & " NGAY GOI LA : " & Data1.Recordset.Fields("NGAYGOI")
& Chr(13) & Chr(10)
T.Text = T.Text & " THOI GIAN LA : " & Data1.Recordset.Fields("THOIGIAN")
& Chr(13) & Chr(10)
T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : " &
Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) End Sub
Data1.Recordset.MovePrevious rs.MovePrevious
thu.Caption = thu.Caption - 1 T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & rs![DC] & Chr(13) & Chr(10) 'T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " SO DT HIEN DANG THUE BAO : " &
Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10)
T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10)
T.Text = T.Text & " MAVUNG : " & Data1.Recordset.Fields("MAVUNG") &
Chr(13) & Chr(10)
T.Text = T.Text & " SODT : " & Data1.Recordset.Fields("SODT") & Chr(13) &
Chr(10)
T.Text = T.Text & " NGAY GOI LA : " & Data1.Recordset.Fields("NGAYGOI")
& Chr(13) & Chr(10)
T.Text = T.Text & " THOI GIAN LA : " & Data1.Recordset.Fields("THOIGIAN")
& Chr(13) & Chr(10)
T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : " &
Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) Else
MsgBox "ban ghi da het ", , "in ban ghi cuoi"
Exit Sub End If End Sub
Private Sub cd3_Click()
If thu.Caption < Data1.Recordset.RecordCount Then Data1.Recordset.MoveNext
rs.MoveNext
thu.Caption = thu.Caption + 1 T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & rs![DC] & Chr(13) & Chr(10) 'T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " SO DT HIEN DANG THUE BAO : " &
Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10)
T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10)
T.Text = T.Text & " MAVUNG : " & Data1.Recordset.Fields("MAVUNG") &
Chr(13) & Chr(10)
T.Text = T.Text & " SODT : " & Data1.Recordset.Fields("SODT") & Chr(13) &
Chr(10)
T.Text = T.Text & " NGAY GOI LA : " & Data1.Recordset.Fields("NGAYGOI")
& Chr(13) & Chr(10)
T.Text = T.Text & " THOI GIAN LA : " & Data1.Recordset.Fields("THOIGIAN")
& Chr(13) & Chr(10)
T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : " &
Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) Else
MsgBox "ban ghi ban chon da het ", , "in ban ghi dau"
Exit Sub End If End Sub
Private Sub cd4_Click() Data1.Recordset.MoveLast rs.MoveLast
thu.Caption = Data1.Recordset.RecordCount T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " Private Sub cd1_Click()"
Data1.Recordset.MoveFirst rs.MoveFirst
thu.Caption = 1 T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & rs![DC] & Chr(13) & Chr(10) 'T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10)
T.Text = T.Text & " MAVUNG : " & Data1.Recordset.Fields("MAVUNG") &
Chr(13) & Chr(10)
T.Text = T.Text & " SODT : " & Data1.Recordset.Fields("SODT") & Chr(13) &
Chr(10)
T.Text = T.Text & " NGAY GOI LA : " & Data1.Recordset.Fields("NGAYGOI")
& Chr(13) & Chr(10)
T.Text = T.Text & " THOI GIAN LA : " & Data1.Recordset.Fields("THOIGIAN")
& Chr(13) & Chr(10)
T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : " &
Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) End Sub
Private Sub cd1_Click() Data1.Recordset.MoveFirst rs.MoveFirst
thu.Caption = 1 T.Text = ""
T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " &
Chr(13) & Chr(10)
T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10)
T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) &
Chr(10)
T.Text = T.Text & " ADDRESS : " & rs![DC] & Chr(13) & Chr(10) 'T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10)
T.Text = T.Text & " SO DT HIEN DANG THUE BAO : " &
Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10)
T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10)
T.Text = T.Text & " MAVUNG : " & Data1.Recordset.Fields("MAVUNG") &
Chr(13) & Chr(10)
T.Text = T.Text & " SODT : " & Data1.Recordset.Fields("SODT") & Chr(13) &
Chr(10)
T.Text = T.Text & " NGAY GOI LA : " & Data1.Recordset.Fields("NGAYGOI")
& Chr(13) & Chr(10)
T.Text = T.Text & " THOI GIAN LA : " & Data1.Recordset.Fields("THOIGIAN")
& Chr(13) & Chr(10)
T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : " &
Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) End Sub
Form VI ( In Báo Cáo Và Tính Toán)