怎样在自己的进销存里导入速达、管家婆和用友的数据计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:31:52
来源 100Test.Com百考试题网

　　unit UpdateSD3000.
　　interface
　　uses
　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　Dialogs, EditForm, KsControls, KsLabels, KsSkinLabels, dxEditor,
　　dxExEdtr, dxEdLib, dxCntner, KsButtons, KsSkinButtons, KsTabs,
　　KsSkinTabs, KsHooks, KsForms, KsSkinForms, KsEdits, KsComboBoxs,
　　KsSkinComboBoxs, DB, IBDatabase, Registry, SysPublic, IBCustomDataSet,
　　Grids, DBGrids, ADODB.
　　type
　　TfrmUpdateSD3000 = class(TfrmEditForm)
　　PageControl: TSeSkinPageControl.
　　TabSD3000: TKsCustomTabSheet.
　　KsCustomTabSheet2: TKsCustomTabSheet.
　　bbOk: TSeSkinButton.
　　bbNo: TSeSkinButton.
　　OpenDlg: TOpenDialog.
　　edtSDData: TdxButtonEdit.
　　SeSkinLabel1: TSeSkinLabel.
　　SeSkinLabel2: TSeSkinLabel.
　　SeSkinLabel3: TSeSkinLabel.
　　SeSkinLabel4: TSeSkinLabel.
　　SeSkinLabel5: TSeSkinLabel.
　　edtServeName: TdxEdit.
　　SeSkinLabel6: TSeSkinLabel.
　　SeSkinLabel7: TSeSkinLabel.
　　edtLoginName: TdxEdit.
　　SeSkinLabel8: TSeSkinLabel.
　　edtLoginPass: TdxEdit.
　　bbLinkServer: TSeSkinButton.
　　SeSkinLabel9: TSeSkinLabel.
　　SeSkinLabel10: TSeSkinLabel.
　　SeSkinLabel11: TSeSkinLabel.
　　IBDatabase1: TIBDatabase.
　　IBTransaction1: TIBTransaction.
　　IBDataSet1: TIBDataSet.
　　AdoDataSet: TADODataSet.
　　KsCustomTabSheet3: TKsCustomTabSheet.
　　SeSkinLabel15: TSeSkinLabel.
　　edtYYData: TdxButtonEdit.
　　SeSkinLabel12: TSeSkinLabel.
　　SeSkinLabel13: TSeSkinLabel.
　　SeSkinLabel14: TSeSkinLabel.
　　SeSkinLabel16: TSeSkinLabel.
　　SQLADOConnet: TADOConnection.
　　SQLDataSet: TADODataSet.
　　cbxSQLDB: TdxPickEdit.
　　procedure edtSDDataButtonClick(Sender: TObject. AbsoluteIndex: Integer).
　　procedure bbNoClick(Sender: TObject).
　　procedure bbOkClick(Sender: TObject).
　　procedure edtYYDataButtonClick(Sender: TObject.
　　AbsoluteIndex: Integer).
　　procedure bbLinkServerClick(Sender: TObject).
　　private
　　{ Private declarations }
　　bReturn: Boolean.
　　function GetSD3000Path: string. //得到速达的安装目录
　　function GetUFERPPath: string. //得到用友的安装目录
　　function ConectGrasp(sData: string): Boolean.
　　function ConectSD3000(sDBPath: string): Boolean.
　　function OpenIBDataSet(sDBName: string): Boolean.
　　procedure InputGrasp(sSql1, sSql2, sField1, sField2, sConst: string).
　　procedure InputSD3000(sSql1, sSql2, sField1, sField2, sConst: string).
　　procedure InputAllSD3000Data. //全部速达数据
　　procedure InputAllGraspData. //全部管家婆数据
　　procedure InputAllUfSoft80Data. //全部用友数据
　　procedure MainShow.
　　procedure LoadData.
　　public
　　{ Public declarations }
　　end.
　　function UpdateSD3000Show: Boolean.
　　implementation
　　uses DBData.
　　{$R *.dfm}
　　function UpdateSD3000Show: Boolean.
　　var
　　frmUpdateSD3000: TfrmUpdateSD3000.
　　begin
　　frmUpdateSD3000 := TfrmUpdateSD3000.Create(Application).
　　with frmUpdateSD3000 do
　　begin
　　MainShow.
　　Result := bReturn.
　　Free.
　　end.
　　end.
　　procedure TfrmUpdateSD3000.MainShow.
　　begin
　　LoadData.
　　ShowModal.
　　end.
　　function TfrmUpdateSD3000.GetSD3000Path: string.
　　var
　　Reg: TRegistry.