📄 frmin_kjkmwh.frm
字号:
'填充列表。
With mfgKm
.FormatString = "^级次| 科目编码 | 科 目 名 称 | 辅助核算 | 外币币种 | 计量单位 "
.ColAlignment(1) = 1
.ColAlignment(2) = 1
.row = 0
For i = 0 To .Cols - 1
.col = i
.CellFontBold = True
.CellAlignment = 4
Next i
End With
stbKm.Tab = 1
' tvwKm_NodeClick 0, tvwKm(1).Nodes("R")
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Enabled = False
ElseIf TypeOf ctl Is CheckBox Then
ctl.Enabled = False
ElseIf TypeOf ctl Is ComboBox Then
ctl.Enabled = False
ElseIf TypeOf ctl Is MaskEdBox Then
ctl.Enabled = False
End If
Next ctl
glo.frmProg.ShowProgress 100
glo.frmProg.SetMsg "已经装载完成！"
Unload glo.frmProg
Me.MousePointer = vbDefault
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
For i = 2 To Iwatch '把动态创建树的控件从內存当中清除
Unload tvwKm(i)
Next i
If adoRst.State = adStateOpen Then adoRst.Close
If rstTrade.State = adStateOpen Then rstTrade.Close
Set adoRst = Nothing
Set clsOnekjkm = Nothing
Set clsMyNormal = Nothing
Set rstTrade = Nothing
End Sub
Private Sub chkGrwl_Click()
Dim rstwb2 As ADODB.Recordset
Set rstwb2 = New ADODB.Recordset
rstwb2.CursorLocation = adUseClient
If Left(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Key, 1) <> "R" Or Appediflag = 1 Then
If chkGrwl.value = 1 Then
chkKhwl.Enabled = False
chkGyswl.Enabled = False
chkBmhs.Enabled = False
chkZxhs.Enabled = False
chkKhwl.value = 0
chkGyswl.value = 0
chkBmhs.value = 0
chkZxhs.value = 0
Else
chkKhwl.Enabled = True
chkKhwl.value = 0
chkGyswl.Enabled = True
chkGyswl.value = 0
chkBmhs.Enabled = True
chkBmhs.value = 0
chkZxhs.Enabled = True
chkZxhs.value = 0
End If
Dim sTemp As String
Dim swllx As String
If tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key = "R" Then
Exit Sub
End If
' sTemp = Right(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key, Len(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key) - 1)
' Call bIsWlKm(sTemp, swllx)
' If swllx = "个人" Then
' chkKhwl.Enabled = False
' chkKhwl.Value = 0
' chkGyswl.Enabled = False
' chkGyswl.Value = 0
' ElseIf swllx = "供应商" Then
' chkKhwl.Enabled = False
' chkKhwl.Value = 0
' chkGrwl.Enabled = False
' chkGrwl.Value = 0
' ElseIf swllx = "客户" Then
' chkGyswl.Enabled = False
' chkGyswl.Value = 0
' chkGrwl.Enabled = False
' chkGrwl.Value = 0
' End If
rstwb2.Open " select * from tSYS_SubSysUsed where subsysid='FZ' and accountid='" & glo.sAccountID & "'", gloSys.cnnSYS, adOpenStatic, adLockPessimistic
If rstwb2.RecordCount > 0 Then
chkBmhs.Enabled = True
chkZxhs.Enabled = True
Else
chkBmhs.Enabled = False
chkZxhs.Enabled = False
End If
rstwb2.Close
Set rstwb2 = Nothing
End If
End Sub
Private Sub chkGyswl_Click()
Dim rstwb2 As ADODB.Recordset
Set rstwb2 = New ADODB.Recordset
If Left(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Key, 1) <> "R" Or Appediflag = 1 Then
If chkGyswl.value = 1 Then
chkGrwl.value = 0
chkGrwl.Enabled = False
chkKhwl.value = 0
chkKhwl.Enabled = False
' If chkKhwl.Value = 0 Then
' If chkBmhs.Value = 1 Then
chkZxhs.value = 0
chkZxhs.Enabled = False
' Else
' If chkZxhs.Value = 1 Then
chkBmhs.value = 0
chkBmhs.Enabled = False
' End If
' End If
' Else
' chkBmhs.Value = 0
' chkBmhs.Enabled = False
' chkZxhs.Value = 0
' chkZxhs.Enabled = False
' End If
Else
chkKhwl.value = 0
chkKhwl.Enabled = True
''''''''''-----------
chkGrwl.value = 0
chkGrwl.Enabled = True
chkKhwl.value = 0
chkKhwl.Enabled = True
''''''''''-----------
' If chkKhwl.Value = 1 Then
' chkGrwl.Enabled = False
' If chkBmhs.Value = 0 Then
' chkZxhs.Enabled = True
' Else
' chkZxhs.Value = 0
' chkZxhs.Enabled = False
' End If
' Else
' If chkGyswl.Value = 1 Then
' chkGrwl.Enabled = False
' If chkBmhs.Value = 1 Then
' chkZxhs.Value = 0
' chkZxhs.Enabled = False
' Else
' chkGrwl.Enabled = True
' chkZxhs.Enabled = True
' End If
' Else
' If chkBmhs.Value = 0 And chkZxhs.Value = 0 Then
' chkGrwl.Value = 0
' chkGrwl.Enabled = True
' Else
' chkGrwl.Value = 0
' chkGrwl.Enabled = False
' End If
chkBmhs.Enabled = True
chkZxhs.Enabled = True
' End If
' End If
End If
Dim sTemp As String
Dim swllx As String
If tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key = "R" Then
Exit Sub
End If
' sTemp = Right(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key, Len(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key) - 1)
' Call bIsWlKm(sTemp, swllx)
' If swllx = "个人" Then
' chkKhwl.Enabled = False
' chkKhwl.Value = 0
' chkGyswl.Enabled = False
' chkGyswl.Value = 0
' ElseIf swllx = "供应商" Then
' chkKhwl.Enabled = False
' chkKhwl.Value = 0
' chkGrwl.Enabled = False
' chkGrwl.Value = 0
' ElseIf swllx = "客户" Then
' chkGyswl.Enabled = False
' chkGyswl.Value = 0
' chkGrwl.Enabled = False
' chkGrwl.Value = 0
' End If
rstwb2.CursorLocation = adUseClient
rstwb2.Open " select * from tSYS_SubSysUsed where subsysid='FZ' and accountid='" & glo.sAccountID & "'", gloSys.cnnSYS, adOpenStatic, adLockPessimistic
If rstwb2.RecordCount > 0 Then
chkBmhs.Enabled = True
chkZxhs.Enabled = True
Else
chkBmhs.Enabled = False
chkZxhs.Enabled = False
End If
rstwb2.Close
Set rstwb2 = Nothing
End If
End Sub
Private Sub chkKhwl_Click()
Dim rstwb2 As ADODB.Recordset
Set rstwb2 = New ADODB.Recordset
If Left(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Key, 1) <> "R" Or Appediflag = 1 Then
If chkKhwl.value = 1 Then
chkGrwl.value = 0
chkGrwl.Enabled = False
chkGyswl.value = 0
chkGyswl.Enabled = False
' If chkBmhs.Value = 1 Then
chkZxhs.value = 0
chkZxhs.Enabled = False
' Else
' If chkZxhs.Value = 1 Then
chkBmhs.value = 0
chkBmhs.Enabled = False
' Else
' chkZxhs.Enabled = True
' End If
' End If
Else
chkGyswl.Enabled = True
chkGyswl.value = 0
chkGrwl.Enabled = True
chkGrwl.value = 0
' If chkGyswl.Value = 0 Then
' If chkBmhs.Value = 0 And chkZxhs.Value = 0 Then
' chkGrwl.Value = 0
' chkGrwl.Enabled = True
' chkKhwl.Enabled = True
' chkGyswl.Enabled = True
' Else
' chkGrwl.Value = 0
' chkGrwl.Enabled = False
' End If
chkBmhs.Enabled = True
chkZxhs.Enabled = True
' Else
' If chkBmhs.Value = 1 Then
' chkZxhs.Value = 0
' chkZxhs.Enabled = False
' Else
' chkZxhs.Enabled = True
' End If
' End If
End If
Dim sTemp As String
Dim swllx As String
If tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key = "R" Then
Exit Sub
End If
' sTemp = Right(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key, Len(tvwKm(tabKm.SelectedItem.Index).SelectedItem.Parent.Key) - 1)
' Call bIsWlKm(sTemp, swllx)
' If swllx = "个人" Then
' chkKhwl.Enabled = False
' chkKhwl.Value = 0
' chkGyswl.Enabled = False
' chkGyswl.Value = 0
' ElseIf swllx = "供应商" Then
' chkKhwl.Enabled = False
' chkKhwl.Value = 0
' chkGrwl.Enabled = False
' chkGrwl.Value = 0
' ElseIf swllx = "客户" Then
' chkGyswl.Enabled = False
' chkGyswl.Value = 0
' chkGrwl.Enabled = False
' chkGrwl.Value = 0
' End If
rstwb2.CursorLocation = adUseClient
rstwb2.Open " select * from tSYS_SubSysUsed where subsysid='FZ' and accountid='" & glo.sAccountID & "'", gloSys.cnnSYS, adOpenStatic, adLockPessimistic
If rstwb2.RecordCount > 0 Then
chkBmhs.Enabled = True
chkZxhs.Enabled = True
Else
chkBmhs.Enabled = False
chkZxhs.Enabled = False
End If
rstwb2.Close
Set rstwb2 = Nothing
End If
End Sub
Private Sub lblLock_Click()
Dim frm As New frmLockSubject
' If Trim$(txtKmdm) = "" Then Exit Sub
frm.kmdm = Trim$(txtKmdm)
frm.Kmmc = Trim$(txtKmmc)
frm.Show 1, Me
End Sub
Private Sub mnuCancel_Click()
ContorlMenu "cancel"
Call Operate("CANCEL")
Me.MousePointer = 0
End Sub
Private Sub mnuDelete_Click()
ContorlMenu "delete"
Call Operate("DELETE")
Me.MousePointer = 0
End Sub
Private Sub mnuEdits_Click()
Call Operate(UCase("edit"))
ContorlMenu "edit"
Me.MousePointer = 0
End Sub
Private Sub mnuExit_Click()
Me.MousePointer = vbDefault
'修改会计科目提示保存
' If CheckChang() Then
' If MsgBox("（" & Trim(txtKmdm.text) & "-" & Trim(txtKmmc.text) & "）科目的设置项已修改是否进行保存？", vbYesNo + vbDefaultButton1, "科目保存:") = vbYes Then
' Call Operate("SAVE")
' Exit Sub
' End If
' End If
' If m_bAddState Then
' If MsgBox("（" & Trim(txtKmdm.text) & "-" & Trim(txtKmmc.text) & "）为新增科目是否进行保存？", vbYesNo + vbDefaultButton1, "科目保存:") = vbYes Then
' Call Operate("SAVE")
' End If
' End If
Unload Me
End Sub
Private Sub mnuFind_Click()
Call Operate("FIND")
End Sub
Private Sub mnuHelp_Click()
Call Operate("HELP")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -