vb_可視化編程技術課程設計--企業(yè)銷售合同管理系統(tǒng)(編輯修改稿)
2025-07-11 11:08 本頁面
【文章內(nèi)容簡介】 y_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If = 39。關閉自己 Unload Me End Sub 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 5 當用戶驗證成功之后，就進入系統(tǒng)的管理界面，進行對系統(tǒng)進行 管理。管理界面具有以下功能： （ 1） 產(chǎn)品管理 （ 2） 合同管理 （ 3） 費用管理 （ 4） 收賬管理 （ 5） 合同統(tǒng)計 （ 6） 用戶管理 Private Sub Cmd_Save_Click() Dim TmpId As String If Trim(txtId) = Then MsgBox 請 輸入合同編號 Exit Sub End If If Trim(txtClient) = Then MsgBox 請輸入客戶單位 Exit Sub End If 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 6 If = Then MsgBox 請輸入簽約日期 Exit Sub End If TmpId = MakeStr(txtId) 39。判斷產(chǎn)品編號是否已經(jīng)存在 If Modify = False Or OriId Trim(txtId) Then If (TmpId) = True Then MsgBox 合同編號“ + Trim(txtId) + ”已經(jīng)存在，請重新輸入 = 0 = Len(txtId) Exit Sub End If End If With MyContract .ContractId = TmpId .Client = MakeStr(txtClient) 39。規(guī)范日期格式 .SignDate = Format(, yyyymmdd) .EmpName = MakeStr(txtEmpName) .DeliveryWay = MakeStr(txtDeliveryWay) .DeliveryDate = Format(, yyyymmdd) .SettleWay = + 1 .LastDay = Format(, yyyymmdd) .Contents = MakeStr(txtContents) .Additional = MakeStr(txtAdditional) If Modify = False Then .Status = 1 .Insert 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 7 Modify = True OriId = .ContractId Else .Update (OriId) End If End With MsgBox 合同保存完成 End Sub Private Sub ComboDeliveryDate_GotFocus() 39。將焦點設置為下一個控件，否則將反復執(zhí)行此過程 39。如果 ComboDeliveryDate 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 39。設置 FrmDateSel 窗體的位置 = + + 350 = + + + 450 1 39。將選擇的日期顯示到 ComboDeliveryDate 控件中 = End Sub Private Sub ComboLastDay_GotFocus() 39。將焦點設置為下一個控件，否則將反復執(zhí)行此過程 39。如果 ComboLastDay 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 8 39。設置 FrmDateSel 窗體的位置 = + + 350 = + + + 450 1 39。將選擇的日期顯示到
畢業(yè)設計相關推薦
鄂ICP備17016276號-1