fm_viewinfo.pas

档案资料管理系统

unit FM_ViewInfo;

interface

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

type
  TFM_ViewInfo1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Label4: TLabel;
    FMVI_ED4: TEdit;
    FMVI_ED5: TEdit;
    Label11: TLabel;
    Label10: TLabel;
    FMVI_ED6: TEdit;
    FMVI_ED7: TEdit;
    Label13: TLabel;
    FMVI_ED8: TEdit;
    FMVI_ED3: TEdit;
    Label3: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    FMVI_ED13: TEdit;
    FMVI_ED14: TEdit;
    FMVI_ED15: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    FMVI_ED18: TEdit;
    FMVI_ED19: TEdit;
    Label20: TLabel;
    FMVI_ED22: TEdit;
    Label24: TLabel;
    Label25: TLabel;
    ComboBox2: TComboBox;
    FMVI_ED16: TEdit;
    FMVI_ED17: TEdit;
    FMVI_ED20: TEdit;
    FMVI_ED21: TEdit;
    TabSheet3: TTabSheet;
    Label12: TLabel;
    ComboBox3: TComboBox;
    Label14: TLabel;
    FMVI_ED23: TEdit;
    Label15: TLabel;
    FMVI_ED24: TEdit;
    Label21: TLabel;
    FMVI_ED25: TEdit;
    Label22: TLabel;
    FMVI_ED26: TEdit;
    Label23: TLabel;
    FMVI_ED27: TEdit;
    Label26: TLabel;
    FMVI_ED28: TEdit;
    Label27: TLabel;
    FMVI_ED29: TEdit;
    Label28: TLabel;
    FMVI_ED32: TEdit;
    Label29: TLabel;
    FMVI_ED31: TEdit;
    Label30: TLabel;
    FMVI_ED30: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_ViewInfo1: TFM_ViewInfo1;

implementation

{$R *.dfm}

procedure TFM_ViewInfo1.FormCreate(Sender: TObject);
var
 EngineerName:TSearchRec;
 EngineerNamePath:string;
begin
 EngineerNamePath:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\';
 if FindFirst(EngineerNamePath + '*.*',faDirectory,EngineerName) = 0 then
    begin
     repeat
      if (EngineerName.Attr and faDirectory = faDirectory) and (EngineerName.Name[1] <> '.') then
          begin
           if (EngineerName.Attr and faDirectory > 0) then
              ComboBox1.AddItem(EngineerName.Name,nil)
           end;
     until FindNext(EngineerName) <> 0;
     FindClose(EngineerName);
   end;
end;
procedure TFM_ViewInfo1.ComboBox1Click(Sender: TObject);
var
 EngineerName1:TSearchRec;
 EngineerNamePath1:string;
 Read_Ini:Tinifile;
begin
 ComBoBox2.Items.Clear;
 EngineerNamePath1:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\'+ComBoBox1.Text+'\';
 if Combobox1.Text<>'' then
   begin
     if FindFirst(EngineerNamePath1+'*.*',faDirectory,EngineerName1) = 0 then
      begin
       repeat
        if (EngineerName1.Attr and faDirectory = faDirectory) and (EngineerName1.Name[1] <> '.') then
            begin
             if (EngineerName1.Attr and faDirectory > 0) then
                 ComboBox2.AddItem(EngineerName1.Name,nil)
             end;
       until FindNext(EngineerName1) <> 0;
       FindClose(EngineerName1);
       end;
      Read_Ini:=Tinifile.Create(EngineerNamePath1+ComBoBox1.Text+'.ini');
      FMVI_ED3.Text:=Read_Ini.ReadString('ProjectInfo','ProjectName','');
      FMVI_ED4.Text:=Read_Ini.ReadString('ProjectInfo','ProjectDesign','');
      FMVI_ED5.Text:=Read_Ini.ReadString('ProjectInfo','ProjectConstruction','');
      FMVI_ED6.Text:=Read_Ini.ReadString('ProjectInfo','ProjectEstablishment','');
      FMVI_ED7.Text:=Read_Ini.ReadString('ProjectInfo','ProjectExamine','');
      FMVI_ED8.Text:=Read_Ini.ReadString('ProjectInfo','ProjectYearMonthDay','');
   end
  else
    Application.MessageBox('请选择一项','真诚提醒您',MB_OK or MB_ICONINFORMATION)
end;
procedure TFM_ViewInfo1.ComboBox2Click(Sender: TObject);
var
 EngineerName1:TSearchRec;
 EngineerNamePath1:string;
 Read_Ini:Tinifile;
begin
 EngineerNamePath1:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\'+ComBoBox1.Text+'\'+ComBoBox2.Text+'\';
 ComBoBox3.Items.Clear;
 if Combobox2.Text<>'' then
   begin
     if FindFirst(EngineerNamePath1+'*.*',faDirectory,EngineerName1) = 0 then
      begin
       repeat
        if (EngineerName1.Attr and faDirectory = faDirectory) and (EngineerName1.Name[1] <> '.') then
            begin
             if (EngineerName1.Attr and faDirectory > 0) then
                 ComboBox3.AddItem(EngineerName1.Name,nil)
             end;
       until FindNext(EngineerName1) <> 0;
       FindClose(EngineerName1);
       end;
   end;
 if Combobox2.Text<>'' then
   begin
     Read_Ini:=Tinifile.Create(EngineerNamePath1+ComBoBox2.Text+'.ini');
     FMVI_ED13.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerName','');
     FMVI_ED14.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerDesign','');
     FMVI_ED15.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerConstruction','');
     FMVI_ED16.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerConstruction1','');
     FMVI_ED17.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerCharacteristic','');
     FMVI_ED20.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerForm','');
     FMVI_ED21.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerCategory','');
     FMVI_ED18.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerEstablishment','');
     FMVI_ED19.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerExamine','');
     FMVI_ED22.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerYearMonthDay','');
   end
  else
    Application.MessageBox('请选择一项','真诚提醒您',MB_OK or MB_ICONINFORMATION)
end;

procedure TFM_ViewInfo1.ComboBox3Click(Sender: TObject);
var
 EngineerNamePath1:string;
 Read_Ini:Tinifile;
begin
 EngineerNamePath1:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\'+ComBoBox1.Text+'\'+ComBoBox2.Text+'\'+ComBoBox3.Text+'\';
 if Combobox3.Text<>'' then
   begin
     Read_Ini:=Tinifile.Create(EngineerNamePath1+ComBoBox3.Text+'.ini');
     FMVI_ED23.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerName','');
     FMVI_ED24.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerDesign','');
     FMVI_ED25.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerConstruction','');
     FMVI_ED26.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerConstruction1','');
     FMVI_ED27.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerCharacteristic','');
     FMVI_ED30.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerForm','');
     FMVI_ED31.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerCategory','');
     FMVI_ED28.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerEstablishment','');
     FMVI_ED29.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerExamine','');
     FMVI_ED32.Text:=Read_Ini.ReadString('EngineeringInfo','EngineerYearMonthDay','');
   end
  else
    Application.MessageBox('请选择一项','真诚提醒您',MB_OK or MB_ICONINFORMATION)
end;
end.