mdiform1.frm

个人记事本

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIForm1 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "Note"
   ClientHeight    =   6795
   ClientLeft      =   2655
   ClientTop       =   945
   ClientWidth     =   6930
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   120
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu menuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu menuFileOpen 
         Caption         =   "打开数据库(&O)..."
         Shortcut        =   ^O
      End
      Begin VB.Menu menuFileNew 
         Caption         =   "新建数据库(&N)..."
         Shortcut        =   ^N
      End
      Begin VB.Menu menuFileCloseDatabase 
         Caption         =   "关闭数据库(&C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu menuFileL1 
         Caption         =   "-"
      End
      Begin VB.Menu menuFileSaveAs 
         Caption         =   "当前记录另存为(txt)..."
      End
      Begin VB.Menu menuFileL2 
         Caption         =   "-"
      End
      Begin VB.Menu menuFileExit 
         Caption         =   "退出 Note (&E)"
      End
   End
   Begin VB.Menu menuEdit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu menuEditSearch 
         Caption         =   "查找(&S)..."
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu menuOption 
      Caption         =   "选项(&O)"
      Begin VB.Menu menuOptionCipher 
         Caption         =   "设置密码(&C)..."
      End
      Begin VB.Menu menuOptionL1 
         Caption         =   "-"
      End
      Begin VB.Menu menuOptionParameter 
         Caption         =   "修改参数(P)..."
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu menuHelpReadme 
         Caption         =   "自述文件(&R)..."
      End
      Begin VB.Menu menuHelpSentmail 
         Caption         =   "写信给我(&M)..."
      End
      Begin VB.Menu menuHelpL1 
         Caption         =   "-"
      End
      Begin VB.Menu menuHelpAbout 
         Caption         =   "关于 Note (&A)..."
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    n = 0
    If QueryValue(HKEY_CURRENT_USER, "Software\Note", "CheckOpenDB") = 0 Then Exit Sub
    Dim frmD As New frmnote         '建立一个窗口 note 的实例
    FName = QueryValue(HKEY_CURRENT_USER, "Software\Note", "TacitlyDatabase")
    If Not Dir(FName) = "" Then
        frmD.Caption = FName
        frmD.Show
        DBCount = DBCount + 1
    Else
        MsgBox FName & "不存在", vbInformation + vbOKOnly, "错误信息"
        Exit Sub
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    End
End Sub

Private Sub menuEditSearch_Click()
    frmSearch.Show (0)  '非模式窗口
End Sub

Private Sub menuFileCloseDatabase_Click()
    Unload MDIForm1.ActiveForm
End Sub

Private Sub menuFileNew_Click()
    CommonDialog1.FileName = ""
    CommonDialog1.InitDir = QueryValue(HKEY_CURRENT_USER, "Software\Note", "TacitlySaveFolder")
    CommonDialog1.Filter = "Note Files (*.not)|*.not"
    CommonDialog1.CancelError = True    '按“取消”，产生错误信息
    On Error GoTo OpenCancel
    CommonDialog1.ShowOpen
    FName = CommonDialog1.FileName  '将打开的文件名存入FName
    
    If Not Dir(FName) = "" Then     '如果文件已存在，询问是否覆盖
        If Not MsgBox(FName & "文件已存在，是否覆盖？", vbYesNo + _
            vbExclamation, "提示信息") Then Exit Sub
    End If
    
    FileCopy App.Path & "\System\model.not", FName '通过复制数据库model.not 建立新数据库
    Dim frmD As New frmnote         '建立一个窗口 note 的实例
    frmD.Caption = FName
    frmD.Show
    DBCount = DBCount + 1
    MenuEnable
OpenCancel:
End Sub

Private Sub menuFileOpen_Click()
    CommonDialog1.FileName = ""
    CommonDialog1.InitDir = QueryValue(HKEY_CURRENT_USER, "Software\Note", "TacitlySaveFolder")
    CommonDialog1.Filter = "Note Files (*.not)|*.not"
    CommonDialog1.CancelError = True    '按“取消”，产生错误信息
    On Error GoTo OpenCancel
    CommonDialog1.ShowOpen
    FName = CommonDialog1.FileName  '将打开的文件名存入FName
    
    If Dir(FName) = "" Then
        MsgBox FName & "不存在", vbInformation + vbOKOnly, "错误信息"
        Exit Sub
    End If
    
    Dim frmD As New frmnote         '建立一个窗口 note 的实例
    frmD.Caption = FName
    frmD.Show
    DBCount = DBCount + 1
    MenuEnable
OpenCancel:
End Sub

Private Sub menuFileExit_Click()
    Unload Me
End Sub

Private Sub menuFileSaveAs_Click()
    CommonDialog1.FileName = MDIForm1.ActiveForm.txtSubject.Text
    CommonDialog1.InitDir = QueryValue(HKEY_CURRENT_USER, "Software\Note", "TacitlySaveFolder")
    CommonDialog1.Filter = "文本文件(*.Txt)|*.Txt"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.CancelError = True
    On Error GoTo err
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1
    Print #1, MDIForm1.ActiveForm.txtSubject.Text & Chr(13) & Chr(10) & MDIForm1.ActiveForm.txtMatter.Text
    Close #1
err:
    Exit Sub
End Sub

Private Sub menuOptionCipher_Click()
    frmSetPassword.Show (1) '模式窗口
End Sub

Private Sub menuOptionParameter_Click()
    frmSetParameter.Show (1)
End Sub

Private Sub menuHelpReadme_Click()
    CommandLine = "C:\WINDOWS\NOTEPAD.EXE " & App.Path & "\Readme.txt"
    x = Shell(CommandLine, vbNormalFocus)
End Sub

Private Sub menuHelpSentmail_Click()
    sendemail
End Sub

Private Sub menuHelpAbout_Click()
    frmAbout.Show (1)
End Sub

Public Sub MenuEnable()
With MDIForm1
    If DBCount <= 0 Then
        .menuFileCloseDatabase.Enabled = False
        .menuFileSaveAs.Enabled = False
        .menuEditSearch.Enabled = False
    Else
        .menuFileCloseDatabase.Enabled = True
        .menuFileSaveAs.Enabled = True
        .menuEditSearch.Enabled = True
    End If
End With
End Sub