unit3.pas

关于delphi的相关源码

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clearmsg;
  end;

var
  Form3: TForm3;

implementation

uses Unit4, Unit1;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  if trim(edit1.Text)='' then
  begin
    showmessage('姓名不能为空!');
    edit1.SetFocus;
    exit;
  end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='insert into tongxianlu (name,unit,address,telphone,mobile) values ('''+edit1.Text+''','''+edit3.Text+''','''+edit2.Text+''','''+edit4.Text+''','''+edit5.Text+''')';
  adoquery1.ExecSQL;
  showmessage('添加记录成功!');
  clearmsg;
end;

procedure TForm3.clearmsg;
begin
  edit1.clear;
  edit2.clear;
  edit3.clear;
  edit4.clear;
  edit5.clear;
  edit1.SetFocus;
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
  Form4:=TForm4.Create(application);
  Form4.Show;
  Hide;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form1.show;
end;

end.