frmpkgl.pas

地税局发票程序源代码,自己开发的一个程序,最近整理资料的时候看到,放在那也是放着,拿出来供大家

unit FrmPkGl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PrnDbgeh, DB, Buttons, ComCtrls, ToolWin, Grids,
  DBGridEh;

type
  TFpGl = class(TForm)
    DBGridEh1: TDBGridEh;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton8: TToolButton;
    SpeedButton6: TSpeedButton;
    ToolButton7: TToolButton;
    SpeedButton11: TSpeedButton;
    DataSource1: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    Label1: TLabel;
    DBGridEh2: TDBGridEh;
    DataSource2: TDataSource;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    function QueryTabel(aSql:string):Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FpGl: TFpGl;

implementation
uses
  FrmData;
{$R *.dfm}

function TFpGl.QueryTabel(aSql: string): Boolean;
begin
  with MyData do
  begin
    ADOPub.SQL.Clear;
    ADOPub.SQL.Add(aSql);
    ADOPub.Open;
  end;
end;

procedure TFpGl.BitBtn1Click(Sender: TObject);
var
  aTmp:string;
begin
  if Trim(Edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入发票号码!', '操作提示', MB_OK + MB_ICONWARNING + 
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit1.SetFocus;
    Exit;
  end;
  with MyData do
  begin
    TaxGl.SQL.Clear;
    aTmp:='Select * From TaxZly Where 发票号码='+QuotedStr(Edit1.Text);
    TaxGl.SQL.Add(aTmp);
    TaxGl.Open;
  end;
end;

procedure TFpGl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    BitBtn1Click(Sender);
end;

procedure TFpGl.SpeedButton5Click(Sender: TObject);
var
  aTmp,bTmp,aSql:string;
begin
  with MyData do
  begin
    if MessageBox(Handle, '你是否要删除？', '操作提示', MB_YESNO +
      MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST)=IDYES then
    begin
      try
        ADOCon.BeginTrans;
        aTmp:=DataSource1.DataSet.fieldByName('发票号码').AsString;
        bTmp:=DataSource1.DataSet.fieldByName('标识号码').AsString;
        DataSource1.DataSet.Delete;
        ADOPub.SQL.Clear;
        aSql:='Delete From ZlyMxb Where 发票号码='+QuotedStr(aTmp)+' and 标识号码='+
          QuotedStr(bTmp);
        ADOPub.SQL.Add(aSql);
        ADOPub.ExecSQL;
        ADOCon.CommitTrans;
        MessageBox(Handle, '删除成功！', '操作提示', MB_OK + MB_ICONWARNING +
          MB_DEFBUTTON3 + MB_TOPMOST);
      except
        ADOCon.RollbackTrans;
        MessageBox(Handle, '删除失败！', '操作提示', MB_OK + MB_ICONWARNING +
          MB_DEFBUTTON3 + MB_TOPMOST);
      end;
    end;
  end;
end;

procedure TFpGl.DBGridEh1DblClick(Sender: TObject);
var
  aSql,aTmp,bTmp:string;
begin
  aTmp:=DataSource1.DataSet.fieldByName('发票号码').AsString;
  bTmp:=DataSource1.DataSet.fieldByName('标识号码').AsString;
  aSql:='Select * From ZlyMxb Where 发票号码='+QuotedStr(aTmp)+' and 标识号码='+
          QuotedStr(bTmp);
  QueryTabel(aSql);
end;

procedure TFpGl.SpeedButton1Click(Sender: TObject);
var
  aTmp:string;
begin
  with MyData do
  begin
    TaxGl.SQL.Clear;
    aTmp:='Select * From TaxZly Where 发票号码='+QuotedStr(Edit1.Text);
    TaxGl.SQL.Add(aTmp);
    TaxGl.Open;
  end;
end;

procedure TFpGl.SpeedButton11Click(Sender: TObject);
begin
  Close;
end;

procedure TFpGl.SpeedButton6Click(Sender: TObject);
begin
  PrintDBGridEh1.Preview;
end;

end.