Code : Tout sélectionner
#Include <String.au3>
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
;variables globales
Global $optSQL_PassWord, $optSQL_User, $optSQL_Server_Name
Global $optFTP, $optEMail, $optEmail_To, $optEmail_From, $optEmail_Server, $optEmail_User, $optEmail_Password
Global $optFile, $optSybase, $optSybase_Dumps, $optLog
Global $optFTP_Server, $optFTP_User, $optFTP_Password
Global $optPCSN, $optTimeMark
Global $optDic, $optAriaStandard, $optPasserelle
_Main()
Func _Main()
;variables Locals
;~ service
Local $BTNEXIT, $MSG, $BTNOK, $BTNSybase, $BTNSybase_Dumps, $BTNFile, $BTNLog, $BTNTimeMark
Local $sSybase_Dumps_Folder="",$sSybase_Folder="" , $sLog=""
Local $sFile = @ScriptDir, $i, $sPCSN=""
Local $sSQL, $sSQL_User="" , $sSQL_PassWord = "", $sSQL_Server_Name= ""
Local $sEMail,$sEmail_User="",$sEmail_Password="",$sEmail_Server="",$sEmail_From="",$sEmail_To=""
Local $sFTP,$sFTP_Server="",$sFTP_User="",$sFTP_Password = ""
Local $sTimeMark=""
GUICreate("SmartAlert ", 440, 540, 100, 100) ; will create a dialog box
GUICtrlCreateGroup("SQL", 10, 5, 210, 90)
GUICtrlCreateLabel("User : ", 20, 25 , 100)
$optSQL_User = GUICtrlCreateInput($sSQL_User, 100, 25)
GUICtrlSetState(-1, $GUI_FOCUS)
GUICtrlSetTip(-1, "The title of the message box.")
GUICtrlCreateLabel("PassWord : ", 20, 45 , 100)
$optSQL_PassWord = GUICtrlCreateInput($sSQL_PassWord, 100, 45,"","", 0x20)
GUICtrlSetTip(-1, "The title of the message box.")
GUICtrlCreateLabel("Serveur name : ", 20, 65, 100)
$optSQL_Server_Name = GUICtrlCreateInput($sSQL_Server_Name, 100, 65)
GUICtrlSetTip(-1, "The text of the message box.")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("PCSN ", 230, 5, 210, 50)
GUICtrlCreateLabel("PCSN : ", 240, 25 , 50,18)
$optPCSN = GUICtrlCreateInput($sPCSN, 280, 25 , 150,18)
GUICtrlSetTip(-1, "PCSN")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Passerelle ", 230, 100, 210, 50)
$optPasserelle = GUICtrlCreateCheckbox("Passerelle", 240, 120 , 160,18)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Dic/AriaStandard ", 230, 155, 210, 50)
$optDic = GUICtrlCreateRadio("Dic ", 240, 175, 50, 18)
GUICtrlSetState(-1, $GUI_CHECKED)
$optAriaStandard = GUICtrlCreateRadio("AriaStandard ", 300, 175, 100,18 )
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("TimeMark file ", 230, 210, 210, 50)
$optTimeMark = GUICtrlCreateInput($sTimeMark, 240, 230 , 160,18)
$BTNTimeMark = GUICtrlCreateButton("...", 400, 230,15,18)
GUICtrlSetTip(-1, "Time Mark")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Sybase ", 10, 100, 210, 50)
$optSybase = GUICtrlCreateInput($sSybase_Folder, 20, 120 , 160,18)
$BTNSybase = GUICtrlCreateButton("...", 180, 120,15,18)
GUICtrlSetTip(-1, "Sybase folder")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("SybaseDumps ", 10, 155, 210, 50)
$optSybase_Dumps = GUICtrlCreateInput($sSybase_Dumps_Folder, 20, 175 , 160,18)
$sSybase_Dumps_Folder=GUICtrlRead($optSybase_Dumps)
$BTNSybase_Dumps = GUICtrlCreateButton("...", 180, 175,15,18)
GUICtrlSetTip(-1, "SybaseDumps folder")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Created files location", 10, 210, 210, 50)
$optFile = GUICtrlCreateInput($sFile, 20, 230 , 160,18)
$BTNFile = GUICtrlCreateButton("...",180, 230,15,18)
GUICtrlSetTip(-1, "Created files location")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Log location", 10, 265, 210, 50)
$optLog = GUICtrlCreateInput($sLog, 20, 285 , 160,18)
$BTNLog = GUICtrlCreateButton("...", 180, 285,15,18)
GUICtrlSetTip(-1, "Created Log location")
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
GUICtrlCreateGroup("Sending method ", 10, 320, 420, 160)
$optEMail = GUICtrlCreateCheckbox("E-mail", 20, 340, 100)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateLabel("User : ", 20, 360 , 50,18)
$optEmail_User = GUICtrlCreateInput($sEmail_User, 90, 360 , 100,18)
GUICtrlCreateLabel("Password : ", 20, 380 , 50,18)
$optEmail_Password = GUICtrlCreateInput($sEmail_Password, 90, 380 , 100,18, 0x20)
GUICtrlCreateLabel("Server name : ", 20, 400 ,70,18)
$optEmail_Server = GUICtrlCreateInput($sEmail_Server, 90, 400 , 100,18)
GUICtrlCreateLabel("From : ", 20, 420 , 50,18)
$optEmail_From = GUICtrlCreateInput($sEmail_From, 90, 420 , 100,18)
GUICtrlCreateLabel("To : ", 20, 440 , 50,18)
$optEmail_To = GUICtrlCreateInput($sEmail_To, 90, 440 , 100,18)
$optFTP = GUICtrlCreateCheckbox("FTP", 240, 340, 100)
GUICtrlCreateLabel("Server name : ", 240, 360, 70,18)
$optFTP_Server = GUICtrlCreateInput($sFTP_Server, 310, 360 , 100,18)
GUICtrlCreateLabel("User : ", 240, 380 , 50,18)
$optFTP_User = GUICtrlCreateInput($sFTP_User, 310, 380 , 100,18)
GUICtrlCreateLabel("Password : ", 240, 400 , 70,18)
$optFTP_Password = GUICtrlCreateInput($sFTP_Password, 310, 400 , 100,18, 0x20)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
;Buttons
$BTNEXIT = GUICtrlCreateButton("&Exit", 230, 510, 100)
GUICtrlSetTip(-1, "Quit the program")
$BTNOK = GUICtrlCreateButton("&OK", 80, 510, 100)
GUICtrlSetTip(-1, "Save")
GUISetState() ; will display an empty dialog box
; Run the GUI until the dialog is closed
While 1
$i=0
$MSG = GUIGetMsg()
Select
Case $MSG = $BTNSybase
$sSybase_Folder = FileSelectFolder("Choose Sybase folder.", "")
$optSybase = GUICtrlCreateInput($sSybase_Folder, 20, 120 , 100,18)
Case $MSG = $BTNSybase_Dumps
$sSybase_Dumps_Folder = FileSelectFolder("Choose SybaseDumps folder.", "")
$optSybase_Dumps = GUICtrlCreateInput($sSybase_Dumps_Folder, 20, 175 , 200,18)
Case $MSG = $BTNFile
$sFile = FileSelectFolder("Choose folder to right in.", "")
$optFile = GUICtrlCreateInput($sFile, 20, 120 , 100,18)
Case $MSG = $BTNLog
$sLog = FileSelectFolder("Choose folder to right in.", "")
$optLog= GUICtrlCreateInput($sLog,20, 285 , 200,18)
Case $MSG = $BTNTimeMark
$sTimeMark = FileOpenDialog("TimeMark file.", @DesktopDir & "\","All (*.*)" , 1 + 4 )
$optTimeMark = GUICtrlCreateInput($sTimeMark, 240, 230 , 160,18)
Case $MSG = $GUI_EVENT_CLOSE Or $MSG = $BTNEXIT
Exit
Case $MSG = $BTNOK
If GUICtrlRead($optPCSN)="HIT0000" or GUICtrlRead($optPCSN)="" Then
MsgBox(0,"","Error : The PCSN value is not correct ")
$i-=1
ElseIf GUICtrlRead($optPasserelle) = 1 Then
If not FileExists ( GUICtrlRead($optTimeMark)) or GUICtrlRead($optTimeMark) = "" or StringInStr(GUICtrlRead($optTimeMark),"timemark",1) = 0 Then
MsgBox(0,"TimeMark"," The folder you have chosen is not correct, please choose the right one")
$i-=1
EndIf
ElseIf GUICtrlRead($optSQL_User) = "" Or GUICtrlRead($optSQL_PassWord) = "" or GUICtrlRead($optSQL_Server_Name) = "" Then
MsgBox(0,"SQL","pleaze complete all obligatory cases")
$i-=1
ElseIf StringInStr($sSybase_Folder ,"Sybase",1) = 0 Then
MsgBox(0,"Sybase"," The folder you have chosen is not correct, please choose the right one")
$i-=1
ElseIf StringInStr($sSybase_Dumps_Folder ,"Sybasedumps",1) = 0 Then
MsgBox(0,"Sybasedumps"," The folder you have chosen is not correct, please choose the right one")
$i-=1
ElseIf not FileExists ( GUICtrlRead($optLog) ) Then
MsgBox(0,"Log"," The folder you have chosen don't exist, please choose the right one")
$i-=1
ElseIf not FileExists ( GUICtrlRead($optFile) )Then
MsgBox(0,"Files location"," The folder you have chosen don't exist, please choose the right one")
$i-=1
ElseIf not FileExists ( GUICtrlRead($optSybase) ) Then
MsgBox(0,"Sybase"," The folder you have chosen don't exist, please choose the right one")
$i-=1
ElseIf not FileExists ( GUICtrlRead($optSybase_Dumps) ) Then
MsgBox(0,"Sybasedumps"," The folder you have chosen don't exist, please choose the right one")
$i-=1
ElseIf GUICtrlRead($optFTP)=1 or GUICtrlRead($optEMail)=1 Then
If GUICtrlRead($optFTP)=1 Then
If GUICtrlRead($optFTP_Server) = "" Or GUICtrlRead($optFTP_User) = "" or GUICtrlRead($optFTP_Password) = "" Then
MsgBox(0,""," you have chosen to use FTP methode , please complete all obligatory cases")
$i-=1
EndIf
EndIf
If GUICtrlRead($optEMail)=1 Then
If GUICtrlRead($optEmail_From) = "" Or GUICtrlRead($optEmail_To) = "" or GUICtrlRead($optEmail_Server ) = "" Then
MsgBox(0,""," you have chosen to use E-mail methode , please complete all obligatory cases")
$i-=1
EndIf
EndIf
ElseIf GUICtrlRead($optFTP)<>1 and GUICtrlRead($optEMail)<>1 Then
MsgBox(0,""," You have to choose at least one of the sending method ")
$i-=1
EndIf
If $i=0 Then
enregistrement($sIni)
Exit
EndIf
EndSelect
WEnd
EndFunc ;==>_Main