unit3.~pas

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

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, Menus;

type
  Tfmlxrz = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    xinjian: TMenuItem;
    xiugai: TMenuItem;
    shanchu: TMenuItem;
    chakanlianxiren: TMenuItem;
    PopupMenu1: TPopupMenu;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure xinjianClick(Sender: TObject);
    procedure shanchuClick(Sender: TObject);
    procedure xiugaiClick(Sender: TObject);
    procedure anzuIDchaxunClick(Sender: TObject);
    procedure anzumingchaxunClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure chakanlianxirenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmlxrz: Tfmlxrz;

implementation
uses unit1,unit2,unit5;
{$R *.dfm}

procedure Tfmlxrz.FormCreate(Sender: TObject);
begin
  adotable1.Connection:=fmmain.ADOConnection1;
  adotable1.TableName:='联系人组表';
  adotable1.Open;

end;

procedure Tfmlxrz.xinjianClick(Sender: TObject);
begin

  isadd:=true;

  //清空
  fmlxrzaddormodify.Edit1.text:='';
  fmlxrzaddormodify.Edit2.text:='';
  fmlxrzaddormodify.Edit3.text:='';

  fmlxrzaddormodify.Caption:='新增联系人组';
  fmlxrzaddormodify.showmodal;
end;

procedure Tfmlxrz.shanchuClick(Sender: TObject);
begin
  if fmlxrz.adotable1.RecordCount=0 then
  begin
    showmessage('没有选中的记录！');
    exit;
  end;
  if messagedlg('删除此联系人组将同时删除相关表中的相关记录,确实要删除吗?',mtwarning,[mbyes,mbno],0)=mryes then
  begin
    fmlxrz.ADOTable1.Delete;
    //fmlxr.ADOTable1.Refresh;       //联系人表要更新，但不能用这个语句，要用下面两行。
    fmlxr.ADOTable1.Close;
    fmlxr.ADOTable1.Open;
  end;
end;

procedure Tfmlxrz.xiugaiClick(Sender: TObject);
begin
  if fmlxrz.adotable1.RecordCount=0 then
  begin
    showmessage('没有选中的记录！');
    exit;
  end;

  isadd:=false;

  fmlxrzaddormodify.Edit1.text:=fmlxrz.ADOTable1.fieldbyname('groupid').asstring;
  fmlxrzaddormodify.Edit2.text:=fmlxrz.ADOTable1.fieldbyname('groupname').asstring;
  fmlxrzaddormodify.Edit3.text:=fmlxrz.ADOTable1.fieldbyname('interval').asstring;

  fmlxrzaddormodify.Caption:='修改联系人组';
  fmlxrzaddormodify.ShowModal;
  
end;

procedure Tfmlxrz.anzuIDchaxunClick(Sender: TObject);
var
  id:string;
begin

  id:='';
  id:=inputbox('ID输入','','');
  if id='' then   //如果取消
    exit;

  if length(id)<>2 then
  begin
    showmessage('ID长度应为2！');
    exit;
  end;

  if not adotable1.Locate('groupid',id,[])then
    showmessage('没有找到相关记录！');
end;

procedure Tfmlxrz.anzumingchaxunClick(Sender: TObject);
var
  name:string;
begin

  name:='';
  name:=inputbox('组名输入','','');
  if name='' then   //如果取消
    exit;
  if length(name)>10 then
  begin
    showmessage('组名长度不能超过10！');
    exit;
  end;

  if not adotable1.Locate('groupname',name,[])then
    showmessage('没有找到相关记录！');
end;

procedure Tfmlxrz.N6Click(Sender: TObject);
begin
  if messagedlg('全部删除操作将清空联系人组表,联系人表,联系方式表以及联系历史表,确实要删除吗?',mtwarning,[mbyes,mbno],0)=mryes then
  begin
    fmlxrz.ADOTable1.DeleteRecords;
  end;
end;

procedure Tfmlxrz.chakanlianxirenClick(Sender: TObject);
begin
  if adotable1.RecordCount=0 then
  begin
    showmessage('没有选中的记录！');
    exit;
  end;
  
  fmlxr.ADOTable1.Filter:='groupid='+fmlxrz.ADOTable1.fieldbyname('groupid').AsString;
  fmlxr.ADOTable1.Filtered:=true;
  fmlxr.ShowModal;
end;

end.