main.pas

ODAC 5.7.0.28

unit Main;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids,
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, ExtDlgs,
{$ENDIF}
  Db;

type
  TfmMain = class(TForm)
    DBGrid: TDBGrid;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    btDrop: TButton;
    btCreate: TButton;
    ToolBar1: TPanel;
    btLoad: TButton;
    Splitter1: TSplitter;
    btSave: TButton;
    ScrollBox1: TScrollBox;
    DBImage: TDBImage;
    btClear: TButton;
    cbUseNet: TCheckBox;
    cbDebug: TCheckBox;
    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);
    procedure FormShow(Sender: TObject);
    procedure cbUseNetClick(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation
uses
  Data, OraCall;

{$R *.nfm}

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);
begin
{$IFDEF LINUX}
  with TOpenDialog.Create(nil) do
{$ELSE}
  with TOpenPictureDialog.Create(nil) do
{$ENDIF}
    try
      InitialDir := '.';
      if Execute then begin
        if dmData.quPictures.State in [dsBrowse] then
          dmData.quPictures.Edit;
        TBlobField(dmData.quPictures.FieldByName('Picture')).
          LoadFromFile(FileName);
      end;
    finally
      Free;
    end;
end;

procedure TfmMain.btSaveClick(Sender: TObject);
begin
{$IFDEF LINUX}
  with TSaveDialog.Create(nil) do
{$ELSE}
  with TSavePictureDialog.Create(nil) do
{$ENDIF}
    try
      InitialDir := '.';    
      if Execute then begin
        TBlobField(dmData.quPictures.FieldByName('Picture')).
          SaveToFile(FileName);
      end;
    finally
      Free;
    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;

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbUseNet.Checked := dmData.OraSession.Options.Net;
  cbDebug.Checked := dmData.quPictures.Debug;
end;

procedure TfmMain.cbUseNetClick(Sender: TObject);
begin
  dmData.OraSession.Options.Net := cbUseNet.Checked;
end;

procedure TfmMain.cbDebugClick(Sender: TObject);
begin
  dmData.quPictures.Debug := cbDebug.Checked;
  dmData.sqCreateTable.Debug := cbDebug.Checked;
  dmData.sqDropTable.Debug := cbDebug.Checked;
end;

end.