unit5.~pas

个人通讯录信息管理系统 很好用的

unit Unit5;

interface

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

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

var
  fmlxrzaddormodify: Tfmlxrzaddormodify;
  isadd:boolean=true;

implementation
uses unit3, Unit2;
{$R *.dfm}

procedure insert;
begin
  if fmlxrzaddormodify.Edit1.Text='' then   //组ID不能为空
  begin
    showmessage('组ID不能为空!');
    exit;
  end;

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

  if fmlxrzaddormodify.Edit3.Text='' then       //联系间隔时间不能为空
  begin
    showmessage('联系间隔时间不能为空!');
    exit;
  end;

  if fmlxrz.ADOTable1.Locate('groupid',fmlxrzaddormodify.edit1.text,[]) then
  begin
    showmessage('此组ID已经存在!');
  end
  else
  begin
    fmlxrz.ADOTable1.Append;
    fmlxrz.ADOTable1.fieldbyname('groupid').AsString:=fmlxrzaddormodify.edit1.Text;
    fmlxrz.ADOTable1.fieldbyname('groupname').AsString:=fmlxrzaddormodify.edit2.Text;
    fmlxrz.ADOTable1.fieldbyname('interval').AsString:=fmlxrzaddormodify.edit3.Text;
    fmlxrz.ADOTable1.Post;
    fmlxrz.ADOTable1.Refresh;
    showmessage('插入成功!');
    fmlxrzaddormodify.Close;
  end;
end;

procedure modify;
var
  bm:string;
begin
  if fmlxrzaddormodify.Edit1.Text='' then   //组ID不能为空
  begin
    showmessage('组ID不能为空!');
    exit;
  end;

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

  if fmlxrzaddormodify.Edit3.Text='' then       //联系间隔时间不能为空
  begin
    showmessage('联系间隔时间不能为空!');
    exit;
  end;

  bm:=fmlxrz.ADOTable1.Bookmark;
  if (fmlxrz.ADOTable1.Locate('groupid',fmlxrzaddormodify.edit1.text,[])) and (fmlxrz.ADOTable1.Bookmark<>bm) then     //ID可以不修改
  begin
    showmessage('此组ID已经存在!');
  end
  else
  begin
    fmlxrz.ADOTable1.edit;
    fmlxrz.ADOTable1.fieldbyname('groupid').AsString:=fmlxrzaddormodify.edit1.Text;
    fmlxrz.ADOTable1.fieldbyname('groupname').AsString:=fmlxrzaddormodify.edit2.Text;
    fmlxrz.ADOTable1.fieldbyname('interval').AsString:=fmlxrzaddormodify.edit3.Text;
    fmlxrz.ADOTable1.Post;
    fmlxrz.ADOTable1.Refresh;
    fmlxr.ADOTable1.Close;
    fmlxr.ADOTable1.Open;
    showmessage('修改成功!');
    fmlxrzaddormodify.Close;
  end;
end;

procedure Tfmlxrzaddormodify.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 Tfmlxrzaddormodify.Edit1Exit(Sender: TObject);
begin
  if edit1.Text='' then        //文本框为空可以退出
    exit;

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

procedure Tfmlxrzaddormodify.Edit3KeyPress(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 Tfmlxrzaddormodify.BitBtn1Click(Sender: TObject);
begin
  if isadd then
  begin
    insert;
  end
  else
  begin
    modify;
  end;

end;

procedure Tfmlxrzaddormodify.BitBtn2Click(Sender: TObject);
begin
  fmlxrzaddormodify.Close;
end;

procedure Tfmlxrzaddormodify.Edit3Exit(Sender: TObject);
begin
  if edit3.Text='' then
    exit;
  if copy(edit3.text,1,1)='0' then     //第一个数字不能为0
  begin
    showmessage('间隔时间不合法!');
    edit3.SetFocus;
  end;
end;

end.