unit_main.pas

Sqlserver2000压力测试 数据库请自己建

unit Unit_main;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
  Dialogs,RzButton,DB,ADODB,StdCtrls,Mask,RzEdit;

type
  TForm_main=class(TForm)
    RzBitBtn1:TRzBitBtn;
    ADOConnection1:TADOConnection;
    ADOQuery1:TADOQuery;
    RzBitBtn_Piliang:TRzBitBtn;
    RzBitBtn_Del:TRzBitBtn;
    RzEdit1:TRzEdit;
    procedure RzBitBtn1Click(Sender:TObject);
    procedure RzBitBtn_PiliangClick(Sender:TObject);
    procedure RzBitBtn_DelClick(Sender:TObject);
    procedure RzEdit1KeyPress(Sender:TObject;var Key:Char);
    procedure RzEdit1Enter(Sender:TObject);
  private
    { Private declarations }
  public
    function My_Execute(id:integer;cstr:string;ADOQuery:TADOQuery):bool;
  end;

var
  Form_main         :TForm_main;

implementation

{$R *.dfm}

procedure TForm_main.RzBitBtn1Click(Sender:TObject);
var
  tempsql           :string;
begin
  tempsql:='insert into StuInfo(StuID) values(1)';
  { self.ADOQuery1.SQL.Text:=tempsql;
   ADOQuery1.Open;
   //ADOQuery1.
   // self.ADOQuery1.com
   showmessage('ok!');
   }
   /////////////////
  if My_Execute(1,tempsql,ADOQuery1) then
    showmessage('ok!');
end;
//*************************************************
//函数功能：执行SQL语句操作数据库
//参数：cStr SQL字符串，当id =0 是查询语句，id=1 是其它语句 ADOQuery 执行数据集
//返回值：成功返回0，异常返回1
//*************************************************

function TForm_main.My_Execute(id:integer;cstr:string;
  ADOQuery:TADOQuery):bool;
begin
  result:=true;
  try
    //关闭数据集
    ADOQuery.Close;
    //赋予SQL语句
    ADOQuery.SQL.Text:=cstr;
    //执行
    if id=0 then
    begin
      ADOQuery.Open;
      //   showmessage(cstr);                //程序员测试用，显示sql语句
    end;
    if id=1 then begin
      // showmessage(cstr);                //程序员测试用，显示sql语句
      ADOQuery.ExecSQL;
    end;
  except
    //出现异常
    on E:exception do begin
      showmessage(e.Message);
      result:=false;                    //失败返回0
    end;
  end;
end;

procedure TForm_main.RzBitBtn_PiliangClick(Sender:TObject);
var
  tempsql           :string;
  i                 :integer;
  t1,t2,r1          :int64;             //记时
begin
  if trim(RzEdit1.text)<>'' then
  begin
    t1:=GetTickCount;                   //获取开始计数 WINDOWS API

    for i:=1 to strtoint(self.RzEdit1.text) do
    begin
      tempsql:='insert into StuInfo(StuID) values('+inttostr(i)+')';
      // if My_Execute(0,tempsql,ADOQuery1) then
      My_Execute(1,tempsql,ADOQuery1);
    end;
    t2:=GetTickCount;                   //获取结束计数值
    r1:=t2-t1;                          //取得计时时间，单位毫秒(ms)
    showmessage('插入'+RzEdit1.text+'条数据完成!'+'花掉时间:  '+inttostr(r1)+'毫秒');
  end;
end;

procedure TForm_main.RzBitBtn_DelClick(Sender:TObject);
var
  t3,t4,r2          :int64;             //记时
begin
  t3:=GetTickCount;                     //获取开始计数 WINDOWS API
  //showmessage('cstr');
  if My_Execute(1,'delete StuInfo',ADOQuery1) then
  begin
    t4:=GetTickCount;                   //获取结束计数值
    r2:=t4-t3;                          //取得计时时间，单位毫秒(ms)
    showmessage('删除所有数据完成!'+'花掉时间:  '+inttostr(r2)+'毫秒');
  end;
end;

procedure TForm_main.RzEdit1KeyPress(Sender:TObject;var Key:Char);
begin
  if not(Key in ['0'..'9',#8,#13]) then
  begin
    Key:=#0;
  end;
  if (Key in [#13]) then                //按回车执行
    RzBitBtn_Piliang.Click;
end;

procedure TForm_main.RzEdit1Enter(Sender:TObject);
begin
  //RzBitBtn_Piliang.Click;
end;

end.