enquiry_pnota_u.pas

基于OOP设计的一套较好的ERP系统

unit Enquiry_Pnota_U;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Grids, DBGridEh, Db;

type
  TEnquiryPnota_form = class(TForm)
    dsQPnota: TDataSource;
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Mostra: TButton;
    procedure MostraClick(Sender: TObject);
    procedure dsQPnotaDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EnquiryPnota_form: TEnquiryPnota_form;

implementation

uses scade_mod, pagamenti_u;

{$R *.DFM}

procedure TEnquiryPnota_form.MostraClick(Sender: TObject);
begin
 Pagamenti_form := TPagamenti_Form.Create(self) ;
 Pagamenti_form.ShowModal ;
 If Pagamenti_form.ModalResult = mrOk then
  begin
   ModuloDatiScadenziario.QueryPnota.Close ;
   ModuloDatiScadenziario.QueryPnota.Open ;
  end ;
 Pagamenti_Form.Free ;
end;

procedure TEnquiryPnota_form.dsQPnotaDataChange(Sender: TObject;
  Field: TField);
begin
 With ModuloDatiScadenziario do
  TTTPnota.Locate('Registrazione',QueryPnota.FieldByName('Registrazione').asInteger,[]) ;
end;

end.