unit2.pas

运用DELPHI开发的聊天工具

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ADOState:Integer;
    procedure DelTxt;
    procedure GetTxt;
  end;

var
  Form2: TForm2;

implementation
uses Unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  ipr,sf:Integer;
begin
  sf:=0;
  if Edit1.Text = '' then
  begin
    Application.MessageBox('姓名不能为空！','明日科技');
    Edit1.SetFocus;
  end;
  if Edit2.Text = '' then
  begin
    Application.MessageBox('IP地址不能为空！','明日科技');
    Edit2.SetFocus;
  end;
  if ADOState = 1 then
  with Form1.ADODataSet1 do
    for ipr:=0 to RecordCount-1 do
    begin
      if (Fields[0].asstring=Trim(Edit1.Text)) or (Fields[1].asstring=Trim(Edit2.Text)) then
      begin
        showmessage('用户名或IP地址已经存在');
        form2.Close;
        Exit;
      end
      else
        next;
    end;
  with Form1.ADODataSet1 do
  begin
    if ADOState = 1 then
      Append
    else
      if ADOState = 2 then
        Edit;
    FieldByName('UserName').AsString:=Edit1.Text;
    FieldByName('UserIP').AsString:=Edit2.Text;
    Post;
    SaveToFile('.\Data.Dat');
  end;
  form1.ADDlist;
  Application.MessageBox('数据保存成功！','明日科技');
  Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm2.DelTxt;
begin
  Edit1.Text:='';
  Edit2.Text:='';
end;

procedure TForm2.GetTxt;
begin
  Edit1.Text:=Form1.ADODataSet1.FieldByName('UserName').AsString;
  Edit2.Text:=Form1.ADODataSet1.FieldByName('UserIP').AsString;
end;

end.