Powershell：单击 GUI 上的按钮移动到数组中的下一个项目

Question

我创建了一个 GUI，目的是从 SQL 表中删除一行。

我现在坚持让结果在按下按钮时一次显示一个。

图形用户界面截图：

如果我返回三个结果，它将在文本框中显示第一个结果，然后当按下下一步按钮时，它会跳过第二个结果并显示最后一个。

调试表明它确实找到了三个结果，但就像我需要在结果之间停止它，直到按下按钮移动到下一个。我尝试了很多东西，但都没有运气。

这里是代码（抱歉有很多。我卡在底部附近的部分）：

<# 
.NAME
    Remove A File
#>

Start-Transcript -path "c:\path\RemoveScipt.txt"

$StaticData = "C:\path\Static Data.csv"
$SQLServer = "SERVERNAME"
$DB = "DATABASENAME"

Add-Type -AssemblyName System.Windows.Forms
[System.Windows.Forms.Application]::EnableVisualStyles()

$RemoveFile                      = New-Object system.Windows.Forms.Form
$RemoveFile.ClientSize           = New-Object System.Drawing.Point(530,510)
$RemoveFile.text                 = "Remove a script"
$RemoveFile.TopMost              = $false

$ScriptName                      = New-Object system.Windows.Forms.Label
$ScriptName.text                 = "Script Name"
$ScriptName.AutoSize             = $true
$ScriptName.width                = 25
$ScriptName.height               = 10
$ScriptName.location             = New-Object System.Drawing.Point(14,20)
$ScriptName.Font                 = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$ReportName                      = New-Object system.Windows.Forms.Label
$ReportName.text                 = "Report Name"
$ReportName.AutoSize             = $true
$ReportName.width                = 25
$ReportName.height               = 10
$ReportName.location             = New-Object System.Drawing.Point(14,50)
$ReportName.Font                 = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$Result                          = New-Object system.Windows.Forms.Label
$Result.text                     = "Is this the script you wish to remove?"
$Result.AutoSize                 = $true
$Result.width                    = 25
$Result.height                   = 10
$Result.location                 = New-Object System.Drawing.Point(14,110)
$Result.Font                     = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$ScriptNameCombo                 = New-Object system.Windows.Forms.ComboBox
$ScriptNameCombo.width           = 337
$ScriptNameCombo.height          = 20
$ScriptNameCombo.location        = New-Object System.Drawing.Point(120,19)
$ScriptNameCombo.Font            = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
$ScriptNameSQL                   ="SELECT distinct Script_Name FROM TABLE"
$ScriptNameCall                  = Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $ScriptNameSQL
$ScriptNameCombo.Items.AddRange($ScriptNameCall.Script_Name) #ADDS ITEMS TO A DROPDOWN LIST

$ReportNameCombo                 = New-Object system.Windows.Forms.ComboBox
$ReportNameCombo.width           = 337
$ReportNameCombo.height          = 20
$ReportNameCombo.location        = New-Object System.Drawing.Point(120,49)
$ReportNameCombo.Font            = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$GoBut                           = New-Object system.Windows.Forms.Button
$GoBut.text                      = "Go!"
$GoBut.width                     = 45
$GoBut.height                    = 25
$GoBut.location                  = New-Object System.Drawing.Point(470,18)
$GoBut.Font                      = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
$GoBut.BackColor                 =[System.Drawing.Color]::LightGreen

$Go2But                          = New-Object system.Windows.Forms.Button
$Go2But.text                     = "Go!"
$Go2But.width                    = 45
$Go2But.height                   = 25
$Go2But.location                 = New-Object System.Drawing.Point(470,48)
$Go2But.Font                     = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
$Go2But.BackColor                =[System.Drawing.Color]::LightGreen

$NextBut                         = New-Object system.Windows.Forms.Button
$NextBut.text                    = "Next"
$NextBut.width                   = 70
$NextBut.height                  = 30
$NextBut.location                = New-Object System.Drawing.Point(242,103)
$NextBut.Font                    = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
$NextBut.BackColor               =[System.Drawing.Color]::FloralWhite

