unit4.~pas

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

unit Unit4;

interface

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

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

var
  Form4: TForm4;

implementation

uses Unit1, Unit10;

{$R *.dfm}

procedure TForm4.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 * from RY where 姓名='''+Edit1.Text+''' order by 姓名');


   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
   Open;
   edit1.Text:='';



if RecordCount=0 then
begin
Application.MessageBox('找不到匹配记录!','错误!',MB_OKCANCEL);

end;
end;



end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
with dm.AdoQuery1 do
begin
close;
with sql do
begin
clear;
Add('select RY.姓名,出生日期,性别,籍贯,政治面貌,公司,编号,职位,部门,家庭成员,家庭住址,联系电话,邮编 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名');

   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
end;
open;


end;

end;

procedure TForm4.FormCreate(Sender: TObject);
begin
Form4.Visible:=false;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
Form4.Visible:=false;
Form1.show;
end;

end.