databringunit.pas

学籍管理

{**********************************************************************}
{                    ===================                               }
{                       导入备份数据                                   }
{                   ===================                                }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{                                                                      }
{                                                                      }
{**********************************************************************}

unit DataBringUnit;

interface

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

type
  TfmBring = class(TForm)
    OpenDialog1: TOpenDialog;
    ClientDataSet1: TClientDataSet;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmBring: TfmBring;

implementation

uses DataMoudle, MainForm;


{$R *.DFM}

procedure TfmBring.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  if OpenDialog1.FileName<>'' then
  begin
    OpenDialog1.Options:=[ofFileMustExist];
    ClientDataSet1.LoadFromFile(OpenDialog1.FileName);
  end;
end;

procedure TfmBring.Button1Click(Sender: TObject);
begin
  if ServerLinked then
  begin
    DataModule1.ClientDataSet1.AppendData(ClientDataSet1.Data,False);
  end;
end;

end.