fm_main.pas

档案资料管理系统

unit FM_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, ImgList,IniFiles,Shellapi,
  WinSkinData, WinSkinStore;
type
  TFM_MAIN1 = class(TForm)
    MainMenu1: TMainMenu;
    G1: TMenuItem;
    Q1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    Panel1: TPanel;
    ToolBar1: TToolBar;
    FMMTooB2: TToolButton;
    FMMTooB6: TToolButton;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    h1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    S1: TMenuItem;
    N5: TMenuItem;
    ImageList1: TImageList;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    FMMTooB7: TToolButton;
    PopupMenu1: TPopupMenu;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N27: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    XP1: TMenuItem;
    XP2: TMenuItem;
    Windows1: TMenuItem;
    N91: TMenuItem;
    N92: TMenuItem;
    FMMTooB5: TToolButton;
    FMMTooB3: TToolButton;
    FMMTooB4: TToolButton;
    ImageList2: TImageList;
    PopupMenu2: TPopupMenu;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    FMMTooB1: TToolButton;
    N101: TMenuItem;
    N102: TMenuItem;
    N103: TMenuItem;
    PopupMenu3: TPopupMenu;
    PopupMenu4: TPopupMenu;
    PopupMenu5: TPopupMenu;
    N104: TMenuItem;
    N105: TMenuItem;
    N106: TMenuItem;
    N107: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    OpenDialog1: TOpenDialog;
    N110: TMenuItem;
    N111: TMenuItem;
    N112: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    N115: TMenuItem;
    N116: TMenuItem;
    N117: TMenuItem;
    N118: TMenuItem;
    N119: TMenuItem;
    N120: TMenuItem;
    N121: TMenuItem;
    N122: TMenuItem;
    N123: TMenuItem;
    N124: TMenuItem;
    N125: TMenuItem;
    N126: TMenuItem;
    ToolButton1: TToolButton;
    Timer1: TTimer;
    N127: TMenuItem;
    N128: TMenuItem;
    N129: TMenuItem;
    N130: TMenuItem;
    SkinStore1: TSkinStore;
    SkinData1: TSkinData;
    PopupMenu6: TPopupMenu;
    N131: TMenuItem;
    N132: TMenuItem;
    N133: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N95Click(Sender: TObject);
    procedure N98Click(Sender: TObject);
    procedure N97Click(Sender: TObject);
    procedure N96Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N91Click(Sender: TObject);
    procedure XP1Click(Sender: TObject);
    procedure Windows1Click(Sender: TObject);
    procedure XP2Click(Sender: TObject);
    procedure N112Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure MDICount();
    procedure Timer1Timer(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure N3Click(Sender: TObject);
    procedure N116Click(Sender: TObject);
    procedure N127Click(Sender: TObject);
    procedure N130Click(Sender: TObject);
    procedure N99Click(Sender: TObject);
    procedure N100Click(Sender: TObject);
    procedure N118Click(Sender: TObject);
    procedure CreateFormName(MenuCaption:String);
    procedure N10Click(Sender: TObject);
    procedure N131Click(Sender: TObject);
    procedure N132Click(Sender: TObject);
    procedure N133Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_MAIN1: TFM_MAIN1;
  SkinConfig:TINIFile;
  FileCount:integer;
  SkinConfigPath:String;
  SkinConfigApple:String;
  SkinConfigOffice:String;
  SkinConfigWindow:String;
  CheckBoxSelect:Boolean;
implementation

uses
 FM_NewProject,FM_NewEngineering,FM_OpenProject,FM_OpenEngineer,
 FM_NewEngineerSelect,FM_About,FM_NewFile,FM_People,FM_OpenFile,
 FM_LeadView,FM_ViewInfo,FM_DeleteProject,FM_DeleteEnginnering,
 FM_DeleteOther,FM_DateBackUp;
{$R *.dfm}
procedure TFM_MAIN1.N5Click(Sender: TObject);
begin
if Application.MessageBox('确实要退出程序吗？','真诚提醒您',MB_YESNO or MB_ICONQUESTION )=IDYes then
   begin
    SkinConfig:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'AppConfig.ini');
    SkinConfig.WriteString('SkinConfig','SkinApple',SkinConfigApple);
    SkinConfig.WriteString('SkinConfig','SkinOfficeXP',SkinConfigOffice);
    SkinConfig.WriteString('SkinConfig','SkinWindow',SkinConfigWindow);
    SkinConfig.WriteString('SkinConfig','SkinOtherSkin',SkinConfigPath);
    SkinConfig.Free;
    Application.Terminate;
   end;
end;

procedure TFM_MAIN1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('确实要退出程序吗？','真诚提醒您',MB_YESNO or MB_ICONQUESTION )=IDYes then
   begin
    SkinConfig:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'AppConfig.ini');
    SkinConfig.WriteString('SkinConfig','SkinApple',SkinConfigApple);
    SkinConfig.WriteString('SkinConfig','SkinOfficeXP',SkinConfigOffice);
    SkinConfig.WriteString('SkinConfig','SkinWindow',SkinConfigWindow);
    SkinConfig.WriteString('SkinConfig','SkinOtherSkin',SkinConfigPath);
    SkinConfig.Free;
    Application.Terminate;
   end
else
   Action:=caNone;
end;

procedure TFM_MAIN1.FormCreate(Sender: TObject);
var
 Path:string;
 NameCount:TSearchRec;
begin
 CheckBoxSelect:=False;
 FileCount:=0;
 Path:=ExtractFilePath(Application.ExeName)+'\'+'Projectfile\';
 if FindFirst(Path+'*.',faDirectory,NameCount) = 0 then
    begin
     repeat
      if(NameCount.Name[1]<>'.') then
         begin
          FileCount:=FileCount+1;
         end;
      until FindNext(NameCount) <> 0;
     FindClose(NameCount);
    end ;
 SkinConfig:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'AppConfig.ini');
 SkinConfigApple:=SkinConfig.ReadString('SkinConfig','SkinApple','');
 SkinConfigOffice:=SkinConfig.ReadString('SkinConfig','SkinOfficeXP','');
 SkinConfigWindow:=SkinConfig.ReadString('SkinConfig','SkinWindow','');
 SkinConfigPath:=SkinConfig.ReadString('SkinConfig','SkinOtherSkin','');
 SkinConfig.Free;
 CreateDirectory(PChar(ExtractFilePath(Application.ExeName)+ '\' +'Project'), nil);
 if (SkinConfigApple<>'') and (SkinConfigOffice='') and (SkinConfigWindow='') and(SkinConfigPath='') then
     begin
      SkinData1.LoadFromCollection(skinstore1,1);
      if not SkinData1.active then
         SkinData1.active:=true;
     end;
 if (SkinConfigApple='') and (SkinConfigOffice<>'') and (SkinConfigWindow='') and(SkinConfigPath='') then
     begin
      SkinData1.LoadFromCollection(skinstore1,0);
      if not SkinData1.active then
        SkinData1.active:=true;
     end;
 if (SkinConfigApple='') and (SkinConfigOffice='') and (SkinConfigWindow<>'') and(SkinConfigPath='') then