?? 設備運行_設備故障編輯.frm
字號:
LrText(13).Text = Val(.Fields("StopTime") & "") '停機臺時
LrText(14).Tag = Trim(.Fields("ConkType") & "") '故障類型
LrText(14).Text = Trim(.Fields("Listname") & "")
LrText(15).Tag = Trim(.Fields("Operation") & "") '操作員
LrText(15).Text = Trim(.Fields("PersonName") & "")
LrText(16).Text = Trim(.Fields("Remark") & "") '備注
LrText(17).Text = Trim(.Fields("Maker") & "") '制表人
LrText(18).Text = Format(.Fields("MakerDate"), "yyyy-mm-dd") '制表日期
LrText(19).Text = Trim(.Fields("Checker") & "") '審核人
TextChangeLock = False '文本框解鎖
'<<]
End If
End With
'設置審核棄審按鈕狀態
Call Sub_CheckStatus
End Sub
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button) '用戶點擊工具條
'屏蔽文本框,下拉組合框有效性判斷
Valilock = True
'屏蔽網格失去焦點產生的有效性判斷
Changelock = True
Select Case Button.Key
Case "yl" '預 覽
BillTextPrint Lab_Title, LrText, TextGroupCode, XtReportCode, False
Case "dy" '打 印
Dim Yhanswer As Integer '打印提示
'用戶確認是否打印單據
Tsxx = "請確認是否打印當前單據?"
Yhanswer = Xtxxts(Tsxx, 2, 2)
If Yhanswer = 2 Then
Exit Sub
End If
BillTextPrint Lab_Title, LrText, TextGroupCode, XtReportCode, True
Case "xz" '新 增
Call Sub_AddBill
Case "xg" '修 改
Call Sub_EditBill
Case "sc" '刪 除
Call Sub_DeleteBill
Case "bc" '保 存
Call Sub_SaveBill
Case "fq" '放 棄
Call Sub_AbandonBill
Case "shsh" '審 核
Call Sub_CheckBill
Case "shqs" '棄 審
Call Sub_AbandonCheck
Case "first" '首 張
Call Sub_First
Case "prev" '上 張
Call Sub_Prev
Case "next" '下 張
Call Sub_Next
Case "last" '末 張
Call Sub_Last
Case "bz" '幫 助
Call F1bz
Case "fh" '退 出
Unload Me
End Select
'解 鎖
Valilock = False
Changelock = False
TextChangeLock = False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '支持熱鍵操作
Select Case KeyCode
Case vbKeyF5 '增加單據
If Tlb_Action.Buttons("xz").Enabled And Tlb_Action.Buttons("xz").Visible Then
Call Sub_AddBill
End If
Case vbKeyF3 '修改單據
If Tlb_Action.Buttons("xg").Enabled And Tlb_Action.Buttons("xg").Visible Then
Call Sub_EditBill
End If
Case vbKeyF6 '保存單據
If Tlb_Action.Buttons("bc").Enabled And Tlb_Action.Buttons("bc").Visible Then
Call Sub_SaveBill
End If
End Select
End Sub
Private Sub Sub_OperStatus(Str_Status As String) '工具條依據不同狀態所進行的變化
With Tlb_Action
Select Case Str_Status
Case "10" '瀏覽((列表)調入單據處理時的進入狀態、(列表)新增狀態時放棄錄入)
'工具條
.Buttons("dy").Enabled = True '打印
.Buttons("yl").Enabled = True '預覽
.Buttons("xz").Enabled = True '新增
.Buttons("xg").Enabled = True '修改
.Buttons("sc").Enabled = True '刪除
.Buttons("bc").Enabled = False '保存
.Buttons("fq").Enabled = False '放棄
.Buttons("first").Enabled = True '首張
.Buttons("prev").Enabled = True '上張
.Buttons("next").Enabled = True '下張
.Buttons("last").Enabled = True '末張
.Buttons("bz").Enabled = True '幫助
.Buttons("fh").Enabled = True '退出
'設置審核棄審按鈕狀態
Call Sub_CheckStatus
'設置文本框錄入狀態
Call Sub_LrtextStatus(False)
Case "20" '新增單據(（錄入）新增一張單據 、（列表）新增一張單據)
'工具條
.Buttons("dy").Enabled = False '打印
.Buttons("yl").Enabled = False '預覽
.Buttons("xz").Enabled = False '新增
.Buttons("xg").Enabled = False '修改
.Buttons("sc").Enabled = False '刪除
.Buttons("bc").Enabled = True '保存
.Buttons("fq").Enabled = True '放棄
.Buttons("shsh").Enabled = False '審核
.Buttons("shqs").Enabled = False '棄審
.Buttons("first").Enabled = False '首張
.Buttons("prev").Enabled = False '上張
.Buttons("next").Enabled = False '下張
.Buttons("last").Enabled = False '末張
.Buttons("bz").Enabled = True '幫助
.Buttons("fh").Enabled = True '退出
'設置文本框錄入狀態
Call Sub_LrtextStatus(True)
Case "30" '修改(（錄入）調入修改功能、（列表）調入修改功能)
'工具條
.Buttons("dy").Enabled = False '打印
.Buttons("yl").Enabled = False '預覽
.Buttons("xz").Enabled = False '新增
.Buttons("xg").Enabled = False '修改
.Buttons("sc").Enabled = False '刪除
.Buttons("bc").Enabled = True '保存
.Buttons("fq").Enabled = True '放棄
.Buttons("shsh").Enabled = False '審核
.Buttons("shqs").Enabled = False '棄審
.Buttons("first").Enabled = False '首張
.Buttons("prev").Enabled = False '上張
.Buttons("next").Enabled = False '下張
.Buttons("last").Enabled = False '末張
.Buttons("bz").Enabled = True '幫助
.Buttons("fh").Enabled = True '退出
'設置文本框錄入狀態
Call Sub_LrtextStatus(True)
End Select
End With
End Sub
Private Sub Sub_LrtextStatus(TextEnabled As Boolean) '設置錄入文本框狀態
'錄入文本框狀態設置
If TextEnabled Then
For jsqte = Max_Text_Index To 0 Step -1
'判斷文本框是否可編輯
If Textboolean(jsqte, 5) Then
LrText(jsqte).Enabled = True
Else
LrText(jsqte).Enabled = False
End If
Next jsqte
Else
For jsqte = Max_Text_Index To 0 Step -1
LrText(jsqte).Enabled = False
Next jsqte
End If
End Sub
Private Sub Sub_CheckStatus() '設置審核棄審按鈕狀態(亦可設置其他動作按鈕狀態)
'根據當前單據狀態來確定審核棄審按鈕狀態
If Trim(LrText(19).Text) = "" Then
Tlb_Action.Buttons("shsh").Enabled = True '審核
Tlb_Action.Buttons("shqs").Enabled = False '棄審
Else
Tlb_Action.Buttons("shqs").Enabled = True '棄審
Tlb_Action.Buttons("shsh").Enabled = False '審核
End If
End Sub
Private Sub Sub_AddBill() '新增一張單據
Dim RecTemp As New ADODB.Recordset '臨時使用動態集
Dim jsqte As Long '臨時計數器
If Not Security_Log("Dev_MalfunctionEdit", Xtczybm, 1, True) Then
Exit Sub
End If
'設置操作狀態為新增(Fixed)
Lab_OperStatus.Caption = "2"
'設置工具條狀態(Fixed)
Call Sub_OperStatus("20")
'清空VouchID(Fixed)
Lab_BillId.Caption = ""
'錄入文本框清除內容
For jsqte = Max_Text_Index To 0 Step -1
LrText(jsqte).Tag = ""
LrText(jsqte).Text = ""
Next jsqte
'[>>顯示制單人,清空審核人,此處還可以設置錄入默認值如自動生成單據號、默認單據錄入日期注意加鎖
TextChangeLock = True
LrText(17).Text = Xtczy
LrText(18).Text = Format(Xtrq, "yyyy-mm-dd")
LrText(0).Enabled = False
LrText(2).Enabled = False
LrText(3).Enabled = False
LrText(4).Enabled = False
LrText(17).Enabled = False
LrText(18).Enabled = False
LrText(19).Enabled = False
TextChangeLock = False
'讀取最新的單據編碼
LrText(0).Text = CreatBillCode(BillCode, False)
'<<]
'讓第一個錄入項得到焦點(Fixed)
On Error Resume Next
LrText(1).SetFocus
End Sub
Private Sub Sub_EditBill() '修改一張單據
Dim RecTemp As New ADODB.Recordset '臨時使用動態集
If Not Security_Log("Dev_MalfunctionEdit", Xtczybm, 1, True) Then
Exit Sub
End If
'非有效單據不予進行修改動作
If Val(Lab_BillId.Caption) = 0 Then
Exit Sub
End If
'判斷當前單據是否允許修改
If Not Fun_AllowEdit Then
Exit Sub
End If
'設置操作狀態為修改
Lab_OperStatus.Caption = "3"
'設置工具條狀態
Call Sub_OperStatus("30")
'顯示制單人
LrText(0).Enabled = False
LrText(2).Enabled = False
LrText(3).Enabled = False
LrText(4).Enabled = False
LrText(17).Enabled = False
LrText(18).Enabled = False
LrText(19).Enabled = False
LrText(19).Text = Xtczy
End Sub
Private Sub Sub_DeleteBill() '刪除當前單據
Dim YAnswer As Integer '確認是否刪除當前單據
Dim jsqte As Long '臨時使用計數器
If Not Security_Log("Dev_MalfunctionEdit", Xtczybm, 1, True) Then
Exit Sub
End If
'非有效單據不予進行刪除動作
If Val(Lab_BillId.Caption) = 0 Then
Exit Sub
End If
Tsxx = "請確認是否刪除當前單據?"
YAnswer = Xtxxts(Tsxx, 2, 2)
If YAnswer = 1 Then
'判斷當前單據是否允許刪除
If Not Fun_AllowEdit Then
Exit Sub
End If
'進行事務處理
On Error GoTo Swcwcl
Cw_DataEnvi.DataConnect.BeginTrans
'1.刪除單據所有內容
Cw_DataEnvi.DataConnect.Execute ("Delete Dev_Malfunction Where MalfunctionID=" & Val(Lab_BillId.Caption))
Cw_DataEnvi.DataConnect.CommitTrans
'標識單據發生改動
Bln_BillChange = True
'單據ID置0
Lab_BillId.Caption = 0
Else
Exit Sub
End If
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -