u_supmonstat.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_SupMonStat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TfrmSupMonStat = class(TForm)
    DBGrid1: TDBGrid;
    SupStatQry: TADOQuery;
    DataSource1: TDataSource;
    cmbSup: TComboBox;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmbSupChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSupMonStat: TfrmSupMonStat;

implementation

uses u_DataCtrl;

{$R *.dfm}

procedure TfrmSupMonStat.FormShow(Sender: TObject);
var
  Check : TADOQuery ;
begin
  Check := TADOQuery.Create(self);
  Check.Connection := frmDataCtrl.ADOConn;
  Check.Close;
  Check.SQL.Clear;
  Check.SQL.Add('select * from tb_Supply');
  try
    Check.Active := true;
    if Check.RecordCount>0 then
      while not Check.Eof do
        begin
          cmbSup.Items.Add(Check.FieldValues['SupSName']);
          Check.Next;
        end;
  except
  end;
  Check.Close;
  Check.Free;
  Check := nil ;
  SupStatQry.Active := true;
end;

procedure TfrmSupMonStat.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := Cafree ;
end;

procedure TfrmSupMonStat.cmbSupChange(Sender: TObject);
begin
  SupStatQry.Close;
  SupStatQry.SQL.Clear;
  SupStatQry.SQL.Add('select * from vw_SupBalanceMonStat  where BalanceMon>0 and ');
  SupStatQry.SQL.Add(' SupSName like '''+cmbSup.Text+'%''');
  try
    SupStatQry.Active := true ;
  except
  end;
end;

end.