一个映射源代码~~~~~(0分)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Mask;

type
TfrmMain = class(TForm)
edtResource: TEdit;
edtLocal: TEdit;
StaticText1: TStaticText;
StaticText2: TStaticText;
Panel1: TPanel;
Bevel1: TBevel;
edtUser: TEdit;
StaticText3: TStaticText;
StaticText4: TStaticText;
edtPass: TMaskEdit;
Panel2: TPanel;
Bevel2: TBevel;
btnMap: TButton;
btnCancelMap: TButton;
btnExit: TButton;
procedure btnMapClick(Sender: TObject);
procedure btnCancelMapClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.DFM}
procedure TfrmMain.btnCancelMapClick(Sender: TObject);
begin
if MessageDlg('确实要断开么?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
//不管是否有文件打开，断开网络驱动器：
if WNetCancelConnection2(pchar(edtLocal.text), CONNECT_UPDATE_PROFILE, True)=NO_ERROR then
//映射断开成功
showmessage(edtResource.text+'映射断开！')
else
showmessage('断开映射失败');
end;
procedure TfrmMain.btnMapClick(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName :=Pchar(edtLocal.text);
// 将远程资源映射到此驱动器
lpRemoteName :=pchar(edtResource.text);
// 远程网络资源
lpProvider := '';
// 必须赋值,如为空则使用lpRemoteName的值
end;
if WnetAddConnection2(NetSource, pchar(edtPass.text), pchar(edtUser.text), CONNECT_UPDATE_PROFILE)=NO_ERROR
//用户名为Guest，口令为Password,下次登录时重新连接,此时在Windows资源管理器中可看到网络驱动器：
then
//映射成功
showmessage(edtResource.text+'成功映射成'+edtLocal.text)
else
showmessage('映射失败！');
end;
procedure TfrmMain.btnExitClick(Sender: TObject);
begin
frmMain.Close;
end;

end.

以上的代码是DELPHI 6.0编写的

你有没有关于数据映射的源码噢？有提供一下，急需！！！

于数据映射的源码 ? 什么数据映射 内存文件？还是网络端口？

就是不同/相同的两个数据库之间表的映射，简言之，就是数据的转换问题。

SORRY，我对数据库没有研究呀`~~