怎样在自己的进销存里导入速达、管家婆和用友的数据_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

怎样在自己的进销存里导入速达、管家婆和用友的数据

作者：闵涛文章来源：闵涛的学习笔记点击数：1838 更新时间：2009/4/23 18:37:39

sField1 := ''''STOREID,NAME,LOCATION,Memo'''';
InputSD3000(sSql1, sSql2, sField1, sField2, sConst);
//商品分类
sSql1 := ''''SELECT * FROM GOODSTYPE'''';
sSql2 := ''''SELECT * FROM BaseInfo'''';
sField2 := ''''mode,name1,name2'''';
sField1 := ''''!CONST,Name,description'''';
sConst := intToStr(BASE_WARE_SORT);
InputSD3000(sSql1, sSql2, sField1, sField2, sConst);
//商品
sSql1 :=
    ''''SELECT g.*,t.name as GTypeName FROM GOODS g,GOODSTYPE t WHERE g.goodstypeid=t.goodstypeid'''';
sSql2 := ''''SELECT * FROM Ware'''';
sField2 := ''''UserCode, Name, ShortName,Sort,Unit,Price1,ConstPrice'''';
sField1 := ''''goodsid,name,name,GTypeName,Unit,sprice,Pprice'''';
InputSD3000(sSql1, sSql2, sField1, sField2, sConst);
//地区
sSql1 := ''''SELECT * FROM AREA'''';
sSql2 := ''''SELECT * FROM BaseInfo'''';
sField2 := ''''Mode,Name1'''';
sField1 := ''''!CONST,Name'''';
sConst := intToStr(BASE_AREA);
InputSD3000(sSql1, sSql2, sField1, sField2, sConst);
//客户
sSql1 :=
    ''''SELECT C.*,A.Name as AreaName FROM CLIENT c LEFT JOIN AREA A on A.AREAID=c.AREAID'''';
sSql2 := ''''SELECT * FROM Unit'''';
sField2 := ''''Mode,UserCode,ShortName,Name,AreaName,LinkMan,Phone,PhoneMove,PhoneFax,PostalCode,''''
    +
    ''''Address,Memo,Banking,Accounts,WWW,EMail,Receive'''';
sField1 := ''''!CONST,ClientID,ShortName,Name,AreaName,CONTATOR,Phone,MOBILEPHONE,Fax,zip,''''
    +
    ''''Address,memo,bank,bankID,URL,EMail,BALANCE'''';
sConst := IntToStr(BASE_CLIENT);
InputSD3000(sSql1, sSql2, sField1, sField2, sConst);
//供应商
sSql1 :=
    ''''SELECT C.*,A.Name as AreaName FROM VENDOR c LEFT JOIN AREA A on A.AREAID=c.AREAID'''';
sSql2 := ''''SELECT * FROM Unit'''';
sField2 := ''''Mode,UserCode,ShortName,Name,AreaName,LinkMan,Phone,PhoneMove,PhoneFax,PostalCode,''''
    +
    ''''Address,Memo,Banking,Accounts,WWW,EMail,Payable'''';
sField1 := ''''!CONST,VENDORID,ShortName,Name,AreaName,CONTATOR,Phone,MOBILEPHONE,Fax,zip,''''
    +
    ''''Address,memo,bank,bankID,URL,EMail,BALANCE'''';
sConst := IntToStr(BASE_PROVIDE);
InputSD3000(sSql1, sSql2, sField1, sField2, sConst);

