projectdetailsunit.pas

来自「Gantt source file example to use in delp」· PAS 代码 · 共 83 行

{-----------------------------------------------------------------------------
 Unit Name: ProjectDetailsUnit
 Author:    paul fisher
 Purpose:
 History:
 regigged to accept new staff details, only using one staff
-----------------------------------------------------------------------------}


unit ProjectDetailsUnit;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, GanttUnit, StdCtrls, ExtCtrls;

type
   TEditProjectForm = class(TForm)
      Panel1: TPanel;
      Panel2: TPanel;
      Button1: TButton;
      Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    TitleEdit: TEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Res1Edit: TEdit;
    IDEdit: TEdit;
    Label4: TLabel;
    DEPTEdit: TEdit;
    Label5: TLabel;
    emailEdit: TEdit;
    Label6: TLabel;
    companyEdit: TEdit;
    Label7: TLabel;
   private
    { Private declarations }
   public
    { Public declarations }
      function EditDetails(var Project: TGanttProject): Boolean;
   end;

var
   EditProjectForm: TEditProjectForm;

implementation

{$R *.dfm}


function TEditProjectForm.EditDetails(var Project: TGanttProject): Boolean;
var
  Resource : TStaffResource;
begin
   Result := False;
   TitleEdit.Text := Project.ProjectName;
   Res1Edit.Text := Project.ProjectResource1.Resource_name;
   IDEdit.Text := Project.ProjectResource1.Resource_ID;
   DEPTEdit.Text := Project.ProjectResource1.Resource_Details.Resource_Dept;
   emailEdit.Text := Project.ProjectResource1.Resource_Details.Resource_Email;
   companyEdit.Text := Project.ProjectResource1.Resource_Details.Resource_Company;

   if showmodal = mrOK then
   begin
      Project.ProjectName := TitleEdit.Text;
      Resource := Project.ProjectResource1;
      Resource.Resource_name := Res1Edit.Text;
      Resource.Resource_ID  := IDEdit.Text;
      Resource.Resource_Details.Resource_Dept := DEPTEdit.Text;
      Resource.Resource_Details.Resource_Email := emailEdit.Text;
      Resource.Resource_Details.Resource_Company := companyEdit.Text;
      Project.ProjectResource1 := Resource;
      Result := True;
   end;
   close;
end;



end.