fm_main.pas

档案资料管理系统

     SkinData1.active:=False;
 if (SkinConfigApple='') and (SkinConfigOffice='') and (SkinConfigWindow='') and(SkinConfigPath<>'') then
   if FileExists(SkinConfigPath) then
     begin
      SkinData1.SkinFile:=SkinConfigPath;
      if not skindata1.Active then
      skindata1.Active:=true;
     end;
end;

procedure TFM_MAIN1.N95Click(Sender: TObject);
var
 FMNewProject:TFM_NewProject1;
begin
 FMNewProject:=TFM_NewProject1.Create(self);
 FMNewProject.ShowModal;
end;

procedure TFM_MAIN1.N98Click(Sender: TObject);
var
 FMOpenEngineer:TFM_OpenEngineer1;
begin
 FMOpenEngineer:=TFM_OpenEngineer1.Create(Self);
 FMOpenEngineer.ShowModal;
end;

procedure TFM_MAIN1.N97Click(Sender: TObject);
var
 FMOpenProject:TFM_OpenProject1;
begin
 FMOpenProject:=TFM_OpenProject1.Create(Self);
 FMOpenProject.ShowModal;
end;

procedure TFM_MAIN1.N96Click(Sender: TObject);
var
 FMNewEngineerSelect:TFM_NewEngineerSelect1;
begin
 FMNewEngineerSelect:=TFM_NewEngineerSelect1.Create(self);
 FMNewEngineerSelect.ShowModal;
end;

procedure TFM_MAIN1.N4Click(Sender: TObject);
var
 FMAbout:TFM_About1;
begin
 FMAbout:=TFM_About1.Create(self);
 FMAbout.ShowModal; 
end;

procedure TFM_MAIN1.N91Click(Sender: TObject);
begin
 SkinConfigApple:='';
 SkinConfigOffice:='';
 SkinConfigWindow:='';
 OpenDialog1.filter:='皮肤【*.skn】|*.Skn';
 OpenDialog1.InitialDir:='.\skin';
 if OpenDialog1.Execute then
    begin
     SkinConfigPath:=OpenDialog1.FileName;
     SkinData1.SkinFile:=OpenDialog1.FileName;
    end;
end;

procedure TFM_MAIN1.XP1Click(Sender: TObject);
begin
 SkinData1.LoadFromCollection(skinstore1,0);
 if not SkinData1.active then
     SkinData1.active:=true;
 SkinConfigPath:='';
 SkinConfigApple:='';
 SkinConfigOffice:='1';
 SkinConfigWindow:='';
end;

procedure TFM_MAIN1.Windows1Click(Sender: TObject);
begin
 SkinData1.Active:=False;
 SkinConfigPath:='';
 SkinConfigApple:='';
 SkinConfigOffice:='';
 SkinConfigWindow:='1';
end;

procedure TFM_MAIN1.XP2Click(Sender: TObject);
begin
 SkinData1.LoadFromCollection(skinstore1,1);
 if not SkinData1.Active then
     SkinData1.Active:=true;
 SkinConfigPath:='';
 SkinConfigApple:='1';
 SkinConfigOffice:='';
 SkinConfigWindow:='';
end;
procedure TFM_MAIN1.N112Click(Sender: TObject);
var
 FMNewFile:TFM_NewFile1;
begin
 FMNewFile:=TFM_NewFile1.Create(Self);
 FMNewFile.ShowModal;
end;

procedure TFM_MAIN1.ToolButton1Click(Sender: TObject);
begin
 if Panel1.Visible then
    begin
     Splitter1.Visible:=False;
     ToolButton1.Down:=False;
     Panel1.Visible:=False;
    end
 else
    begin
     ToolButton1.Down:=True;
     Panel1.Visible:=True;
     Splitter1.Visible:=True;
    end;
end;

procedure TFM_MAIN1.MDICount;
begin
 If FM_Main1.MDIChildCount<>0 then
    begin
     FMMTooB3.Enabled:=True;
     FMMTooB4.Enabled:=True;
    End;
