Chương 7: THIẾT KẾ GIAO DIỆN VÀ XÂY DỰNG MODUL CHƯƠNG TRÌNH
7.6.2. Chức năng hiện thị các thông tin
+ Phí vào ra + Phí bến đậu + Tiền bán vé 7.6.3. Code
Dim rsphivaora As ADODB.Recordset Dim rsphibendau As ADODB.Recordset Dim rstienve As ADODB.Recordset Dim rs As ADODB.Recordset Dim tien As Single
Private Sub cmdin_Click()
Set rsphivaora = New ADODB.Recordset
rsphivaora.Open "SELECT Soxe.soxe, Xetaiben.ngayvao, Xetaiben.tuyen, Soxe.soghe, Phivaora.mucphi " & _
"FROM (Soxe INNER JOIN Xetaiben ON Soxe.soxe = Xetaiben.soxe) INNER JOIN Phivaora ON (Xetaiben.tuyen = Phivaora.tuyen) AND (Soxe.soghe = Phivaora.socho) where ngayvao=# " & Format(Date, "mm/dd/yyyy") & " #", kn, adOpenDynamic, adLockReadOnly
If optpbd.Value = False And optpvr.Value = False And opttbv.Value = False Then MsgBox "Mời bạn chọn thông tin cần In", vbOKOnly + vbExclamation, "Thông báo"
Exit Sub
rpinphivaora.Field2.DataField = "soxe"
rpinphivaora.Field3.DataField = "soghe"
rpinphivaora.Field4.DataField = "tuyen"
rpinphivaora.Field5.DataField = "mucphi"
rpinphivaora.Show Else
MsgBox "Không có phí vào ra", vbOKOnly + vbExclamation, "Thông báo"
End If End If
Set rsphibendau = New ADODB.Recordset
rsphibendau.Open "SELECT xetaiben.soxe,Xetaiben.tuyen, Xetaiben.ngayvao, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, Xetaiben.songay, Phibendau.sotien " & _
"FROM Xetaiben INNER JOIN Phibendau ON Xetaiben.songay = Phibendau.songay where ngayvao=#" & Format(Date, "mm/dd/yyyy") & "# and xetaiben.songay<>'0'", kn, adOpenDynamic, adLockReadOnly
If optpbd.Value = True Then
If rsphibendau.RecordCount > 0 Then
rpphibendau.DataControl1.Recordset = rsphibendau
rpphibendau.lbngay.Caption = Format(Date, "dd/mm/yyyy") rpphibendau.Field2.DataField = "soxe"
rpphibendau.Field3.DataField = "ngayvao"
rpphibendau.Field4.DataField = "ngayxuat"
rpphibendau.Field5.DataField = "songay"
rpphibendau.Field6.DataField = "sotien"
rpphibendau.Show Else
Exit Sub End If End If
If opttbv.Value = True Then If rstienve.RecordCount > 0 Then If opttbv.Value = True Then
rptienve.lbngay.Caption = Format(Date, "dd/mm/yyyy") rptienve.DataControl1.Recordset = rstienve
rptienve.Restart
rptienve.Field2.DataField = "soxe"
rptienve.Field3.DataField = "ngayxuat"
rptienve.Field4.DataField = "tuyen"
rptienve.Field5.DataField = "soghe"
rptienve.Field6.DataField = "giave"
rptienve.Show End If
Else
MsgBox "Không có tiền bán vé", vbOKOnly + vbInformation, "Thông báo"
End If End If Unload Me End Sub
Call modulieu(rs, "soxe")
Set rstienve = New ADODB.Recordset
rstienve.Open "SELECT Xetaiben.tuyen, Xetaiben.soxe, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, datve.soghe, datve.giave,datve.ngay " & _
"FROM datve INNER JOIN (Soxe INNER JOIN Xetaiben ON Soxe.soxe = Xetaiben.soxe) ON (Xetaiben.Giochay = datve.giochay) AND (Xetaiben.ngayxuat
= datve.Ngaychay) AND (datve.soxe = Soxe.soxe) where ngay=#" & Format(Date,
"mm/dd/yyyy") & "#", kn, adOpenDynamic, adLockReadOnly End Sub
7.6.4. Bảng in ấn các chức năng.
a. Chức năng in ấn phí vào ra.
a. Chức năng in ấn phí vào ra.
b. Chức năng in ấn phí bến đậu.
b. Chức năng in ấn phí bến đậu.
c. Chức năng in ấn tiến bán vé.
c. Chức năng in ấn tiến bán vé.
KẾT LUẬN KẾT LUẬN
Xây dựng phần mềm quản lý là một trong những nhu cầu xuất phát từ thực tế của các hệ thống. Tin học hoá các hoạt động quản lý, giúp các nhà quản lý có tầm nhìn bao quát, tìm kiếm và xử lí nhanh chóng các thông tin cần nắm bắt, hiệu quả công việc được nâng cao, chi phí thấp.
Sự phát triển nhảy vọt của công nghệ thông tin đã tác động mạnh mẽ đến các hoạt động xã hội làm thay đổi một cách sâu sắc đến phong cách sống làm việc của xã hội. Công nghệ thông tin đã trở thành trụ cột chính của nền kinh tế tri thức, ứng dụng công nghệ thông tin vào lĩnh vực quản lý các hoạt động xã hội và nghiên cứu khoa học được nhiều người quan tâm. Phạm vi ứng dụng của công nghệ thông tin ngày càng mở rộng trên nhiều lĩnh vực: Truyền thông, đo lường, tự động hoá, quản lý các hoạt động của con người và xã hội…Những lợi ích mà các phần mềm ứng dụng mang lại là đáng kể: xử lý thông tin nhanh chóng, chính xác khoa học, giảm bớt nhân lực và công sức, phí tổn thấp và hiệu quả công việc nâng cao một cách rõ rệt.
Công nghệ thông tin đã đi sâu và thực tiễn và các cơ quan đã ứng dụng nó. Sử dụng phần mềm công nghệ thông tin phần nào làm giảm bớt được công sức của con người cũng như nguồn nhân lực quản lý Bán vé và điều hành xe ở Bến xe Vinh.
Giúp các nhà quản lý xử lý, cập nhật, và tìm kiếm nhanh chóng các thông tin về luồng xe chạy. Nhằm hỗ trợ cho hành khách cũng như các chủ phương tiện dễ dàng khi lưu thông.