di_dbblobfield.pas

来自「亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能」· PAS 代码 · 共 75 行

unit DI_DBBlobField;

{
代码单元名称：通用数据登录工具图形字段编辑窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, ExtDlgs, DI_Main;

type
  TDI_DfmDBBlobField = class(TForm)
    DBImage1: TDBImage;
    ShiftButton: TButton;
    CloseButton: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormShow(Sender: TObject);
    procedure CloseButtonClick(Sender: TObject);
    procedure ShiftButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FieldName: string;
    DI_DfmMain: TDI_DfmMain;
    constructor Create(Owner: TComponent; AFieldName: string; var ADI_DfmMain:
      TDI_DfmMain); overload;
  end;

implementation

uses DI_DataModul1;

{$R *.DFM}

{ TDfmDBBlobField }

constructor TDI_DfmDBBlobField.Create(Owner: TComponent; AFieldName: string; var
  ADI_DfmMain: TDI_DfmMain);
begin
  inherited Create(Owner);
  FieldName := AFieldName;
  DI_DfmMain := ADI_DfmMain;
end;

procedure TDI_DfmDBBlobField.FormShow(Sender: TObject);
begin
  DBImage1.DataSource := DI_DfmDataModule1.TTableDataSource;
  DBImage1.DataField := FieldName;
end;

procedure TDI_DfmDBBlobField.CloseButtonClick(Sender: TObject);
var
  DI_DfmMain: TDI_DfmMain;
begin
  DBImage1.DataField := '';
  DI_DfmMain.DI_DfmMain_ActiveBlobNumber :=
    DI_DfmMain.DI_DfmMain_ActiveBlobNumber - 1;
  Close;
end;

procedure TDI_DfmDBBlobField.ShiftButtonClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

end.