end;
procedure TFM_MAIN1.Timer1Timer(Sender: TObject);
begin
 StatusBar1.Panels[0].Text:='系统日期:'+DateToStr(Date)+'    系统时间：'+TimeToStr(Time);
end;
procedure TFM_MAIN1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
 TreeText:string;
 Find_FilePath:string;
 Find_File:TSearchRec;
 FM_People:TFM_People1;
begin
 TreeText:=TreeView1.Selected.Text;
 Find_FilePath:=ExtractFilePath(Application.ExeName)+'\'+'Projectfile\';
 if FindFirst(Find_FilePath+TreeText+'.',faDirectory,Find_File) = 0 then
    begin
      if TreeView1.Selected.Parent.Parent=nil then
        begin
          FM_People:=TFM_People1.Create(Self);
          FM_People.Show;
          FM_people.Caption:=TreeText;
          FM_People.EasyGrid1.LoadFromFile(FMNE_Path+TreeText);
          FM_People.EasyGrid1.ShowColTitle:=False;
          FM_People.EasyGrid1.ShowRowTitle:=False;
          FM_People.Label1.Caption:=FMNE_Path+TreeText;
          MDICount;
          FindClose(Find_File);
        end
      else if TreeView1.Selected.Parent.Parent.Parent=nil then
             begin
               if CheckBoxSelect then
                  begin
                   FM_People:=TFM_People1.Create(Self);
                   FM_People.Show;
                   FM_people.Caption:=TreeText;
                   FM_People.EasyGrid1.LoadFromFile(FMNE_Path+'\'+TreeView1.Selected.Parent.Text+'\'+TreeText);
                   FM_People.EasyGrid1.ShowColTitle:=False;
                   FM_People.EasyGrid1.ShowRowTitle:=False;
                   FM_People.Label1.Caption:=FMNE_Path+'\'+TreeView1.Selected.Parent.Text+'\'+TreeText;
                   MDICount;
                   FindClose(Find_File);
                  end
              else
                 begin
                  FM_People:=TFM_People1.Create(Self);
                  FM_People.Show;
                  FM_people.Caption:=TreeText;
                  FM_People.EasyGrid1.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+'Project\'+TreeView1.Selected.Parent.Parent.Text+'\'+TreeView1.Selected.Parent.Text+'\'+ TreeText);
                  FM_People.EasyGrid1.ShowColTitle:=False;
                  FM_People.EasyGrid1.ShowRowTitle:=False;
                  FM_People.Label1.Caption:=ExtractFilePath(Application.ExeName)+'\'+'Project\'+TreeView1.Selected.Parent.Parent.Text+'\'+TreeView1.Selected.Parent.Text+'\'+ TreeText;
                  MDICount;
                  FindClose(Find_File);
                 end   ;
             end
      else if TreeView1.Selected.Parent.Parent.Parent.Parent=nil then
            begin
             FM_People:=TFM_People1.Create(Self);
             FM_People.Show;
             FM_people.Caption:=TreeText;
             FM_People.EasyGrid1.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+'Project\'+TreeView1.Selected.Parent.Parent.Parent.Text+'\'+TreeView1.Selected.Parent.Parent.Text+'\'+ TreeView1.Selected.Parent.Text+'\'+TreeText);
             FM_People.EasyGrid1.ShowColTitle:=False;
             FM_People.EasyGrid1.ShowRowTitle:=False;
             FM_People.Label1.Caption:=ExtractFilePath(Application.ExeName)+'\'+'Project\'+TreeView1.Selected.Parent.Parent.Parent.Text+'\'+TreeView1.Selected.Parent.Parent.Text+'\'+ TreeView1.Selected.Parent.Text+'\'+TreeText;
             FindClose(Find_File);
           end;
    end ;
end;
procedure TFM_MAIN1.N3Click(Sender: TObject);
begin
 if ShellExecute(handle,nil,PChar(ExtractFilePath(Application.ExeName)+'\CEC_MIS.CHM'),nil,nil,sw_show)<>42 then
    Application.MessageBox('帮助文件不见了','真诚提醒您',MB_OK	or MB_ICONINFORMATION)
end;

procedure TFM_MAIN1.N116Click(Sender: TObject);
var
 FMOpenFile:TFM_OpenFile1;
begin
 FMOpenFile:=TFM_OpenFile1.Create(Self);
 FMOpenFile.ShowModal;
end;
procedure TFM_MAIN1.N127Click(Sender: TObject);
var
 FMLeadView:TFM_LeadView1;
 path1:string;
 path2: TSearchRec;
begin
 FMLeadView:=TFM_LeadView1.Create(self);
 FMLeadView.Show ;
 Path1:=ExtractFilePath(Application.ExeName)+'project\';
 FMLeadView.ShellListView1.Root:=Path1;
 if FindFirst(Path1+'*.*',faDirectory,Path2) = 0 then
    begin
     repeat
      if (Path2.Attr and faDirectory = faDirectory) and (path2.Name[1] <> '.') then
        begin
         if (Path2.Attr and faDirectory > 0) then
             FMLeadView.ComboBox1.AddItem(Path2.Name ,nil);
        end;
     until FindNext(Path2) <> 0;
     FindClose(Path2);
   end;
end;
procedure TFM_MAIN1.N130Click(Sender: TObject);
var
 FMViewInfo : TFM_ViewInfo1;
begin
 FMViewInfo:=TFM_ViewInfo1.Create(Self);
 FMViewInfo.ShowModal;
end;

procedure TFM_MAIN1.N99Click(Sender: TObject);
var
 FMDeleteProject:TFM_DeleteProject1;
begin
 FMDeleteProject:=TFM_DeleteProject1.Create(Self);
 FMDeleteProject.ShowModal; 
end;

procedure TFM_MAIN1.N100Click(Sender: TObject);
var
 FMDeleteEnginnering:TFM_DeleteEnginnering1;
begin
 FMDeleteEnginnering:=TFM_DeleteEnginnering1.Create(Self);
 FMDeleteEnginnering.ShowModal;
end;
procedure TFM_MAIN1.N118Click(Sender: TObject);
var
 FMDeleteOther:TFM_DeleteOther1;
begin
 FMDeleteOther:=TFM_DeleteOther1.Create(Self);
 FMDeleteOther.ShowModal; 
end;

procedure TFM_MAIN1.CreateFormName(MenuCaption: String);
var
 FMPeople:TFM_People1;
begin
 FMPeople:=TFM_People1.Create(Self);
 FMPeople.Show;
 FMpeople.Caption:=MenuCaption;
 FMPeople.EasyGrid1.LoadFromFile(ExtractFilePath(Application.ExeName)+'OtherFile\SaveFile\'+MenuCaption);
 FMPeople.EasyGrid1.ShowColTitle:=False;
 FMPeople.EasyGrid1.ShowRowTitle:=False;
 FMPeople.Label1.Caption:=ExtractFilePath(Application.ExeName)+'OtherFile\SaveFile\'+MenuCaption;
 MDICount;
end;
procedure TFM_MAIN1.N10Click(Sender: TObject);
begin
 CreateFormName((Sender as TMenuItem).Caption);
end;
procedure TFM_MAIN1.N131Click(Sender: TObject);
begin
 TreeView1.FullExpand;
end;
procedure TFM_MAIN1.N132Click(Sender: TObject);
begin
 TreeView1.FullCollapse;
end;

procedure TFM_MAIN1.N133Click(Sender: TObject);
var
 FMDateBackUp:TFM_DateBackUp1;
begin
 FMDateBackUp:=TFM_DateBackUp1.Create(self);
 FMDateBackUp.ShowModal; 
end;

end.