u_supalert.pas

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

unit u_SupAlert;

interface

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

type
  TfrmSupAlert = class(TForm)
    SupAlertQry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    SupAlertQryInBH: TStringField;
    SupAlertQryInSupNo: TStringField;
    SupAlertQryInTotal: TBCDField;
    SupAlertQryInPayMon: TBCDField;
    SupAlertQryInBalance: TBCDField;
    SupAlertQryInDate: TDateTimeField;
    SupAlertQrySupSName: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSupAlert: TfrmSupAlert;

implementation

uses u_DataCtrl, u_Main, u_PayMent;

{$R *.dfm}

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

procedure TfrmSupAlert.FormShow(Sender: TObject);
begin
  SupAlertQry.Close;
  SupAlertQry.Open;
end;

procedure TfrmSupAlert.DBGrid1DblClick(Sender: TObject);
begin
  if SupAlertQry.RecordCount>0 then
    begin
      frmMain.miPayMent.Click ;
      frmPayMent.cmbSup.Text  := SupAlertQry.fieldbyname('SupSName').AsString;
      frmPayMent.edtInDH.Text := SupAlertQry.fieldbyname('InBH').AsString;
      frmPayMent.edtPay.Text  := SupAlertQry.fieldbyname('InBalance').AsString;
    end;
end;

end.