ufp_query.pas

一个地方税务征收管理系统

unit ufp_query;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, dialogs, Grids, DBGridEh, Menus, ComCtrls, Mask,
  DBCtrlsEh, DBLookupEh, DBCtrls;

type
  Tfp_query = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Label1: TLabel;
    DBGridEh2: TDBGridEh;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    l_zf: TLabel;
    BitBtn4: TBitBtn;
    procedure CancelBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fp_query: Tfp_query;

implementation

uses DB, u_dm, ADODB, urc_query, RICH_SYS;

{$R *.dfm}

procedure Tfp_query.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure Tfp_query.BitBtn1Click(Sender: TObject);
var
  s: string;
begin
  with dm1.a_fp_find do
  begin
    Close;
    SQL.Clear;
    if RadioButton1.Checked then
      s := 'SELECT * FROM v_rc where s1_no like ' +
        string_sqlText('%' + Edit1.Text)
    else
      s := 'SELECT * FROM v_rc where s2_no like ' +
        string_sqlText('%' + Edit1.Text);
    //        MessageDlg(s, mtWarning, [mbok], 0);
    SQL.Add(s);
    open;
    if recordcount > 0 then
    begin
      if RadioButton1.Checked then
        s := trim(fieldbyname('s1_no').AsString)
      else
        s := trim(fieldbyname('s2_no').AsString);
    end;
    BitBtn2.Enabled := true;
    BitBtn3.Enabled := not (LeftStr(s, 4) = '作废');
    l_zf.Visible := (LeftStr(s, 4) = '作废');
  end;
end;

procedure Tfp_query.BitBtn2Click(Sender: TObject);
var
  s: string;
begin
  with Trc_query.Create(Self) do
  begin
    s := dm1.a_fp_find.fieldbyname('person_id').AsString;
    s := 'select pno from person where person_id=' + s;
    Edit1.Text := dm1.Get_data(s);
    b_find.Click;
    ShowModal;
  end;
end;

procedure Tfp_query.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    key := #0;
    BitBtn1.Click;
  end;
end;

procedure Tfp_query.BitBtn3Click(Sender: TObject);
var
  s: string;
begin
  if RadioButton1.Checked then
  begin
    s := 'update rc set s1=0,s1_no=' + string_sqlText('作废(');
    s := s + '+cast(s1 as varchar) +' + string_sqlText(')');
    s := s + '+s1_no where rc_id=' +
      dm1.a_fp_find.fieldbyname('rc_id').AsString;
  end
  else
  begin
    s := 'update rc set s2=0,s2_no=' + string_sqlText('作废(');
    s := s + '+cast(s2 as varchar) +' + string_sqlText(')');
    s := s + '+s2_no where rc_id=' +
      dm1.a_fp_find.fieldbyname('rc_id').AsString;
  end;
  dm1.EXE_SQL(s);
  dm1.a_fp_find.Requery();
  MessageDlg('发票已作废！', mtWarning, [mbok], 0);
  BitBtn1.Click;
end;

procedure Tfp_query.FormCreate(Sender: TObject);
begin
  DBGridEh2.DataSource.DataSet.Close;
end;

procedure Tfp_query.BitBtn4Click(Sender: TObject);
var
  s: string;
begin
  BitBtn3.Enabled := false;
  with dm1.a_fp_find do
  begin
    Close;
    SQL.Clear;
    if RadioButton1.Checked then
      s := 'SELECT * FROM v_rc where s1_no like ' +
        string_sqlText('作废%')
    else
      s := 'SELECT * FROM v_rc where s2_no like ' +
        string_sqlText('作废%');
    SQL.Add(s);
    open;
  end;
end;
end.