uimage.~pas

青年文明号管理系统

unit Uimage;

interface

uses
  {Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, ExtCtrls, dxCntner, dxEdLib, dxDBELib, dxTL, dxDBCtrl,
  dxDBGrid, Menus, StdCtrls, Buttons, XPMenu, dxDBTLCl, dxGrClms,db,jpeg;
   }
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dxCntner, dxExEdtr, dxEdLib, dxDBELib, Mask,
  DBCtrls, XPMenu, ExtCtrls, Menus, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl,
  dxDBGrid, ieview, ImageEnView, DBImageEn;
type
  Timage = class(TForm)
    dxDBGrid1: TdxDBGrid;
    Panel1: TPanel;
    Splitter1: TSplitter;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    dxDBGrid1dwbh: TdxDBGridColumn;
    dxDBGrid1xh: TdxDBGridColumn;
    dxDBGrid1ms: TdxDBGridColumn;
    dxDBGrid1image: TdxDBGridBlobColumn;
    dxDBGrid1bz: TdxDBGridColumn;
    ImageEnDBView1: TImageEnDBView;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure dxDBGrid1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  image: Timage;

implementation

uses Udm, Uimage_in, u_vardef;

{$R *.dfm}

procedure Timage.FormShow(Sender: TObject);
begin
dm.t_image.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
dm.t_image.Open;
end;

procedure Timage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.t_image.Close;
end;

procedure Timage.BitBtn1Click(Sender: TObject);
begin
try
    image_in:=timage_in.Create(image_in);
    image_in.showmodal;

finally
    image_in.Free;
    image_in:=nil;
end;
end;

procedure Timage.dxDBGrid1Click(Sender: TObject);
var
ms:tmemorystream;
begin
ms:=tmemorystream.Create;

//(dm.t_image.FieldByName('image') as TBlobField).SaveToStream(ms);
//image1.Picture.Graphic.LoadFromStream(ms);

end;

procedure Timage.BitBtn2Click(Sender: TObject);
begin
delQ(dm.t_image);
end;

end.