xjrj1.pas

来自「delphi开发的委托加工管理系统源代码」· PAS 代码 · 共 50 行

unit xjrj1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, RzDBNav, ExtCtrls, RzPanel,
  RzTabs, Grids, DBGridEh, Buttons, DB, ADODB;

type
  Txjrj = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    RzGroupBox1: TRzGroupBox;
    RzGroupBox2: TRzGroupBox;
    BitBtn1: TBitBtn;
    DBGridEh1: TDBGridEh;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xjrj: Txjrj;

implementation

uses adodm;

{$R *.dfm}


procedure Txjrj.BitBtn1Click(Sender: TObject);
begin
begin
adodataset1.Connection:=dm.ADOConnection1;
adodataset1.Active:=false;
adodataset1.CommandText:='select ckdate as 日期,wtno as 委托单号,wtnumber as 物料代码,wtpm as 品名,cksl as 数量,ckmoney as 金额,jgmoney as 加工金额,mon as 月份 from yjql'
+' group by ckdate,wtno,wtnumber,wtpm,cksl,ckmoney,jgmoney,mon order by wtnumber compute sum(cksl) by wtnumber';
adodataset1.Active:=true;
end;
end;

end.