systemset.pas

某疗养院动脉硬化管理系统

unit SystemSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,ExtCtrls, StrUtils, Spin, ADODB, BaseUnit ,IniFiles;

type
  TFrmSystemSet = class(TForm1)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    EdtPDF: TEdit;
    EdtBakPDF: TEdit;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    EdtResolution: TEdit;
    SpinEdit: TSpinEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label6: TLabel;
    SpeedButton4: TSpeedButton;
    EdtComplior: TEdit;
    OpenDlg: TOpenDialog;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    EdtDICOM: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    //读ini
    procedure ReadIni;
    //写ini
    procedure WriteIni;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSystemSet: TFrmSystemSet;

implementation

uses PubFunction;

{$R *.dfm}

procedure TFrmSystemSet.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  SetFolder(EdtPDF);
end;

procedure TFrmSystemSet.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  SetFolder(EdtDICOM);
end;

procedure TFrmSystemSet.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  SetFolder(EdtBakPDF);
end;

procedure TFrmSystemSet.ReadIni;
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Config.ini');
  try
    with IniFile do
    begin
      EdtPDF.Text:=ReadString('SourcePDFPath','SourcePDFPath','C:\CompliorPDF');
      EdtBakPDF.Text:=ReadString('BackupPDFPath','BackupPDFPath','C:\CompliorPDF_Backup');
      EdtDICOM.Text:=ReadString('TargetDICOMPath','TargetDICOMPath','C:\CompliorPDF_Backup');
      EdtResolution.Text:=ReadString('Resolution','Resolution','300');
      SpinEdit.Value :=StrToInt(ReadString('Quality','Quality','100'));
      EdtComplior.Text:=ReadString('Complior','Complior','C:\Programe File\');
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TFrmSystemSet.WriteIni;
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Config.ini');
  try
    with IniFile do
    begin
      WriteString('SourcePDFPath','SourcePDFPath',EdtPDF.Text);
      WriteString('BackupPDFPath','BackupPDFPath',EdtBakPDF.Text);
      WriteString('TargetDICOMPath','TargetDICOMPath',EdtDICOM.Text);
      WriteString('Resolution','Resolution',EdtResolution.Text);
      WriteString('Quality','Quality',IntToStr(SpinEdit.Value));
      WriteString('Complior','Complior',EdtComplior.Text);
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TFrmSystemSet.FormShow(Sender: TObject);
begin
  inherited;
  ReadIni;
end;

procedure TFrmSystemSet.BitBtn2Click(Sender: TObject);
begin
  inherited;
  WriteIni;
  close;
end;

procedure TFrmSystemSet.BitBtn1Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFrmSystemSet.SpeedButton4Click(Sender: TObject);
begin
  inherited;
  if OpenDlg.Execute then
    EdtComplior.Text:=OpenDlg.FileName;
end;

end.