easyboot的专栏

procedure TForm1.Button1Click(Sender: TObject); var x:Integer; begin with ADOStoredProc1 do begin ProcedureName := 'My_Test'; Parameters.Clear; Parameters.CreateParameter(

with DMsql.qry do begin Close; SQL.Clear; SQL.Add(' exec Insert_Equipment ' + ' :EquipmentID,:PanelID,:PicFileName'); Parameters.ParamByName('EquipmentID').Value :=

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls; type TForm1 = class(TForm) Button1: TButton; btn1: