uimage_in.pas

青年文明号管理系统

unit Uimage_in;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dxCntner, dxExEdtr, dxEdLib, dxDBELib, Mask,
  DBCtrls, XPMenu, ExtCtrls, IEOpenSaveDlg, Menus;

type
  Timage_in = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    XPMenu1: TXPMenu;
    Image1: TImage;
    OpenDialog1: TOpenImageEnDialog;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Panel1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  image_in: Timage_in;

implementation

uses Udm, u_vardef;

{$R *.dfm}

procedure Timage_in.FormShow(Sender: TObject);
var
vxh:integer;
begin
dm.t_image.Append;
dm.t_image.edit;
dm.t_image['dwbh']:=dm.v_sbb['dwbh'];
dm.tmp.SQL.Text:='select max(xh) from t_image where dwbh='''+ dm.v_sbb['dwbh']+'''';
dm.tmp.Open;
vxh:=dm.tmp.Fields[0].AsInteger;
dm.t_image['xh']:=vxh+1;
end;

procedure Timage_in.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter:='WORD文档(*.jpg)|*.jpg';{从对话窗选择文件}
  if OpenDialog1.Execute then 
    image1.Picture.LoadFromFile(OpenDialog1.FileName);
dm.t_image.FieldByName('image').Assign(image1.Picture.Graphic);


end;

procedure Timage_in.BitBtn1Click(Sender: TObject);
begin
  saveq(dm.t_image);
end;

procedure Timage_in.N1Click(Sender: TObject);
begin
  OpenDialog1.Filter:='WORD文档(*.jpg)|*.jpg';{从对话窗选择文件}
  if OpenDialog1.Execute then 
    image1.Picture.LoadFromFile(OpenDialog1.FileName);
dm.t_image.FieldByName('image').Assign(image1.Picture.Graphic);


end;

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

end.