prezzi_articolo_u.pas

大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JAVA的朋友,将是不错的参考资料!

unit prezzi_articolo_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, DB, StdCtrls, ExtCtrls, Mask, Buttons;

type
  TPrezzi_Articolo = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    Label8: TLabel;
    DBEdit6: TDBEdit;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    Label12: TLabel;
    DBEdit10: TDBEdit;
    Label13: TLabel;
    DBEdit11: TDBEdit;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    Label23: TLabel;
    DBEdit21: TDBEdit;
    BitBtn2: TBitBtn;
    DBNavigator1: TDBNavigator;
    DBText1: TDBText;
    Label24: TLabel;
    DBEdit22: TDBEdit;
    Label25: TLabel;
    DBEdit23: TDBEdit;
    Label26: TLabel;
    Label15: TLabel;
    DBEdit13: TDBEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Prezzi_Articolo: TPrezzi_Articolo;

implementation

uses ana_mod;

{$R *.DFM}

procedure TPrezzi_Articolo.BitBtn2Click(Sender: TObject);
begin
     If (ModulodatiAnagrafiche.TTListino.State = dsEdit) or
        (ModulodatiAnagrafiche.TTListino.State = dsInsert) then
        If MessageDlg('Salvo le modifiche ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
           ModuloDatiAnagrafiche.TTListino.Post ;
     Release ;
end;

procedure TPrezzi_Articolo.BitBtn1Click(Sender: TObject);
begin
     Release ;
end;

end.