fm_newengineerselect.pas

档案资料管理系统

unit FM_NewEngineerSelect;

interface

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

type
  TFM_NewEngineerSelect1 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_NewEngineerSelect1: TFM_NewEngineerSelect1;

implementation
uses
 FM_NewEngineering,FM_NewProject;
{$R *.dfm}

procedure TFM_NewEngineerSelect1.FormCreate(Sender: TObject);
var
 ProjectName:TSearchRec;
 ProjectNamePath:string;
begin
 ProjectNamePath:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\';
 if ProjectNamePath[length(ProjectNamePath)] <> '\' then
    ProjectNamePath := ProjectNamePath+ '\';
 if FindFirst(ProjectNamePath + '*.*',faDirectory,ProjectName) = 0 then
    begin
     repeat
      if (ProjectName.Attr and faDirectory = faDirectory) and (ProjectName.Name[1] <> '.') then
          begin
           if (ProjectName.Attr and faDirectory > 0) then
              ComBoBox1.AddItem(ProjectName.Name,nil);
           end;
     until FindNext(ProjectName) <> 0;
     FindClose(ProjectName);
   end;
end;
procedure TFM_NewEngineerSelect1.BitBtn1Click(Sender: TObject);
var
 FMNewEngineering:TFM_NewEngineering1;
begin
 if ComBoBox1.Text='' then
    Application.MessageBox('请选择工程所属项目','真诚提醒您',MB_OK or MB_ICONINFORMATION)
 else
   begin
    FMNE_Path:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\'+ComBoBox1.Text;
    FMNewEngineering:=TFM_NewEngineering1.Create(self);
    FMNewEngineering.ShowModal;
    Close;
   end;
end;
end.