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

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;
begin
  Result := '';
  Reg := TRegistry.Create;
  try

阅读终点,创作起航,您可以撰写心得或摘录文章要点写篇博文。去创作
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
### 回答1: 速达3000std单机版8.88是一款性能强大的工作站,它采用先进的技术和高性能的硬件配置,适用于处理各种复杂的任务和应用程序。该机型搭载了最新一代的处理器,拥有强大的计算能力和处理速度,能够很好地应对大数据处理、图形渲染等高要求的工作。此外,它还配置了充足的内存和存储空间,可以高效地运行多个应用程序和存储大量数据速达3000std单机版8.88还配备了高分辨率的显示屏,提供清晰、细腻的图像显示效果,给用户带来舒适的视觉体验。此外,该机型还支持多种接口和扩展槽,可以与其他外部设备进行连接和扩展,提供更强的兼容性和扩展性。总之,速达3000std单机版8.88是一款功能强大、性能卓越的工作站,适用于各种专业工作和应用场景,是用户提高工作效率和处理复杂任务的好帮手。 ### 回答2: 速达3000std单机版8.88是一款高性能的数控机床系统。该系统集成了先进的技术和功能,使其具备了高精度、高速度和高稳定性的特点。 速达3000std单机版8.88具备强大的加工能力,能够完成多种复杂的加工任务。它采用先进的数控系统,可实现高速加工和高精度定位。同时,该系统还配备了各种精密的传感器和测量设备,可实时监测和控制加工过程,确保加工精度和质量。 该系统还拥有丰富的功能和灵活的操作界面,使操作人员能够轻松掌握并快速上手。同时,它还支持多种编程方式,包括手动编程、自动编程和图形化编程,可根据用户的需求进行选择。 速达3000std单机版8.88还具备高稳定性和可靠性,可在长时间运行和高负荷工作状态下保持良好的性能表现。它采用先进的散热技术和优质的材料制作,具有良好的抗干扰能力和稳定的工作环境要求。 综上所述,速达3000std单机版8.88是一款功能强大、性能稳定的数控机床系统,适用于各种复杂加工任务,能够满足用户对高精度、高速度和高质量加工的需求。 ### 回答3: 速达3000std单机版8.88是一款高性能的单机版软件。它是由速达科技有限公司开发的一个业务管理软件,主要用于帮助企业实现高效的业务运营。 该软件拥有强大的功能,包括客户关系管理、供应链管理、销售订单管理、采购订单管理、财务管理等模块。通过这些功能,用户可以方便地管理企业的业务流程和信息。 首先,速达3000std单机版8.88提供了强大的客户关系管理功能。用户可以随时了解客户的信息,包括联系方式、购买记录和需求等。通过这些信息,企业可以更好地与客户沟通,提供更好的服务。 其次,该软件还提供了供应链管理功能。用户可以追踪订单的整个供应链过程,包括采购、库存管理、生产和物流等。通过这些功能,企业可以更好地控制成本、优化供应链流程,提高运营效率。 此外,速达3000std单机版8.88还具备销售订单管理和采购订单管理功能。用户可以轻松地创建、管理和跟踪销售订单和采购订单。这有助于企业提高订单处理效率,减少错误和延误。 最后,该软件还拥有完善的财务管理模块。用户可以方便地管理财务流程,包括发票管理、账户对账和财务报表等。这有助于企业实时掌握财务状况,做出准确的决策。 总之,速达3000std单机版8.88是一款功能强大的业务管理软件,通过提供客户关系管理、供应链管理、销售订单管理、采购订单管理和财务管理等功能,帮助企业提高运营效率,实现业务的快速发展。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

laoli

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值