taxreportunit.pas

三層源碼,DELPHI寫的三層源碼,三層源碼,

unit taxreportunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, xpButton, StdCtrls, Grids, DBGrids;

type
  Ttaxreport = class(TForm)
    Bevel1: TBevel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    xpButton1: TxpButton;
    DBGrid1: TDBGrid;
    xpButton4: TxpButton;
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormResize(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
  private
    procedure refreshlist;
    { Private declarations }
  public
    lstring:string;
    sel_date:tdatetime;
    { Public declarations }
  end;

var
  taxreport: Ttaxreport;

implementation
uses sldata,shareunit, viewforms;
{$R *.DFM}


procedure Ttaxreport.refreshlist;
var msg,tuid,tname,tdept,twork:string;
begin
tuid:='%';tname:='%';tdept:='%';twork:='%';
if edit1.text<>'' then
  begin
  if combobox1.itemindex=0 then tuid:=replacesqlstr(edit1.text);
  if combobox1.itemindex=1 then tname:=replacesqlstr(edit1.text);
  if combobox1.itemindex=2 then tdept:=replacesqlstr(edit1.text);
  if combobox1.itemindex=3 then twork:=replacesqlstr(edit1.text);
  end;
with tstringlist.create do
  try
  add(makeparams('operid',inttostr(Query_medicare)));
  add(makeparams('funid',inttostr(public_list_ex01)));
  add(makeparams('tuid',tuid));
  add(makeparams('tname',tname));
  add(makeparams('tdept',tdept));
  add(makeparams('twork',twork));
  add(makeparams('tdate',datetostr(sel_date)));
  msg:=text;
  finally
  free;
  end;
sl_data.querys.data:=sl_data.querys.DataRequest(msg);
sl_data.autosizedbgrid(dbgrid1);
end;

procedure Ttaxreport.FormShow(Sender: TObject);
begin
combobox1.itemindex:=0;
edit1.text:='';
refreshlist;
end;

procedure Ttaxreport.FormPaint(Sender: TObject);
begin
sl_data.formonpaint(self);
end;

procedure Ttaxreport.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
if NewHeight<370 then NewHeight:=370;
if newwidth<610 then newwidth:=610;
end;

procedure Ttaxreport.FormResize(Sender: TObject);
begin
bevel1.Width:=width-22;
bevel1.Height:=height-100;
dbgrid1.Width:=width-40;
dbgrid1.height:=height-115;
end;

procedure Ttaxreport.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with column.Title do
  caption:=getfieldtobgname(Query_medicare,caption);
end;

procedure Ttaxreport.DBGrid1DblClick(Sender: TObject);
begin
with tviewform.create(nil) do
  try
  operid:=Query_medicare;
  showmodal;
  finally
  free;
  end;
end;

procedure Ttaxreport.xpButton1Click(Sender: TObject);
begin
refreshlist;
end;

end.