clienti.pas

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

unit clienti;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, DBCtrls, Mask, Grids, DBGrids, DB, ActnList, DBTables;

type
  TClientiDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    edit_nominativo: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DBNavigator1: TDBNavigator;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    ActionList1: TActionList;
    Cerca: TAction;
    elenco: TAction;
    DBEdit4: TDBEdit;
    DBGrid2: TDBGrid;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    Label15: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Nuova_societa: TButton;
    Nuova_professione: TButton;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit11: TDBEdit;
    Label16: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure CercaExecute(Sender: TObject);
    procedure elencoExecute(Sender: TObject);
    procedure Nuova_societaClick(Sender: TObject);
    procedure Nuova_professioneClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientiDlg: TClientiDlg;

implementation

uses main, Ucerca, Uelenco, u_nuovo;

{$R *.DFM}

procedure TClientiDlg.OKBtnClick(Sender: TObject);
begin
     With Main_form do
      begin
       If (TTClienti.State = dsEdit) or
          (TTClienti.State = dsInsert) then
          TTCLienti.Post ;
      end ;
      
end;

procedure TClientiDlg.CancelBtnClick(Sender: TObject);
begin
     With Main_form do
      begin
       If (TTClienti.State = dsEdit) or
          (TTClienti.State = dsInsert) then
          TTCLienti.Cancel ;
      end ;
end;

procedure TClientiDlg.CercaExecute(Sender: TObject);
begin
     Cerca_form.trova(self)
end;

procedure TClientiDlg.elencoExecute(Sender: TObject);
begin
     Elenco_form.Mostraelenco(self)
end;

procedure TClientiDlg.Nuova_societaClick(Sender: TObject);
begin
 Nuovo_form.ShowModal ;
 If Nuovo_form.ModalResult = mrOk then
  begin
   With Main_form do
    begin
     societaDb.Insert ;
     SocietaDbSocieta.asString := Nuovo_form.Nuovo_valore.Text ;
     SocietaDb.Post ;
     TTCLienti.Edit ;
     TTClientiSocieta.AsString := Nuovo_form.nuovo_valore.Text ;
    end;
  end ;
end;

procedure TClientiDlg.Nuova_professioneClick(Sender: TObject);
begin
 Nuovo_form.ShowModal ;
 If Nuovo_form.ModalResult = mrOk then
  begin
   With Main_form do
    begin
     ProfessioneDb.Insert ;
     ProfessioneDbProfessione.asString := Nuovo_form.Nuovo_valore.Text ;
     ProfessioneDb.Post ;
     TTCLienti.Edit ;
     TTClientiProfessione.AsString := Nuovo_form.nuovo_valore.Text ;
    end;
  end ;
end;

procedure TClientiDlg.FormShow(Sender: TObject);
begin
 if (Main_form.TTClientiNominativo.AsString = '') and
    (Main_form.TTClienti.State = dsInsert)and
    (Main_form.TTClientiCodice.AsString <> '')  then
  edit_nominativo.SetFocus ;
end;

end.