unit1.pas

这也是一个通讯录软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, Mask, DBCtrls, Buttons, DB, jpeg,
  ExtCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    nadd: TMenuItem;
    nmodify: TMenuItem;
    ndelete: TMenuItem;
    N5: TMenuItem;
    nquery: TMenuItem;
    nbrowse: TMenuItem;
    sb: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ename: TDBEdit;
    ephone: TDBEdit;
    efamily: TDBEdit;
    eoffice: TDBEdit;
    edorm: TDBEdit;
    elt: TDBEdit;
    emilitary: TDBEdit;
    remarkmemo: TDBMemo;
    btnfirst: TBitBtn;
    btnpre: TBitBtn;
    btnnext: TBitBtn;
    btnlast: TBitBtn;
    N2: TMenuItem;
    S1: TMenuItem;
    N3: TMenuItem;
    procedure N8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnfirstClick(Sender: TObject);
    procedure btnpreClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnlastClick(Sender: TObject);
    procedure ndeleteClick(Sender: TObject);
    procedure nbrowseClick(Sender: TObject);
    procedure naddClick(Sender: TObject);
    procedure nmodifyClick(Sender: TObject);
    procedure nqueryClick(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure moveformfun(var msg:twmnchittest);
      message wm_nchittest;
  public
    { Public declarations }
    procedure readtrue;
    procedure readfalse;
    procedure chakan;
    procedure editclear;
  end;

var
  Form1: TForm1;

implementation

uses datamodule, browse, manul, queryunit,
     setunit, flashunit, aboutboxunit;

{$R *.dfm}

procedure tform1.moveformfun(var msg:twmnchittest);
begin
  inherited;
  if htclient=msg.Result then
    msg.Result:=htcaption;
end;

procedure tform1.readtrue;
begin
  ename.ReadOnly:=true;
  ephone.ReadOnly:=true;
  efamily.ReadOnly:=true;
  eoffice.ReadOnly:=true;
  edorm.ReadOnly:=true;
  elt.ReadOnly:=true;
  emilitary.ReadOnly:=true;
  remarkmemo.ReadOnly:=true;
end;

procedure tform1.readfalse;
begin
  ename.ReadOnly:=false;
  ephone.ReadOnly:=false;
  efamily.ReadOnly:=false;
  eoffice.ReadOnly:=false;
  edorm.ReadOnly:=false;
  elt.ReadOnly:=false;
  emilitary.ReadOnly:=false;
  remarkmemo.ReadOnly:=false;
end;

procedure tform1.editclear;
begin
  ename.Text:='';
  ephone.Text:='';
  efamily.Text:='';
  eoffice.Text:='';
  edorm.Text:='';
  elt.Text:='';
  emilitary.Text:='';
  remarkmemo.Text:='';
end;

procedure tform1.chakan;
begin
  sb.Panels[2].Text:=formatdatetime('mm-dd  hh:mm',now);
  sb.Panels[0].Text:='共有'+inttostr(dm.ADOD.RecordCount)+'个人的通讯信息';
  if ename.Text<>'' then
    sb.Panels[1].Text:='你正在查看 '+ename.Text+' 的信息'
  else
    sb.Panels[1].Text:='你的通讯录是空的';
end;

procedure TForm1.N8Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with dm do
  begin
  ADOC.Connected:=false;
  ADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getcurrentdir+'\message.mdb;Persist Security Info=False';
  ds.DataSet:=adod;
  ADOC.Connected:=true;
  ADOD.Active:=false;
  ADOD.Connection:=adoc;
  ADOD.CommandText:='select * from phone order by 姓名';
  adod.Active:=true;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  chakan;
  readtrue;
end;

procedure TForm1.btnfirstClick(Sender: TObject);
begin
  dm.ADOD.First;
  chakan;
end;

procedure TForm1.btnpreClick(Sender: TObject);
begin
  dm.ADOD.Prior;
  chakan;
end;

procedure TForm1.btnnextClick(Sender: TObject);
begin
  dm.ADOD.Next;
  chakan;
end;

procedure TForm1.btnlastClick(Sender: TObject);
begin
  dm.ADOD.Last;
  chakan;
end;

procedure TForm1.ndeleteClick(Sender: TObject);
begin
  if setform.cbdelete.Checked=true then
    if application.MessageBox('你确定要删除此条通讯录内容？　','删除',mb_yesno or MB_ICONQUESTION)=mryes then
       dm.ADOD.Delete
    else
      exit
  else
    dm.ADOD.Delete;
  form1.chakan;
end;

procedure TForm1.nbrowseClick(Sender: TObject);
begin
  browseform.Caption:='　全部查看';
  browseform.ShowModal;          
end;

procedure TForm1.naddClick(Sender: TObject);
begin
  with manulform do
  begin
    Show;
    edtname.Text:='';
    edtphone.Text:='';
    edtfamily.Text:='';
    edtoffice.Text:='';
    edtdorm.Text:='';
    edtlt.Text:='';
    edtmilitary.Text:='';
    caozuomemo.Text:='';
    edtname.SetFocus;
  end;
  manulform.Caption:='添加';
  manulform.btn.Caption:='添加(&A)';
  dm.ADOD.Insert;
end;

procedure TForm1.nmodifyClick(Sender: TObject);
begin
  with manulform do
  begin
    Show;
    Caption:='修改';
    btn.Caption:='修改(&M)';
    edtname.Text:=ename.Text;
    edtphone.Text:=ephone.Text;
    edtfamily.Text:=efamily.Text;
    edtoffice.Text:=eoffice.Text;
    edtdorm.Text:=edorm.Text;
    edtlt.Text:=elt.Text;
    edtmilitary.Text:=emilitary.Text;
    caozuomemo.Text:=remarkmemo.Text;
  end;
  dm.ADOD.Edit;
end;

procedure TForm1.nqueryClick(Sender: TObject);
begin
  queryform.show;
end;

procedure TForm1.S1Click(Sender: TObject);
begin
  setform.ShowModal;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  aboutbox.ShowModal;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

end.