importart.~pa

Mosaic ERP大型系统 v6.09.rar

unit importart;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables, ComCtrls,
  PageMngr, Mask, DBGridEh, SMIBase, SMIWiz, RxMemDS, ActnList, SMI2Cell,
  SMI2XLS;

type
  TImport_Articoli = class(TForm)
    ImportDB_OLD: TTable;
    dsImport: TDataSource;
    Annulla: TButton;
    apriFile: TOpenDialog;
    Avanti: TButton;
    Indietro: TButton;
    Notebook: TNotebook;
    DBGrid2: TDBGrid;
    Label8: TLabel;
    MappaDb: TTable;
    MappaDbSoggetto: TStringField;
    MappaDbCampo: TStringField;
    MappaDbDalcampo: TStringField;
    MappaDbTipovalore: TStringField;
    Edit1: TEdit;
    Label9: TLabel;
    EliminaBtn: TButton;
    Importa: TButton;
    barra_progresso: TProgressBar;
    DBGrid1: TDBGrid;
    Label5: TLabel;
    Scegli: TButton;
    DBEdit1: TDBEdit;
    dsMappa: TDataSource;
    PageManager1: TPageManager;
    PageProxy1: TPageProxy;
    PageProxy2: TPageProxy;
    PageProxy3: TPageProxy;
    PageProxy4: TPageProxy;
    GrigliaMappa: TDBGridEh;
    Label1: TLabel;
    DBNavigator1: TDBNavigator;
    dsSoggetti: TDataSource;
    giornale: TMemo;
    Label2: TLabel;
    editFiltro: TEdit;
    Label3: TLabel;
    FiltroBtn: TButton;
    Metodo: TRadioGroup;
    Salva: TButton;
    SalvaFile: TSaveDialog;
    erroreStop: TCheckBox;
    MappaDbId: TIntegerField;
    chiave: TComboBox;
    Import_W: TSMIWizardDlg;
    ImportDB: TRxMemoryData;
    procedure ImportaClick(Sender: TObject);
    procedure ScegliClick(Sender: TObject);
    procedure EliminaBtnClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure PageProxy2Show(Next: Boolean);
    procedure PageProxy2Enter(Next: Boolean);
    procedure PageProxy3Enter(Next: Boolean);
    procedure PageProxy1Show(Next: Boolean);
    procedure dsSoggettiDataChange(Sender: TObject; Field: TField);
    procedure FiltroBtnClick(Sender: TObject);
    procedure SalvaClick(Sender: TObject);
    procedure PageProxy4Show(Next: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    function CheckfileImportazione: boolean;
    function Riga: string;
    procedure Aggiorna;
    procedure UpdateCampi;
    procedure Aggiungi;
    procedure ImportaWzd;
    { Public declarations }
  end;

var
  Import_Articoli: TImport_Articoli;

implementation

uses ana_mod;

{$R *.DFM}

procedure TImport_Articoli.ImportaClick(Sender: TObject);
Var
 met,codFor : string ;

begin
 If ImportDb.IsEmpty then
  begin
   ShowMessage('La tabella