tsiminfor.~pas

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

unit TSimInfor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, Grids, DBGrids, WinSkinData;

type
  TSimInfor1 = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    ToolButton6: TToolButton;
    SkinData1: TSkinData;
    ToolButton7: TToolButton;
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SimInfor1: TSimInfor1;

implementation
uses TModule,TFindSim, DB,TFindMess;

{$R *.dfm}



procedure TSimInfor1.ToolButton5Click(Sender: TObject);
begin
SimInfor1.Close;
end;

procedure TSimInfor1.ToolButton2Click(Sender: TObject);
begin
with DataModule1.ADOQuery2 do
begin
Open;
Append;
FindSim1:=TFindSim1.Create(Owner);
FindSim1.Show;
FindSim1.ComboBox1.Text:='男';
FindSim1.Button1.Show;
end;
end;

procedure TSimInfor1.ToolButton3Click(Sender: TObject);
begin
with DataModule1.ADOQuery2 do
begin
Open;
Edit;
FindSim1:=TFindSim1.Create(Owner);
FindSim1.Show;
FindSim1.Button1.Show;
end;
end;

procedure TSimInfor1.DBGrid1DblClick(Sender: TObject);
begin
FindSim1:=TFindSim1.Create(nil);
FindSim1.Button1.Hide;
FindSim1.Show;
end;

procedure TSimInfor1.ToolButton4Click(Sender: TObject);
begin
if MessageBox(0,'确定要删除该数据吗?','提示警告!!!',MB_YESNO)=6
then
  begin
    with DataModule1.ADOQuery2 do
    begin
    Open;
    Delete;
    end;
  end;
end;
procedure TSimInfor1.ToolButton1Click(Sender: TObject);
begin
FindMess1:=TFindMess1.Create(nil);
FindMess1.Show;
end;

procedure TSimInfor1.ToolButton6Click(Sender: TObject);
begin
ShowMessage('制作人：蓝贤慈'+#13+#13+'QQ:187256716'+#13+#13+'网站:www.ricolan.9126.com');
end;

procedure TSimInfor1.ToolButton7Click(Sender: TObject);
begin
SimInfor1.Caption:='我的系统';
end;

end.