$ResultText                      = New-Object system.Windows.Forms.TextBox
$ResultText.multiline            = $true
$ResultText.width                = 500
$ResultText.height               = 325
$ResultText.scrollbars           = "Both"
$ResultText.WordWrap             = $false
$ResultText.location             = New-Object System.Drawing.Point(14,135)
$ResultText.Font                 = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$RemoveScript                    = New-Object system.Windows.Forms.Button
$RemoveScript.text               = "Remove the script"
$RemoveScript.width              = 150
$RemoveScript.height             = 30
$RemoveScript.location           = New-Object System.Drawing.Point(14,470)
$RemoveScript.Font               = New-Object System.Drawing.Font('Microsoft Sans Serif',10)

$CancelBut                       = New-Object system.Windows.Forms.Button
$CancelBut.text                  = "Cancel"
$CancelBut.width                 = 150
$CancelBut.height                = 30
$CancelBut.location              = New-Object System.Drawing.Point(365,470)
$CancelBut.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
$CancelBut.BackColor             =[System.Drawing.Color]::IndianRed

$RemoveFile.controls.AddRange(@($ScriptName,$ReportName,$RemoveScript,$ScriptNameCombo,$ReportNameCombo,$GoBut,$ResultText,$Result,$Go2But,$CancelBut,$NextBut))

$GoBut.Add_Click({ 
    
    #USES WHAT WAS CHOSEN FROM THE FIRST DROPDOWN LIST TO FIND ANY ENTRIES WITH THAT ITEM IN THE FIRST COLUMN TO CREATE A SECOND DROPDOWN LIST. THIS IS TO SHORTEN THE RESULTS
    
    $ReportNameLinkedSQL="SELECT distinct Report_Name FROM TABLE where Script_Name = '$($ScriptNameCombo.text)'"
    $ReportNameCallLinked= Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $ReportNameLinkedSQL
    
    if ($ScriptNameCombo.text.length -eq 0){[System.Windows.Forms.MessageBox]::Show('Ya gotta select a Script, buddy!','Uh oh','OK','Error')}else{
    $ReportNameCombo.Items.AddRange($ReportNameCallLinked.Report_Name)}

})

