u_cusaccount.pas

来自「河南师范大学餐饮进销存软件,只要控制库存的数据。」· PAS 代码 · 共 88 行

unit u_CusAccount;

interface

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

type
  TfrmCusAccount = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    dtpDate: TDateTimePicker;
    DBGrid1: TDBGrid;
    CusQry: TADOQuery;
    DataSource1: TDataSource;
    cmbCus: TEdit;
    procedure cmbCusChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure dtpDateChange(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCusAccount: TfrmCusAccount;

implementation

uses u_DataCtrl;

{$R *.dfm}

procedure TfrmCusAccount.cmbCusChange(Sender: TObject);
begin
  CusQry.Close;
  CusQry.SQL.Clear;
  CusQry.SQL.Add(' exec psp_CusAccount '+QuotedStr(cmbCus.Text)+','+QuotedStr(Datetostr(dtpDate.Date)));
  try
    CusQry.ExecSQL;
  except
  end;
  CusQry.Open;
end;

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

procedure TfrmCusAccount.FormShow(Sender: TObject);
begin
  CusQry.Open;
  dtpDate.Date := Date();
end;

procedure TfrmCusAccount.dtpDateChange(Sender: TObject);
begin
  CusQry.Close;
  CusQry.SQL.Clear;
  CusQry.SQL.Add(' exec psp_CusAccount '+QuotedStr(cmbCus.Text)+','+QuotedStr(Datetostr(dtpDate.Date)));
  try
    CusQry.ExecSQL;
  except
  end;
  CusQry.Open;
end;

procedure TfrmCusAccount.Edit1Change(Sender: TObject);
begin
  CusQry.Close;
  CusQry.SQL.Clear;
  CusQry.SQL.Add(' exec psp_CusAccount '+QuotedStr(cmbCus.Text)+','+QuotedStr(Datetostr(dtpDate.Date)));
  try
    CusQry.ExecSQL;
  except
  end;
  CusQry.Open;
end;

end.