ufppreview.pas

安徽省货物销售统一发票管理系统 操作说明 1、开票 F7或双击可 查询

unit Ufppreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jpeg, ExtCtrls, ToolWin, StdCtrls;

type
  Tfrm_fpPreview = class(TForm)
    CoolBar1: TCoolBar;
    StatusBar1: TStatusBar;
    Image1: TImage;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Shape1: TShape;
    lbl_ZF: TLabel;
    lbl_khmc: TLabel;
    lbl_fpcode: TLabel;
    lbl_fpNum: TLabel;
    lbl_CP1: TLabel;
    lbl_GG1: TLabel;
    lbl_DW1: TLabel;
    lbl_SL1: TLabel;
    lbl_DJ1: TLabel;
    lbl_JE1: TLabel;
    lbl_CP2: TLabel;
    lbl_GG2: TLabel;
    lbl_DW2: TLabel;
    lbl_SL2: TLabel;
    lbl_dj2: TLabel;
    lbl_JE2: TLabel;
    lbl_CP3: TLabel;
    lbl_GG3: TLabel;
    lbl_DW3: TLabel;
    lbl_SL3: TLabel;
    lbl_dj3: TLabel;
    lbl_JE3: TLabel;
    lbl_HJJE: TLabel;
    lbl_hjdx: TLabel;
    lbl_TaxNo: TLabel;
    lbl_bankMN: TLabel;
    lbl_dwmc: TLabel;
    lbl_telno: TLabel;
    lbl_address: TLabel;
    lbl_skr: TLabel;
    lbl_kpr: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_fpPreview: Tfrm_fpPreview;

implementation
uses UKp;
{$R *.dfm}

procedure Tfrm_fpPreview.FormActivate(Sender: TObject);
begin
  lbl_zf.Visible:=frm_kp.pt_fp.Cancel;
  lbl_khmc.Caption:=frm_kp.pt_fp.KHmc;
//  kpdate.DateTime:=frm_kp.pt_fp.KPDate;
  lbl_fpcode.Caption:=frm_kp.pt_fp.FPCode;
  lbl_fpNum.Caption:=frm_kp.pt_fp.FPNum;
  lbl_cp1.Caption:=frm_kp.pt_fp.CP1;
  lbl_cp2.Caption:=frm_kp.pt_fp.CP2;
  lbl_cp3.Caption:=frm_kp.pt_fp.CP3;
  lbl_gg1.Caption:=frm_kp.pt_fp.GG1;
  lbl_gg2.Caption:=frm_kp.pt_fp.GG2;
  lbl_gg3.Caption:=frm_kp.pt_fp.GG3;
  lbl_dw1.Caption:=frm_kp.pt_fp.DW1;
  lbl_dw2.Caption:=frm_kp.pt_fp.DW2;
  lbl_dw3.Caption:=frm_kp.pt_fp.DW3;
  lbl_sl1.Caption:=frm_kp.pt_fp.DispSL1;
  lbl_sl2.Caption:=frm_kp.pt_fp.DispSL2;
  lbl_sl3.Caption:=frm_kp.pt_fp.DispSL3;
  lbl_dj1.Caption:=frm_kp.pt_fp.DispDJ1;
  lbl_dj2.Caption:=frm_kp.pt_fp.DispDJ2;
  lbl_dj3.Caption:=frm_kp.pt_fp.DispDJ3;
  lbl_je1.Caption:=frm_kp.pt_fp.DispJe1;
  lbl_je2.Caption:=frm_kp.pt_fp.DispJe2;
  lbl_je3.Caption:=frm_kp.pt_fp.DispJe3;
  lbl_hjje.Caption:=frm_kp.pt_fp.DispHJJe;
  lbl_hjdx.Caption:=frm_kp.pt_fp.DispHJJEDX;
  lbl_taxno.Caption:=frm_kp.pt_fp.TaxNo;
  lbl_bankMN.Caption:=frm_kp.pt_fp.BankMN;
  lbl_dwmc.Caption:=frm_kp.pt_fp.Dwmc;
  lbl_telno.Caption:=frm_kp.pt_fp.TelNo;
  lbl_address.Caption:=frm_kp.pt_fp.Address;
  lbl_skr.Caption:=frm_kp.pt_fp.RenSK;
  lbl_kpr.Caption:=frm_kp.pt_fp.RenKp;
  label1.Caption:=formatdatetime('yyyy',frm_kp.PT_FP.KPDate);
  label2.Caption:=formatdatetime('mm',frm_kp.PT_FP.KPDate);
  label3.Caption:=formatdatetime('dd',frm_kp.PT_FP.KPDate);
end;

procedure Tfrm_fpPreview.ToolButton3Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_fpPreview.ToolButton1Click(Sender: TObject);
begin
  frm_kp.ToolButton4.Click;
end;

end.