|
怎样在自己的进销存里导入速达、管家婆和用友的数据(8) 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';
|
