uphoto.pas

基于OOP设计的一套较好的ERP系统

unit uPhoto;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActnList, ImgList, ToolWin, ComCtrls, StdCtrls, OleCtrls,
  ExtCtrls, Db, DBCtrls, Mask, clipbrd, ExtDlgs, Jpeg, Menus;

type
  TFoto_form = class(TForm)
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ActionList1: TActionList;
    Chiudi: TAction;
    Importa: TAction;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Panel1: TPanel;
    dsFoto: TDataSource;
    Label3: TLabel;
    Pagine: TPageControl;
    Piccola: TTabSheet;
    Media: TTabSheet;
    Grande: TTabSheet;
    Copia: TAction;
    Incolla: TAction;
    DBImage1: TDBImage;
    DBImage2: TDBImage;
    Splitter1: TSplitter;
    DBImage3: TDBImage;
    Splitter2: TSplitter;
    Splitter3: TSplitter;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    ToolButton1: TToolButton;
    OpenPictureDialog1: TOpenPictureDialog;
    ScegliFileDaImportare: TOpenPictureDialog;
    DBRichEdit1: TDBRichEdit;
    DBRichEdit2: TDBRichEdit;
    DBRichEdit3: TDBRichEdit;
    Pulisci: TAction;
    ToolButton5: TToolButton;
    DBNavigator1: TDBNavigator;
    procedure ChiudiExecute(Sender: TObject);
    procedure CopiaExecute(Sender: TObject);
    procedure IncollaExecute(Sender: TObject);
    procedure ImportaExecute(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
    procedure DBImage2Click(Sender: TObject);
    procedure DBImage3Click(Sender: TObject);
    procedure PulisciExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Foto_form: TFoto_form;

implementation

uses ana_mod;

{$R *.DFM}

procedure TFoto_form.ChiudiExecute(Sender: TObject);
begin
 If (ModuloDatiAnagrafiche.TTarticoli.state = dsEdit) or
    (ModuloDatiAnagrafiche.TTArticoli.state = dsInsert) then
    If MessageDlg('Salvare le modifiche ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
       ModuloDatiAnagrafiche.TTArticoli.Post ;
 release ;
end;

procedure TFoto_form.CopiaExecute(Sender: TObject);
begin
 if Pagine.ActivePage = Piccola then
  begin
   DbImage1.CopyToClipboard ;
  end ;
 if Pagine.ActivePage = Media then
  begin
   DbImage2.CopyToClipboard ;
  end ;
 if Pagine.ActivePage = Grande then
  begin
   DbImage3.CopyToClipboard ;
  end ;

end;

procedure TFoto_form.IncollaExecute(Sender: TObject);
begin
  ModuloDatiAnagrafiche.TTArticoli.Edit ;
  Try
   if Pagine.ActivePage = Piccola then
    begin
     DbImage1.PasteFromClipboard ;
    end ;
   if Pagine.ActivePage = Media then
    begin
     DbImage2.PasteFromClipboard ;
    end ;
   if Pagine.ActivePage = Grande then
    begin
     DbImage3.PasteFromClipboard ;
    end ;
  except
   ShowMessage('Impossibile incollare, probabilmente il formato degli appunti non