unit9.~pas

个人通讯录信息管理系统

unit Unit9;

interface

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

type
  Tfmlxfszaddormodify = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmlxfszaddormodify: Tfmlxfszaddormodify;

implementation

uses Unit8, Unit6;

{$R *.dfm}

procedure insert;
begin
  if fmlxfsz.ADOTable1.Locate('groupid',fmlxfszaddormodify.edit1.Text,[]) then
  begin
    showmessage('此组ID已存在!');
    fmlxfszaddormodify.edit1.SetFocus;
    exit;
  end
  else
  begin
    fmlxfsz.ADOTable1.Append;

    fmlxfsz.ADOTable1.FieldByName('groupid').AsString:=fmlxfszaddormodify.edit1.Text;
    fmlxfsz.ADOTable1.FieldByName('groupname').AsString:=fmlxfszaddormodify.edit2.Text;

    fmlxfsz.ADOTable1.Post;
    fmlxfsz.ADOTable1.Refresh;

    showmessage('插入成功!');
    fmlxfszaddormodify.Close;
  end;
end;

procedure modify;
var
  bm:string;
begin
  bm:=fmlxfsz.ADOTable1.Bookmark;
  if (fmlxfsz.ADOTable1.Locate('groupid',fmlxfszaddormodify.edit1.Text,[])) and (fmlxfsz.ADOTable1.Bookmark<>bm) then
  begin
    showmessage('此组ID已存在!');
    fmlxfszaddormodify.edit1.SetFocus;
    exit;
  end
  else
  begin
    fmlxfsz.ADOTable1.edit;

    fmlxfsz.ADOTable1.FieldByName('groupid').AsString:=fmlxfszaddormodify.edit1.Text;
    fmlxfsz.ADOTable1.FieldByName('groupname').AsString:=fmlxfszaddormodify.edit2.Text;

    fmlxfsz.ADOTable1.Post;
    fmlxfsz.ADOTable1.Refresh;
    fmlxfs.ADOTable1.Close;
    fmlxfs.ADOTable1.Open;

    showmessage('修改成功!');
    fmlxfszaddormodify.Close;
  end;
end;

procedure Tfmlxfszaddormodify.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not ( ((ord(key)>=48) and (ord(key)<=57)) or (ord(key)=8)) then
  begin
    key:=#16;
    exit;
  end;
end;

procedure Tfmlxfszaddormodify.Edit1Exit(Sender: TObject);
begin
  if edit1.Text='' then        //文本框为空可以退出
    exit;

  if length(edit1.Text)<>2 then
  begin
    showmessage('联系方式组ID为两位数字！');
    edit1.SetFocus;
    exit;
  end;
end;

procedure Tfmlxfszaddormodify.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text='' then
  begin
    showmessage('组ID不能为空!');
    edit1.SetFocus;
    exit;
  end;

  if edit2.Text='' then
  begin
    showmessage('组名称不能为空!');
    edit2.SetFocus;
    exit;
  end;

  if not isadd then   //严重错误，isadd为false，执行modify语句。
    insert
  else
    modify;

end;

procedure Tfmlxfszaddormodify.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.