倉(cāng)庫(kù)庫(kù)存管理系統(tǒng)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)(編輯修改稿)
2025-01-04 05:46 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 LoginSucceeded = False End Sub Private Sub cmdOK_Click() 39。檢查正確的密碼 If Not IsNull() Then If txtPassword = Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True strCurUser = Else MsgBox 無(wú)效的密碼，請(qǐng)重試 !, , 登錄 SendKeys {Home}+{End} End If Else MsgBox 請(qǐng)選擇用戶(hù)名 !, , 登錄 End If End Sub Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 39。設(shè)置全局變量為 false 39。不提示失敗的登錄 LoginSucceeded = False XVIII End Sub Private Sub cmdOK_Click() 39。檢查正確的密碼 If Not IsNull() Then If txtPassword = Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True strCurUser = Else MsgBox 無(wú)效的密碼，請(qǐng)重試 !, , 登錄 SendKeys {Home}+{End} End If Else MsgBox 請(qǐng)選擇用戶(hù)名 !, , 登錄 End If End Sub Private Sub Form_Load() = LoadPicture( amp。 \image\) End Sub Option Explicit Private rsSys As Private cmSys As Private Sub MDIForm_Load() Dim strSQL As String strSQL = select offline from r_parameter Set rsSys = New strSQL, , adOpenDynamic, adLockOptimistic If rsSys!offline Then = False XIX = False = False = False = True = True Else = True = True = True = True = False = False End If Set cmSys = New = = adCmdText End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call mnuExit_Click If intNumWindows 0 Then Cancel = True End If Set rsSys = Nothing Set cmSys = Nothing End Sub Private Sub mnuEdit_other_Click() End Sub Private Sub mnuEdit_ps_Click() End Sub Private Sub mnuEdit_sales_Click() XX End Sub Private Sub mnuExit_Click() If intNumWindows = 0 Then Unload Me Else MsgBox 請(qǐng)關(guān)閉所有子程序后再關(guān)閉該主程序！ , vbCritical, 提示 End If End Sub Private Sub mnuRec_other_Click() End Sub Private Sub mnuRec_ps_Click() End Sub Private Sub mnuRec_sales_Click() End Sub Private Sub mnuReport_DetailUse_Click() End Sub Private Sub mnuReport_Mat_Click() End Sub Private Sub mnuReport_TotalUse_Click() End Sub Private Sub mnuReport_TotalYearUse_Click() XXI End Sub Private Sub mnuSet_department_Click() End Sub Private Sub mnuSet_employee_Click() End Sub Private Sub mnuSet_product_Click() End Sub Private Sub mnuSet_protype_Click() End Sub Private Sub mnuSet_supplier_Click() End Sub Private Sub mnuSql_djother_Click() End Sub Private Sub mnuSql_djps_Click() End Sub Private Sub mnuSql_djsales_Click() End Sub Private Sub mnuSys_begqty_Click() End Sub XXII Private Sub mnuSys_delete_Click() Dim intDel As Integer Dim strSQL As String intDel = MsgBox(確認(rèn)要?jiǎng)h除所有資料碼 ?, vbInformation + vbYesNo, 刪除確認(rèn) ) If intDel = vbYes Then strSQL = delete from department = strSQL strSQL = delete from employee = strSQL strSQL = delete from mat_detail = strSQL strSQL = delete from mat_head = strSQL strSQL = select p_id,qty,price into mat_tmp from mat_head = strSQL strSQL = drop table mat_head = strSQL strSQL = select p_id,qty,price into mat_head from mat_tmp = strSQL strSQL = update mat_head set qty=0,price=0 = strSQL strSQL = drop table mat_tmp = strSQL strSQL = delete from product = strSQL strSQL = delete from product_type = strSQL XXIII strSQL = delete from supplier = strSQL strSQL = delete from order_detail_a = strSQL strSQL = delete from order_detail_b = strSQL strSQL = delete from ps_head_a = strSQL strSQL = delete from ps_head_b = strSQL strSQL = delete from other_head_a = strSQL strSQL = delete from other_head_b = strSQL strSQL = delete from sale_detail_a = strSQL strSQL = delete from sale_detail_b = strSQL strSQL = delete from sale_head_a = strSQL strSQL = delete from sale_head_b = strSQL strSQL = update r_parameter set offline=true,psnumber=0 = strSQL MsgBox 資料刪除完畢 !, vbInformation, 資料刪除 XXIV End If = False = False = False = False = True = True End Sub Private Sub mnuSys_start_Click() Dim strBeg As String Dim strYear, strMonth As String D
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1