freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb_可視化編程技術(shù)課程設(shè)計--企業(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)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If = 39。關(guān)閉自己 Unload Me End Sub 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書(論 文) 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è) 大 學 課 程 設(shè) 計 說 明 書(論 文) 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è) 大 學 課 程 設(shè) 計 說 明 書(論 文) 7 Modify = True OriId = .ContractId Else .Update (OriId) End If End With MsgBox 合同保存完成 End Sub Private Sub ComboDeliveryDate_GotFocus() 39。將焦點設(shè)置為下一個控件,否則將反復執(zhí)行此過程 39。如果 ComboDeliveryDate 中包含日期,則將它賦值到 FrmDateSel 中 If Then = End If 39。設(shè)置 FrmDateSel 窗體的位置 = + + 350 = + + + 450 1 39。將選擇的日期顯示到 ComboDeliveryDate 控件中 = End Sub Private Sub ComboLastDay_GotFocus() 39。將焦點設(shè)置為下一個控件,否則將反復執(zhí)行此過程 39。如果 ComboLastDay 中包含日期,則將它賦值到 FrmDateSel 中 If Then = End If 遼 寧 工 業(yè) 大 學 課 程 設(shè) 計 說 明 書(論 文) 8 39。設(shè)置 FrmDateSel 窗體的位置 = + + 350 = + + + 450 1 39。將選擇的日期顯示到
點擊復制文檔內(nèi)容
畢業(yè)設(shè)計相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1