unit8.~pas

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

unit Unit8;

interface

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

type
  Tfmlxfsz = class(TForm)
    ADOTable1: TADOTable;
    MainMenu1: TMainMenu;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    N1: TMenuItem;
    xinjian: TMenuItem;
    xiugai: TMenuItem;
    shanchu: TMenuItem;
    N6: TMenuItem;
    anIDpaixu: TMenuItem;
    anmingchengpaixu: TMenuItem;
    chakanlianxifangshi: TMenuItem;
    PopupMenu1: TPopupMenu;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ID1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure xinjianClick(Sender: TObject);
    procedure xiugaiClick(Sender: TObject);
    procedure shanchuClick(Sender: TObject);
    procedure anIDpaixuClick(Sender: TObject);
    procedure anmingchengpaixuClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure chakanlianxifangshiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmlxfsz: Tfmlxfsz;
  isadd:boolean=true;

implementation

uses Unit1, Unit9, Unit6;

{$R *.dfm}

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

end;

procedure Tfmlxfsz.xinjianClick(Sender: TObject);
begin
  isadd:=true;

  fmlxfszaddormodify.Edit1.Text:='';
  fmlxfszaddormodify.Edit2.Text:='';

  fmlxfszaddormodify.Caption:='新增联系方式组';
  fmlxfszaddormodify.ShowModal;
end;

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

  isadd:=false;

  fmlxfszaddormodify.Edit1.Text:=fmlxfsz.ADOTable1.fieldbyname('groupid').AsString;
  fmlxfszaddormodify.Edit2.Text:=fmlxfsz.ADOTable1.fieldbyname('groupname').AsString;

  fmlxfszaddormodify.Caption:='修改联系方式组';
  fmlxfszaddormodify.ShowModal;
end;

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

procedure Tfmlxfsz.anIDpaixuClick(Sender: TObject);
begin
  adotable1.Sort:='groupid';
end;

procedure Tfmlxfsz.anmingchengpaixuClick(Sender: TObject);
begin
  adotable1.Sort:='groupname';
end;

procedure Tfmlxfsz.FormShow(Sender: TObject);
begin
  fmlxfsz.ADOTable1.Sort:='groupid';
end;

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

end.