wzcx.pas

物资管理系统 包括屋子入库出库管理

unit WZCX;

interface

uses
  Windows, SysUtils, Variants, Classes, Controls, Forms, StdCtrls, ExtCtrls,
  WZGLCommon, DB, Grids, DBGrids, ComCtrls, ADODB;

const
conSQL = 'select f.bm, f.mc, f.gg, f.dw, f.dj, e.rksl, e.cksl, e.kcsl from ' +
         '(select rk.bm, rk.rksl, ck.cksl, rk.rksl - ck.cksl as kcsl from ' +
         '(select b.bm, IsNull(sum(a.Rksl), 0) as rksl from RKXX a ' +
         'right join WZZD b on a.bm = b.bm group by b.bm) rk, ' +
         '(select d.bm, IsNull(sum(c.Cksl), 0) as cksl from CKXX c ' +
         'right join WZZD d on c.bm = d.bm group by d.bm) ck ' +
         'where rk.bm = ck.bm) e right join ' +
         '(select bm, mc, gg, dw, dj from WZZD %S) f on e.bm = f.bm';

type
  TWZCXForm = class(TForm)
    pnlToolBar: TPanel;
    btQuery: TButton;
    lblBm: TLabel;
    lblMc: TLabel;
    edtMc: TEdit;
    edtBm: TEdit;
    dbWZCX: TDBGrid;
    dsWZCX: TDataSource;
    adoqWZCX: TADOQuery;
    procedure btQueryClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); reintroduce;
  end;

var
  WzcxForm: TWzcxForm;
    
implementation

{$R *.dfm}

constructor TWZCXForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  with adoqWZCX do
  begin
    Connection := AdoWzgl;
    SQL.Text := Format(conSQL, ['']);
    open;
  end;
end;

procedure TWZCXForm.btQueryClick(Sender: TObject);
var
  l_SqlWhere: string;
begin
  l_SqlWhere := '';
  if edtBm.Text <> '' then
    l_SqlWhere := ' Where Bm Like ' + Quotedstr('%'+ edtBm.Text + '%');

  if edtMc.Text <> '' then
  begin
    if l_SqlWhere <> '' then
      l_SqlWhere := l_SqlWhere + ' and ' + 'Mc Like ' + Quotedstr('%'+ edtMc.Text + '%')
    else
      l_SqlWhere := ' Where Mc Like ' + Quotedstr('%'+ edtMc.Text + '%');
  end;
  
  with adoqWzcx do
  begin
    Close;
    Sql.Text := Format(conSQL, [l_SqlWhere]);
    Open;
  end;
end;

procedure TWZCXForm.FormDestroy(Sender: TObject);
begin
  if adoqWzcx.Active then adoqWzcx.Close;
end;

procedure TWZCXForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  WzcxForm := nil;
end;

end.