scheda_sog.pas

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

unit scheda_sog;

interface

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

type
  TScheda_soggetto = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Rag_soc: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Label7: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Cerca: TButton;
    ActionList1: TActionList;
    cercatutto: TAction;
    Elenco: TButton;
    elencosoggetti: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel1: TPanel;
    DBGridEh3: TDBGridEh;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure cercatuttoExecute(Sender: TObject);
    procedure elencosoggettiExecute(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Scheda_soggetto: TScheda_soggetto;

implementation

uses ana_mod, Ucerca, Uelenco, Umenu, scade_mod, Doc_mod;

{$R *.DFM}

procedure TScheda_soggetto.cercatuttoExecute(Sender: TObject);
begin
     //Rag_soc.setfocus ;
     Cerca_form.Trova(self) ;
end;

procedure TScheda_soggetto.elencosoggettiExecute(Sender: TObject);
begin
     Rag_soc.setfocus ;
     Elenco_form.Mostraelenco(self) ;
end;

procedure TScheda_soggetto.SpeedButton3Click(Sender: TObject);
begin
     Release ;
end;

procedure TScheda_soggetto.FormShow(Sender: TObject);
begin
     //Rag_soc.Setfocus ;
     Cerca_form.Trova(self) ;
end;

procedure TScheda_soggetto.SpeedButton2Click(Sender: TObject);
begin

     ModuloDatiScadenziario.TTParam.Edit ;
     ModuloDatiScadenziario.TTParamSoggetto.asString := ModuloDatiAnagrafiche.TTsoggetticodice.asString ;
     ModuloDatiScadenziario.TTParamScadenzeDal.asString := '' ;
     ModuloDatiScadenziario.TTParamScadenzaAl.asString := '' ;
     ModuloDatiScadenziario.TTParamPartite.asString := 'Tutte' ;
     ModuloDatiScadenziario.Rinfresca_scadenze ;
     Menu_form.Scadenziario.Execute ;
end;

procedure TScheda_soggetto.SpeedButton4Click(Sender: TObject);
begin
 If ModuloDatiDocumenti.TTTestata.Locate('Documento',ModuloDatianagrafiche.TTsoggettiUltimoDocumento.asInteger,[]) then
  Menu_form.scorri_documenti.Execute
 else
   ShowMessage('Il documento potrebbe essere stato eliminato, impossibile visualizzarlo !') ;
end;

procedure TScheda_soggetto.SpeedButton5Click(Sender: TObject);
begin
   If ModuloDatiDocumenti.TTTestata.Locate('Documento',ModuloDatianagrafiche.TTsoggettiUltimoDocumento.Value,[]) then
       ModuloDatiDocumenti.StampaDoc(True,True)
   else
      ShowMessage('Il documento potrebbe essere stato eliminato, impossibile visualizzarlo !') ;

end;

end.