vb_可視化編程技術(shù)課程設(shè)計(jì)--企業(yè)銷售合同管理系統(tǒng)(編輯修改稿)
2025-06-13 13:35 本頁面
【文章內(nèi)容簡介】 mes + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If = 39。關(guān)閉自己 Unload Me End Sub 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 5 當(dāng)用戶驗(yàn)證成功之后，就進(jìn)入系統(tǒng)的管理界面，進(jìn)行對系統(tǒng)進(jìn)行 管理。管理界面具有以下功能： （ 1） 產(chǎn)品管理 （ 2） 合同管理 （ 3） 費(fèi)用管理 （ 4） 收賬管理 （ 5） 合同統(tǒng)計(jì) （ 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è) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 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è) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 7 Modify = True OriId = .ContractId Else .Update (OriId) End If End With MsgBox 合同保存完成 End Sub Private Sub ComboDeliveryDate_GotFocus() 39。將焦點(diǎn)設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程 39。如果 ComboDeliveryDate 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 39。設(shè)置 FrmDateSel 窗體的位置 = + + 350 = + + + 450 1 39。將選擇的日期顯示到 ComboDeliveryDate 控件中 = End Sub Private Sub ComboLastDay_GotFocus() 39。將焦點(diǎn)設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程 39。如果 ComboLastDay 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 8 39。設(shè)置 FrmDateSel 窗體的位置 = + + 350 = + + + 450 1 39。將選擇的日期顯示到 ComboLast
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1