uimportrerport.pas

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

unit UImportRerport;

interface

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

type
  TImport_Report_form = class(TForm)
    ReportEsterniDb: TTable;
    ReportEsterniDbName: TStringField;
    ReportEsterniDbSize: TIntegerField;
    ReportEsterniDbItemType: TIntegerField;
    ReportEsterniDbModified: TDateTimeField;
    ReportEsterniDbDeleted: TDateTimeField;
    ReportEsterniDbTemplate: TBlobField;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Apri1: TMenuItem;
    Esci1: TMenuItem;
    DBGrid1: TDBGrid;
    dsReportExt: TDataSource;
    DBGrid2: TDBGrid;
    ImportaBtn: TButton;
    EsportaBtn: TButton;
    OpenDialog: TOpenDialog;
    Nuovo1: TMenuItem;
    copiaTab: TBatchMove;
    DestinazioneDb: TTable;
    SalvaCome: TMenuItem;
    Salva: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    SaveDialog: TSaveDialog;
    procedure EsportaBtnClick(Sender: TObject);
    procedure Esci1Click(Sender: TObject);
    procedure Apri1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ImportaBtnClick(Sender: TObject);
    procedure Nuovo1Click(Sender: TObject);
    procedure SalvaComeClick(Sender: TObject);
    procedure SalvaClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Import_Report_form: TImport_Report_form;

implementation

uses Umenu, u_request;

{$R *.DFM}

procedure TImport_Report_form.EsportaBtnClick(Sender: TObject);
Var
   i : integer ;
   nomeCampo : string ;

begin
 If ReportEsterniDb.Active and not Menu_form.tblItem.IsEmpty then
  begin
    If ReportEsterniDb.Locate('Name',Menu_form.tblItem.FieldByName('Name').asString,[]) then
     begin
      ShowMessage('Report gi