sql數據庫課程設計餐飲服務管理系統-資料下載頁

　　

【正文】 服務管理系統嗎 ？ , + , 退出系統 ) _= Then () Else Exit Sub End If End Sub 登記外賣訂單窗體控件布局 ：登記外賣訂單設置窗體中的控件主要包括 ListBox、 TextBox、Button、 Label 和 DatetimePicker 等控件。 TextBox 控件主要用于本窗體文字的顯示。ListBox 列表框在本窗體中用于顯示用戶的多個選擇，達到與用戶對話的目的。 Button控件用于顯示“添加”、“刪除”和“更新”等按鈕。 Label 控件用于顯示用戶可看見的文字。 19 ： Public Sub GetAllData() Dim sqlstr As String Dim ds As New DataSet() () () sqlstr = SELECT orderid FROM OrderInfo WHERE orderstyle=39。外賣 39。 ds = GetDataFromDB(sqlstr) Dim i As Integer Dim temp As String If Not ds Is Nothing Then For i = 0 To (0). 1 temp = Trim((0).Rows(i)(orderid).ToString) (temp) Next End If End Sub Private Sub WrOrder_Load(ByVal sender As , ByVal e As ) Handles GetAllData() If 0 Then (0, True) 20 ShowData(0) End If End Sub Public Sub ShowData(ByVal index As Integer) If index = 0 Then Dim order As New ExOrder() order = GetOrderInfo(Trim()) = = = = End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim sqlstr As String Dim order As New ExOrder() order = GetFormData() If = Then Exit Sub End If If = Then Exit Sub End If sqlstr = INSERT INTO OrderInfo (orderid,orderstyle,orderdate,requiredate,shipadress,cargos) VALUES (39。 amp。 amp。 39。,39。外賣39。,39。 amp。 CDate() amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) UpdateData(sqlstr) GetAllData() 21 ShowData(0) End Sub End Class ： 擴展外賣送貨服務窗體控件布局 ：擴展外賣送貨服務設置窗體中的控件主要包括 GroupBox、TextBox、 Label、 Button 等控件。 GroupBox 控件可將其他控件包括其中，從而集中顯示。 TextBox 控件主要用于本窗體文字的顯示。 Label 控件用于顯示用戶可看見的文字。 Button 控件用于顯示“確定”和“送貨”按鈕。 ： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim order As New ExOrder() = Trim() If = Then Exit Sub 22 End If Dim sqlstr As String sqlstr = SELECT * FROM OrderInfo WHERE orderid=39。 amp。 Trim() amp。 39。 Dim ds As New DataSet() () ds = GetDataFromDB(sqlstr) If Not ds Is Nothing Then = (0).Rows(0)(shipadress) = (0).Rows(0)(requiredate) = (0).Rows(0)(cargos) = = = = True End If End Sub Private Sub Form8_Load(ByVal sender As , _ ByVal e As ) Handles = False Dim sqlstr As String sqlstr = SELECT ClerkID FROM CLerk Dim ds As New DataSet() () ds = GetDataFromDB(sqlstr) If Not ds Is Nothing Then Dim i As Integer If (0). 0 Then For i = 0 To (0). 1 (Trim((0).Rows(i) _ 23 (ClerkID).ToString)) Next End If End If End Sub 24