ukpset.pas

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

unit Ukpset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin, ExtCtrls, main,
  ImgList;

type
  Tfrm_kpset = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ImageList3: TImageList;
    procedure FormActivate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_kpset: Tfrm_kpset;

implementation
uses uDatam, UKp, Rfpqd;
{$R *.dfm}

procedure Tfrm_kpset.FormActivate(Sender: TObject);
begin
  label1.Caption:='开票单位税号：'+kpxx.Cur_TaxNo;
  label2.Caption:='开票单位名称：'+kpxx.Cur_Dwmc;
  label3.Caption:='发票份数：'+inttostr(datam.kpkSet.RecordCount)+'   ';
end;

procedure Tfrm_kpset.ToolButton1Click(Sender: TObject);
begin
  datam.setfpfilter;
end;

procedure Tfrm_kpset.ToolButton10Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_kpset.ToolButton3Click(Sender: TObject);
begin
  frm_kp.StatusBar1.Panels[0].Text:='查询';
  if datam.kpkSet.Eof and datam.kpkSet.Bof then
    exit;
  frm_kp. loadfp;
  frm_kp.panel3.Visible:=false;
  frm_kp.panel4.Visible:=true;
  frm_kp.Panel5.Visible:=false;
  frm_kp.Panel5.Enabled:=false;
  frm_kp.clientheight:=386;
  frm_kp.ShowModal;

end;

procedure Tfrm_kpset.ToolButton4Click(Sender: TObject);
begin
  frm_kp.StatusBar1.Panels[0].Text:='作废';
  if datam.kpkSet.Eof and datam.kpkSet.Bof then
    exit;
  frm_kp. loadfp;
   frm_kp.panel3.Visible:=false;
  frm_kp.panel4.Visible:=true;
  frm_kp.Panel5.Visible:=false;
  frm_kp.Panel5.Enabled:=false;
  frm_kp.clientheight:=386;
  frm_kp.ShowModal;
end;

procedure Tfrm_kpset.DBGrid1DblClick(Sender: TObject);
begin
  if toolbutton3.Enabled then
    toolbutton3.Click
  else
    toolbutton4.Click;
end;

procedure Tfrm_kpset.ToolButton6Click(Sender: TObject);
begin
  Rep_fpqd.qlb_dwmc.Caption:=kpxx.Cur_Dwmc;
  Rep_fpqd.qlb_ny.Caption:=formatdatetime('yyyy年mm月份',datam.kpkSetkpDate.AsDateTime);
  Rep_fpqd.Print;
end;

procedure Tfrm_kpset.ToolButton7Click(Sender: TObject);
begin
  Rep_fpqd.qlb_dwmc.Caption:=kpxx.Cur_Dwmc;
  Rep_fpqd.qlb_ny.Caption:=formatdatetime('yyyy年mm月份',datam.kpkSetkpDate.AsDateTime);
  Rep_fpqd.Preview;
end;

procedure Tfrm_kpset.ToolButton8Click(Sender: TObject);
begin
Application.MessageBox(PChar('实在没时间，有空在做吧！累我！'), PChar('提示'), 
  MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
  
end;

end.