tfindsim.pas

本简单通信信息管理软件是个人为方便管理个人通信信息而制作的一个小数据库程序,特传上来和大家分享.有那个地方不足的地方希望各方朋友提出建议一同学习研究！ 制作:delphi7+access 作者

unit TFindSim;

interface

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

type
  TFindSim1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Memo1: TMemo;
    Label14: TLabel;
    Edit10: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Memo1DblClick(Sender: TObject);
  private
  strnote:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FindSim1: TFindSim1;

implementation
uses TModule, DB, ADODB;

{$R *.dfm}

procedure TFindSim1.FormCreate(Sender: TObject);
var
i:Integer;
begin
with DataModule1.ADOQuery2 do
begin
Open;
Edit1.Text:=FieldByName('name').AsString;
Edit2.Text:=FieldByName('unitwork').AsString;
Edit3.Text:=FieldByName('telnum').AsString;
Edit4.Text:=FieldByName('handnum').AsString;
Edit5.Text:=FieldByName('facsimile').AsString;
Edit6.Text:=FieldByName('QQnum').AsString;
Edit7.Text:=FieldByName('MSNNum').AsString;
Edit8.Text:=FieldByName('E-mail').AsString;
Edit9.Text:=FieldByName('webaddress').AsString;
Edit10.Text:=FieldByName('address').AsString;
ComboBox1.Text:=FieldByName('sex').AsString;
ComboBox2.Text:=FieldByName('duty').AsString;
ComboBox3.Text:=FieldByName('disnum').AsString;
Memo1.Text:=FieldByName('note').AsString;
end;


with DataModule1.findmess do
begin
SQL.Clear;
SQL.Add('select DISTINCT disnum from SimInfor');
Open;
  if RecordCount>0 then
  begin
  First;
    for i:=0 to RecordCount-1 do
    begin
    ComboBox3.Items.Add(fieldbyname('disnum').AsString);
    next;
    end;

  end;
end;

with DataModule1.findmess do
begin
SQL.Clear;
SQL.Add('select DISTINCT duty from SimInfor');
Open;
  if RecordCount>0 then
  begin
    ComboBox2.Items.Clear;
    First;
    for i:=0 to RecordCount-1 do
    begin
    ComboBox2.Items.Add(fieldbyname('duty').AsString);
    next;
    end;

end;
end;

end;

procedure TFindSim1.Button2Click(Sender: TObject);
begin
with DataModule1.ADOQuery2 do
begin
CancelUpdates;
FindSim1.Close;
end;
end;

procedure TFindSim1.Button1Click(Sender: TObject);
begin
with DataModule1.ADOQuery2 do
begin
FieldByName('name').AsString:=Edit1.Text;
FieldByName('unitwork').AsString:=Edit2.Text;
FieldByName('telnum').AsString:=Edit3.Text;
FieldByName('handnum').AsString:=Edit4.Text;
FieldByName('facsimile').AsString:=Edit5.Text;
FieldByName('QQnum').AsString:=Edit6.Text;
FieldByName('MSNNum').AsString:=Edit7.Text;
FieldByName('E-mail').AsString:=Edit8.Text;
FieldByName('webaddress').AsString:=Edit9.Text;
FieldByName('address').AsString:=Edit10.Text;
FieldByName('sex').AsString:=ComboBox1.Text;
FieldByName('duty').AsString:=ComboBox2.Text;
FieldByName('disnum').AsString:=ComboBox3.Text;
if Memo1.Text<>strnote then
FieldByName('note').AsString:=Memo1.Text+'  (日期：'+DateToStr(Now)+')';
Post;
FindSim1.Close;

end;

end;

procedure TFindSim1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataModule1.ADOQuery2.CancelUpdates;
end;

procedure TFindSim1.Button3Click(Sender: TObject);
var
i:Integer;
//a,a1,a2:string;
begin
with DataModule1.findmess do
begin
SQL.Clear;
SQL.Add('select * from SimInfor');
Open;
  if RecordCount>0 then
  begin
  First;
    for i:=0 to RecordCount-1 do
    begin
    ComboBox3.Items.Add(fieldbyname('disnum').AsString);
    next;
    end;

  end;
end;
end;

procedure TFindSim1.Memo1Change(Sender: TObject);

begin
strnote:=DataModule1.ADOQuery2.FieldByName('note').AsString;
end;

procedure TFindSim1.Memo1DblClick(Sender: TObject);
begin
Memo1.SelectAll;
end;

end.