$Go2But.Add_Click({ 

    #THIS USES THE PREVIOUS TWO SELECTIONS TO FIND ALL MATCHING ROWS IN THE DATABASE WITH THOSE TWO ITEMS IN THE FIRST TWO COLUMNS. IT WILL SHOW THE FIRST RESULT IN THE TEXT BOX
 
   $FullScriptSQL="SELECT * FROM TABLE where Script_Name = '$($ScriptNameCombo.text)' and Report_Name = '$($ReportNameCombo.text)'"
   $global:FullScriptCallLinked= @(Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $FullScriptSQL)
   $count=$FullScriptCallLinked.count
   $nl = "`r`n"

   if ($ScriptNameCombo.text.length -eq 0){[System.Windows.Forms.MessageBox]::Show('Ya gotta select a Script, buddy!','Uh oh','OK','Error')}
       elseif($ReportNameCombo.text.length -eq 0){[System.Windows.Forms.MessageBox]::Show('Ya gotta select a Report, buddy!','Uh oh','OK','Error')}
           elseif($count -eq $null -and $FullScriptCallLinked.Email_or_file -eq 'E'){$ResultText.text = ($nl),"Script Name = ",$FullScriptCallLinked.script_name,($nl),($nl),"Report Name = ",$FullScriptCallLinked.Report_name,($nl),($nl),"View Name = ",$FullScriptCallLinked.View_name,($nl),($nl),"Module = ",$FullScriptCallLinked.Module,($nl),($nl),"Email Address = ",$FullScriptCallLinked.email,($nl),($nl),"Email Subject = ",$FullScriptCallLinked.email_subject,($nl),($nl),"Email Body = ",$FullScriptCallLinked.email_message,($nl),($nl),"File Name = ",$FullScriptCallLinked.filename,($nl),($nl),"File Type = ",$FullScriptCallLinked.file_type}
               elseif($count -eq $null -and $FullScriptCallLinked.Email_or_file -eq 'F'){$ResultText.text = ($nl),"Script Name = ",$FullScriptCallLinked.script_name,($nl),($nl),"Report Name = ",$FullScriptCallLinked.Report_name,($nl),($nl),"View Name = ",$FullScriptCallLinked.View_name,($nl),($nl),"Module = ",$FullScriptCallLinked.Module,($nl),($nl),"File Name = ",$FullScriptCallLinked.filename,($nl),($nl),"File Path = ",$FullScriptCallLinked.file_path,($nl),($nl),"Todays Date = ",$FullScriptCallLinked.today_date,($nl),($nl),$FullScriptCallLinked.yesterday_date,($nl),($nl),"File Type = ",$FullScriptCallLinked.file_type}
                    elseif($FullScriptCallLinked[0].Email_or_file -eq 'E'){$ResultText.text = ($nl),"Script Name = ",$FullScriptCallLinked[0].script_name,($nl),($nl),"Report Name = ",$FullScriptCallLinked[0].Report_name,($nl),($nl),"View Name = ",$FullScriptCallLinked[0].View_name,($nl),($nl),"Module = ",$FullScriptCallLinked[0].Module,($nl),($nl),"Email Address = ",$FullScriptCallLinked[0].email,($nl),($nl),"Email Subject = ",$FullScriptCallLinked[0].email_subject,($nl),($nl),"Email Body = ",$FullScriptCallLinked[0].email_message,($nl),($nl),"File Name = ",$FullScriptCallLinked[0].filename,($nl),($nl),"File Type = ",$FullScriptCallLinked[0].file_type}
                        elseif($FullScriptCallLinked[0].Email_or_file -eq 'F'){$ResultText.text = ($nl),"Script Name = ",$FullScriptCallLinked[0].script_name,($nl),($nl),"Report Name = ",$FullScriptCallLinked[0].Report_name,($nl),($nl),"View Name = ",$FullScriptCallLinked[0].View_name,($nl),($nl),"Module = ",$FullScriptCallLinked[0].Module,($nl),($nl),"File Name = ",$FullScriptCallLinked[0].filename,($nl),($nl),"File Path = ",$FullScriptCallLinked[0].file_path,($nl),($nl),"Todays Date = ",$FullScriptCallLinked[0].today_date,($nl),($nl),$FullScriptCallLinked[0].yesterday_date,($nl),($nl),"File Type = ",$FullScriptCallLinked[0].file_type}

})

$Nextbut.Add_Click({ 

    #HERE IS WHERE I AM STUCK. MY INTENT IS TO SCROLL THROUGH EACH RESULT WHEN THE BUTTON IS CLICKED

    function onClick {
                    foreach($i in $FullScriptCallLinked){
                    $ResultText.text = ($nl),"Script Name = ",$i.script_name,($nl),($nl),"Report Name = ",$i.Report_name,($nl),($nl),"View Name = ",$i.View_name,($nl),($nl),"Module = ",$i.Module,($nl),($nl),"Email Address = ",$i.email,($nl),($nl),"Email Subject = ",$i.email_subject,($nl),($nl),"Email Body = ",$i.email_message,($nl),($nl),"File Name = ",$i.filename,($nl),($nl),"File Type = ",$i.file_type
                    }
   }
   onClick

            
})

$RemoveScript.Add_Click({ 
    
    #NOT COMPLETE
    
    $deleteSQL = "DELETE FROM TABLE WHERE Script_Name = '$($FullScriptCallLinked.script_name)' and Report_Name = '$($FullScriptCallLinked.Report_name)' and View_Name = '$($FullScriptCallLinked.View_name)' and FILENAME = '$($FullScriptCallLinked.filename)' and File_type = '$($FullScriptCallLinked.file_type)'"
    write-host $deleteSQL
    #[environment]::exit(0) 
    })

