timeset.pas

来自「某疗养院动脉硬化管理系统」· PAS 代码 · 共 95 行

unit TimeSet;

interface

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

type
  TFrmTimeSet = class(TForm1)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    EdtReport: TEdit;
    EdtComplete: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure EdtReportKeyPress(Sender: TObject; var Key: Char);
    procedure EdtCompleteKeyPress(Sender: TObject; var Key: Char);
    procedure EdtSQKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmTimeSet: TFrmTimeSet;

implementation

{$R *.dfm}

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

procedure TFrmTimeSet.FormCreate(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'TimeSet.ini');
  try
    with IniFile do
    begin
      EdtReport.Text:=ReadString('ReportDay','ReportDay','1');
      EdtComplete.Text:=ReadString('CompleteDay','Complete','1');
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TFrmTimeSet.BitBtn2Click(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'TimeSet.ini');
  try
    with IniFile do
    begin
      WriteString('ReportDay','ReportDay',EdtReport.Text);
      WriteString('CompleteDay','Complete',EdtComplete.Text);
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TFrmTimeSet.EdtReportKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not ( key in ['0'..'9',#23,#8]) then
    key:=#0;
end;

procedure TFrmTimeSet.EdtCompleteKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not ( key in ['0'..'9',#23,#8]) then
    key:=#0;
end;

procedure TFrmTimeSet.EdtSQKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not ( key in ['0'..'9',#23,#8]) then
    key:=#0;
end;

end.