unit6.pas

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

unit Unit6;

interface

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

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

var
  Form6: TForm6;

implementation

uses Unit2, Unit10;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);


begin
with dm.ADOQuery1 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 if dm.ADOQuery1.Eof=false then
   begin
     ShowMessage('该学生已经存在，请重新填写');
     Edit1.Clear
   end
else
begin
with dm.ADOQuery1 do
begin
close;
sql.clear;
sql.add('insert into RY(姓名,出生日期,性别,籍贯,政治面貌,公司)'
+'values (:1,:2,:3,:4,:5,:6)');
parameters.parambyname('1').value:=''+Edit1.Text+'';
parameters.parambyname('2').value:=''+Edit2.Text+'';
parameters.parambyname('3').value:=''+Edit3.Text+'';
parameters.parambyname('4').value:=''+Edit4.Text+'';
parameters.parambyname('5').value:=''+Edit5.Text+'';
parameters.parambyname('6').value:=''+Edit6.Text+'';
execsql;
end;
with dm.ADOQuery2 do
begin
close;
sql.clear;
sql.add('insert into GZ(姓名,编号,职位,部门)'
+'values (:7,:8,:9,:10)');
parameters.parambyname('7').value:=''+Edit1.Text+'';
parameters.parambyname('8').value:=''+Edit7.Text+'';
parameters.parambyname('9').value:=''+Edit8.Text+'';
parameters.parambyname('10').value:=''+Edit9.Text+'';
execsql;
end;
with dm.ADOQuery3 do
begin
close;
sql.clear;
sql.add('insert into JT(姓名,家庭成员,家庭住址,联系电话,邮编)'
+'values (:11,:12,:13,:14,:15)');
parameters.parambyname('11').value:=''+Edit1.Text+'';
parameters.parambyname('12').value:=''+Edit10.Text+'';
parameters.parambyname('13').value:=''+Edit11.Text+'';
parameters.parambyname('14').value:=''+Edit12.Text+'';
parameters.parambyname('15').value:=''+Edit13.Text+'';
execsql;
end;
end;
begin


application.MessageBox('数据已录入，请查看!','完成提示',mb_ok);

end;


end;


procedure TForm6.BitBtn5Click(Sender: TObject);
begin
Form6.Visible:=false;
Form2.Show;
end;

procedure TForm6.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:='';
end;

end.