main.pas

ODAC+SDAC源代码

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Db, Grids, DBGrids,  StdCtrls, ToolWin,
  ComCtrls, ExtDlgs;

type
  TfmMain = class(TForm)
    DBGrid: TDBGrid;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    btDrop: TButton;
    btCreate: TButton;
    ToolBar1: TToolBar;
    btLoad: TButton;
    OpenPictureDialog: TOpenPictureDialog;
    Splitter1: TSplitter;
    btSave: TButton;
    SavePictureDialog: TSavePictureDialog;
    ScrollBox1: TScrollBox;
    DBImage: TDBImage;
    btClear: TButton;
    ToolButton1: TToolButton;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btCreateClick(Sender: TObject);
    procedure btDropClick(Sender: TObject);
    procedure btLoadClick(Sender: TObject);
    procedure btSaveClick(Sender: TObject);
    procedure btClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation
uses
  Data;

{$R *.DFM}

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  dmData.quPictures.Open;
end;

procedure TfmMain.btCloseClick(Sender: TObject);
begin
  dmData.quPictures.Close;
end;

procedure TfmMain.btCreateClick(Sender: TObject);
begin
  dmData.sqCreateTable.Execute;
end;

procedure TfmMain.btDropClick(Sender: TObject);
begin
  dmData.sqDropTable.Execute;
end;

procedure TfmMain.btLoadClick(Sender: TObject);
var
  BlobField: TBlobField;
  FileName: string;
begin
  if OpenPictureDialog.Execute then begin
    if dmData.quPictures.State in [dsBrowse] then
      dmData.quPictures.Edit;
    BlobField := dmData.quPictures.FieldByName('Picture') as TBlobField;
    FileName := OpenPictureDialog.FileName;
    BlobField.LoadFromFile(FileName);
  end;
end;

procedure TfmMain.btSaveClick(Sender: TObject);
begin
  if SavePictureDialog.Execute then begin
    TBlobField(dmData.quPictures.FieldByName('Picture')).
      SaveToFile(SavePictureDialog.FileName);
  end;
end;

procedure TfmMain.btClearClick(Sender: TObject);
begin
  if dmData.quPictures.State in [dsBrowse] then
    dmData.quPictures.Edit;
  TBlobField(dmData.quPictures.FieldByName('Picture')).Clear;
end;

end.