add.pas

关于DEPHI7.0的网络聊天信息管理系统源代码

unit Add;

interface

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

type
  TFormAdd = class(TForm)
    BTNExit: TBitBtn;
    BTNOk: TBitBtn;
    MEditIP: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    EditComputer: TEdit;
    EditNickName: TEdit;
    Label3: TLabel;
    BTNMod: TBitBtn;
    procedure BTNExitClick(Sender: TObject);
    procedure BTNOkClick(Sender: TObject);
    procedure BTNModClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAdd: TFormAdd;

implementation
uses main;
{$R *.dfm}

procedure TFormAdd.BTNExitClick(Sender: TObject);
begin
 Self.Close;
end;

procedure TFormAdd.BTNOkClick(Sender: TObject);
begin
  TempUser.UserComputerName := EditComputer.Text;
  TempUser.UserNickName := EditNickName.Text;
  TempUser.UserIPAddress := MEditIp.Text;
if trim(EditComputer.Text) <> '' then
begin
  FormMain.ListBoxFriend.Items.Add(trim(EditComputer.Text));
  Assignfile(FriendFile, 'Friend.dat');
  Reset(FriendFile);
  Seek(FriendFile, FileSize(FriendFile));
  try
    Write(FriendFile, TempUser);
  finally
    CloseFile(FriendFile);
  end;
  FormMain.ListBoxFriend.Items.Add(TempUser.UserComputerName);
 end;
end;

procedure TFormAdd.BTNModClick(Sender: TObject);
begin
  TempUser.UserComputerName := EditComputer.Text;
  TempUser.UserNickName := EditNickName.Text;
  TempUser.UserIPAddress := MEditIp.Text;
  Assignfile(FriendFile, 'Friend.dat');
  Reset(FriendFile);
  Seek(FriendFile, FormMain.ListBoxFriend.ItemIndex);
  try
    Write(FriendFile, TempUser);
  finally
    CloseFile(FriendFile);
  end;
  Close;
  FormMain.ListBoxFriend.Items[FormMain.ListBoxFriend.ItemIndex] :=
          TempUser.UserComputerName;
end;

end.