unit2.pas

用Delhpi和mapx开发的警务管理系统

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses frmSystemDM;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  iLoop:integer;
  strSql:string;
  iNo,iName:string;
  iStreet:integer;
  iAdd:string;
begin
  for iLoop:=301 to 600 do
  begin
    iNo:=inttostr(iLoop);
    iName:='1202';
    iStreet:=4;
    iAdd:='6号-------';
    strSql:='insert into Company(Id,PoliceHouse) values(' + iNo + ',' + iName + ')';
    systemDM.Glb_BasicDataOperate.blnExecuteSQL(strSql);
  end;
  ShowMessage('aaa');
end;

end.