⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 amenduser.frm

📁 适合乡镇供电所使用电费处理系统v3 软件
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
                       If Len(Text1(12)) <> 0 Then
                          If Val(Text1(12)) < Val(Text1(11)) Then
                             MsgBox "数据有误！", vbInformation
                             Exit Sub
                          Else
                             Text1(Index) = Format(Text1(Index), "000000")
                          End If
                       End If
            End Select
         End If
   End If
End Sub

Private Sub Text1_LostFocus(Index As Integer)
  Text1(Index).BackColor = vbWhite
  Toolbar5.Visible = False
  Toolbar6.Visible = False
  Toolbar7.Visible = False
  Toolbar8.Visible = False
End Sub

Private Sub Text3_Change()
   If Text3.Tag <> Text3.Text Then
       Toolbar1.Buttons(1).Enabled = True
   End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   On Error GoTo ErrPop
    Dim I As Integer
    If pbUserPermission <> "系统管理员" Then
       MsgBox "您的权限不够，请于系统管理员联系!", vbInformation
       Exit Sub
    End If
    If (Text1(0).Tag <> Text1(0).Text Or Text1(1).Tag <> Text1(1).Text Or Text1(2).Tag <> Text1(2).Text Or Text1(3).Tag <> Text1(3).Text Or Text1(8).Tag <> Text1(8).Text Or Text1(9).Tag <> Text1(9).Text Or Text1(24).Tag <> Text1(24).Text Or Text1(10).Tag <> Text1(10).Text Or Text1(11).Tag <> Text1(11).Text Or Text1(12).Tag <> Text1(12).Text Or Text1(13).Tag <> Text1(13).Text) Or Text3.Tag <> Text3.Text = True Then
    If MsgBox("确定更新当前的信息?", vbYesNo + vbDefaultButton1 + vbSystemModal + 32) = vbYes Then
       If Text1(0).Tag <> Text1(0).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.表卡号, 用户电费.分帐号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识,用户电费.用户编码 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' ORDER BY 用户电费.多表序号")
          If MdbR.RecordCount > 0 Then
             MsgBox "该编码的用户已存在,请重新分配编码或删除已存在的您认为无效的编码!", vbInformation
             Exit Sub
          Else
             Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.表卡号, 用户电费.分帐号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识,用户电费.用户编码 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Tag) & "' ORDER BY 用户电费.多表序号")
             For I = 0 To MdbR.RecordCount - 1
                MdbR.Edit
                MdbR.Fields!用户编码 = Format(Text1(0).Text, "0000")
                MdbR.Fields!组合编码 = UserSeek & Trim(Text1(0).Text)
                MdbR.Update
                MdbR.MoveNext
             Next
          End If
       End If
       If Text1(1).Tag <> Text1(1).Text Or Text1(2).Tag <> Text1(2).Text Or Text1(3).Tag <> Text1(3).Text Or Text1(9).Tag <> Text1(9).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识,用户电费.用户编码 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' ORDER BY 用户电费.多表序号")
          For I = 0 To MdbR.RecordCount - 1
              MdbR.Edit
              MdbR.Fields!用户名称 = Mid(Text1(1).Text, 1, 10)
              MdbR.Fields!全称 = Text1(2).Text
              MdbR.Fields!地址 = Text1(3).Text
              MdbR.Fields!台区 = Text1(9).Text
              MdbR.Update
              MdbR.MoveNext
          Next
          TreeView1.SelectedItem.Parent = Text1(1).Text & "--->"    'TreeView1.SelectedItem, 1, 2) & Text1(24).Text & MdbR.Fields!相数标识 & "相"
          Set MdbR = NdMd.OpenRecordset("SELECT DISTINCT 用户名称 from 用户电费 where 镇村代码 ='" & UserSeek & "'")
          If MdbR.RecordCount > 0 Then
              MdbR.MoveLast
              MdbR.MoveFirst
              Combo1(1).Clear
              While Not MdbR.eof
                Combo1(1).AddItem MdbR.Fields!用户名称 & ""
                MdbR.MoveNext
              Wend
          End If
       End If
          '电价类别!!!!!!!!!!
       If Text1(10).Tag <> Text1(10).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.台区, 用户电费.电价代码, 用户电费.电价类别,用户电费.电价,用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.[" & LL & "] AS 计算,用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
          MdbR.Edit
          MdbR.Fields!电价代码 = Left(Combo2(1).Text, 2)
          MdbR.Fields!电价类别 = Text1(10).Text
          MdbR.Fields!电价 = Text2
          MdbR.Fields!计算 = False
          MdbR.Update
       End If
        
          '表损
       If Text1(8).Tag <> Text1(8).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.台区, 用户电费.电价类别,用户电费.电价,用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.[" & LL & "] AS 计算,用户电费.表损,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
          MdbR.Edit
          MdbR.Fields!表损 = Text1(8).Text
          MdbR.Fields!计算 = False
          MdbR.Update
       End If
        
        '?????????????
        If Text1(11).Tag <> Text1(11).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数,用户电费.[" & LL & "] AS 计算,用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
          MdbR.Edit
          MdbR.Fields!上期示数 = Text1(11).Text
          MdbR.Fields!计算 = False
          MdbR.Update
        End If
        '??????????
        If Text1(12).Tag <> Text1(12).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数,用户电费.[" & LL & "] AS 计算,用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
          MdbR.Edit
          MdbR.Fields!本期示数 = Text1(12).Text
          MdbR.Fields!计算 = False
          MdbR.Update
        End If
        If Text1(13).Tag <> Text1(13).Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.[" & LL & "] AS 计算,用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
          MdbR.Edit
          MdbR.Fields!倍率 = Text1(13).Text
          MdbR.Fields!计算 = False
          MdbR.Update
        End If
        If Text3.Tag <> Text3.Text Then
          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识,用户电费.多表序号,用户电费.主表 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
          MdbR.Edit
          MdbR.Fields!多表序号 = Mid(Trim(Text3.Text), 1, 2)
          MdbR.Fields!主表 = True
          MdbR.Update
        End If
        
        Dim XSBS As String
        If Text1(24).Tag <> Text1(24).Text Then
           If Text1(24) = "工业动力" Then
              Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.用户类型='" & Text1(24) & "' ORDER BY 用户电费.多表序号")
              Select Case MdbR.RecordCount
                     Case 0
                          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
                          MdbR.Edit
                          MdbR.Fields!用户类型 = Text1(24).Text
                          MdbR.Fields!相数标识 = "A"
                          MdbR.Update
                     Case 1
                          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.表卡号, 用户电费.分帐号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
                          MdbR.Edit
                          MdbR.Fields!用户类型 = Text1(24).Text
                          MdbR.Fields!相数标识 = "B"
                          MdbR.Update
                     Case 2
                          Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.表卡号, 用户电费.分帐号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
                          MdbR.Edit
                          MdbR.Fields!用户类型 = Text1(24).Text
                          MdbR.Fields!相数标识 = "C"
                          MdbR.Update
                     Case Else
                          MsgBox "工业动力三相表已存在,不能更改档案!", vbCritical
                          Exit Sub
              End Select
              TreeView1.SelectedItem = Mid(TreeView1.SelectedItem, 1, 2) & Text1(24).Text & MdbR.Fields!相数标识 & "相"
           Else  '普通照明
              Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.组合编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电费.多表序号,用户电费.用户类型,用户电费.相数标识 FROM 用户电费 WHERE 用户电费.组合编码='" & UserSeek & Trim(Text1(0).Text) & "' and 用户电费.多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
              MdbR.Edit
              MdbR.Fields!用户类型 = Text1(24).Text
              MdbR.Fields!相数标识 = ""
