unit shooltime;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Mask,Inifiles;

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

var
  Form24: TForm24;

implementation

uses kaoqi;

{$R *.dfm}

procedure TForm24.SpeedButton3Click(Sender: TObject);
begin
    form24.Hide ;
    form22.show;

end;

procedure TForm24.B_modifyClick(Sender: TObject);
var
  MyInifile:Tinifile;       //用于讀寫INI文件
begin
  MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'workplan.ini');  //打開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;

procedure TForm24.B_resetClick(Sender: TObject);
var
  MyInifile:Tinifile;     //用于讀寫INI文件
begin
  MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'workplan.ini');    //打開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;

end.