unitsummoney.pas

来自「delphi+sql server 我是delphi的初学者」· PAS 代码 · 共 74 行

unit Unitsummoney;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ComCtrls,
  StdCtrls, dxEditor, dxEdLib, ExtCtrls;

type
  TFormsummoney = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edname: TEdit;
    Label2: TLabel;
    dxDateEdit1: TdxDateEdit;
    dxDateEdit2: TdxDateEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formsummoney: TFormsummoney;

implementation
uses UDM;
{$R *.dfm}

procedure TFormsummoney.FormShow(Sender: TObject);
begin
  Edname.Text:='';
end;

procedure TFormsummoney.Button2Click(Sender: TObject);
begin
   Close;
end;

procedure TFormsummoney.Button1Click(Sender: TObject);
begin
  if dm.ADOsummoney.Active=False then
   dm.ADOsummoney.Active:=True;
   with dm.ADOsummoney do
     begin
       Close;
       SQL.Clear;
       SQL.add('SELECT numbertype,SUM(JINE) AS JINE FROM LIBNUMBERLS');
       SQL.Add('WHERE RQ BETWEEN :KRQ AND :JRQ AND SXDM=:SXDM and lypername like :lyr');
       SQL.Add('GROUP BY numbertype');
       SQL.Add('ORDER BY numbertype');
       Parameters.ParamByName('krq').Value:=dxDateEdit1.Date;
       Parameters.ParamByName('jrq').Value:=dxDateEdit2.Date;
       Parameters.ParamByName('sxdm').Value:=dm.HDM;
       Parameters.ParamByName('lyr').Value:='%'+edname.Text+'%';
       Prepared;
       Open;
     end;
end;

end.