u_stockaccount.~pas

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

unit u_StockAccount;

interface

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

type
  TfrmStockAccount = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    cmbClass: TComboBox;
    dtpDate: TDateTimePicker;
    edtBM: TLabeledEdit;
    Label1: TLabel;
    Label2: TLabel;
    StockQry: TADOQuery;
    procedure cmbClassChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dtpDateChange(Sender: TObject);
    procedure edtBMChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmStockAccount: TfrmStockAccount;

implementation

uses u_DataCtrl;

{$R *.dfm}

procedure TfrmStockAccount.cmbClassChange(Sender: TObject);
begin
  StockQry.Close;
  StockQry.SQL.Clear;
  StockQry.SQL.Add(' exec psp_StockAccount '+QuotedStr(cmbClass.Text)+',');
  StockQry.SQL.Add(QuotedStr(edtBM.Text)+','+QuotedStr(Datetostr(dtpDate.Date)));
  try
    StockQry.ExecSQL;
  except
  end;
  StockQry.Open;
end;

procedure TfrmStockAccount.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_GoodsClass ');
  try
    Check.Active := true;
    if Check.RecordCount>0 then
      while not Check.Eof do
        begin
          cmbClass.Items.Add(Check.FieldValues['ClassName']);
          Check.Next;
        end;
  except
  end;
  Check.Close;
  Check.Free;
  Check := nil ;
  StockQry.Open;
  dtpDate.Date := Date();
end;


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

procedure TfrmStockAccount.dtpDateChange(Sender: TObject);
begin
  StockQry.Close;
  StockQry.SQL.Clear;
  StockQry.SQL.Add(' exec psp_StockAccount '+QuotedStr(cmbClass.Text)+',');
  StockQry.SQL.Add(QuotedStr(edtBM.Text)+','+QuotedStr(Datetostr(dtpDate.Date)));
  try
    StockQry.ExecSQL;
  except
  end;
  StockQry.Open;
end;

procedure TfrmStockAccount.edtBMChange(Sender: TObject);
begin
  StockQry.Close;
  StockQry.SQL.Clear;
  StockQry.SQL.Add(' exec psp_StockAccount '+QuotedStr(cmbClass.Text)+',');
  StockQry.SQL.Add(QuotedStr(edtBM.Text)+','+QuotedStr(Datetostr(dtpDate.Date)));
  try
    StockQry.ExecSQL;
  except
  end;
  StockQry.Open;
end;

end.