【文章內(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。將選擇的日期顯示到