| Class TForm1 (unit DbUnit) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ButtonNextClick(Sender: TObject);
procedure ButtonPriorClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LoadBitmapFromDB;
procedure SaveBitmapInDB;| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
ButtonNext : TButton;
ButtonPrior : TButton;
Edit1 : TEdit;
Image1 : TImage;
sp : TSDStoredProc;| 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