u_nuova_causale.pas

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

unit u_nuova_causale;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls, Db, DBTables;

type
  TNuova_causale = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Nuova_causale: TNuova_causale;

implementation

uses ana_mod;

{$R *.DFM}

procedure TNuova_causale.FormClose(Sender: TObject;
  var Action: TCloseAction);
var Cau : Ttable ;
begin
     Cau := TTable.Create(nil) ;
     Cau.DatabaseName := 'euro2000'  ;
     Cau.TableName := 'causali.db' ;
     Cau.Open ;

     if Cau.FindKey([ModuloDatiAnagrafiche.TTCausaliCodice.AsString]) then
       begin
         showmessage('Attenzione: codice gi