Quản lý phần mềm bán vé xe VB

8.431 lượt xem;

Form_Xe_30_Cho.vb
Form /
PhanMemBanVeXe_Full /
project /

1 Imports DevComponents.DotNetBar
2 Imports System.Data.SqlClient
3 Public Class Form_Xe_30_Cho
4     Private lenh As String
5     Private lenh1 As String
6     Private Ban_ve As New Ban_ve
7     Private IdChuyen As String
8     Private bang_dat_ve As DataTable
9
10     Private Sub btn_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Thoat.Click
11         Ban_ve.Update_Ve_xe()
12         Me.Close()
13     End Sub
14
15     Private Sub btn_TaiXe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_TaiXe.Click
16         MessageBox.Show("Chỗ này của tài xế bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Stop)
17     End Sub
18
19     Private Sub Duyet_danh_sach_cho_ngoi()
20         With Form_Main
21             lenh = "Select IdChuyen from ChuyenXe where IdTuyen = '" + .cbo_TenTuyenVe.SelectedValue.ToString + "'"
22             lenh &= " and NgayDi = '" + FormatDateTime(CDate(.cbo_NgayVe.SelectedValue.ToString), DateFormat.ShortDate) + "' and Gio = '" + .cbo_GioVe.SelectedValue.ToString + "'"
23             lenh &= " and So_Xe = '" + .cbo_XeVe.SelectedValue.ToString + "'"
24             'Lay Idchuyen cua chuyen do ra
25             bang_dat_ve = Doc_bang(lenh)
26             IdChuyen = bang_dat_ve.Rows(0)("IdChuyen").ToString
27         End With
28
29         lenh = "Select * from ChoNgoi where IdChuyen = '" + IdChuyen + "' and So_Xe = '" + Form_Main.cbo_XeVe.SelectedValue.ToString + "'"
30         Dim com As New SqlCommand(lenh, connect)
31         Try
32             connect.Open()
33             Dim dr As SqlDataReader = com.ExecuteReader
34             While dr.Read = True
35                 For i As Integer = 0 To grb_30.Controls.Count - 1
36                     If dr.GetValue(2).ToString = grb_30.Controls(i).Text Then
37                         CType(grb_30.Controls(i), DevComponents.DotNetBar.ButtonX).Image = My.Resources.hanh_khach
38                     End If
39                 Next
40             End While
41             connect.Close()
42         Catch ex As Exception
43             MessageBox.Show("Không đọc được danh sách chỗ ngồi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
44         End Try
45     End Sub
46
47     Private Sub Form_Xe_30_Cho_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
48         Duyet_danh_sach_cho_ngoi()
49     End Sub
50
51     Private Sub Duyet(ByVal but As DevComponents.DotNetBar.ButtonX)
52         Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn đặt:" & vbNewLine & _
53                                 "- Xe: " & Form_Main.cbo_XeVe.SelectedValue.ToString & vbNewLine & _
54                                 "- Vị trí chỗ ngồi: " & but.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
55         If dg = Windows.Forms.DialogResult.Yes Then
56             lenh = "Insert into ChoNgoi Values('" + IdChuyen + "', '" + Form_Main.cbo_XeVe.Text + "', '" + but.Text + "')"
57             lenh1 = "Insert into BanVe(IdChuyen, TenHanhKhach, SDTHanhKhach) "
58             lenh1 &= "Values('" + IdChuyen + "', N'" + Form_Main.txt_TenHanhKhach.Text + "', '" + Form_Main.txt_SoDTHanhKhach.Text + "')"
59             Dim com As New SqlCommand(lenh, connect)
60             Dim com1 As New SqlCommand(lenh1, connect)
61             Try
62                 connect.Open()
63                 com.ExecuteNonQuery()
64                 com1.ExecuteNonQuery()
65                 connect.Close()
66                 MessageBox.Show("Đặt chỗ thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
67                 Duyet_danh_sach_cho_ngoi()
68             Catch ex As Exception
69                 MessageBox.Show("Chỗ này đã có người đặt rồi bạn ơi!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Hand)
70                 connect.Close()
71             End Try
72         Else
73             MessageBox.Show("Đã hủy thao tác chọn chỗ ngồi, bạn có thể chọn chỗ khác nếu muốn!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
74         End If
75     End Sub
76
77     Private Sub btn_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_8.Click
78         Duyet(btn_8)
79     End Sub
80     Private Sub btn_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_7.Click
81         Duyet(btn_7)
82     End Sub
83     Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
84         Duyet(btn_3)
85     End Sub
86     Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
87         Duyet(btn_4)
88     End Sub
89     Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
90         Duyet(btn_6)
91     End Sub
92     Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
93         Duyet(btn_5)
94     End Sub
95     Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
96         Duyet(btn_2)
97     End Sub
98     Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
99         Duyet(btn_1)
100     End Sub
101
102     Private Sub btn_20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_20.Click
103         Duyet(btn_20)
104     End Sub
105
106     Private Sub btn_19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_19.Click
107         Duyet(btn_19)
108     End Sub
109
110     Private Sub btn_18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_18.Click
111         Duyet(btn_18)
112     End Sub
113
114     Private Sub btn_17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_17.Click
115         Duyet(btn_17)
116     End Sub
117
118     Private Sub btn_16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_16.Click
119         Duyet(btn_16)
120     End Sub
121
122     Private Sub btn_15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_15.Click
123         Duyet(btn_15)
124     End Sub
125
126     Private Sub btn_14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_14.Click
127         Duyet(btn_14)
128     End Sub
129
130     Private Sub btn_13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_13.Click
131         Duyet(btn_13)
132     End Sub
133
134     Private Sub btn_12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_12.Click
135         Duyet(btn_12)
136     End Sub
137
138     Private Sub btn_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_11.Click
139         Duyet(btn_11)
140     End Sub
141
142     Private Sub btn_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_10.Click
143         Duyet(btn_10)
144     End Sub
145
146     Private Sub btn_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_9.Click
147         Duyet(btn_9)
148     End Sub
149
150     Private Sub btn_29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_29.Click
151         Duyet(btn_29)
152     End Sub
153
154     Private Sub btn_28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_28.Click
155         Duyet(btn_28)
156     End Sub
157
158     Private Sub btn_27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_27.Click
159         Duyet(btn_27)
160     End Sub
161
162     Private Sub btn_26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_26.Click
163         Duyet(btn_26)
164     End Sub
165
166     Private Sub btn_25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_25.Click
167         Duyet(btn_25)
168     End Sub
169
170     Private Sub btn_24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_24.Click
171         Duyet(btn_24)
172     End Sub
173
174     Private Sub btn_23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_23.Click
175         Duyet(btn_23)
176     End Sub
177
178     Private Sub btn_22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_22.Click
179         Duyet(btn_22)
180     End Sub
181
182     Private Sub btn_21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_21.Click
183         Duyet(btn_21)
184     End Sub
185
186 End Class

Quản lý phần mềm bán vé xe VB

Quản lý phần mềm bán vé xe VB 8.431 lượt xem

Dự án liên quan!

Source Code Quản Lý Thiết Bị, Full Code + CSDL + File Báo Cáo + Slide + Hướng Dẫn

Phân tích thiết kế CSDL phần mềm quản lý bán hàng online

Full code quản lý phòng tập gym, phòng thập thể hình Quang Sáng

Quản lý nhân sự công ty bằng c# _ full source code

Full Source Code Phần mềm quản lý bán hàng online chuyên nghiệp bằng PHP

Full code phần mềm bán hàng siêu thị shop mini (c# +sql)