ana_expimp_doc_u.pas

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

unit ana_ExpImp_doc_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGridEh, StdCtrls, Db, DBTables;

type
  Tana_ExpImp_doc = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    DBNavigator1: TDBNavigator;
    DBRadioGroup1: TDBRadioGroup;
    DBRadioGroup2: TDBRadioGroup;
    DBRadioGroup3: TDBRadioGroup;
    DBCheckBox1: TDBCheckBox;
    DBRadioGroup4: TDBRadioGroup;
    DBRadioGroup5: TDBRadioGroup;
    Chiudi: TButton;
    Importa_campi: TButton;
    Label1: TLabel;
    procedure Importa_campiClick(Sender: TObject);
    procedure ChiudiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ana_ExpImp_doc: Tana_ExpImp_doc;

implementation

uses ana_mod, Doc_mod;

{$R *.DFM}

procedure Tana_ExpImp_doc.Importa_campiClick(Sender: TObject);
var conta : integer ;
begin
 {
  tdoc := TTable.Create(nil) ;
  tdoc.DatabaseName := 'euro2000' ;
  tdoc.Tablename := 'tdoc.db' ;
  tdoc.Open ;

  ddoc := TTable.Create(nil) ;
  ddoc.DatabaseName := 'euro2000' ;
  ddoc.Tablename := 'ddoc.db' ;
  ddoc.Open ;

  ddocvar := TTable.Create(nil) ;
  ddocvar.DatabaseName := 'euro2000' ;
  ddocvar.Tablename := 'ddocvar.db' ;
  ddocvar.Open ;
 }

  if MessageDlg('Attenzione: Vuoi proseguire?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
      while not ModuloDatiAnagrafiche.TTExpImp_doc.IsEmpty do
        ModuloDatiAnagrafiche.TTExpImp_doc.Delete ;
      for conta := 0 to ModuloDatidocumenti.TTtestata.FieldCount - 1 do
        with ModuloDatiAnagrafiche do
          begin
            TTExpImp_doc.Insert ;
            TTExpImp_docNomeTabella.AsString := 'tdoc' ;
            TTExpImp_docCampo.AsString := ModuloDatidocumenti.TTtestata.fields[conta].FieldName  ;
            TTExpImp_docIdPostazione.AsString := '0' ;
            TTExpImp_docCampoObbligatori.AsBoolean := False ;
            TTExpImp_doc.Post ;
          end ;
      for conta := 0 to ModuloDatidocumenti.TTdettaglio.FieldCount - 1 do
        with ModuloDatiAnagrafiche do
          begin
            TTExpImp_doc.Insert ;
            TTExpImp_docNomeTabella.AsString := 'ddoc' ;
            TTExpImp_docCampo.AsString := ModuloDatidocumenti.TTdettaglio.fields[conta].FieldName  ;
            TTExpImp_docIdPostazione.AsString := '0' ;
            TTExpImp_docCampoObbligatori.AsBoolean := False ;
            TTExpImp_doc.Post ;
          end ;
      for conta := 0 to ModuloDatidocumenti.TTdocvar.FieldCount - 1 do
        with ModuloDatiAnagrafiche do
          begin
            TTExpImp_doc.Insert ;
            TTExpImp_docNomeTabella.AsString := 'ddocvar' ;
            TTExpImp_docCampo.AsString := ModuloDatidocumenti.TTdocvar.fields[conta].FieldName  ;
            TTExpImp_docIdPostazione.AsString := '0' ;
            TTExpImp_docCampoObbligatori.AsBoolean := False ;
            TTExpImp_doc.Post ;
          end ;
    end ;
 {
  tdoc.close ;
  tdoc.free ;
  ddoc.close ;
  ddoc.free ;
  ddocvar.close ;
  ddocvar.free ;
 }
end;

procedure Tana_ExpImp_doc.ChiudiClick(Sender: TObject);
begin
  close ;
end;

end.