error.pas

通过此软件可方便的对interbase数据库进行合并

unit error;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  LMDControl, LMDBaseControl, LMDBaseGraphicControl, LMDGraphicControl,
  LMDFill, ExtCtrls, DBCtrls, Grids, DBGrids, Db, StdCtrls, LMDBaseLabel,
  LMDCustomLabel, LMDLabel, wwSpeedButton, wwDBNavigator, wwclearpanel,
  Wwdbigrd, Wwdbgrid;

type
  Terrorform = class(TForm)
    LMDFill1: TLMDFill;
    LMDLabel1: TLMDLabel;
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    DataSource2: TDataSource;
    wwDBGrid1: TwwDBGrid;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1Delete: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBGrid2: TwwDBGrid;
    wwDBNavigator2: TwwDBNavigator;
    wwDBNavigator2First: TwwNavButton;
    wwDBNavigator2PriorPage: TwwNavButton;
    wwDBNavigator2Prior: TwwNavButton;
    wwDBNavigator2Next: TwwNavButton;
    wwDBNavigator2NextPage: TwwNavButton;
    wwDBNavigator2Last: TwwNavButton;
    wwDBNavigator2Insert: TwwNavButton;
    wwDBNavigator2Delete: TwwNavButton;
    wwDBNavigator2Edit: TwwNavButton;
    wwDBNavigator2Post: TwwNavButton;
    wwDBNavigator2Cancel: TwwNavButton;
    wwDBNavigator2Refresh: TwwNavButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  errorform: Terrorform;

implementation
  uses datmod;
{$R *.DFM}

end.