救命啊!!!!!!!!!!!!!!

Question

高手指教,代码何意?我需要详细, 小弟感激不尽Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    flagEdit = False
    
End SubPrivate Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    Unload Me
End SubPrivate Sub menuAddapprise_Click()
    gintMode = 1
    frmManApp1.Show
    frmManApp1.ZOrder 0
End SubPrivate Sub menuAddcheck_Click()
    gintMode = 1
    frmCheck1.Show
    frmCheck1.ZOrder 0
End SubPrivate Sub menuAddpay_Click()
    gintMode = 1
    frmPay1.Show
    frmPay1.ZOrder 0
End SubPrivate Sub menuAddrecord_Click()
    gintMode = 1
    frmManRecord1.Show
    frmManRecord1.ZOrder 0
End SubPrivate Sub menuDelete_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmManRecord.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmManRecord.msgList.Row
                txtSQL = "delete from manrecord where ygid='" & Trim(frmManRecord.msgList.TextMatrix(frmManRecord.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmManRecord.txtSQL = "select * from manrecord"
                flagEdit = True
                frmManRecord.ShowTitle
                frmManRecord.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManRecord.txtSQL = "select * from manrecord"
        frmManRecord.Show
        frmManRecord.ZOrder 0
    End If
        
End SubPrivate Sub menuDeleteapprise_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmManApp.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmManApp.msgList.Row
                txtSQL = "delete from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjre from manappraise"
                flagEdit = True
                
                frmManApp.ShowTitle
                frmManApp.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjre from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End SubPrivate Sub menuDeletecheck_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmCheck.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmCheck.msgList.Row
                txtSQL = "delete from checkin where kqid='" & Trim(frmCheck.msgList.TextMatrix(frmCheck.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmCheck.txtSQL = "select * from checkin"
                flagEdit = True
                
                frmCheck.ShowTitle
                frmCheck.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManRecord.txtSQL = "select * from manrecord"
        frmManRecord.Show
        frmManRecord.ZOrder 0
    End If
End SubPrivate Sub menuInquireapprise_Click()
    frmManApp2.Show
End SubPrivate Sub menuInquirechek_Click()
    frmCheck2.Show
End SubPrivate Sub menuInquirepay_Click()
    frmPay2.Show
End SubPrivate Sub menuInquirerecord_Click()
    frmManRecord2.Show
End SubPrivate Sub menuModifyapprise_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManApp.msgList.Rows > 1 Then
            
            intCount = frmManApp.msgList.Row
            frmManApp1.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjre from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
            frmManApp1.Show
        Else
            Call menuAddcheck_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjre from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End SubPrivate Sub menuModifychek_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmCheck.msgList.Rows > 1 Then
            
            intCount = frmCheck.msgList.Row
            frmCheck1.txtSQL = "select * from checkin where kqid='" & Trim(frmCheck.msgList.TextMatrix(frmCheck.msgList.Row, 1)) & "'"
            frmCheck1.Show
        Else
            Call menuAddcheck_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmCheck.txtSQL = "select * from checkin"
        frmCheck.Show
        frmCheck.ZOrder 0
    End If
End SubPrivate Sub menuModifypay_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmPay.msgList.Rows > 1 Then
            intCount = frmPay.msgList.Row
            frmPay1.txtSQL = "select * from pay where gzid='" & Trim(frmPay.msgList.TextMatrix(frmPay.msgList.Row, 1)) & "' and gzdate='" & Format(frmPay.msgList.TextMatrix(intCount, 16), "yyyy-mm-dd") & "'"
            frmPay1.Show
            
            
            
        Else
            Call menuAddpay_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmPay.txtSQL = "select * from pay"
        frmPay.Show
        frmPay.ZOrder 0
    End If
End SubPrivate Sub menuModifyrecord_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManRecord.msgList.Rows > 1 Then
            
            intCount = frmManRecord.msgList.Row
            frmManRecord1.txtSQL = "select * from manrecord where ygid='" & Trim(frmManRecord.msgList.TextMatrix(frmManRecord.msgList.Row, 1)) & "'"
            frmManRecord1.Show
        Else
            Call menuAddrecord_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmManRecord.txtSQL = "select * from manrecord"
        frmManRecord.Show
        frmManRecord.ZOrder 0
    End If
End Sub

Answer 1

这么多，是指哪一段呀
Private Sub MDIForm_Load()'读取注册表中的值，以便配置当前窗口的大小
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    flagEdit = False
    
End SubPrivate Sub MDIForm_Unload(Cancel As Integer)'如果窗体不是最小化，则将当前窗体的大小存入注册表中
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    Unload Me
End SubPrivate Sub menuAddapprise_Click()'点击菜单后gintMode=1，显示frmManApp1窗体
    gintMode = 1
    frmManApp1.Show
    frmManApp1.ZOrder 0
End Sub
等等……