u_nuova_causale.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 43 行

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