unit5.~pas

delphi开发的数据库系统,支持用户注册.管理员登陆,可以进行插入,修改,删除等操作. 普通用户可以对数据库进行查询.

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Buttons, Grids,
  DBGrids, ADODB;

type
  TForm5 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit2, Unit10;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);


begin

if  edit1.Text='' then
   begin
   MessageBox(handle,'请输入姓名,不能为空！','提示',MB_OK or MB_ICONINFORMATION);
   exit;
   end
else
   with dm.Adoquery1 do
   begin
   SQL.Clear;
   Close;
   sql.Add('select RY.姓名,出生日期,性别,籍贯,政治面貌,公司,编号,职位,部门,家庭成员,家庭住址,联系电话,邮编 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名 and RY.姓名='''+Edit1.Text+'''');
   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
   Open;
   edit1.Text:='';
   end;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
Form5.Visible:=false;
Form2.show;

end;

procedure TForm5.BitBtn4Click(Sender: TObject);
begin
Form5.Visible:=false;
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
with dm.adoquery1 do
begin
   SQL.Clear;
   Close;
   sql.Add('select RY.姓名,出生日期,性别,籍贯,政治面貌,公司,编号,职位,部门,家庭成员,家庭住址,联系电话,邮编 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名');
   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
   Open;
   end;

end;

end.