u_griglia_varianti.pas

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

unit u_griglia_varianti;

interface

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

type
  TGriglia_varianti = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBMemo1: TDBMemo;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Pagine: TPageControl;
    Griglia: TTabSheet;
    Elenco: TTabSheet;
    GridVarianti: TStringGrid;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    DBNavigator1: TDBNavigator;
    procedure GridVariantiSetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: String);
    procedure GrigliaShow(Sender: TObject);
  private
    { Private declarations }
    Procedure Costruisci_griglia ;
  public
    modifica_varianti_avvenuta: boolean;
    { Public declarations }
  end;

var
  Griglia_varianti: TGriglia_varianti;
  Righe,Colonne : array of string ;

implementation

uses Doc_mod, ana_mod;

{$R *.DFM}

Procedure TGriglia_Varianti.Costruisci_griglia ;
Var
   criga,cColonna,Riga,Colonna : integer ;
   variante1_old,variante2_old : string ;

begin
 With ModuloDatiAnagrafiche do
  If TTArticoli.FindKey([ModuloDatiDocumenti.TTDettaglioArticoloInterno.asString]) then
    with TTArtbase do
      begin
       First ;
       //Riga := 0 ;
       //Colonna := 0  ;
       variante1_old := '' ;
       variante2_old := '' ;
       While not Eof do
        begin
         Criga := 0 ;
         cColonna := 0 ;
         For riga := 1 to GridVarianti.RowCount -1 do
          If GridVarianti.Cells[0,riga] = TTartbaseVariante1.asString then
           criga := riga ;
         For colonna := 1 to GridVarianti.colcount -1 do
          IF GridVarianti.Cells[colonna,0] = TTartbaseVariante2.asString then
           cColonna := Colonna ;
         If cColonna = 0 then
          begin
           GridVarianti.ColCount := GridVarianti.ColCount + 1 ;
           cColonna := GridVarianti.ColCount - 1 ;
           GridVarianti.Cells[cColonna,0] := TTartbaseVariante2.asString ;
          end ;
         If cRiga = 0 then
          begin
           GridVarianti.RowCount := GridVarianti.RowCount + 1 ;
           cRiga := GridVarianti.RowCount - 1 ;
           GridVarianti.Cells[0,cRiga] := TTartbaseVariante1.asString ;
          end ;
         If ModuloDatiDocumenti.TTDocVar.Locate('Desc_Var1;Desc_Var2',VarArrayof([TTArtBaseVariante1.asString,TTartBaseVariante2.asString]),[]) then
          begin
            GridVarianti.Cells[cColonna,cRiga] := ModuloDatiDocumenti.TTdocVarQta.asString;
          end ;
         next ;
        end ;
        gridVarianti.FixedCols := 1 ;
        gridVarianti.FixedRows := 1 ;
      end ;
end ;

procedure TGriglia_varianti.GridVariantiSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);

Var
   Valore_Cella : real ;
   Code : Integer ;

begin
 self.Caption := 'Griglia varianti ' + '*' ;
 With ModuloDatiDocumenti do
  begin
   if TTDocVar.Locate('Desc_Var1;Desc_Var2',VarArrayOf([GridVarianti.Cells[0,ARow],GridVarianti.Cells[Acol,0]]),[]) then
    begin
     Val(Value,Valore_cella,code) ;
     If Code = 0 then
      begin
       TTDocVar.Edit ;
       TTdocVarQta.Value := Valore_cella ;
       TTDocVar.Post ;
      end ;
    end ;
  end ;
end;

procedure TGriglia_varianti.GrigliaShow(Sender: TObject);
begin
     Costruisci_griglia ;
end;

end.