PROCEDURE DB_Inicialize(TrueFalse)
Server, User, Password, BD is string
NextTitle("Atenção")
IF TrueFalse = True THEN PathFile is string = fCurrentDir( fCurrentDrive() ) +"\config.ini" IF fFileExist(PathFile) = True THEN Server = INIRead("Nagyro", "Server", "", PathFile) IF ErrorOccurred = True AND Server = "" THEN Error() END User = INIRead("Nagyro", "User", "", PathFile) IF ErrorOccurred = True AND User = "" THEN Error() END Password = INIRead("Nagyro","Password", "", PathFile) IF ErrorOccurred = True AND Password = "" THEN Error() END BD = INIRead("Nagyro", "BD", "", PathFile) IF ErrorOccurred = True AND BD = "" THEN Error() END Sincronizar = INIRead("Nagyro", "Sincronizar", "", PathFile) IF ErrorOccurred = True AND Sincronizar = "" THEN Error() END HCloseConnection(ConnNativa) ConnNativa..Server = Server ConnNativa..User = User ConnNativa..Password = Password ConnNativa..Database = BD ConnNativa..Provider = hNativeAccessSQLServer ConnNativa..Access = hOReadWrite ConnNativa..ExtendedInfo = "Extended information" ConnNativa..CursorOptions = hClientCursor ok is boolean = HOpenConnection(ConnNativa) IF ok = False Info(ErrorInfo()) Close() ELSE Info("OK") END ELSE Info("Arquivo de configuração config.ini não localizado.") END END
IF Sincronizar = "S" THEN ExeRun("NET TIME \\192.168.1.180 /SET /YES",exeIconize,exeDontWait) END |