unit6.pas

发票套打功能

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Grids, DBGrids, DB, DBGridEh,
  PrnDbgeh, ADODB, Menus, ToolWin ;

type
  TForm6 = class(TForm)
    palUp: TPanel;
    palLeftUp: TPanel;
    imgGrayLeftUp: TImage;
    imgColorLeftUp: TImage;
    imgLeftUp: TImage;
    imgSysIcon: TImage;
    imgLeftUp1: TImage;
    palRightUp: TPanel;
    imgGrayRightUp: TImage;
    imgRestoreButton: TImage;
    imgMaxButton: TImage;
    imgRightUp: TImage;
    imgCloseButton: TImage;
    imgMinButton: TImage;
    imgSizeButton: TImage;
    imgColorRightUp: TImage;
    imgRightUp1: TImage;
    palUpMid: TPanel;
    imgColorMenubar: TImage;
    imgGrayCaption: TImage;
    imgGrayMenuBar: TImage;
    imgCaption: TImage;
    lbCaption: TLabel;
    imgColorCaption: TImage;
    CoolBarMenu: TCoolBar;
    ToolBarMenu: TToolBar;
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    palClient: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    GroupBox4: TGroupBox;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    CheckBox2: TCheckBox;
    DBGridEh1: TDBGridEh;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure imgCloseButtonClick(Sender: TObject);
  private
    procedure TJJE(SJ :String);
    {查找租赁业发票}
    procedure Zlyfp();
    {查找转让无形资产发票}
    procedure ZrwxzcFP();
    {查找其它服务业发票}
    procedure QtfwyFP() ;
    {查找转让不动产发票}
    procedure ZrbdcFP() ;
    {查找建筑业发票}
    procedure JzyFP() ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
uses unit1 , Unit3;
{$R *.dfm}

procedure TForm6.Edit1Exit(Sender: TObject);
var
  DDate : Tdate ;
begin
try
  DDate:= StrtoDatetime(Edit1.Text);
  Edit1.Text := formatdatetime('yyyy-mm-dd',DDate);
except
     Application.MessageBox(PChar('请正确填写日期,日期格式为:  1985-08-27   ！'), PChar('提示'),MB_ICONINFORMATION);
     Edit1.Text :='' ;
     Edit1.SetFocus ;
end;
end;

procedure TForm6.Edit2Exit(Sender: TObject);
var
  DDate : Tdate ;
begin
try
  DDate:= StrtoDatetime(Edit2.Text);
  Edit2.Text := formatdatetime('yyyy-mm-dd',DDate);
except
     Application.MessageBox(PChar('请正确填写日期,日期格式为:  1985-08-27   ！'), PChar('提示'),MB_ICONINFORMATION);
     Edit2.Text :='' ;
     Edit2.SetFocus ;
end;
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
  form6.Close ;
end;

procedure TForm6.Button4Click(Sender: TObject);
begin
  DBGridEh1.Refresh ;
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
  DBGridEh1.Columns.Clear ;

  {刷新  DBGrid1  的内容，也就是清除}
  DBGridEh1.Refresh ;
  if combobox1.Text ='租赁业发票' then
  begin
    {查找租赁业发票}
    Zlyfp ;
    exit ;
  end;
  if combobox1.Text ='转让无形资产发票' then
  begin
    {查找转让无形资产发票}
    ZrwxzcFP ;
    exit ;
  end;
  if combobox1.Text ='其它服务业发票' then
  begin
    {查找其它服务业发票}
    QtfwyFP ;
    exit ;
  end;
  if combobox1.Text ='转让不动产发票' then
  begin
    {查找转让不动产发票}
    ZrbdcFP ;
    exit ;
  end;
  if combobox1.Text ='转让不动产发票' then
  begin
    {查找转让不动产发票}
    ZrbdcFP ;
    exit ;
  end;
  if combobox1.Text ='建筑业发票' then
  begin
    {查找建筑业发票}
    JzyFP ;
    exit ;
  end;
    Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
{查找租赁业发票}
procedure TForm6.Zlyfp();
Var
  {定义一个查询的条件Where}
  Tj, Tj1 : String ;
begin
try
   with CustomerData do
   begin
     //客户编码
     if CheckBox1.Checked then
     begin
        ADOQuery1.Close ;
        Tj := 'Where 客户名称 like '+''''+'%'+edit3.Text+'%'+'''' ;
        ADOQuery1.SQL.Clear ;
        {Fppy为要查v询的表名}
        ADOQuery1.SQL.Add('Select * From Zlyfp ') ;
        ADOQuery1.SQL.Add(Tj) ;
        {开始查询}
        ADOQuery1.Prepared ;
        ADOQuery1.Open ;
        {如果没有记录则让查找为可用，统计为不可用}
        if ADOQuery1.RecordCount =0 then
        begin
            Application.MessageBox(PChar('对不起没有符合条件的记录 ！'), PChar('提示'),MB_ICONINFORMATION);
            exit ;
        end;
        {显示共查找到多少条记录}
        StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
        //统计金额
        TJJE('金额') ;
        Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+'  条记录,如果要统计请单击上面 开始统计 按钮 ！'), PChar('提示'),MB_ICONINFORMATION);
        exit ;
     end
     else
     begin
        ADOQuery1.Close ;
        Tj := 'Where 日期 >= '+''''+edit1.Text+''''+' and 日期 <= '+''''+edit2.Text+'''';
        ADOQuery1.SQL.Clear ;
        {Fppy为要查询的表名}
        ADOQuery1.SQL.Add('Select * From Zlyfp') ;
        //FPTJ.SQL.Add('Select * From '+Fppy) ;
        ADOQuery1.SQL.Add(Tj) ;
        ADOQuery1.Prepared ;
        {开始查询}
        ADOQuery1.Open ;
        {如果没有记录则让查找为可用，统计为不可用}
        if ADOQuery1.RecordCount =0 then
        begin
            Application.MessageBox(PChar('对不起没有符合条件的记录 ！'), PChar('提示'),MB_ICONINFORMATION);
            exit ;
        end;
        {显示共查找到多少条记录}
        StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
        //统计金额
        TJJE('金额') ;
        Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+'  条记录 ！'), PChar('提示'),MB_ICONINFORMATION);
        exit ;
     end;
   end;
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
     exit ;
except
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
procedure TForm6.TJJE(Sj :String) ;
Var
   {合计金额}
   HJJA, i : Integer ;
   {大写金额合计}
   DXJAHJ: String ;
begin
try
   with CustomerData do
   begin
     ADOQuery1.First ;
     HJJA := 0 ;
     while not ADOQuery1.Eof do
     begin
       HJJA := HJJA+ADOQuery1.FieldValues[SJ];
       ADOQuery1.Next ;
      end;
     ADOQuery1.First ;
     StatusBar1.Panels[3].Text := InttoStr(HJJA) +'  元';
   end;
except
     Application.MessageBox(PChar('统计金额失败  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
procedure TForm6.CheckBox1Click(Sender: TObject);
begin
  edit3.Enabled := CheckBox1.Checked ;
  Edit1.Enabled := not CheckBox1.Checked ;
  Edit2.Enabled := not CheckBox1.Checked ;
end;

procedure TForm6.CheckBox2Click(Sender: TObject);
begin
  DBGridEh1.ReadOnly := not CheckBox2.Checked ;
end;