Class TForm1 (unit DbUnit)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

sp.

procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure ButtonNextClick(Sender: TObject);

sp := TSDStoredProc.

procedure ButtonPriorClick(Sender: TObject);

if not sp.

procedure FormCreate(Sender: TObject);

(Q.

procedure LoadBitmapFromDB;

Q.

procedure SaveBitmapInDB;

Public declarations

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


ButtonNext : TButton;


ButtonPrior : TButton;


Edit1 : TEdit;


Image1 : TImage;


sp : TSDStoredProc;

Private declarations


Constructors


Functions


procedure Button1Click(Sender: TObject);

sp.Prior; Edit1.Text := sp.Fields[0].AsString;} { sp.ParamByName('nParentKnot').AsInteger := 12; sp.Open; s := sp.FieldByName('sNameKnot').AsString; sp.Close;


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure ButtonNextClick(Sender: TObject);

sp := TSDStoredProc.Create(nil); sp.DatabaseName := 'TEST'; sp.StoredProcName := 'DWADM.INSERT_INF_KNOT'; try sp.Params.CreateParam(ftSqlInteger, 'nKnotID', ptSqlInputOutput); sp.Params.CreateParam(ftSqlString, 'sKnotName', ptSqlInput); sp.Params.CreateParam(ftSqlString, 'sDescribe', ptSqlInput); sp.Params.CreateParam(ftSqlInteger, 'nRubric', ptSqlInputOutput); sp.Params.CreateParam(ftSqlInteger, 'nPKnotID', ptSqlInput); sp.Params.CreateParam(ftSqlDateTime, 'dtModifyDate', ptSqlInputOutput); sp.Params.CreateParam(ftSqlInteger, 'nMode', ptSqlInput); sp.Params[0].AsInteger := 0; sp.Params[1].AsString := 'fcigyuoui'; sp.Params[2].AsString := 'tdjuykkkkkku'; sp.Params[3].AsInteger := 0; sp.Params[4].AsInteger := 0; sp.Params[5].AsDateTime := Now; sp.Params[6].AsInteger := 0; sp.Open; if not sp.EOF then begin i := sp.Fields[0].AsInteger; i := sp.Fields[1].AsInteger; s := sp.Fields[2].AsString; end; db.Commit; finally sp.Free; end; } { Q.SQL.Add('insert into AAA(A,B,C) values(:1,:2, :3)'); Q.Params[0].AsInteger := 10; Q.Params[1].AsString := 'aaaaaa'; Q.Params[2].AsDateTime := Now; Q.ExecSQL; db.Commit;


procedure ButtonPriorClick(Sender: TObject);

if not sp.EOF then begin sp.Next; s := sp.FieldByName('sNameKnot').AsString; Edit1.Text := s; end;


procedure FormCreate(Sender: TObject);

(Q.Fields[2] as TSqlBlobField).SaveToFile('e:\1.bmp');


procedure LoadBitmapFromDB;

Q.Params[0].LoadFromFile('e:\clouds.bmp');


procedure SaveBitmapInDB;

Public declarations


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


ButtonNext : TButton;


ButtonPrior : TButton;


Edit1 : TEdit;


Image1 : TImage;


sp : TSDStoredProc;

Private declarations