'              MdbR.Fields!全称 = Text1(2)
              MdbR.Update
              TreeView1.SelectedItem = Mid(TreeView1.SelectedItem, 1, 2) & Text1(24).Text
           
           End If
        End If
   End If
   End If
   
   Toolbar1.Buttons(1).Enabled = False
   On Error GoTo 0
   Exit Sub

ErrPop:
      MsgBox Err.Description, vbCritical
      Exit Sub
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim I As Integer
    Dim pMeterInfo(30) As String
    Dim node1 As node
    Dim node2 As node
    On Error GoTo DelErr
    If pbUserPermission <> "系统管理员" Then
       MsgBox "您的权限不够，请于系统管理员联系!", vbInformation
       Exit Sub
    End If
    If MsgBox("该操作将造成数据不可恢复,确定吗?(Y/N)", vbYesNo + vbDefaultButton2 + vbSystemModal + 32) = vbYes Then
       Set MdbR = NdMd.OpenRecordset("SELECT *  FROM 用户电费 WHERE 用户电费.用户名称='" & Left(TreeView1.SelectedItem.Parent, InStr(TreeView1.SelectedItem.Parent, "-") - 1) & "' and 多表序号='" & Mid(Trim(TreeView1.SelectedItem), 1, 1) & "' ORDER BY 用户电费.多表序号")
       MdbR.Delete
       Set MdbR = NdMd.OpenRecordset("SELECT *  FROM 用户电费 WHERE 用户电费.用户编码='" & Trim(Text1(0).Text) & "' and 用户电费.镇村代码='" & UserSeek & "' ORDER BY 用户电费.多表序号")
       If MdbR.RecordCount > 0 Then
          MdbR.MoveLast
          MdbR.MoveFirst
          For I = 1 To MdbR.RecordCount
              MdbR.Edit
              If I = 1 Then
                 MdbR.Fields!主表 = -1
              End If
              MdbR.Fields!多表序号 = Trim(Str(I))
              MdbR.Update
              MdbR.MoveNext
          Next
          TreeView1.Nodes.Remove TreeView1.SelectedItem.Index
          Combo1(0).ListIndex = IIf(Combo1(0).ListIndex = -1, Deng, Combo1(0).ListIndex)
          Toolbar1.Buttons(1).Enabled = False
          Toolbar2.Buttons(1).Enabled = False
          Toolbar3.Buttons(1).Enabled = False
          DTPicker1.Enabled = False
          Combo1(0).SetFocus
       Else
          TreeView1.Nodes.Clear
          If Option1 Then
             Combo1(0).RemoveItem IIf(Combo1(0).ListIndex = -1, Deng, Combo1(0).ListIndex)
             Combo1(0).ListIndex = 0
          Else
             Combo1(1).RemoveItem IIf(Combo1(1).ListIndex = -1, Deng, Combo1(1).ListIndex)
             Combo1(0).ListIndex = 0
          End If
          Toolbar1.Buttons(1).Enabled = False
          Toolbar2.Buttons(1).Enabled = False
          Toolbar3.Buttons(1).Enabled = False
          DTPicker1.Enabled = False
          Combo1(0).SetFocus
       End If
