urc_query.pas

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

unit urc_query;

interface

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

type
  Trc_query = class(TForm)
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBGridEh2: TDBGridEh;
    GroupBox1: TGroupBox;
    Label23: TLabel;
    sncCurrencyLabel1: TsncCurrencyLabel;
    sncCurrencyLabel2: TsncCurrencyLabel;
    sncCurrencyLabel3: TsncCurrencyLabel;
    sncDBCurrencyEdit1: TsncDBCurrencyEdit;
    sncDBCurrencyEdit2: TsncDBCurrencyEdit;
    sncDBCurrencyEdit3: TsncDBCurrencyEdit;
    sncDBCurrencyEdit4: TsncDBCurrencyEdit;
    sncDBCurrencyEdit5: TsncDBCurrencyEdit;
    sncDBCurrencyEdit6: TsncDBCurrencyEdit;
    sncDBCurrencyEdit7: TsncDBCurrencyEdit;
    sncDBCurrencyEdit8: TsncDBCurrencyEdit;
    sncDBCurrencyEdit9: TsncDBCurrencyEdit;
    Panel1: TPanel;
    Splitter1: TSplitter;
    p1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    la1: TLabel;
    Edit2: TEdit;
    c_py: TCheckBox;
    c_bh: TCheckBox;
    b_find: TBitBtn;
    TreeView1: TTreeView;
    Label15: TLabel;
    Label16: TLabel;
    DBText7: TDBText;
    Label29: TLabel;
    DBText8: TDBText;
    GroupBox5: TGroupBox;
    d_find: TDBGridEh;
    Button1: TButton;
    procedure CancelBtnClick(Sender: TObject);
    procedure b_findClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure d_findKeyPress(Sender: TObject; var Key: Char);
    procedure TreeView1DblClick(Sender: TObject);
    procedure d_findDblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure Load_data;
    { Private declarations }
  public
    procedure Save_fp;
    { Public declarations }
  end;

var
  rc_query: Trc_query;

implementation

uses DB, u_dm, ADODB, u_main, RICH_SYS;

{$R *.dfm}

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

procedure Trc_query.b_findClick(Sender: TObject);
var
  s: string;
begin

  with dm1.A_person_find do
  begin
    close;
    sql.Clear;
    s := 'exec p_find_person ' + string_sqlText(Edit2.Text) + ',' +
      string_sqlText(edit1.Text);
    sql.Add(s);
    //  Parameters.ParamByName('name').Value := '21656';
    Open;
    if recordcount > 1 then
    begin
      d_find.Visible := True;
      d_find.SetFocus;
      Exit;
    end;
    //b_select.Visible := recordcount > 1;

    if recordcount < 1 then
    begin
      if c_py.Enabled then
      begin
        edit2.SelectAll;
        edit2.SetFocus;
      end
      else
      begin
        edit1.SelectAll;
        edit1.SetFocus;
      end;
      exit;
    end;

    if recordcount = 1 then
    begin
      Load_data;
    end;
  end;
end;

procedure Trc_query.Edit1Change(Sender: TObject);
begin
  if edit2.Text <> '' then edit2.Text := '';
end;

procedure Trc_query.Edit2Change(Sender: TObject);
begin
  if edit1.Text <> '' then edit1.Text := '';
end;

procedure Trc_query.FormCreate(Sender: TObject);
begin
  //  main.Scale_form(0, Self);

 // main.add_tv(TreeView1);
    if FileExists(main.App_path + 'rc_query.txt') then
    TreeView1.LoadFromFile(main.App_path + 'rc_query.txt');


  dm1.A_rc_item.Close;
end;

procedure Trc_query.Save_fp;

begin
  //保存发票号
end;

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

procedure Trc_query.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    b_find.Click;
  end;
end;

procedure Trc_query.d_findKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    d_find.Visible := false;
    Load_data;
  end;
end;

procedure Trc_query.TreeView1DblClick(Sender: TObject);
var
  s: string;
begin
  with dm1.A_person_find do
  begin
    if TreeView1.selected.Level = 3 then
    begin
      close;
      sql.Clear;
      s := 'select * from person where left(name, 1) = ' +
        string_sqlText(TreeView1.Selected.Text) +
        ' and left(pno,3)=' +
        string_sqlText(LeftStr(TreeView1.Selected.Parent.Parent.Text, 2) +
        LeftStr(TreeView1.Selected.Parent.Text, 1));
      SQL.Add(s);
      // MessageDlg(s, mtWarning, [mbok], 0);
//      Parameters.ParamByName('name').Value :=
    //  string_sqlText(TreeView1.Selected.Text);
      //Parameters.ParamByName('pno').Value := '00001';
       //Parameters.ParamByName('py').Value := '555';
      open;
      d_find.Visible := true;
      d_find.SetFocus;
    end;
  end;
end;

procedure Trc_query.Load_data;
var
  s: string;
begin
  with dm1.A_rc_item do
  begin
    close;
    Parameters.ParamByName('person_id').Value :=
      dm1.A_person_find.fieldbyname('person_id').AsInteger;

    Parameters.ParamByName('acount_id').Value :=
      strtoint(main.Acount_id);
    open;
  end;

  with dm1.A_rc_sum do
  begin
    close;
    Parameters.ParamByName('@acount_id').Value :=
      strtoint(main.Acount_id);
    Parameters.ParamByName('@person_id').Value :=
      dm1.A_person_find.fieldbyname('person_id').AsInteger;

    open;

    {    str((FieldByName('y_count').AsFloat /
          FieldByName('r_count').AsFloat * 100): 7: 2, s);
        L_b.Caption := '已完成任务：' + s + '%';
     }
  end;
end;

procedure Trc_query.d_findDblClick(Sender: TObject);
begin
  d_find.Visible := false;
  Load_data;
end;

procedure Trc_query.Button1Click(Sender: TObject);
begin
  main.add_tv(TreeView1);
   TreeView1.SaveToFile(main.App_path + 'rc_query.txt');
end;

end.