u_cusalert.pas

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

unit u_CusAlert;

interface

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

type
  TfrmCusAlert = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    CusAlertQry: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCusAlert: TfrmCusAlert;

implementation

uses u_DataCtrl, u_Charge, u_Main;

{$R *.dfm}

procedure TfrmCusAlert.FormShow(Sender: TObject);
begin
  CusAlertQry.Close;
  CusAlertQry.Open;
end;

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

procedure TfrmCusAlert.DBGrid1DblClick(Sender: TObject);
begin
  if CusAlertQry.RecordCount>0 then
    begin
      frmMain.miReceive.Click;
      frmCharge.cmbCus.Text    := CusAlertQry.FieldbyName('CusSName').AsString;
      frmCharge.edtOutDH.Text  := CusAlertQry.fieldbyname('OutBH').AsString;
      frmCharge.edtCharge.Text := CusAlertQry.fieldbyname('OutBalance').AsString;
    end;
end;

end.