$CancelBut.Add_Click({ 
    
    #CLEARS ALL FIELDS IN THE FORM
    
    $ScriptNameCombo.text=$null
    $ReportNameCombo.items.clear()
    $ReportNameCombo.resettext()
    $ResultText.clear()

    })

[void]$RemoveFile.ShowDialog()

在这方面的任何帮助都会很棒！提前致谢

Answer 1

问题来了：

foreach($i in $FullScriptCallLinked){
    $ResultText.text = ....
}

foreach 语句逐一遍历所有项。所以如果$FullScriptCallLinked中有三个项目，上面的代码会设置$ResultText.text 3次。前两个值将被最后一个覆盖。所以你在 UI 中看到的只是最后一项。

你可以这样做：

$currentResultIndex = 0

$Nextbut.Add_Click({ 

    function onClick {
        $currentResultIndex = $currentResultIndex+1
        if($currentResultIndex -ge $FullScriptCallLinked.Length) {
            $currentResultIndex = 0;
        }

        $i = $FullScriptCallLinked[$currentResultIndex]
        $ResultText.text = ($nl),"Script Name = ",$i.script_name,($nl),($nl),"Report Name = ",$i.Report_name,($nl),($nl),"View Name = ",$i.View_name,($nl),($nl),"Module = ",$i.Module,($nl),($nl),"Email Address = ",$i.email,($nl),($nl),"Email Subject = ",$i.email_subject,($nl),($nl),"Email Body = ",$i.email_message,($nl),($nl),"File Name = ",$i.filename,($nl),($nl),"File Type = ",$i.file_type
    }
    onClick
})

请阅读有关 PowerShell 集合和foreach 声明的更多信息。

Answer 2

哎呀！我忘记了这个。我确实想出了如何滚动浏览每个结果，然后在到达末尾时循环回到第一个结果。

我对 GUI 进行了一些更改以使其更容易。

我已经完成了脚本。我更新了“开始”按钮并完成了“下一步”按钮：

