u_work_plan.~pas

来自「工作计划管理」· ~PAS 代码 · 共 60 行

unit u_work_plan;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Mask, ExtCtrls, Inifiles;

type
  TF_work_plan = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    i_time1: TMaskEdit;
    i_time2: TMaskEdit;
    i_time3: TMaskEdit;
    i_time4: TMaskEdit;
    B_modify: TButton;
    B_reset: TButton;
    procedure B_resetClick(Sender: TObject);
    procedure B_modifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_work_plan: TF_work_plan;

implementation

{$R *.DFM}

procedure TF_work_plan.B_resetClick(Sender: TObject);
var
  MyInifile:Tinifile;
begin
  MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'workplan.ini');
  i_time1.Text:=MyInifile.ReadString('WorkPlan','Time1','9:00:00');
  i_time2.Text:=MyInifile.ReadString('WorkPlan','Time2','12:00:00');
  i_time3.Text:=MyInifile.ReadString('WorkPlan','Time3','13:00:00');
  i_time4.Text:=MyInifile.ReadString('WorkPlan','Time4','18:00:00');
end;

procedure TF_work_plan.B_modifyClick(Sender: TObject);
var
  MyInifile:Tinifile;
begin
  MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'workplan.ini');
  MyInifile.WriteString('WorkPlan','Time1',i_time1.Text);
  MyInifile.WriteString('WorkPlan','Time2',i_time2.Text);
  MyInifile.WriteString('WorkPlan','Time3',i_time3.Text);
  MyInifile.WriteString('WorkPlan','Time4',i_time4.Text);
end;

end.