produzione_form.pas

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

unit Produzione_form;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ExtCtrls, Mask, DBCGrids, Grids, DBGrids, ComCtrls, DB;

type
  TProduzione_f = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    Chiudi: TButton;
    Label1: TLabel;
    Numero_lottoEdit: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    Elencoarticoli: TTabSheet;
    DettaglioComponenti: TTabSheet;
    Elencomatricole: TTabSheet;
    DBGrid1: TDBGrid;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    Label15: TLabel;
    DBLookupComboBox6: TDBLookupComboBox;
    Label16: TLabel;
    DBEdit13: TDBEdit;
    DBGrid2: TDBGrid;
    Label13: TLabel;
    DBEdit11: TDBEdit;
    DBLookupComboBox7: TDBLookupComboBox;
    Label18: TLabel;
    DBEdit15: TDBEdit;
    Label19: TLabel;
    DBCtrlGrid1: TDBCtrlGrid;
    DBEdit16: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBText1: TDBText;
    Ricerca: TButton;
    DBNavigator2: TDBNavigator;
    Label8: TLabel;
    ArticoloEdit: TDBEdit;
    DBLookupComboBox5: TDBLookupComboBox;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    DBMemo1: TDBMemo;
    procedure ChiudiClick(Sender: TObject);
    procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Produzione_f: TProduzione_f;

implementation

uses Produzione_u, rica_art_u_fornit;

{$R *.DFM}

procedure TProduzione_f.ChiudiClick(Sender: TObject);
begin
     If (Numero_LottoEdit.Datasource.DataSet.state = dsEdit) or
        (Numero_LottoEdit.DataSource.DataSet.State = dsInsert) then
        Numero_LottoEdit.DataSource.DataSet.Post ;
     Release ;
end;

procedure TProduzione_f.DBNavigator2Click(Sender: TObject;
  Button: TNavigateBtn);
begin
     If Button = nbInsert then
        ArticoloEdit.setFocus ;
end;

end.