$GoBut.Add_Click({ 

   #Establish SQL statements which include a search and a count to verify it completed successfully at the end 
   $FullScriptSQLEmail = "SELECT * FROM TABLE where email = '$($EmailAddressCombo.text)' and Email_or_file = 'E'"
   $FullScriptSQLFile = "SELECT * FROM TABLE where Filename = '$($fileNameCombo.text)' and Email_or_file = 'F'"
   $CountSelectE = "SELECT count (*) FROM TABLE where email = '$($EmailAddressCombo.text)' and Email_or_file = 'E'"
   $CountSelectF = "SELECT count (*) FROM TABLE where Filename = '$($fileNameCombo.text)' and Email_or_file = 'F'"
   $FullScriptCallEmail = @(Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $FullScriptSQLEmail)
   $FullScriptCallFile = @(Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $FullScriptSQLFile)
   $CountResultE = Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $CountSelectE   
   $CountResultF = Invoke-Sqlcmd -ServerInstance $SQLServer -Database $DB -Query $CountSelectF
   
   $nl = "`r`n"

   #Get a count. This works for a 'sanity check', but counts one as zero if you attempt to output it
   $countEmail = $FullScriptCallEmail.count
   $countFile = $FullScriptCallFile.count
   
   #Bit of a cleanup to prevent errors
   $IfExist = Test-Path "./artifacts/*.txt"
   if ($IfExist -eq $true){[System.Windows.Forms.MessageBox]::Show('Whoops! Just gonna clear out some stuff to give you a fresh start Bucko.','Oh dear','OK','Error')

        $EmailAddressCombo.text=$null
        $fileNameCombo.text=$null
        $ScriptCount.text=$null
        $ResultText.clear()
        Remove-Item ".\Artifacts\*.txt"
            
        return} 
   
   #Only allow one combobox to be chosen, but must be one
   Function Clear_fields{
         $EmailAddressCombo.text=$null
         $fileNameCombo.text=$null
   }

   if ($EmailAddressCombo.text.length -ne 0 -and $fileNameCombo.text.length -ne 0){[System.Windows.Forms.MessageBox]::Show('THERE CAN ONLY BE ONE! You can only choose an Email OR a File Path, champ!','Uh oh','OK','Error'); Clear_fields; return}
       elseif($EmailAddressCombo.text.length -eq 0 -and $fileNameCombo.text.length -eq 0){[System.Windows.Forms.MessageBox]::Show('Ya gotta select a Report, buddy!','Uh oh','OK','Error'); return}

   #Using the Count SQL statment to get a real count and then putting the number of results into a box so you know how many you got
   if ($CountResultE.Column1 -gt 0){$ScriptCount.text = $CountResultE.Column1}else
        {$ScriptCount.text = $CountResultF.Column1}
   
   #Put all the data into a text file and format it at the same time    
   if($countEmail -gt 0)
       {foreach($i in $FullScriptCallEmail){
        add-content -path "./Artifacts/results.txt" -value "$($nl) Script Name = $($i.script_name)$($nl)$($nl) Report Name = $($i.Report_name)$($nl)$($nl) View Name = $($i.View_name)$($nl)$($nl) Module = $($i.Module)$($nl)$($nl) Email Address = $($i.email)$($nl)$($nl) Email Subject = $($i.email_subject)$($nl)$($nl) Email Body = $($i.email_message)$($nl)$($nl) File Name = $($i.filename)$($nl)$($nl) File Type = $($i.file_type)"}
        }          
           
   if($countFile -gt 0)
       {foreach($i in $FullScriptCallFile){
        add-content -path "./Artifacts/results.txt" -value "$($nl) Script Name = $($i.script_name)$($nl)$($nl) Report Name = $($i.Report_name)$($nl)$($nl) View Name = $($i.View_name)$($nl)$($nl) Module = $($i.Module)$($nl)$($nl) File Name = $($i.filename)$($nl)$($nl) File Path = $($i.file_path)$($nl)$($nl) Todays Date = $($i.today_date)$($nl)$($nl) Yesterdays Date = $($i.yesterday_date)$($nl)$($nl) File Type = $($i.file_type)"}
        }

   #Establish the results file and create a copy. Show the first 18 lines in the result box
   $resultfile = "./Artifacts/results.txt"
   copy-item "./Artifacts/results.txt" -destination "./Artifacts/result_copy.txt"
   @($content = get-content $resultfile)
   $ResultText.Lines = $content[0..17]
             
})


$Nextbut.Add_Click({ 

        $resultfile = "./Artifacts/results.txt"
    
    #Function to delete the top 18 lines of the result file so the next 18 are grabbed. If there is only one set left (counts how many times Script Name appears), then the data in the copy is copied and pasted into the results file, starting it all over again
        function del-line {

            $Check1 = get-content $resultfile
            $Check2 = $Check1 -match "Script Name"
            $check2.count

            if ($check2.count -eq 1){

               $copy = "./Artifacts/result_copy.txt"
               get-content $copy | set-content $resultfile
               
               $ResultText.clear()

            }else{
    
               $ResultText.clear()
                
                (Get-Content $resultfile | Select-Object -Skip 18) | Set-Content $resultfile
                }

            }

    #Funciton to get the first 18 lines of the result file and display it after using the del-line function
        function onClick{

            del-line
            $LineCount = get-content $resultfile
            if (($LineCount.count) -eq 1){
   
            $content = get-content $resultfile
            $ResultText.text = $content}
            else{
            $content = get-content $resultfile
            $ResultText.Lines = $content[0..17]
                }
                       
            }
        
    #Start the loop    
        onClick

})

如果有人想要整个脚本，请告诉我。

我编写了 5 个 GUI 脚本，以使我的团队的工作更轻松：

添加 SQL 条目

删除 SQL 条目

修改 SQL 条目

搜索并导出一个或多个 SQL 条目

我不是专家，我知道这有点笨拙，但对我们有用。我认为大型数据库可能会对资源造成一些压力