unit1.pas

个人通讯录信息管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, ExtCtrls, jpeg, ExtDlgs, StdCtrls, Buttons;

type
  Tfmmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    caozuo1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ADOConnection1: TADOConnection;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    Image1: TImage;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    N18: TMenuItem;
    Timerts: TTimer;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure caozuo1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure TimertsTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  fmmain: Tfmmain;

implementation
uses unit2, Unit3, Unit6, Unit8, Unit10, Unit12, Unit13,unit14,unit15;

{$R *.dfm}


procedure tishi();
begin
  with fmts.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select 联系人表.contactid as 联系人ID,联系人表.contactname as 联系人姓名,联系人表.shouldcontactdate as 应联系日期 from 联系人表 where 联系人表.shouldcontactdate<=:today');
    parameters.ParamByName('today').Value:=date;
    prepared:=true;
    open;
  end;
  if not fmts.ADOQuery1.IsEmpty then
  begin
    fmts.ShowModal;
  end;
end;

procedure Tfmmain.N2Click(Sender: TObject);
begin
  fmlxr.ADOTable1.Filtered:=false;
  fmlxr.ADOTable1.Sort:='contactid';
  fmlxr.showmodal;
end;

procedure Tfmmain.N3Click(Sender: TObject);
begin
  fmlxrz.ADOTable1.Sort:='groupid';
  fmlxrz.ShowModal;
end;

procedure Tfmmain.FormCreate(Sender: TObject);
var
  curdir:string;
begin
  getdir(0,curdir);
  adoconnection1.ConnectionString:='provider=microsoft.jet.oledb.4.0;data source='+curdir+'\通讯录.mdb;persist security info=false';
  adoconnection1.Open;

end;

procedure Tfmmain.caozuo1Click(Sender: TObject);
begin
  fmlxfs.ADOTable1.Filtered:=false;
  fmlxfs.ADOTable1.Sort:='contactid';
	fmlxfs.showmodal;
end;

procedure Tfmmain.N4Click(Sender: TObject);
begin
  fmlxfsz.ADOTable1.Sort:='groupid';
	fmlxfsz.showmodal;
end;

procedure Tfmmain.N5Click(Sender: TObject);
begin
  fmlxls.ADOTable1.Filtered:=false;
  fmlxls.ADOTable1.Sort:='contactdate DESC';
  fmlxls.ShowModal;
end;

procedure Tfmmain.N8Click(Sender: TObject);
begin
  with fmtj.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select 联系人表.contactname as 联系人姓名,count(联系历史表.contactid) as 联系次数 from 联系人表 left join 联系历史表 on 联系人表.contactid=联系历史表.contactid group by 联系人表.contactname order by 2 DESC');
    prepared:=true;
    open;
  end;
  fmtj.Caption:='统计结果';
  fmtj.ShowModal;

end;

procedure Tfmmain.N9Click(Sender: TObject);
begin
  with fmtj.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select 联系历史表.contactdate as 联系日期,count(联系历史表.contactid) as 联系次数 from 联系历史表 group by 联系历史表.contactdate order by 1 DESC');
    prepared:=true;
    open;
  end;
  fmtj.Caption:='统计结果';
  fmtj.ShowModal;
end;

procedure Tfmmain.N14Click(Sender: TObject);
begin
with fmtj.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select count(*) as 联系次数 from 联系历史表 ');
    prepared:=true;
    open;
  end;
  fmtj.Caption:='统计结果';
  fmtj.ShowModal;
end;

procedure Tfmmain.N11Click(Sender: TObject);
begin
  with fmtj.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select 联系人组表.groupname as 联系人组名称,count(联系人表.contactid) as 联系人个数 from 联系人组表 left join 联系人表 on 联系人组表.groupid=联系人表.groupid group by 联系人组表.groupname order by 2 DESC');
    prepared:=true;
    open;
  end;
  fmtj.Caption:='统计结果';
  fmtj.ShowModal;
end;

procedure Tfmmain.N12Click(Sender: TObject);
begin
  with fmtj.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select 联系人表.sex as 联系人性别,count(联系人表.contactid) as 联系人个数 from 联系人表 group by 联系人表.sex order by 2 DESC');
    prepared:=true;
    open;
  end;
  fmtj.Caption:='统计结果';
  fmtj.ShowModal;
end;

procedure Tfmmain.N13Click(Sender: TObject);
begin
  with fmtj.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select count(*) as 联系人个数 from 联系人表');
    prepared:=true;
    open;
  end;
  fmtj.Caption:='统计结果';
  fmtj.ShowModal;
end;

procedure Tfmmain.N16Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
  begin
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
  end;
end;

procedure Tfmmain.N17Click(Sender: TObject);
begin
  fmmain.ADOConnection1.Close;
  application.Terminate;
end;

procedure Tfmmain.N18Click(Sender: TObject);
begin
  fmguanyu.ShowModal;
end;

procedure Tfmmain.TimertsTimer(Sender: TObject);
begin
  timerts.Enabled:=false;
  tishi();
end;

end.