ShowMsg(''''导入数据成功！'''');
Screen.Cursor := crDefault;
end;

procedure TfrmUpdateSD3000.InputAllGraspData;
var
sSqlData: string;
sSql1, sSql2, sField1, sField2, sConst: string;
begin
sSql1 := '''''''';
sSql2 := '''''''';
sField1 := '''''''';
sField2 := '''''''';
sConst := '''''''';
if cbxSQLDB.ItemIndex < 0 then
    Exit;
sSqlData := cbxSQLDB.Items.Strings[cbxSQLDB.ItemIndex];
if sSQLData = '''''''' then
begin
    ShowMsg(''''请先连接SQLServer数据库！'''');
    Exit;
end;
if not ConectGrasp(sSqlData) then
begin
    ShowMsg(''''连接SQLServer数据库出错，请重新输入服务器名、用户名、密码！'''');
    Exit;
end;
Screen.Cursor := crHourglass;
//仓库
sSql1 := ''''SELECT * FROM STOCK WHERE TYPEID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM Depot'''';
sField1 := ''''USERCODE,FULLNAME,COMMENT'''';
sField2 := ''''UserCode,Name,Memo'''';
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
//商品
sSql1 := ''''SELECT * FROM ptype WHERE TYPEID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM Ware'''';
sField1 := ''''UserCode, FullName, Name,Unit1,preprice2,preprice1'''';
sField2 := ''''UserCode, Name, ShortName,Unit,Price1,ConstPrice'''';
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
//部门
sSql1 := ''''SELECT * FROM Department WHERE TYPEID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM BaseInfo'''';
sField1 := ''''!CONST,FullName'''';
sField2 := ''''Mode,Name1'''';
sConst := intToStr(BASE_DEPT);
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
//职员
sSql1 := ''''SELECT D.FullName AS DepName, E.* FROM employee E LEFT OUTER JOIN ''''
    +
    ''''Department D ON E.Department = D.typeid WHERE E.TYPEID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM Employe'''';
sField1 := ''''UserCode,FullName,ADDRESS,TEL,DepName,Comment'''';
sField2 := ''''Usercode,Name,Address,Phone,Dept,Memo'''';
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
//地区
sSql1 := ''''SELECT * FROM AreaType WHERE TYPEID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM BaseInfo'''';
sField1 := ''''!CONST,FullName'''';
sField2 := ''''Mode,Name1'''';
sConst := intToStr(BASE_AREA);
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
//客户
sSql1 := ''''SELECT A.FullName AS AreaName, B.* FROM btype B LEFT OUTER JOIN AreaType A''''
    +
    '''' ON B.AreaTypeID = A.TypeID WHERE B.TypeID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM Unit'''';
sField1 :=
    ''''!CONST,UserCode,Name,FullName,AreaName,PERSON,TELANDADDRESS,FAX,POSTCODE,AREA,Comment,BANKANDACOUNT,BANKANDACOUNT,ARTotal'''';
sField2 :=
    ''''Mode,UserCode,ShortName,Name,AreaName,LinkMan,Phone,PhoneFax,PostalCode,Address,Memo,Banking,Accounts,Receive'''';
sConst := intToStr(BASE_CLIENT);
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
//供应商
sSql1 := ''''SELECT A.FullName AS AreaName, B.* FROM btype B LEFT OUTER JOIN AreaType A''''
    +
    '''' ON B.AreaTypeID = A.TypeID WHERE B.TypeID<>''''''''00000'''''''''''';
sSql2 := ''''SELECT * FROM Unit'''';
sField1 :=
    ''''!CONST,UserCode,Name,FullName,AreaName,PERSON,TELANDADDRESS,FAX,POSTCODE,AREA,Comment,BANKANDACOUNT,BANKANDACOUNT,APTotal'''';
sField2 :=
    ''''Mode,UserCode,ShortName,Name,AreaName,LinkMan,Phone,PhoneFax,PostalCode,Address,Memo,Banking,Accounts,Payable'''';
sConst := intToStr(BASE_PROVIDE);
InputGrasp(sSql1, sSql2, sField1, sField2, sConst);
ShowMsg(''''导入数据成功！'''');
Screen.Cursor := crDefault;
end;

procedure TfrmUpdateSD3000.InputGrasp(sSql1, sSql2, sField1, sField2, sConst:
string);
begin
if OpenDataSetEx(SQLADOConnet, SQLDataSet, sSql1) and OpenDataSet(AdoDataSet, sSql2) then
DataSetInput(SQLDataSet, AdoDataSet, sField1, sField2, sConst);
end;

procedure TfrmUpdateSD3000.InputSD3000(sSql1, sSql2, sField1, sField2, sConst:
string);
begin
if OpenIBDataSet(sSql1) and OpenDataSet(AdoDataSet, sSql2) then
DataSetInput(IBDataSet1, AdoDataSet, sField1, sField2, sConst);
end;

procedure TfrmUpdateSD3000.edtYYDataButtonClick(Sender: TObject;
AbsoluteIndex: Integer);
var
sFileName: string;
begin
inherited;
OpenDlg.FileName := edtYYData.Text;
if OpenDlg.Execute then
begin
sFileName := OpenDlg.FileName;
edtYYData.Text := sFileName;
end;
end;

function TfrmUpdateSD3000.ConectGrasp(sData: string): Boolean;
var
sServer, sName, sPass: string;
begin
sServer := edtServeName.Text;
sName := edtLoginName.Text;
sPass := edtLoginPass.Text;
if Trim(sServer) = '''''''' then
    sServer := ''''LocalHost'''';
if Trim(sName) = '''''''' then
    sName := ''''sa'''';
with SQLADOConnet do
begin
    if Connected = True then
      Close;
    ConnectionString := GetSQLConnectionString(sServer, sData, sName, sPass);
    LoginPrompt := False;
    Open(sName, sPass);
    Result := Connected;
end;
end;

procedure TfrmUpdateSD3000.bbLinkServerClick(Sender: TObject);
var
sSql, sName, sTmp: string;
begin
inherited;
sSql := ''''SELECT * FROM sysdatabases WHERE (dbid > 5)'''';
sName := ''''Name'''';
sTmp := '''''''';
if ConectGrasp(''''Master'''') then
begin
    if OpenDataSetEx(SQLADOConnet, SQLDataSet, sSql) then
    begin
      TableToStrings2(SQLDataSet, sName, sTmp, sTmp, #13);
      cbxSQLDB.Items.Text := sName;
      if cbxSQLDB.Items.Count > 0 then
        cbxSQLDB.ItemIndex := 0;
    end;
end
else
    ShowMsg(''''连接SQLServer数据库出错，请重新输入服务器名、用户名、密码！'''');
end;