192 lines
6.6 KiB
ObjectPascal
192 lines
6.6 KiB
ObjectPascal
unit uViewContacto;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
|
DBCtrls, Grids, DBGrids, uBizContactos, Mask, ComCtrls, uCustomView,
|
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
|
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit,
|
|
ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces;
|
|
|
|
type
|
|
IViewContacto = interface(IViewBase)
|
|
['{5FCFD172-5F8A-4639-B479-1CF0061526B5}']
|
|
function GetContacto: IBizContacto;
|
|
procedure SetContacto(const Value: IBizContacto);
|
|
property Contacto: IBizContacto read GetContacto write SetContacto;
|
|
end;
|
|
|
|
TfrViewContacto = class(TfrViewBase, IViewContacto)
|
|
dsContacto: TDADataSource;
|
|
dxLayoutControlContactoGroup_Root: TdxLayoutGroup;
|
|
dxLayoutControlContacto: TdxLayoutControl;
|
|
dxLayoutControlContactoGroup1: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup2: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup3: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup4: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup5: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup6: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup7: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup9: TdxLayoutGroup;
|
|
dxLayoutControlContactoItem1: TdxLayoutItem;
|
|
eCalle: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem2: TdxLayoutItem;
|
|
eProvincia: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem3: TdxLayoutItem;
|
|
ePoblacion: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem4: TdxLayoutItem;
|
|
eCodigoPostal: TcxDBTextEdit;
|
|
dxLayoutControlContactoGroup8: TdxLayoutGroup;
|
|
eObservaciones: TcxDBMemo;
|
|
dxLayoutControlContactoItem8: TdxLayoutItem;
|
|
dxLayoutControlContactoItem9: TdxLayoutItem;
|
|
eTlfParticular: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem10: TdxLayoutItem;
|
|
eTlfTrabajo: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem11: TdxLayoutItem;
|
|
eTlfMovil: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem12: TdxLayoutItem;
|
|
eFax: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem13: TdxLayoutItem;
|
|
eNombre: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem14: TdxLayoutItem;
|
|
eNIFCIF: TcxDBTextEdit;
|
|
dxLayoutControlContactoItem7: TdxLayoutItem;
|
|
eMailTrabajo: TcxDBHyperLinkEdit;
|
|
ActionList1: TActionList;
|
|
actMandarCorreoParticular: TAction;
|
|
actMandarCorreoTrabajo: TAction;
|
|
actVerPaginaWeb: TAction;
|
|
dxLayoutControlContactoItem6: TdxLayoutItem;
|
|
eMailParticular: TcxDBHyperLinkEdit;
|
|
dxLayoutControlContactoGroup110: TdxLayoutGroup;
|
|
dxLayoutControlContactoItem5: TdxLayoutItem;
|
|
ePaginaWeb: TcxDBHyperLinkEdit;
|
|
ImageList1: TPngImageList;
|
|
PngSpeedButton1: TPngSpeedButton;
|
|
dxLayoutControlContactoItem15: TdxLayoutItem;
|
|
PngSpeedButton2: TPngSpeedButton;
|
|
dxLayoutControlContactoItem17: TdxLayoutItem;
|
|
PngSpeedButton3: TPngSpeedButton;
|
|
dxLayoutControlContactoItem18: TdxLayoutItem;
|
|
dxLayoutControlContactoGroup12: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup13: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup11: TdxLayoutGroup;
|
|
dxLayoutControlContactoItem25: TdxLayoutItem;
|
|
eReferencia: TcxDBTextEdit;
|
|
dxLayoutControlContactoGroup16: TdxLayoutGroup;
|
|
dxLayoutControlContactoItem167: TdxLayoutItem;
|
|
ePersonaContacto: TcxDBTextEdit;
|
|
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
|
procedure actMandarCorreoParticularExecute(Sender: TObject);
|
|
procedure actMandarCorreoTrabajoExecute(Sender: TObject);
|
|
procedure actVerPaginaWebExecute(Sender: TObject);
|
|
procedure actMandarCorreoParticularUpdate(Sender: TObject);
|
|
procedure actMandarCorreoTrabajoUpdate(Sender: TObject);
|
|
procedure actVerPaginaWebUpdate(Sender: TObject);
|
|
procedure eMailTrabajoPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
protected
|
|
FContacto: IBizContacto;
|
|
function GetContacto: IBizContacto; virtual;
|
|
procedure SetContacto(const Value: IBizContacto); virtual;
|
|
public
|
|
constructor Create(AOwner : TComponent); override;
|
|
property Contacto: IBizContacto read GetContacto write SetContacto;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
type
|
|
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
|
|
|
|
{ TfrViewContactos }
|
|
|
|
{
|
|
******************************* TfrViewContacto ********************************
|
|
}
|
|
procedure TfrViewContacto.actMandarCorreoParticularExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
THackcxDBHyperLinkEdit(eMailParticular).DoStart;
|
|
end;
|
|
|
|
procedure TfrViewContacto.actMandarCorreoParticularUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (Length(eMailParticular.Text) > 0)
|
|
end;
|
|
|
|
procedure TfrViewContacto.actMandarCorreoTrabajoExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
THackcxDBHyperLinkEdit(eMailTrabajo).DoStart;
|
|
end;
|
|
|
|
procedure TfrViewContacto.actMandarCorreoTrabajoUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (Length(eMailTrabajo.Text) > 0)
|
|
end;
|
|
|
|
procedure TfrViewContacto.actVerPaginaWebExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
THackcxDBHyperLinkEdit(ePaginaWeb).DoStart;
|
|
end;
|
|
|
|
procedure TfrViewContacto.actVerPaginaWebUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
|
|
end;
|
|
|
|
constructor TfrViewContacto.Create(AOwner : TComponent);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrViewContacto.eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if not VarIsNull((Sender as TcxDBHyperLinkEdit).EditValue) then
|
|
(Sender as TcxDBHyperLinkEdit).EditValue := StringReplace((Sender as TcxDBHyperLinkEdit).EditValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
|
end;
|
|
|
|
procedure TfrViewContacto.eMailTrabajoPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
begin
|
|
inherited;
|
|
if not VarIsNull(DisplayValue) then
|
|
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
|
end;
|
|
|
|
function TfrViewContacto.GetContacto: IBizContacto;
|
|
begin
|
|
Result := FContacto;
|
|
end;
|
|
|
|
procedure TfrViewContacto.SetContacto(const Value: IBizContacto);
|
|
begin
|
|
FContacto := Value;
|
|
if Assigned(FContacto) then
|
|
begin
|
|
dsContacto.DataTable := FContacto.DataTable;
|
|
end
|
|
else begin
|
|
dsContacto.DataTable := NIL;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterClass(TfrViewContacto);
|
|
|
|
finalization
|
|
UnRegisterClass(TfrViewContacto);
|
|
|
|
end.
|
|
|