u_supaccount.pas

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

unit u_SupAccount;

interface

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

type
  TfrmSupAccount = class(TForm)
    Panel1: TPanel;
    cmbSup: TComboBox;
    Label1: TLabel;
    dtpDate: TDateTimePicker;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SupQry: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure cmbSupChange(Sender: TObject);
    procedure dtpDateChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSupAccount: TfrmSupAccount;

implementation

uses u_DataCtrl;

{$R *.dfm}

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

procedure TfrmSupAccount.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 ;
  SupQry.Open;
  dtpDate.Date := Date();
end;

procedure TfrmSupAccount.cmbSupChange(Sender: TObject);
begin
  SupQry.Close;
  SupQry.SQL.Clear;
  SupQry.SQL.Add(' exec psp_SupAccount '+QuotedStr(cmbSup.Text)+','+QuotedStr(DatetoStr(dtpDate.Date)));
  try
    SupQry.ExecSQL;
  except
  end;
  SupQry.Open;
end;

procedure TfrmSupAccount.dtpDateChange(Sender: TObject);
begin
  SupQry.Close;
  SupQry.SQL.Clear;
  SupQry.SQL.Add(' exec psp_SupAccount '+QuotedStr(cmbSup.Text)+','+QuotedStr(DatetoStr(dtpDate.Date)));
  try
    SupQry.ExecSQL;
  except
  end;
  SupQry.Open;
end;

end.