sxinxi.pas

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

unit Sxinxi;

interface

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

type
  TSxinxiF = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    FlatSpeedButton1: TFlatSpeedButton;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SxinxiF: TSxinxiF;
  old_computername, old_ip: string;
implementation
uses main;
{$R *.DFM}

procedure TSxinxiF.FormCreate(Sender: TObject);
begin
  edit1.Text := '';
  edit2.Text := '';
  edit3.Text := '';
  memo1.Lines.Clear;
end;

procedure TSxinxiF.BitBtn1Click(Sender: TObject);
var
  inifile: Tinifile;
  inifilename: string;
begin
  if (old_computername <> edit2.text) or (old_ip <> edit4.text) then
    wsh_socket[s_selected].Close;
 //写内存变量
  computer_name[s_selected] := trim(edit2.text);
  computer_ip[s_selected] := trim(edit4.text);
  student_name[s_selected]:=trim(edit3.text);
  form1.Listview1.Selected.Caption := trim(edit3.text);
  student_memo[s_selected] := memo1.lines.Text;

 //写文件
  inifilename := ExtractFilePath(Application.EXEName) + 'teacher.ini';
  inifile := Tinifile.create(inifilename);
  inifile.writestring('STUDENT', 'computer' + inttostr(s_selected + 1), trim(edit2.text));
  inifile.writestring('STUDENT', 'IP' + inttostr(s_selected + 1), trim(edit4.text));
  inifile.writestring('STUDENT', 'student' + inttostr(s_selected + 1), trim(edit3.text));
  inifile.writestring('STUDENT', 'memo' + inttostr(s_selected + 1), memo1.lines.Text);
  inifile.Free;
  w_shuaxing := true;
  close;
end;

procedure TSxinxiF.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = $0D then
    edit3.SetFocus;
end;

procedure TSxinxiF.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = $0D then
    memo1.SetFocus;
end;

procedure TSxinxiF.FormShow(Sender: TObject);
begin
  old_computername := edit2.text;
  old_ip := edit4.text;
end;

procedure TSxinxiF.BitBtn2Click(Sender: TObject);
begin
  w_shuaxing := false;
  close;
end;

procedure TSxinxiF.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = $0D then
    edit4.SetFocus;
end;

procedure TSxinxiF.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key = $0D then
    xp_button1.SetFocus;
end;

end.