shooltime.pas

能够实现学生信息管理子系统的大部分管理功能（增加新生；学生的转学、复学、休学；奖励情况；处罚情况；学生个人信息查询修改）；能够实现教务管理子系统的大部分管理功能（本子系统通过密码确认后

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.