frmprojectmanager.frm

非常有用得编辑器软件源码

         Top             =   1320
         Width           =   6855
         _ExtentX        =   12091
         _ExtentY        =   5953
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   7
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Name"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Type"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "Responsible"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "Start Date"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   4
            Text            =   "Due Date"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   5
            Text            =   "Status"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   6
            Text            =   "Description"
            Object.Width           =   8819
         EndProperty
      End
      Begin MSComctlLib.ListView lstReports 
         Height          =   3375
         Left            =   -74880
         TabIndex        =   18
         Top             =   1320
         Width           =   6855
         _ExtentX        =   12091
         _ExtentY        =   5953
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Name"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Type"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "Report Person"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "Description"
            Object.Width           =   8819
         EndProperty
      End
      Begin MSComctlLib.ListView lstComments 
         Height          =   3375
         Left            =   -74880
         TabIndex        =   19
         Top             =   1320
         Width           =   6855
         _ExtentX        =   12091
         _ExtentY        =   5953
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   3
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Name"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Type"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "Description"
            Object.Width           =   8819
         EndProperty
      End
      Begin VB.Label Label4 
         Caption         =   $"frmProjectManager.frx":13D52
         Height          =   3255
         Left            =   3840
         TabIndex        =   9
         Top             =   1080
         Width           =   3015
      End
      Begin VB.Label Label3 
         Caption         =   "Project File Name:"
         Height          =   255
         Left            =   1320
         TabIndex        =   6
         Top             =   1920
         Width           =   2295
      End
      Begin VB.Label Label2 
         Caption         =   "Project Name:"
         Height          =   255
         Left            =   1320
         TabIndex        =   4
         Top             =   1080
         Width           =   2295
      End
   End
   Begin VB.Label Label1 
      Caption         =   "The Page Creator Site file system let you build a professional web site and manage it efficiently."
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   7095
   End
End
Attribute VB_Name = "frmProjectManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public ProjectNow As New PCSProject
Public Job As String

Dim i As Long

Private Sub cmdCreate_Click()

'Insert code to check is there any opened project
If Me.Tag = "opened" Then
    m = MsgBox("Do you want to close the current project and create another new project?", vbQuestion + vbYesNo, "Project Manager")
    If m = vbNo Then Exit Sub
End If

With cd1

    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "Page Creator Site file *.pcs|*.pcs"
    On Error GoTo 1
    .ShowSave
    
        ProjectNow.Clear
        ProjectNow.Export .Filename

End With

With Me.SSTab1
    For i = 1 To 4
        .TabEnabled(i) = True
    Next
End With

With Me
    .Tag = "opened"
    .txtProjectFilename = cd1.Filename
    .txtProjectName.Enabled = True
    txtProjectFilename.Enabled = True
End With

Exit Sub
1
End Sub

Sub LoadProject(ByVal Filename As String)
ProjectNow.Clear
ProjectNow.Import Filename

    'Fill the project data into the ListBoxs
    With Me.lstPages
        For i = 1 To ProjectNow.WebPageList.Count
            .ListItems.Add i, , ProjectNow.WebPageList(i).Responsible
            .ListItems(i).ListSubItems.Add , , ProjectNow.WebPageList(i).Filename
        Next
    End With
    
    
    
End Sub

Sub RewriteProject(ByVal Filename As String)

End Sub

Private Sub cmdOpen_Click()
'Insert code to check is there any opened project
If Me.Tag = "opened" Then
    m = MsgBox("Do you want to close the current project and open another new project?", vbQuestion + vbYesNo, "Project Manager")
    If m = vbNo Then Exit Sub
End If

End Sub

Private Sub Form_Load()

FlatAllControls Me

With SSTab1
    .TabEnabled(1) = False
    .TabEnabled(2) = False
    .TabEnabled(3) = False
    .TabEnabled(4) = False
End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
If Me.Job = "kill" Then Exit Sub
Me.Hide
Cancel = 1
End Sub

Private Sub txtProjectName_LostFocus()
If txtProjectName.Text = "" Then
    MsgBox "You must enter a project name!", vbInformation, "Project Name Missing"
    SSTab1.Tab = 0
    txtProjectName.SetFocus
End If
End Sub