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 Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey(''''\Software\SuperData\SD3000\net'''', False) then Result := Reg.ReadString(''''RemoteDBDir'''') finally Reg.CloseKey; Reg.Free; end; end;
function TfrmUpdateSD3000.GetUFERPPath: string; var Reg: TRegistry; begin Result := ''''''''; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey(''''\Software\SuperData\SD3000\net'''', False) then Result := Reg.ReadString(''''RemoteDBDir'''') finally Reg.CloseKey; Reg.Free; end; end;
procedure TfrmUpdateSD3000.LoadData; begin PageControl.TabIndex := 0; edtSDData.Text := GetSD3000Path; edtYYData.text := GetUFERPPath; end;
procedure TfrmUpdateSD3000.edtSDDataButtonClick(Sender: TObject; AbsoluteIndex: Integer); var sFileName: string; begin inherited; OpenDlg.FileName := edtSDData.Text; if OpenDlg.Execute then begin sFileName := OpenDlg.FileName; edtSDData.Text := sFileName; end; end;
function TfrmUpdateSD3000.ConectSD3000(sDBPath: string): Boolean; begin Result := False; if Trim(sDBPath) = '''''''' then begin ShowMsg(''''请输入数据库路径!''''); Exit; end; if not FileExists(sDBPath) then begin ShowMsg(''''数据库路径不正确,系统找不到指定的文件!''''); Exit; end; IBDatabase1.DefaultTransaction := IBTransaction1; IBDatabase1.DatabaseName := sDBPath; try IBDatabase1.Open; except end; if IBDatabase1.Connected then Result := True else ShowMsg(''''连接数据库出错,请输入正确的速达数据库文件!''''); end;
function TfrmUpdateSD3000.OpenIBDataSet(sDBName: string): Boolean; begin Result := True; if IBDataSet1.Active then IBDataSet1.Close; IBDataSet1.SelectSQL.Text := sDBName; try IBDataSet1.Open; except result := false; end; end;
procedure TfrmUpdateSD3000.bbNoClick(Sender: TObject); begin inherited; Close; end;
procedure TfrmUpdateSD3000.bbOkClick(Sender: TObject); begin inherited; if PageControl.TabIndex = 0 then InputAllSD3000Data else if PageControl.TabIndex = 1 then InputAllUfSoft80Data else if PageControl.TabIndex = 2 then InputAllGraspData; end;
procedure TfrmUpdateSD3000.InputAllUfSoft80Data; begin ShowMsg(''''请选择正确的用友财务UFERP-M8系列的数据库文件!''''); end;
procedure TfrmUpdateSD3000.InputAllSD3000Data; var sSql1, sSql2, sField1, sField2, sConst: string; begin if not ConectSD3000(edtSDData.Text) then Exit; Screen.Cursor := crHourglass; sSql1 := ''''''''; sSql2 := ''''''''; sField1 := ''''''''; sField2 := ''''''''; sConst := ''''''''; //部门 sSql1 := ''''SELECT * FROM DEPARTMENT''''; sSql2 := ''''SELECT * FROM BaseInfo''''; sField2 := ''''Mode,Name1''''; sField1 := ''''!CONST,Name''''; sConst := intToStr(BASE_DEPT); InputSD3000(sSql1, sSql2, sField1, sField2, sConst); //职员类别 sSql1 := ''''SELECT * FROM EMPTYPE''''; sSql2 := ''''SELECT * FROM BaseInfo''''; sField2 := ''''Mode,Name1''''; sField1 := ''''!CONST,Name''''; sConst := intToStr(BASE_EMPLOYE_SORT); InputSD3000(sSql1, sSql2, sField1, sField2, sConst); //职员 sSql1 := ''''SELECT e.*,s.Name as SexName,d.Name as DEPARTMENTName,t.Name as EmpTypeName '''' + ''''FROM EMPLOY e,EMPTYPE t,SEX s,DEPARTMENT d '''' + ''''WHERE e.EMPTYPEID=t.EmpTYPEID and e.Sex=s.ID and e.DEPARTMENT=d.ID''''; sSql2 := ''''SELECT * FROM Employe''''; sField2 := ''''Usercode,Name,Business,PostalCode,Place,DutyDate,Wage,ID_Card,Address,'''' + ''''Sex,ComeDate,EMail,Learning,PhoneCall,Phone,PhoneMove,Dept,Sort''''; sField1 := ''''EMPCODE,NAME,DUTY,POSTCODE,FOREFATHER,POSTDATE,PAY,IDCARD,ADDRESS,'''' + ''''SEXNAME,BIRTHDAY,EMAIL,CULTURE,BP,TELEPHONE,HOMEPHONE,DEPARTMENTNAME,EMPTYPENAME''''; InputSD3000(sSql1, sSql2, sField1, sField2, sConst); //商品单位 sSql1 := ''''SELECT * FROM UNIT''''; sSql2 := ''''SELECT * FROM BaseInfo''''; sField2 := ''''Mode,Name1''''; sField1 := ''''!CONST,Name''''; sConst := intToStr(BASE_WARE_UNIT); InputSD3000(sSql1, sSql2, sField1, sField2, sConst); //仓库 sSql1 := ''''SELECT * FROM STORE''''; sSql2 := ''''SELECT * FROM Depot''''; sField2 := ''''UserCode,Name,Address,Memo'''';
[1] [2] 下一页 没有相关教程
|