'       If Mid(TreeView1.SelectedItem, 3, 4) = "工业动力" Then
 '         MsgBox "该表为三相动力表,无法删除!", vbCritical
 '         Exit Sub
 '      endif
    End If
    Exit Sub

DelErr:
    If Err = 91 Then
       If MsgBox("该操作将删除" & Left(TreeView1.SelectedItem, InStr(TreeView1.SelectedItem, "-") - 1) & "的所有数据信息,确定吗?(Y/N)", vbYesNo + vbDefaultButton2 + vbSystemModal + 32) = vbYes Then
          NdMd.Execute "Delete * From 用户电费 where 组合编码=' & text1(0).text & '"
       Else
          Exit Sub
       End If
    ElseIf Err <> 0 Then ' 其他的错误
        MsgBox Err.Description, vbCritical
        Exit Sub
    End If
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
                 If MsgBox("确定要进行此项操作吗吗?(Y/N)", vbYesNo + 32) = vbYes Then
                    'If Adodc1.Recordset.Fields!停用 = -1 Then
                    '   Adodc1.Recordset.Fields!停用 = 0
                    'Else
                    '   Adodc1.Recordset.Fields!停用 = 1
                    'End If
                 End If
End Sub

Private Sub Toolbar4_ButtonClick(ByVal Button As MSComctlLib.Button)
     Unload Me
End Sub

Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim I As Integer
    On Error Resume Next
    Set MdbR = NdMd.OpenRecordset("台变信息")
    Combo2(0).Clear
    For I = 0 To MdbR.RecordCount - 1
        Combo2(0).AddItem MdbR.Fields!台变代码 & Space(2) & MdbR.Fields!台变名称
        MdbR.MoveNext
    Next
    Combo2(0).Visible = True
    Combo2(0).SetFocus
End Sub

Private Sub Toolbar6_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim I As Integer
    On Error Resume Next
    Set MdbR = NdMd.OpenRecordset("SELECT * FROM  电价档案 WHERE 状态 =true order by 电价代码")
    Combo2(1).Clear
    If MdbR.RecordCount > 0 Then
       MdbR.MoveLast
       MdbR.MoveFirst
       For I = 0 To MdbR.RecordCount - 1
           Combo2(1).AddItem MdbR.Fields!电价ID & MdbR.Fields!价区类别 & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "|" & Format(MdbR.Fields!电价, "0.000")
           MdbR.MoveNext
       Next
       Combo2(1).Visible = True
       Combo2(1).SetFocus
   End If
End Sub

Private Sub Toolbar7_ButtonClick(ByVal Button As MSComctlLib.Button)
      Call AddCombo(Combo2(sVisble), sNameID)
End Sub

Sub AddCombo(CtrlObj As Object, TyStr As Integer)
    Dim I As Integer
    On Error Resume Next
    Set MdbR = NdMd.OpenRecordset("基本数据")
    CtrlObj.Clear
    For I = 0 To MdbR.RecordCount - 1
        CtrlObj.AddItem MdbR.Fields(Choose(TyStr, "型号", "厂家", "相数", "电压", "电流", "精度", "常数", "性能"))
        MdbR.MoveNext
    Next
    CtrlObj.Visible = True
    CtrlObj.SetFocus
End Sub

Private Sub Toolbar8_ButtonClick(ByVal Button As MSComctlLib.Button)
    Combo3.Visible = True
End Sub

Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node)
  On Error GoTo ClickErr
  Dim I As Integer
  If Val(InStr(TreeView1.SelectedItem, "-")) = 0 Then  'Left(TreeView1.SelectedItem.Parent, InStr(TreeView1.SelectedItem.Parent, "-") - 1)
     If Option1 Then
        Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.用户编码, 用户电费.用户名称, 用户电费.全称,用户电费.地址, 用户电费.电话, 用户电费.开户银行,用户电费.账号, 用户电费.表卡号, 用户电费.表损,用户电费.台区, 用户电费.电价类别, 用户电费.[" & AAA & "] as 上期示数,用户电费.[" & AA & "] as 本期示数, 用户电费.倍率,用户电
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -