unit_bmp1.pas

来自「一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件」· PAS 代码 · 共 78 行

unit Unit_BMP1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, DB, DBTables, ExtDlgs, StdCtrls, Buttons, ExtCtrls,
  ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    OpenPictureDialog1: TOpenPictureDialog;
    Table1: TTable;
    DataSource1: TDataSource;
    Panel2: TPanel;
    DBImage1: TDBImage;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    Image1: TImage;
    Table1A1: TStringField;
    Table1A2: TBlobField;
    procedure BitBtn1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var filename:string;
begin
   OpenPictureDialog1.filter:='Bitmap file(*.bmp)|*.bmp';
   OpenPictureDialog1.execute;
   filename:=OpenPictureDialog1.FileName;
   if filename='' then
      begin
      showmessage('没有选择图象，重新选择');
      exit;
      end;
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   Edit1.Text := OpenPictureDialog1.FileName;      //数据录入
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
   if pagecontrol1.TabIndex=0 then
      begin
      table1.Close;
      table1.Open;
      end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   Table1.append;
   Table1.FieldByName('A1').asstring :=OpenPictureDialog1.FileName;
   Table1A2.LoadFromFile(OpenPictureDialog1.FileName);
   Table1.Post;
   showmessage('图片已经保存');
end;

end.