unit1.pas

delphi典型实验代码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

var
  Form1:   TForm1;

implementation

uses unit3;
{$R *.dfm}
procedure ADOExec(str:string);
var s:string;
begin
  s:=copy(str,1,6);
  with  DataModule3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(str);
  if(s='select')then
  begin
     sql.Add(' order by 学号');
     open;
  end
  else
     execSQL;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='insert into 学生基本信息表 values('
  +''''+edit1.Text+''''+','
  +''''+edit2.Text+''''+','
  +''''+edit3.Text+''''+','
  +edit4.Text+','
  +''''+edit5.Text+''''+')';
  ADOExec(str);
//  showmessage(str);

  str:='select * from 学生基本信息表';
  ADOExec(Str);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var str:string;
n:integer;
begin
  str:='select * from 学生基本信息表 where 学号='
      +''''+edit1.Text+'''';
  ADOExec(Str);
  n:=DataModule3.ADOQuery1.RecordCount;
  if n>0 then
  begin
    showmessage('该学号已存在，请重新输入');
    edit1.Text:='';
  end;
end;

procedure TForm1.Edit4Exit(Sender: TObject);
var v,code:integer;
begin
  val(edit4.Text,v,code);
  if(code>0)then
     showmessage('输入的非数字，请重新输入！');

end;

procedure TForm1.Button2Click(Sender: TObject);
var str:string;
begin
  str:='insert into 学生基本信息表(姓名,性别) values('
  +''''+edit1.Text+''''+','
  +''''+edit2.Text+''''+','
  +''''+edit3.Text+''''+')';
  ADOExec(str);

  str:='select * from 学生基本信息表';
  ADOExec(str);

end;

procedure TForm1.Button3Click(Sender: TObject);
var str:string;
begin
  str:='update  学生基本信息表 set 地址='
       +''''+'6'+''''
       +' where 学号 like '
       +''''+'060422%'+'''';
  ADOExec(str);

  str:='select * from 学生基本信息表';
  ADOExec(str);
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text:=DataModule3.ADOQuery1.fieldByName('学号').AsString;
  edit2.Text:=DataModule3.ADOQuery1.fieldByName('姓名').AsString;
  edit3.Text:=DataModule3.ADOQuery1.fieldByName('性别').AsString;
  edit4.Text:=DataModule3.ADOQuery1.fieldByName('年龄').AsString;
  edit5.Text:=DataModule3.ADOQuery1.fieldByName('地址').AsString;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DataModule3.ADOQuery1.Edit;
  DataModule3.ADOQuery1.fieldByName('学号').AsString:=edit1.Text;
  DataModule3.ADOQuery1.fieldByName('姓名').AsString:=edit2.Text;
  DataModule3.ADOQuery1.fieldByName('性别').AsString:=edit3.Text;
  DataModule3.ADOQuery1.fieldByName('年龄').AsInteger:=strtoint(edit4.Text);
  DataModule3.ADOQuery1.fieldByName('地址').AsString:=edit5.Text;

end;

procedure TForm1.Button5Click(Sender: TObject);
var
  str1,str2:string;
  code:integer;
begin
  str1:=DataModule3.ADOQuery1.fieldByName('学号').AsString;
  str2:=DataModule3.ADOQuery1.fieldByName('姓名').AsString;
  code:=messagedlg('你是否要删除的以下数据：'
                      +#13+str1+#13+str2,
                      mtconfirmation,[mbyes,mbno],1);
  if code=6 then
    DataModule3.ADOQuery1.Delete;
end;

procedure TForm1.Button6Click(Sender: TObject);
var str:string;
begin
  str:='delete from 学生基本信息表';
  ADOExec(str);

  str:='select * from 学生基本信息表';
  ADOExec(str);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  DataModule3.ADOQuery1.First;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  DataModule3.ADOQuery1.Prior;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
DataModule3.ADOQuery1.Next;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
DataModule3.ADOQuery1.Last;
end;

end.