banji.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit Banji;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, inifiles, ExtCtrls, TFlatPanelUnit, XPMenu,
  TFlatSpeedButtonUnit, XP_Button;

type
  TBanJif = class(TForm)
    SaveDialog1: TSaveDialog;
    Label12: TLabel;
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Edit6: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit12: TEdit;
    Label15: TLabel;
    XPMenu1: TXPMenu;
    FlatSpeedButton1: TFlatSpeedButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_Button3: TXP_Button;
    XP_Button4: TXP_Button;
    GroupBox4: TGroupBox;
    Edit13: TEdit;
    Edit14: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit13Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BanJif: TBanJif;

implementation
uses main;
{$R *.DFM}

procedure TBanJif.BitBtn1Click(Sender: TObject);
var
  inifilename: string;
  inifile: Tinifile;
begin
  if strtoint(EDIT5.TEXT) > 75 then
  begin
    showmessage('学生数不能大于75！');
    exit;
  end;
  //写学生文件
  inifilename := ExtractFilePath(Application.EXEName) + 'teacher.ini';
  inifile := Tinifile.create(inifilename);
  inifile.writestring('CLASS', 'School_name', trim(edit1.Text));
  inifile.writestring('CLASS', 'Teacher_name', trim(edit2.Text));
  inifile.writestring('CLASS', 'Class_name', trim(edit3.text));
  inifile.writestring('CLASS', 'Course_name', trim(edit4.text));
  inifile.writestring('CLASS', 'student_count', trim(edit5.text));
  inifile.writestring('CLASS', 'RepeatTime', trim(edit6.text));
  inifile.writestring('CLASS', 'StudentTime', trim(edit7.text));
  inifile.writestring('CLASS', 'llie', trim(edit8.text));
  inifile.writestring('CLASS', 'lkuan', trim(edit9.text));
  inifile.writestring('CLASS', 'ljian1', trim(edit10.text));
  inifile.writestring('CLASS', 'ljian2', trim(edit11.text));
  inifile.writestring('CLASS', 'password',trim(edit12.text));
  inifile.writestring('CLASS', 'IP',inttostr(RadioGroup1.ItemIndex));
  inifile.WriteString('class','key',trim(edit14.text));
  inifile.free;
  showmessage('修改成功！重新启动程序后生效！');
//  wsh_first:=true;
end;

procedure TBanJif.FormCreate(Sender: TObject);
begin
  edit1.Text := '';
  edit2.text := '';
  edit3.text := '';
  edit4.text := '';
  edit5.text := '';
  edit6.Text := '';
  edit7.Text := '';
  edit8.Text := '';
  edit9.Text := '';
  edit10.Text := '';
  edit11.Text := '';
  edit12.text:='';
end;

procedure TBanJif.BitBtn3Click(Sender: TObject);
var
  source_name, target_name: string;
begin
  SaveDialog1.Title := '另存班级模型';
  if SaveDialog1.Execute then
  begin
    source_name := ExtractFilePath(Application.EXEName) + 'teacher.ini';
    target_name := SaveDialog1.FileName;
    copyfile(pchar(source_name), pchar(target_name), false);
  end;
end;

procedure TBanJif.BitBtn4Click(Sender: TObject);
var
  source_name, target_name: string;
begin
  SaveDialog1.Title := '导入班级模型';
  if SaveDialog1.Execute then
  begin
    target_name := ExtractFilePath(Application.EXEName) + 'teacher.ini';
    source_name := SaveDialog1.FileName;
    copyfile(pchar(source_name), pchar(target_name), false);
    showmessage('导入成功！重新启动程序后生效！');
  end;

end;

procedure TBanJif.Edit13Click(Sender: TObject);
begin
edit13.text:=edit1.Text;
end;

procedure TBanJif.BitBtn5Click(Sender: TObject);
begin
  if (edit14.text = form1.reg.CalculateCode(edit13.Text)) and (edit13.text<>'') then
     begin
       groupbox4.Caption:='注册成功！';
     end
     else
     begin
       groupbox4.Caption :='请输入正确的注册码！';
       edit14.text:='';
     end;    
end;

end.