associa_u.pas

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

unit associa_U;

interface

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

type
  TAssocia_articoli_form = class(TForm)
    ActionList1: TActionList;
    Chiudi: TAction;
    Panel1: TPanel;
    Label1: TLabel;
    griglia_esistenti: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label2: TLabel;
    Lista: TListBox;
    SpeedButton1: TSpeedButton;
    Associa_tutti: TAction;
    Dissocia_tutti: TAction;
    Associa: TAction;
    Dissocia: TAction;
    Associa_btn: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    NuovoBtn: TButton;
    procedure ChiudiExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure AssociaExecute(Sender: TObject);
    procedure Associa_tuttiExecute(Sender: TObject);
    procedure DissociaExecute(Sender: TObject);
    procedure Dissocia_tuttiExecute(Sender: TObject);
    procedure ListaDblClick(Sender: TObject);
    procedure griglia_esistentiDblClick(Sender: TObject);
    procedure NuovoBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Elenca;
    { Public declarations }
  end;

var
  Associa_articoli_form: TAssocia_articoli_form;

implementation

uses Umenu, ana_mod, ana_compat_u;

{$R *.DFM}

procedure TAssocia_articoli_form.ChiudiExecute(Sender: TObject);
begin
 ModalResult := mrOk ;
end;

procedure TAssocia_articoli_form.Elenca;
var
   Tcompat : TTable ;
   Comp : string ;

begin
 Lista.Items.Clear ;
 Tcompat := TTable.Create(Self) ;
 Tcompat.DatabaseName := 'euro2000' ;
 TCompat.TableName := 'compatib.db' ;
 Tcompat.Open ;
 Tcompat.First ;
 While Not TCompat.Eof do
  begin
   comp := Tcompat.FieldByName('Descrizione').asString ;
   If Not ModuloDatiAnagrafiche.TTAttinenze.Locate('Attinenza',comp,[]) then
    begin
     Lista.Items.Add(comp) ;
    end ;
   Tcompat.Next ;
  end ;
 Tcompat.Close ;
 Tcompat.Free ;
end;

procedure TAssocia_articoli_form.FormCreate(Sender: TObject);
begin
 Elenca ;
end;

procedure TAssocia_articoli_form.AssociaExecute(Sender: TObject);
Var
   i : integer ;

begin
 If Lista.SelCount > 1 then
  begin
   for i := 0 to Lista.Items.Count - 1 do
    begin
     If Lista.selected[i] then
      begin
          ModuloDatiAnagrafiche.TTAttinenze.Insert ;
          ModuloDatiAnagrafiche.TTAttinenzeAttinenza.asString := Lista.Items[i] ;
          ModuloDatiAnagrafiche.TTattinenze.Post ;
      end ;
    end ;
   elenca ;
  end
 else
  begin
   ModuloDatiAnagrafiche.TTAttinenze.Insert ;
   ModuloDatiAnagrafiche.TTAttinenzeAttinenza.asString := Lista.Items[Lista.ItemIndex] ;
   ModuloDatiAnagrafiche.TTattinenze.Post ;
   Lista.Items.Delete(lista.itemindex) ;
  end ;

end;

procedure TAssocia_articoli_form.Associa_tuttiExecute(Sender: TObject);
Var
   i : integer ;
   
begin
   for i := 0 to Lista.Items.Count - 1 do
    begin
      ModuloDatiAnagrafiche.TTAttinenze.Insert ;
      ModuloDatiAnagrafiche.TTAttinenzeAttinenza.asString := Lista.Items[i] ;
      ModuloDatiAnagrafiche.TTattinenze.Post ;
    end ;
   lista.items.Clear ;
end;

procedure TAssocia_articoli_form.DissociaExecute(Sender: TObject);
Var
 I : integer;

begin
 If Griglia_esistenti.SelectedRows.count > 1 then
  begin
   for i := 0 to Griglia_esistenti.SelectedRows.Count - 1 do
    begin
      ModuloDatiAnagrafiche.ttAttinenze.Bookmark := Griglia_esistenti.Selectedrows.Items[i] ;
      Lista.Items.Add(ModuloDatiAnagrafiche.TTattinenzeAttinenza.asString) ;
      ModuloDatiAnagrafiche.TTAttinenze.Delete ;
    end ;
  end
 else
  begin
   Lista.Items.Add(ModuloDatiAnagrafiche.TTattinenzeAttinenza.asString) ;
   ModuloDatiAnagrafiche.TTAttinenze.Delete ;
  end ;
end;

procedure TAssocia_articoli_form.Dissocia_tuttiExecute(Sender: TObject);
begin
 ModuloDatiAnagrafiche.TTAttinenze.First ;
 While not ModuloDatiAnagrafiche.TTattinenze.isEmpty do
  begin
   Lista.Items.Add(ModuloDatiAnagrafiche.TTattinenzeAttinenza.asString) ;
   ModuloDatiAnagrafiche.TTAttinenze.Delete ;
  end ;
end;

procedure TAssocia_articoli_form.ListaDblClick(Sender: TObject);
begiN
    Associa.Execute ;
end;

procedure TAssocia_articoli_form.griglia_esistentiDblClick(
  Sender: TObject);
begin
 dissocia.Execute ;
end;

procedure TAssocia_articoli_form.NuovoBtnClick(Sender: TObject);
begin
     ana_compat_form := Tana_compat_form.Create(self) ;
     ana_compat_form.FormStyle := fsStayOnTop ;
     ana_compat_form.Visible := False ;
     ana_compat_form.ShowModal ;
     elenca ;
end;

end.