vb_可視化編程技術課程設計--企業(yè)銷售合同管理系統(tǒng)-文庫吧資料
2025-06-13 11:08本頁面
【正文】 ： IDC（ Inter Database Connector）方式 ； ADO（ ActiveX Data Objects）方式； RDS（ Remote Data Service）方式。如果 ComboSignDate 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 39。將選擇的日期顯示到 ComboLastDay 控件中 = End Sub Private Sub ComboSignDate_GotFocus() 39。如果 ComboLastDay 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 8 39。將選擇的日期顯示到 ComboDeliveryDate 控件中 = End Sub Private Sub ComboLastDay_GotFocus() 39。如果 ComboDeliveryDate 中包含日期，則將它賦值到 FrmDateSel 中 If Then = End If 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。管理界面具有以下功能： （ 1） 產品管理 （ 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。判斷密碼是否正確 If (NameKey) PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If = 39。數據有效性檢查 If txtUser = Then MsgBox 請輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 4 PasswordKey = MakeStr(txtPwd) 39。 系統(tǒng)功
畢業(yè)設計相關推薦
鄂ICP備17016276號-1