|
|
@@ -0,0 +1,421 @@
|
|
|
+unit RealICQUserCardMore;
|
|
|
+
|
|
|
+interface
|
|
|
+
|
|
|
+uses
|
|
|
+ SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Graphics, Forms,ShellAPI, Windows,
|
|
|
+ RealICQUIColor, RealICQColors, RealICQRoundBorderPanel, RealICQModel;
|
|
|
+
|
|
|
+type
|
|
|
+ TRealICQUserCardMore = class(TRealICQRoundBorderPanel)
|
|
|
+ private
|
|
|
+ FEdPos,
|
|
|
+ FEdTrueName,
|
|
|
+ FEdCompany,
|
|
|
+ FEdBranch,
|
|
|
+ FEdDuty,
|
|
|
+ FEdTel,
|
|
|
+ FEdMobile,
|
|
|
+ FEdShortMobile,
|
|
|
+ FEdEmail: TEdit;
|
|
|
+
|
|
|
+ FLblCompany,
|
|
|
+ FLblBranch,
|
|
|
+ FLblDuty,
|
|
|
+ FLblTel,
|
|
|
+ FLblMobile,
|
|
|
+ FLblShortMobile,
|
|
|
+ FLblEmail: TLabel;
|
|
|
+
|
|
|
+ FShowMore: Boolean;
|
|
|
+ FIsSecret: Boolean;
|
|
|
+ FProductType: TRealICQProductType;
|
|
|
+ FUserType: TRealICQUserType;
|
|
|
+ FRealICQUser: TRealICQUser;
|
|
|
+
|
|
|
+ procedure SetControl(LB: TLabel; ED: TEdit; Value: String);
|
|
|
+ procedure SetCaption;
|
|
|
+ procedure Caption_Default;
|
|
|
+ procedure Caption_NXSQ;
|
|
|
+ procedure Caption_LBZQ;
|
|
|
+ procedure SetContent;
|
|
|
+ procedure Content_Default;
|
|
|
+ procedure Content_NXSQ;
|
|
|
+ procedure Content_LBZQ;
|
|
|
+ procedure SetRealICQUser(Value: TRealICQUser);
|
|
|
+ function GetCopyRight: String;
|
|
|
+
|
|
|
+ public
|
|
|
+ constructor Create(AOwner: TComponent); override;
|
|
|
+ destructor Destroy; override;
|
|
|
+ procedure ChangeUIColor(AColor: TColor);
|
|
|
+ property ProductType: TRealICQProductType read FProductType write FProductType;
|
|
|
+ property IsSecret: Boolean read FIsSecret write FIsSecret;
|
|
|
+ property RealICQUser: TRealICQUser read FRealICQUser write SetRealICQUser;
|
|
|
+ published
|
|
|
+ property CopyRight: String read GetCopyRight;
|
|
|
+ property Font;
|
|
|
+ property Align;
|
|
|
+ property Anchors;
|
|
|
+ end;
|
|
|
+
|
|
|
+ procedure Register;
|
|
|
+
|
|
|
+implementation
|
|
|
+
|
|
|
+var
|
|
|
+ IsInit: Boolean;
|
|
|
+ VS, HS: Integer;
|
|
|
+
|
|
|
+function TRealICQUserCardMore.GetCopyRight: String;
|
|
|
+begin
|
|
|
+ Result := '版权所有(C) 2002-2016 浙江万赛软件科技有限公司 保留所有权利。';
|
|
|
+end;
|
|
|
+
|
|
|
+constructor TRealICQUserCardMore.Create(AOwner: TComponent);
|
|
|
+var
|
|
|
+ i: Integer;
|
|
|
+begin
|
|
|
+ inherited Create(AOwner);
|
|
|
+ DoubleBuffered := True;
|
|
|
+ BevelInner := bvNone;
|
|
|
+ BevelOuter := bvNone;
|
|
|
+ ParentColor := True;
|
|
|
+ //放置光标
|
|
|
+ FEdPos := TEdit.Create(Self);
|
|
|
+ FEdPos.BorderStyle := bsNone;
|
|
|
+ FEdPos.Font := Font;
|
|
|
+ FEdPos.Font.Size := 9;
|
|
|
+ FEdPos.Left := -9;
|
|
|
+ FEdPos.Top := -9;
|
|
|
+ FEdPos.Width := 9;
|
|
|
+ FEdPos.Height := 9;
|
|
|
+
|
|
|
+ Width := 96;
|
|
|
+ VS := 5;
|
|
|
+ HS := 3;
|
|
|
+
|
|
|
+ FEdTrueName := TEdit.Create(Self);
|
|
|
+ FEdTrueName.BorderStyle := bsNone;
|
|
|
+ FEdTrueName.Font := Font;
|
|
|
+ FEdTrueName.Font.Color := clBlack;
|
|
|
+ FEdTrueName.Font.Size := 9;
|
|
|
+ FEdTrueName.Font.Style := [fsBold];
|
|
|
+ FEdTrueName.Anchors := [akLeft, akTop, akRight];
|
|
|
+ FEdTrueName.AutoSize:= True;
|
|
|
+ FEdTrueName.ReadOnly := True;
|
|
|
+ FEdTrueName.ShowHint := True;
|
|
|
+ FEdTrueName.ParentColor := True;
|
|
|
+ FEdTrueName.Color := BackColor;
|
|
|
+ FEdTrueName.Left := VS;
|
|
|
+ FEdTrueName.Top := HS;
|
|
|
+ FEdTrueName.Width := Width - 10;
|
|
|
+ HS := FEdTrueName.Height + 3;
|
|
|
+
|
|
|
+ FLblCompany := TLabel.Create(Self);
|
|
|
+ FEdCompany := TEdit.Create(Self);
|
|
|
+ FLblBranch := TLabel.Create(Self);
|
|
|
+ FEdBranch := TEdit.Create(Self);
|
|
|
+ FLblDuty := TLabel.Create(Self);
|
|
|
+ FEdDuty := TEdit.Create(Self);
|
|
|
+ FLblTel := TLabel.Create(Self);
|
|
|
+ FEdTel := TEdit.Create(Self);
|
|
|
+ FLblMobile := TLabel.Create(Self);
|
|
|
+ FEdMobile := TEdit.Create(Self);
|
|
|
+ FLblShortMobile := TLabel.Create(Self);
|
|
|
+ FEdShortMobile := TEdit.Create(Self);
|
|
|
+ FLblEmail := TLabel.Create(Self);
|
|
|
+ FEdEmail := TEdit.Create(Self);
|
|
|
+
|
|
|
+ for i := 0 to Self.Componentcount - 1 do
|
|
|
+ begin
|
|
|
+ if (Self.Components[i] is TEdit) then
|
|
|
+ begin
|
|
|
+ (Self.Components[i] as TEdit).Parent := Self;
|
|
|
+ end;
|
|
|
+ if (Self.Components[i] is TLabel) then
|
|
|
+ begin
|
|
|
+ (Self.Components[i] as TLabel).Parent := Self;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ IsInit := True;
|
|
|
+ FProductType := ptBGZS;
|
|
|
+ FUserType := utUnknown;
|
|
|
+ SetCaption;
|
|
|
+ Height := HS + 3;
|
|
|
+ IsInit := False;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.SetControl(LB: TLabel; ED: TEdit; Value: String);
|
|
|
+begin
|
|
|
+ if IsInit then
|
|
|
+ begin
|
|
|
+ LB.AutoSize := True;
|
|
|
+ LB.Transparent := True;
|
|
|
+ LB.Font := Font;
|
|
|
+ LB.Font.Color := clGray;
|
|
|
+ LB.Font.Size := 9;
|
|
|
+ LB.Anchors := [akLeft, akTop];
|
|
|
+ LB.Caption := Value;
|
|
|
+ LB.Color := BackColor;
|
|
|
+ LB.Left := VS;
|
|
|
+ LB.Top := HS;
|
|
|
+
|
|
|
+ ED.BorderStyle := bsNone;
|
|
|
+ ED.Font := Font;
|
|
|
+ ED.Font.Color := clBlack;
|
|
|
+ ED.Font.Size := 9;
|
|
|
+ ED.Anchors := [akLeft, akTop, akRight];
|
|
|
+ ED.ParentColor := True;
|
|
|
+ ED.Color := BackColor;
|
|
|
+ ED.ReadOnly := True;
|
|
|
+ ED.Left := LB.Left + LB.Width + 3;
|
|
|
+ ED.Top := LB.Top;
|
|
|
+ ED.Width := Width - LB.Width - 10;
|
|
|
+
|
|
|
+ HS := HS + LB.Height + 6;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ LB.Caption := Value;
|
|
|
+ ED.Left := LB.Left + LB.Width + 3;
|
|
|
+ ED.Width := Width - LB.Width - 10;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.SetCaption;
|
|
|
+begin
|
|
|
+ case FProductType of
|
|
|
+ ptBGZS:
|
|
|
+ Caption_Default;
|
|
|
+ ptNXSQ:
|
|
|
+ if (FUserType = utUnknown) OR (FUserType = utCompany) then
|
|
|
+ Caption_NXSQ
|
|
|
+ else
|
|
|
+ Caption_Default;
|
|
|
+ ptLBZQ:
|
|
|
+ if (FUserType = utUnknown) OR (FUserType = utCompany) then
|
|
|
+ Caption_LBZQ
|
|
|
+ else
|
|
|
+ Caption_Default;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.Caption_Default;
|
|
|
+begin
|
|
|
+ SetControl(FLblCompany, FEdCompany, '单位:');
|
|
|
+ SetControl(FLblBranch, FEdBranch, '处室:');
|
|
|
+ SetControl(FLblDuty, FEdDuty, '职务:');
|
|
|
+ SetControl(FLblTel, FEdTel, '电话:');
|
|
|
+ SetControl(FLblMobile, FEdMobile, '手机:');
|
|
|
+ SetControl(FLblShortMobile, FEdShortMobile, '短号:');
|
|
|
+ SetControl(FLblEmail, FEdEmail, '邮箱:');
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.Caption_NXSQ;
|
|
|
+begin
|
|
|
+ SetControl(FLblCompany, FEdCompany, '代码:');
|
|
|
+ SetControl(FLblBranch, FEdBranch, '行业:'); //Industry
|
|
|
+ SetControl(FLblDuty, FEdDuty, '主管:'); //TaxOffices
|
|
|
+ SetControl(FLblTel, FEdTel, '涉税:'); //TaxAgent
|
|
|
+ SetControl(FLblMobile, FEdMobile, '办公:'); //OfficePhone
|
|
|
+ SetControl(FLblShortMobile, FEdShortMobile, '财务:'); //FinancialPhone
|
|
|
+ SetControl(FLblEmail, FEdEmail, '法人:'); //LegalPersonPhone
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.Caption_LBZQ;
|
|
|
+begin
|
|
|
+ SetControl(FLblCompany, FEdCompany, '代码:');
|
|
|
+ SetControl(FLblBranch, FEdBranch, '行业:'); //Industry
|
|
|
+ SetControl(FLblDuty, FEdDuty, '主管:'); //TaxOffices
|
|
|
+ SetControl(FLblTel, FEdTel, '联络:'); //TaxAgent
|
|
|
+ SetControl(FLblMobile, FEdMobile, '办公:'); //OfficePhone
|
|
|
+ SetControl(FLblShortMobile, FEdShortMobile, '财务:'); //FinancialPhone
|
|
|
+ SetControl(FLblEmail, FEdEmail, '法人:'); //LegalPersonPhone
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.SetContent;
|
|
|
+begin
|
|
|
+ case FProductType of
|
|
|
+ ptBGZS:
|
|
|
+ Content_Default;
|
|
|
+ ptNXSQ:
|
|
|
+ if (FUserType = utUnknown) OR (FUserType = utCompany) then
|
|
|
+ Content_NXSQ
|
|
|
+ else
|
|
|
+ Content_Default;
|
|
|
+ ptLBZQ:
|
|
|
+ if (FUserType = utUnknown) OR (FUserType = utCompany) then
|
|
|
+ Content_LBZQ
|
|
|
+ else
|
|
|
+ Content_Default;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.Content_Default;
|
|
|
+begin
|
|
|
+ FEdBranch.ShowHint := False;
|
|
|
+ FEdDuty.ShowHint := False;
|
|
|
+ FEdEmail.ShowHint := True;
|
|
|
+
|
|
|
+ if Trim(FRealICQUser.TrueName) = '' then
|
|
|
+ FEdTrueName.Text := FRealICQUser.DisplayName
|
|
|
+ else
|
|
|
+ FEdTrueName.Text := FRealICQUser.TrueName;
|
|
|
+ FEdTrueName.ShowHint := True;
|
|
|
+ FEdTrueName.Hint := FEdTrueName.Text;
|
|
|
+
|
|
|
+ FEdCompany.Text := FRealICQUser.Company;
|
|
|
+ FEdBranch.Text := FRealICQUser.Branch;
|
|
|
+ FEdDuty.Text := FRealICQUser.Duty;
|
|
|
+
|
|
|
+ if FIsSecret then
|
|
|
+ begin
|
|
|
+ FEdTel.Text := FRealICQUser.Tel;
|
|
|
+ FEdMobile.Text := FRealICQUser.Mobile;
|
|
|
+ FEdShortMobile.Text := FRealICQUser.ShortMobile;
|
|
|
+ FEdEmail.Text := FRealICQUser.Email;
|
|
|
+ FEdEmail.Hint := FEdEmail.Text;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ FEdEmail.ShowHint := False;
|
|
|
+ if Trim(FEdTel.Text) <> '' then FEdTel.Text :='******';
|
|
|
+ if Trim(FEdMobile.Text) <> '' then FEdMobile.Text := '******';
|
|
|
+ if Trim(FEdShortMobile.Text) <> '' then FEdShortMobile.Text := '******';
|
|
|
+ if Trim(FEdEmail.Text) <> '' then FEdEmail.Text := '******';
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.Content_NXSQ;
|
|
|
+begin
|
|
|
+ FEdBranch.ShowHint := True;
|
|
|
+ FEdDuty.ShowHint := True;
|
|
|
+ FEdEmail.ShowHint := False;
|
|
|
+
|
|
|
+ if Trim(FRealICQUser.Enterprise) = '' then
|
|
|
+ FEdTrueName.Text := FRealICQUser.DisplayName
|
|
|
+ else
|
|
|
+ FEdTrueName.Text := FRealICQUser.Enterprise;
|
|
|
+ FEdTrueName.ShowHint := True;
|
|
|
+ FEdTrueName.Hint := FEdTrueName.Text;
|
|
|
+
|
|
|
+ FEdCompany.Text := FRealICQUser.SocialCreditCode;
|
|
|
+ FEdBranch.Text := FRealICQUser.Industry;
|
|
|
+ FEdBranch.Hint := FEdBranch.Text;
|
|
|
+
|
|
|
+ FEdDuty.Text := FRealICQUser.TaxOffices;
|
|
|
+ FEdDuty.Hint := FEdDuty.Text;
|
|
|
+
|
|
|
+ if FIsSecret then
|
|
|
+ begin
|
|
|
+ FEdTel.Text := FRealICQUser.TaxAgent;
|
|
|
+ FEdMobile.Text := FRealICQUser.OfficePhone;
|
|
|
+ FEdShortMobile.Text := FRealICQUser.FinancialPhone;
|
|
|
+ FEdEmail.Text := FRealICQUser.LegalPersonPhone;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if Trim(FEdTel.Text) <> '' then FEdTel.Text := '******';
|
|
|
+ if Trim(FEdMobile.Text) <> '' then FEdMobile.Text := '******';
|
|
|
+ if Trim(FEdShortMobile.Text) <> '' then FEdShortMobile.Text := '******';
|
|
|
+ if Trim(FEdEmail.Text) <> '' then FEdEmail.Text := '******';
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.Content_LBZQ;
|
|
|
+begin
|
|
|
+ FEdBranch.ShowHint := True;
|
|
|
+ FEdDuty.ShowHint := True;
|
|
|
+ FEdEmail.ShowHint := False;
|
|
|
+
|
|
|
+ if Trim(FRealICQUser.Enterprise) = '' then
|
|
|
+ FEdTrueName.Text := FRealICQUser.DisplayName
|
|
|
+ else
|
|
|
+ FEdTrueName.Text := FRealICQUser.Enterprise;
|
|
|
+ FEdTrueName.Hint := FEdTrueName.Text;
|
|
|
+
|
|
|
+ FEdCompany.Text := FRealICQUser.SocialCreditCode;
|
|
|
+ FEdBranch.Text := FRealICQUser.Industry;
|
|
|
+ FEdBranch.Hint := FEdBranch.Text;
|
|
|
+
|
|
|
+ FEdDuty.Text := FRealICQUser.TaxOffices;
|
|
|
+ FEdDuty.Hint := FEdDuty.Text;
|
|
|
+
|
|
|
+ if FIsSecret then
|
|
|
+ begin
|
|
|
+ FEdTel.Text := FRealICQUser.TaxAgent;
|
|
|
+ FEdMobile.Text := FRealICQUser.OfficePhone;
|
|
|
+ FEdShortMobile.Text := FRealICQUser.FinancialPhone;
|
|
|
+ FEdEmail.Text := FRealICQUser.LegalPersonPhone;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if Trim(FEdTel.Text) <> '' then FEdTel.Text := '******';
|
|
|
+ if Trim(FEdMobile.Text) <> '' then FEdMobile.Text := '******';
|
|
|
+ if Trim(FEdShortMobile.Text) <> '' then FEdShortMobile.Text := '******';
|
|
|
+ if Trim(FEdEmail.Text) <> '' then FEdEmail.Text := '******';
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.SetRealICQUser(Value: TRealICQUser);
|
|
|
+begin
|
|
|
+ FRealICQUser := Value;
|
|
|
+ if Assigned(FRealICQUser) then
|
|
|
+ begin
|
|
|
+ if FUserType <> FRealICQUser.UserType then
|
|
|
+ begin
|
|
|
+ FUserType := FRealICQUser.UserType;
|
|
|
+ SetCaption;
|
|
|
+ end;
|
|
|
+ SetContent;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TRealICQUserCardMore.ChangeUIColor(AColor: TColor);
|
|
|
+var
|
|
|
+ i: Integer;
|
|
|
+begin
|
|
|
+ inherited ChangeUIColor(AColor);
|
|
|
+ BackColor := AColor;
|
|
|
+ BorderColor := AColor;
|
|
|
+ for i := 0 to Self.Componentcount - 1 do
|
|
|
+ begin
|
|
|
+ if Self.Components[i] is TEdit then
|
|
|
+ begin
|
|
|
+ (Self.Components[i] as TEdit).Color := AColor;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+destructor TRealICQUserCardMore.Destroy;
|
|
|
+begin
|
|
|
+ try
|
|
|
+ FreeAndNil(FEdTrueName);
|
|
|
+ FreeAndNil(FEdBranch);
|
|
|
+ FreeAndNil(FEdDuty);
|
|
|
+ FreeAndNil(FEdCompany);
|
|
|
+ FreeAndNil(FEdTel);
|
|
|
+ FreeAndNil(FEdMobile);
|
|
|
+ FreeAndNil(FEdShortMobile);
|
|
|
+ FreeAndNil(FEdEmail);
|
|
|
+
|
|
|
+ FreeAndNil(FLblBranch);
|
|
|
+ FreeAndNil(FLblDuty);
|
|
|
+ FreeAndNil(FLblCompany);
|
|
|
+ FreeAndNil(FLblTel);
|
|
|
+ FreeAndNil(FLblMobile);
|
|
|
+ FreeAndNil(FLblShortMobile);
|
|
|
+ FreeAndNil(FLblEmail);
|
|
|
+ except
|
|
|
+ end;
|
|
|
+ inherited Destroy;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure Register;
|
|
|
+begin
|
|
|
+ RegisterComponents('RealICQ UI', [TRealICQUserCardMore]);
|
|
|
+end;
|
|
|
+
|
|
|
+end.
|
