unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Label14: TLabel;
    Edit14: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn2: TBitBtn;
    Label15: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit2, Unit10;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
with dm.ADOQuery4 do
   begin
      close;
      SQL.Clear;
      SQL.Add('select * from RY where RY.姓名=:a');
      parameters.ParamByName('a').Value:=Trim(Edit1.Text);
      Open;
   end;
  if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (edit5.Text='')or (edit6.Text='') or (edit7.Text='')or(edit8.Text='')or(edit9.Text='') or (edit10.Text='')or (edit11.Text='')or (edit12.Text='')or (edit13.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
begin
with dm.ADOQuery1 do
begin

        SQL.Clear;
        SQl.Add('update RY set RY.姓名=:xm,RY.出生日期=:csrq,RY.性别=:xb,RY.籍贯=:jg,RY.政治面貌=:zzmm,RY.公司=:gs');
        SQL.Add('where RY.姓名=:name');
        Parameters.ParamByName('name').Value:=trim(Edit1.Text);
        Parameters.ParamByName('xm').Value:=trim(Edit2.Text);
        Parameters.ParamByName('csrq').Value:=trim(Edit3.Text);
        Parameters.ParamByName('xb').Value:=trim(Edit4.Text);
        Parameters.ParamByName('jg').Value:=trim(Edit5.Text);
        Parameters.ParamByName('zzmm').Value:=trim(Edit6.Text);
        Parameters.ParamByName('gs').Value:=trim(Edit7.Text);

        execsql;

    end;
    with dm.ADOQuery2 do
begin

        SQL.Clear;
        SQl.Add('update GZ set 姓名=:xm,编号=:bh,职位=:zw,部门=:bm');
        SQL.Add('where GZ.姓名=:name');
        Parameters.ParamByName('name').Value:=trim(Edit1.Text);
        Parameters.ParamByName('xm').Value:=trim(Edit2.Text);
        Parameters.ParamByName('bh').Value:=trim(Edit8.Text);
        Parameters.ParamByName('zw').Value:=trim(Edit9.Text);
        Parameters.ParamByName('bm').Value:=trim(Edit10.Text);
        execsql;
end;
with dm.ADOQuery3 do
begin

        SQL.Clear;
        SQl.Add('update JT set 姓名=:xm,家庭成员=:jtcy,家庭住址=:jtzz,联系电话=:lxdh,邮编=:yb');
        SQL.Add('where JT.姓名=:name');
        Parameters.ParamByName('name').Value:=trim(Edit1.Text);
        Parameters.ParamByName('xm').Value:=trim(Edit2.Text);
        Parameters.ParamByName('jtcy').Value:=trim(Edit11.Text);
        Parameters.ParamByName('jtzz').Value:=trim(Edit12.Text);
        Parameters.ParamByName('lxdh').Value:=trim(Edit13.Text);
        Parameters.ParamByName('yb').Value:=trim(Edit14.Text);
        MessageBox(handle,'修改完毕！','提示',MB_OK or MB_ICONINFORMATION);
        execsql;
        end
    end;
    end;
procedure TForm7.BitBtn5Click(Sender: TObject);
begin
Form7.Visible:=false;
Form2.show;
end;

procedure TForm7.BitBtn4Click(Sender: TObject);
begin
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Edit8.text:='';
Edit9.text:='';
Edit10.text:='';
Edit11.text:='';
Edit12.text:='';
Edit13.text:='';
Edit14.text:='';
end;


procedure TForm7.BitBtn2Click(Sender: TObject);
begin


if  edit1.Text='' then
   begin
   MessageBox(handle,'请输入姓名,不能为空！','提示',MB_OK or MB_ICONINFORMATION);
   exit;
   end
else
   with dm.Adoquery4 do
   begin
   SQL.Clear;
   Close;
   sql.Add('select RY.姓名,出生日期,性别,籍贯,政治面貌,公司,编号,职位,部门,家庭成员,家庭住址,联系电话,邮编 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名 and RY.姓名='''+Edit1.Text+'''');
   
   open;
edit2.text:=dm.adoquery4.fieldbyname('姓名').asstring;
edit3.text:=dm.adoquery4.fieldbyname('出生日期').asstring;
edit4.text:=dm.adoquery4.fieldbyname('性别').asstring;
edit5.text:=dm.adoquery4.fieldbyname('籍贯').asstring;
edit6.text:=dm.adoquery4.fieldbyname('政治面貌').asstring;
edit7.text:=dm.adoquery4.fieldbyname('公司').asstring;
edit8.text:=dm.adoquery4.fieldbyname('编号').asstring;
edit9.text:=dm.adoquery4.fieldbyname('职位').asstring;
edit10.text:=dm.adoquery4.fieldbyname('部门').asstring;
edit11.text:=dm.adoquery4.fieldbyname('家庭成员').asstring;
edit12.text:=dm.adoquery4.fieldbyname('家庭住址').asstring;
edit13.text:=dm.adoquery4.fieldbyname('联系电话').asstring;
edit14.text:=dm.adoquery4.fieldbyname('邮编').asstring;

end;
end;

end.