xây dựng chương trình Quản Lý Sim Điện Thoại đã Thuê Bao Tại Một Trạm Bưu

http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN L I NĨI U OOO OBO OK S CO M Ngày ,các cơng ngh khoa h c ,k thu t ngày phát tri n nh v bão,trong khoa h c máy tính c ng phát tri n m nh m xâm nh p vào m i l nh v c khoa h c ,kinh t ,xã h i ,qu n lý , máy tính h u nh đ u có đóng góp kh n ng t v i c a t i t t c l nh v c T vi c xây d ng ch khoa h c k thu t l n đ n cơng vi c qu n lý th ng trình ng nh t ,máy tính giúp c p nh t ,tìm ki m l u tr thơng tin m t cách t t nh t Chính l v i v n ki n th c đ Lý S c h c cơng vi c đ c giao em xây d ng ch ng trình Qu n i n Tho i ã Th Bao T i M t Tr m B u c c Nhi m v c a ch ng trình bao g m : + Kh o sát th c t + Qu n lý s n tho i đ ng ký th bao + Qu n lý hố đ n tr ti n hàng tháng M c dù r t c g ng đ hồn thành đ tài nh ng h n ch v kinh nghi m ki n th c nên ch ng trình nhi u sai sót c n đ c b sung.Vì v y, em mong th y b n xem đóng góp ý ki n giúp cho ch hồn thi n h n ng trình ngày Cu i em xin c m n B mơn ki n trúc máy tính, b n đ c bi t ng d n giúp đ em hồn thành ch KIL Th y giáo D Thanh Bình h ng trình http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN CH NG TRÌNH QU N LÝ CÁC S CH I N THO I KIL OBO OKS CO M T I M T TR M I N THO I Ã TH BAO NG I: KH O SÁT H TH NG T ng quan v h th ng qu n lý Qu n lý cách bi u hi n m t ý chí mu n bi n đ i thu n ph c m t t ng th hi n t ng ó vi c t o s ki n,thay đ cho s ki n x y b c phát ây khơng ph i s l p ráp nhi m v r i r c mà ho t đ ng phân bi t rõ ràng v i ch c n ng khác c a t ch c Trong nh ng n m tr c máy tính ch a đ c s d ng r ng rãi h th ng qu n lý, h th ng qu n lý đ u ph i th c hi n theo ph ng pháp th cơng h th ng qu n lý s n tho i đ ng ký th bao c ng n m s Ch c n ng nhi m v c a h th ng H th ng qu n lý s n tho i đ ng ký th bao có ch c n ng th ng xun cho phép c p nh t thơng tin v khách hàng đ ng th i cho phép tính tốn ti n c c c ng nh ti n th bao hàng tháng Khi c n đ c bi t thơng tin mà khách hàng đ ng ký th bao h th ng ph i có nhi m v đ a đ c thơng tin mà khách hàng đ ng ký V i ch c n ng nh v y,h th ng qu n lý s n tho i đ ng ký th bao t i m t tr m n tho i có nhi m v ln c p nh t h s c a khách hàng ,th ng xun b sung nh ng thơng tin thay đ i q trình ho t đ ng c a h th ng M t nhi m v n a c a h th ng c cu i tháng ph i có nhi m v in hố đ n ti n hàng tháng c a khách hàng t c h th ng c n ph i tính ti n cho khách hàng đ ng ký th bao t i m t tr m n tho i u c u c a h th ng nh ng khó kh n Tr c m t kh i l ng l n khách hàng đ ng ký th bao c ng nh u c u đ t vi c qu n lý theo ph ng pháp th cơng s khơng th đáp ng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN đ c ,do g p r t nhi u khó kh n.Nó đòi h i ph i có nhi u nhân l c,nhi u th i gian cơng s c,m i khách hàng c a tr m n tho i cho đ ng ký có m t h s d dàng T nh ng nh KIL OBO OKS CO M vi c l u tr , tìm ki m,b sung, s a đ i đ đáp ng u c u khơng ph i c m ta th y c n thi t ph i có m t h th ng tin h c hố cho vi c qu n lý s n tho i đ ng ký th bao c ng nh h th ng qu n lý khác Tuy nhiên khó kh n mà làm vi c v i h th ng ta ph i th c hi n vi c tính ti n cho t ng khách hàng tháng mà q khách hàng g i ngh a ph i bi t đ c cách tính c i u có c cho t ng cu c g i v i t ng khu v c khác , qua kh o sát nghiên c u u c u th c t mà h th ng qu n lý s n tho i đ ng ký th bao th c hi n đ u tính theo giá c hi n c n c ta áp d ng , c th em đ a b ng c n tho i mà em qu n lý B NG C c g i t m t tr m Hà N i nh sau C I N THO I TRUY N TH NG G I T B NG C c mà C I N THO I C NH TRONG N HÀ N I C (đã bao g m thu VAT) Qua T PO đ ng (3+1) (1+1) T t c huy n t nh 2.310 đ 770 đ B c c n, B c giang, B c ninh, Hà tây, Hà nam, Hà t nh, H i phòng, 3000 đ 1000 đ 5.400 đ 1.800 đ Vùng C c Tên t nh,ThànhPh g i N i t nh Vùng H id ng, H ng n, Hồ bình, L ng s n, Nam đ nh, Ngh an, Ninh bình, Phú th , Qu ng bình, Qu ng ninh, Thái ngun, Tun quang, V nh phúc, n bái, M ng qn đ i(09655; 06988; 06944); B u n TW (0804; 0809) Vùng Bình đ nh, Cao b ng, Gia lai, Hà giang, Khánh hồ, Kon tum, Lào cai, Lai châu,Phú n, Qu ng nam, Qu ng ngãi, Qu ng tr , S n la, http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Hu , n ng, Qn đ i (06977; 06922) Vùng An giang, Bình d ng, Bình ph liêu, B n tre, Cà mau, C n th , c, Bình thu n, V ng tàu, B c c l c, ng nai, 7.500 đ 2.500 đ ng tháp, KIL OBO OKS CO M Kiên giang, Lâm đ ng, Long an, Ninh thu n, Sóc tr ng, Tây ninh, Ti n giang, TP H Chí Minh, Trà vinh,V nh long, M ng qn đ i(06966; 06933); C c B TW(0808), H p th tho i, (08801; 08801; 08810) C c ngồi gi (t 23h hơm tr c đ n 07h hơm sau th đ n th ; Ngày l ch nh t) gi m 30% so v i m c c c k T i tr m n tho i nh ho c t i tr m n tho i có ng i ph c v c c phí thu thêm m i cu c g i 500 đ Theo qui đ nh chung m i m t khách hàng đ ng ký th bao ph i tr thêm 27 nghìn hàng tháng 4.nh ng u c u đ t đ i v i h th ng m i Cùng v i s phát tri n c a xã h i , cơng tác t ch c qu n lý c ng c n đ c đ u t phát tri n đ có th đáp ng t t đu c u c u c ng nh giúp cho nh ng ng i làm vi c b u n th c hi n t t cơng vi c đ qu n lý s n tho i đ ng ký th bao Tr c h t đ qu n lý đ c m t kh i l ng l n s n tho i mà khách hàng đ ng ký th bao c a m t tr m n tho i, ph i t ch c t t h th ng l u tr h s đ có th đáp ng đ c nh ng u c u : ti t ki m ch , d tìm ki m, d b sung s a đ i H th ng qu n lý m i ph i kh c ph c đ c nh ng nh c m c a h th ng c ,ngồi h th ng m i ph i có kh n ng phát hi n l i x lý ki m tra tính đ n c a d li u t c p nh t, đ ng th i ph i ti t ki m th i gian tra c u thơng tin c a khách hàng có u c u t bên ngồi Nh v y ch y u ph i ch nh đ i l i c s d li u cho phù h p c s k th a c s d li u có s n http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN CH NG II: PHÂN TÍCH H TH NG KIL OBO OKS CO M Các ch c n ng c b n c a h th ng 1>Qu n lý thơng tin v khách hàng : + C p nh t thơng tin v khách hàng + a thơng tin v hố đ n tr ti n c a khách hàng 2> Tra c u,Tìm ki m : + Tra c u theo s n tho i + Tra c u theo h tên + Tra c u theo s li u t ng h p 3> Báo cáo,Th ng kê + L p xu t hố đ n tr ti n hàng tháng c a khách hàng + Th ng kê khách hàng tr ti n tháng + Báo cáo v tình hình chung c a b u n tháng Bi u đ phân c p ch c n ng c a h th ng qu n lý s n tho i đ ng ký th bao http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN I N THO I Ã TH BAO KIL OBO OKS CO M QU N LÝ CÁC S QU N LÝ KHÁCH HÀNG TRA C U, TÌM KI M BÁO CÁO, TH NG KÊ C p nh t Thơng tin khách hàng Tra c u theo s n tho i In hóa đ n tr ti n c a khách hàng a hố đ n tr ti n khách hàng Tra c theo h tên Th ng kê khách hàng tr ti n Tra c u theo s li u t ng h p a tình hình chung c a b u n http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Bi u đ lng d li u m c khung c nh cho ta nhìn khái qt v q trình KIL OBO OKS CO M ho t đ ng c a h th ng Thơng tin Khách hàng H TH NG QU N LÝ CÁC S I N THO I Ã TH BAO Các thơng báo t i khách hàng Gi i thích: Thơng tin x lý Các thơng tin c n x lý Các nhân viên b u n Tác nhân ngồi khách hàng s đ a thơng tin cá nhân t i cho h th ng khách hàng đ n đ ng ký th bao H th ng có nhi m v l u tr thơng tin g i t i nhân viên b u n, tác nhân ngồi nhân viên b u n s thơng qua x lý thơng tin cu i tháng s g i u c u cho khách hàng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Bi u Lu ng D Li u M c D nh Nhân viên b u n KIL OBO OKS CO M Khách hàng i Tra c u, tìm ki m Qu n lý khách hàng Thơng tin khách hàng H s l u hàng tháng *Gi i thích: - Khi thơng tin v khách hàng đ Báo cáo, th ng kê c chuy n vào h th ng, ch c n ng Qu n lý khách hàng sau phân lo i x lý s đ a thơng tin vào kho Thơng tin khách hàng Kho h s l tr hàng tháng Ch c n ng báo cáo th ng kê c đ n cu i tháng s thu th p thơng tin t kho h s l u tr hàng tháng sau s t ng k t đ a thơng tin v khách hàng c ng nh tình hình hàng tháng c a b u n M i có khách hàng c n bi t đ n thơng tin v khách hàng ch c n ng tra c u tìm ki m s c p nh t thơng tin t kho l u tr khách hàng đ đ a thơng tin c n thi t thơng tin http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN *ch c n ng qu n lý khách hàng KIL OBO OKS CO M Khách hàng C p nh t thơng tin 1.1 khách hàng H s l u hàng tháng H s khách hàng *Gi i thích: a hố đ n tr ti n c a 1.2 khách hàng Hố đ n tr ti n hàng tháng Khi khách hàng đ ng ký th bao thơng tin khách hàng đ c l u tr b i ch c n ng c p nh t thơng tin khách hàng ch c n ng s l u tr thơng tin c a khách hàng, đ đ a thơng tin hố đ n c a khách hàng ch c n ng đ a hố đ n tr ti n c a khách hàng s c p nh t thơng tin t kho h s l u tr hàng tháng V i m i thơng tin l i đ tháng c l u tr vào kho hố đ n tr ti n hàng * Ch c n ng tra c u, tìm ki m http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Nhân viên Tra c u theo 2.1 s n tho i H s hàng tháng * Gi i thích: Tra c u theo 2.2 h tên Tra c u 2.3 T ng h p Thơng tin khách hàng Khi có tác nhân ngồi nhân viên b u n theo u c u c a khách hàng c n thơng tin v m t q khách hàng tu thu c vào u c u mà nhân viên có th tra c u d a vào s ho t đ ng c a ch c n ng Hai ch c n ng tra c u theo H tên ch c n ng tra c u theo đ a ch truy có th c p nh t thơng tin t kho thơng tin khách hàng t phân lo i cho phù h p v i u c u mà nhân viên b u n c n, riêng ch c n ng tra c u theo s li u t ng h p có th truy nh p thơng tin t hai kho d li u h s hàng tháng thơng tin khách hàng gi m th i gi n truy c p hai ch c n ng tra c u theo H tên ch c n ng tra c u theo đ a ch có th k t n i trao đ i thơng tin v i ch c n ng tra c u theo s li u t ng h p 10 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 = Then For i = To Val(sobanin.Text) Printer.Print T.Text Printer.NewPage Next Printer.EndDoc 25 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 = 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) < Then sobanin.Text = "" End If End If End Sub Private Sub thoat_Click() Form1.WindowState = Unload Me End Sub Form IV (Tìm Ki m) T Form n u b n ch n 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 s cho 26 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN phép b n tìm ki m theo s đI n tho i hay đ a ch có th đ a thơng tin mà b n mu n Các Ph ng th c s d ng Form KIL OBO OKS CO M Option Explicit Dim DB As Database Dim DongSQL As String Dim SQL1 As String Dim i As Integer Private Sub Cmdthoat_Click() Form1.WindowState = 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 Select Case ComDK.ListIndex 27 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Case 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 To 10 ComPheptoan.Clear ComPheptoan.AddItem "=" End Select Gt.Text = "" If comhien.Text = "" Or comhien.Text = "TAT CA" Then 28 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 = To Data1.Recordset.Fields.Count - ComDK.AddItem (Data1.Recordset.Fields(i).Name) Next i End Sub Public Sub HIEN() comhien.AddItem "TAT CA" For i = To Data1.Recordset.Fields.Count - comhien.AddItem (Data1.Recordset.Fields(i).Name) Next i End Sub FORM V (In hố đ n tr ti n c a khách hàng) 29 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN T Form n u b n ch n Menu ch c n ng b n ch n Menu hố đ n tr ti n ho c b n có th n phím nóng(Ctr-H) dó s hi n form in háo đ n trã ti n c a khách hàng dó s có ba nút l nh n u b n mu n in thơng tin c a Các ph KIL OBO OKS CO M q khách hàng có cu c g i tháng b n có th ch n nút l nh hố đ n ng th c Form 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 = 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) 30 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 Private Sub cd2_Click() If thu.Caption > Then 31 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Data1.Recordset.MovePrevious rs.MovePrevious thu.Caption = thu.Caption - 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 + 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) 32 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 = 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) 33 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub KIL OBO OKS CO M 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) Private Sub cd1_Click() Data1.Recordset.MoveFirst rs.MoveFirst thu.Caption = 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 Tốn) 34 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Các ph ng th c Form KIL OBO OKS CO M Public cout As Integer Dim da As DAO.Database Dim bien Dim rec As DAO.Recordset Dim rec1 As DAO.Recordset Dim i, j, dem As Integer Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) End Sub Private Sub cmdre_Click() baocao1.Show ' baocaohoadon1.Show End Sub Private Sub Cmdthoat_Click() Form1.WindowState = Unload xuly End Sub Private Sub Form_Load() dem = Set da = OpenDatabase("e:\dienthoai\PHONE.mdb") Set rec = da.OpenRecordset("GOI") Set rec1 = da.OpenRecordset("CUOCGOI") dieu_chinh 35 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M End Sub Public Function dem1() Dim bien As Integer bien = bien = Data1.Recordset.RecordCount dem1 = bien End Function Private Sub cmddk_Click() i=i+1 Dim d As Double dem1 If i > Then MsgBox "khong the khoi tao " Exit Sub Else da.Execute "UPDATE GOI " & _ "set TIEN =[TIEN]+10" End If End Sub Sub dieu_chinh() Do Until rec.EOF If rec![MAVUNG] = "04" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 15 rec.Update If rec![TIEN] > rec![THOIGIAN] * 15 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 15 + 27 rec.Update End If End If If rec![MAVUNG] = "037" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 25 rec.Update If rec![TIEN] > rec![THOIGIAN] * 25 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 25 + 27 rec.Update End If End If If rec![MAVUNG] = "0210" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 17 rec.Update If rec![TIEN] > rec![THOIGIAN] * 17 + 27 Then 36 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M rec.Edit rec![TIEN] = rec![THOIGIAN] * 17 + 27 rec.Update End If End If If rec![MAVUNG] = "08" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 30 + 27 rec.Update If rec![TIEN] > rec![THOIGIAN] * 30 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 30 + 27 rec.Update End If End If rec.MoveNext Loop rec.Close da.Close End Sub Sub kiem_tra() Set rec = da.OpenRecordset("GOI") Do Until rec.EOF If rec![MAVUNG] = "04" Then If rec![TIEN] > rec![THOIGIAN] * 15 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 15 + 27 rec.Update End If End If If rec![MAVUNG] = "037" Then If rec![TIEN] > rec![THOIGIAN] * 25 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 25 + 27 rec.Update End If End If If rec![MAVUNG] = "0210" Then If rec![TIEN] > rec![THOIGIAN] * 17 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 17 + 27 rec.Update End If End If rec.MoveNext Loop rec.Close da.Close 37 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub KIL OBO OKS CO M Private Sub HIEN_Click() xuly.WindowState = inbaocao.Show End Sub Private Sub Label1_Change() Dim i As Integer For i = To 100 Label1.BackColor = i * Rnd Next End Sub 38 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN L I NĨI CH U KIL OBO OKS CO M M CL C NG I: KH O SÁT H TH NG T ng quan v h th ng qu n lý Ch c n ng nhi m v c a h th ng u c u c a h th ng nh ng khó kh n CH NG II: PHÂN TÍCH H TH NG Các ch c n ng c b n c a h th ng Bi u đ phân c p ch c n ng c a h th ng qu n lý s n tho i đ ng ký th bao Phân Tích Ch ng trình 3.1 Gi i Thi u Ngơn Ng 3.2 N i Dung Ch ng trình Form m đ u Form II (C p Nh t Thơng Tin Khách Hàng) FORM III (In khách Hàng) Form IV (Tìm Ki m) FORM V (In hố đ n tr ti n c a khách hàng) Form VI ( In Báo Cáo Và Tính Tốn) 39 [...]... Basic 6.0 ng trình s d ng h qu n tr c s d li u Access đ l u tr các thơng tin v khách hàng đã đ ng ký th bao v i các thơng tin : th i gian cho t ng cu c g i, s ti n cho t ng cu c g i… Ch ng trình Qu n lý s đi n tho i đã đ ng ký th bao g m có 6 Form th c hi n các thao tác sau + Form 1: Form này đ ng i s d ng b t đ u vào ch Form nh là m t logo.Khi vào ch ch ng trình ng trình chính.Giao di n ng trình Form... truy v n d li u Ch ng trình KIL OBO OKS CO M 3.2 N i Dung Ch ng trình Qu n lý s đi n tho i đã đ ng ký th bao c n đ t đ c các u c u t i thi u sau : + Vi c c p nh t các thơng tin khách hàng, thơng tin v hố đ n tr ti n c a khách hàng + Vi c tìm ki m đ n gi n ,nhanh chóng ,chính xác + Vi c in n các cơng v n ti n l i ,đ p ,d nhìn Trong bài t p l n này v i đ tài Qu n lý cơng v n đ n đ l p trình h Ch ng đ i t... ,ngơn ng l p trình h ng ng đ i t ng này là m t cơng c c n thi t cho i s d ng có th c p nh t, l u tr , tìm ki m, xem s a m t cách nhanh chóng V i mong mu n áp d ng Visual Basic vào cơng tác qu n lý, em xin th c hi n đ tài : Qu n Lý Các S i n Tho i ã 13 ng Ký Th Bao trong bài t p l n http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN này.Ngồi ra trong ch ng trình em còn s d ng ngơn ng l p trình SQL(Structer... Tr giúp h trình ng d n cánh s d ng ch + Thốt giúp cho ng d dàng Các ph ng th c đ End Sub ng trình ng trình, và ng i s d ng có th thốt kh i ch c s d ng trong Form này Private Sub MNUEXIT_Click() End ng trình bao g m ba nút Private Sub mnugoi_Click() 15 i vi t ch ng ng trình m t cách http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub KIL OBO OKS CO M Private Sub mnuin_Click() xuly.WindowState = 1... ng l p trình đ làm cho ph n m m đó hồn ch nh h n.Bên c nh các ngơn ng l p trình đa d ng và phong phú ,thì ngơn ng l p trình Visual Basic có tính n ng cao h n c ,giúp cho ng i dùng trong các cơng tác t ch c ,l p d án,tìm ki m,l u tr ,bi u di n thơng tin ,ti t ki m th i gian Ph n m m Visual Basic c a hãng Microsoft là ph n m m ph bi n là ngơn ng l p trình tr c quan theo h S d ng ph n m m l p trình h... trên Windows s giúp ch ng trình i s d ng vì nó cung c p kh n ng t o đ i t ng và các l p b ng cách s d ng giao di n thay ngơn ng ,Visual Basic có giao di n đ p ,các thao tác đ n gi n khơng b ph thu c vào ch l p trình trên mơi tr ng trình nh các ch ng trình ng DOS.Kh n ng k t n i và các cơng c truy v n giúp cho ta t ch c tìm ki m thơng tin m t cách nhanh chóng khi c s d li u đã đ ct o các quan h ràng... cho phép tìm ki m 14 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN theo đ a ch , theo s đi n tho i mà khách hàng đã th bao, n u nh tìm th y các đi u ki n tho mãn thì có th hi n ra tát c các tr ng ho c m t tr ng nào đó tu vào u c u tìm ki m KIL OBO OKS CO M + Form 5 (Form In ra các hố đ n tr ti n c a khách hàng) :v i t t các khách hàng đã đ ng ký th bao có các cu c g i trong tháng s đ c in ra cho các... q khách hàng đã g i, m i khi ch ng trình ch y thì vi c tính ti n s đ c ti n hành và đ c l u tr vào c s d li u đã có s n.Trên Form này có các nút l nh cho phép nhân viên có th xu t hố đ n tr ti n hàng tháng c a khách hàng và t ng s ti n mà q khách hàng ph i tr trong tháng Form m đ u Form này m c đích ch y u đ gi i thi u ch l nh: + Cácch c n ng bao g m n i dung c a t t c ch + Tr giúp h trình ng d n cánh... tin khách hàng th bao 12 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Tên tr ng MAVUNG MASDT Ki u Text Text 50 40 3 SODT Number 40 4 THOIGIAN Date/Time 60 5 TIEN Number 70 3 Phân Tích Ch r ng KIL OBO OKS CO M STT 1 2 Gi i thích Mã vùng Mã s đI n tho i S đi n tho i khách th bao Th i gian g i c a khách hàng S ti n g i cho m i cu c ng trình 3.1 Gi i Thi u Ngơn Ng th c hi n m t ch ng trình ngồi gi i... logo.Khi vào ch ch ng trình ng trình chính.Giao di n ng trình Form có ch c n ng nh là n n cho + Form2 : là Form có tác d ng c p nh t t t c các khách hàng đã đ ng ký th bao cơng vi c này bao g m đ a ra thơng tin v đ a ch , s đi n tho i mà khách hàng này đã đ ng ký Form này có th đ a ra đ d li u c t t c các khách hàng có trong c s + Form3 ( Form in khách hàng) : t i đây ng hàng n u c n thi t i s d ng có ...http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN CH NG TRÌNH QU N LÝ CÁC S CH I N THO I KIL OBO OKS CO... đ ng ký th bao c ng nh u c u đ t vi c qu n lý theo ph ng pháp th cơng s khơng th đáp ng http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN đ c ,do g p r t nhi u khó kh n.Nó đòi h i ph i có nhi... giang, Khánh hồ, Kon tum, Lào cai, Lai châu,Phú n, Qu ng nam, Qu ng ngãi, Qu ng tr , S n la, http:/ /kilobooks. com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Hu , n ng, Qn đ i (06977; 06922) Vùng An giang, Bình d