API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 26th, 2015
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.15 KB | None | 0 0
raw download clone embed print report
  1. ******************************************ASP CODE***************************************************
  2.  
  3. <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
  4.  
  5. <%@ Register assembly="System.Web.Entity, Version=3.5.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
  6. namespace="System.Web.UI.WebControls" tagprefix="asp" %>
  7.  
  8. <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
  9.  
  10.  
  11. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-
  12. transitional.dtd">
  13.  
  14. <html xmlns="http://www.w3.org/1999/xhtml">
  15. <head id="Head1" runat="server">
  16. <title> OnCall Schedule </title>
  17. <style type="text/css">
  18. #form1
  19. {
  20. height: 731px;
  21. width: 1122px;
  22. }
  23. </style>
  24. </head>
  25. <body>
  26. <form id="frmDefault" method="post" runat="server">
  27. <asp:ToolkitScriptManager ID="ToolkitScriptManager2" runat="server">
  28. </asp:ToolkitScriptManager>
  29. <div>
  30.  
  31. </div>
  32. <asp:SqlDataSource ID="dsOncallGroup" runat="server"
  33. ConnectionString="<%$ ConnectionStrings:DiscussSQLConnectionString %>"
  34.  
  35. SelectCommand="SELECT * FROM tblOnCall WHERE (tblOnCall.fldOnCallGroup = @fldOnCallGroup)
  36. AND (tblOnCall.fldEndOnCall > GETDATE())
  37. ORDER BY tblOnCall.fldOnCallGroup, tblOnCall.fldEndOnCall, tblOnCall.fldRank"
  38. OldValuesParameterFormatString="original_{0}"
  39. ConflictDetection="CompareAllValues"
  40. DeleteCommand="DELETE FROM tblOnCall WHERE fldOCID = @fldOCID"
  41. InsertCommand="INSERT INTO [tblOnCall] ([fldOnCallGroup], [fldStartOnCall], [fldEndOnCall], [fldRank],
  42. [fldEmpName], [fldEmpWorkPhone],
  43. [fldEmpHomePhone],[fldEmpHomeCellPhone],[fldEmpAltPhone],[fldOCPreferredContact])
  44. VALUES (@fldOnCallGroup, @fldStartOnCall, @fldEndOnCall, @fldRank, @fldEmpName, @fldEmpWorkPhone, @fldEmpHomePhone,
  45. @fldEmpHomeCellPhone, @fldEmpAltPhone, @fldOCPreferredContact)"
  46.  
  47.  
  48.  
  49. UpdateCommand="UPDATE [tblOnCall] SET [fldOnCallGroup] = @fldOnCallGroup, [fldStartOnCall] = @fldStartOnCall,
  50. [fldEndOnCall] = @fldEndOnCall, [fldRank] = @fldRank, [fldEmpName] = @fldEmpName, [fldEmpWorkPhone] =
  51. @fldEmpWorkPhone,
  52. [fldEmpHomePhone] = @fldEmpHomePhone,[fldEmpHomeCellPhone] = @fldEmpHomeCellPhone,[fldEmpAltPhone] = @fldEmpAltPhone,
  53. [fldOCPreferredContact] = @fldOCPreferredContact
  54. WHERE [fldOCID] = @original_fldOCID">
  55.  
  56. <SelectParameters>
  57. <asp:ControlParameter ControlID="cboOncallGroup" Name="fldOnCallGroup"
  58. PropertyName="SelectedValue" Type="String" />
  59. </SelectParameters>
  60. <DeleteParameters>
  61. <asp:Parameter Name= "original_fldOCID" Type="Int16" />
  62. </DeleteParameters>
  63. <UpdateParameters>
  64. <asp:Parameter Name="fldOnCallGroup" Type="String" ConvertEmptyStringToNull="false" />
  65. <asp:Parameter Name="fldStartOnCall" DbType ="DateTime2" />
  66. <asp:Parameter Name="fldEndOnCall" DbType ="DateTime2" />
  67. <asp:Parameter Name= "fldRank" Type="Int16" />
  68. <asp:Parameter Name= "fldEmpName" Type="String" />
  69. <asp:Parameter Name= "fldEmpWorkPhone" Type="String" />
  70. <asp:Parameter Name= "fldEmpHomePhone" Type="String" />
  71. <asp:Parameter Name= "fldEmpHomeCellPhone" Type="String" />
  72. <asp:Parameter Name= "fldEmpAltPhone" Type="String" />
  73. <asp:Parameter Name= "fldOCPreferredContact" Type="String" />
  74. <asp:Parameter Name="original_fldOnCallGroup" Type="String" ConvertEmptyStringToNull="false" />
  75. <asp:Parameter Name="original_fldStartOnCall" DbType="DateTime2" />
  76. <asp:Parameter Name="original_fldEndOnCall" DbType="DateTime2" />
  77. <asp:Parameter Name= "original_fldRank" Type="Int16" />
  78. <asp:Parameter Name= "original_fldEmpName" Type="String" />
  79. <asp:Parameter Name= "original_fldEmpWorkPhone" Type="String" />
  80. <asp:Parameter Name= "original_fldEmpHomePhone" Type="String" />
  81. <asp:Parameter Name= "original_fldEmpHomeCellPhone" Type="String" />
  82. <asp:Parameter Name= "original_fldEmpAltPhone" Type="String" />
  83. <asp:Parameter Name= "original_fldOCPreferredContact" Type="String" />
  84. </UpdateParameters>
  85. <InsertParameters>
  86. <asp:Parameter Name="fldOnCallGroup" Type="String" />
  87. <asp:Parameter DbType="DateTime2" Name="fldStartOnCall" />
  88. <asp:Parameter DbType="DateTime2" Name="fldEndOnCall" />
  89. <asp:Parameter Name="fldRank" Type="Int16" />
  90. <asp:Parameter Name="fldEmpName" Type="String" />
  91. <asp:Parameter Name="fldEmpWorkPhone" Type="String" />
  92. <asp:Parameter Name="fldEmpHomePhone" Type="String" />
  93. <asp:Parameter Name="fldEmpHomeCellPhone" Type="String" />
  94. <asp:Parameter Name="fldEmpAltPhone" Type="String" />
  95. <asp:Parameter Name="fldOCPreferredContact" Type="String" />
  96. <asp:Parameter Name="original_fldOnCallGroup" Type="String" ConvertEmptyStringToNull="false" />
  97. <asp:Parameter Name="original_fldStartOnCall" DbType="DateTime2" />
  98. <asp:Parameter Name="original_fldEndOnCall" DbType="DateTime2" />
  99. <asp:Parameter Name= "original_fldRank" Type="Int16" />
  100. <asp:Parameter Name= "original_fldEmpName" Type="String" />
  101. <asp:Parameter Name= "original_fldEmpWorkPhone" Type="String" />
  102. <asp:Parameter Name= "original_fldEmpHomePhone" Type="String" />
  103. <asp:Parameter Name= "original_fldEmpHomeCellPhone" Type="String" />
  104. <asp:Parameter Name= "original_fldEmpAltPhone" Type="String" />
  105. <asp:Parameter Name= "original_fldOCPreferredContact" Type="String" />
  106. </InsertParameters>
  107. </asp:SqlDataSource>
  108.  
  109.  
  110. <asp:SqlDataSource ID="dsListbox" runat="server"
  111. ConnectionString="<%$ ConnectionStrings:DiscussSQLConnectionString %>"
  112. SelectCommand="SELECT DISTINCT [fldOnCallGroup] FROM [tblOnCall]">
  113. </asp:SqlDataSource>
  114.  
  115.  
  116.  
  117.  
  118. <br />
  119. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  120. <div style="margin-left: 50px">
  121. <asp:Image ID="Image1" runat="server" Height="100px"
  122. ImageUrl="~/images/ITSLogo.jpg" Width="100px" />
  123. <br /> <br /> <br /> <br />
  124.  
  125.  
  126. <asp:DropDownList ID="cboOncallGroup" runat="server" DataSourceID="dsListbox" DataTextField="fldOnCallGroup"
  127. DataValueField="fldOnCallGroup" AppendDataBoundItems="true"
  128. OnSelectedIndexChanged="cboOnCallGroup_SelectedIndexChanged" AutoPostBack="true" Height="19px" Width="237px">
  129. </asp:DropDownList>
  130. </div>
  131.  
  132. <asp:SqlDataSource ID="dsEmp" runat="server"
  133. ConnectionString="<%$ ConnectionStrings:DiscussSQLConnectionString %>"
  134. SelectCommand="SELECT DISTINCT [fldEmpName] FROM [tblOnCall]">
  135. </asp:SqlDataSource>
  136. <br /> <br />
  137. <div style="margin-left: 50px">
  138. <asp:Gridview ID="gvOnCallSchedule" runat="server" AllowSorting="True" AllowPaging="True" showfooter="true"
  139. OnRowUpdating="GvOnCall_Update" onRowCommand="gvOnCallSchedule_RowCommand" DataKeyNames="fldOCID"
  140. BackColor="Aqua" DataSourceID="dsOncallGroup" Font-Bold="True"
  141. Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
  142. Font-Underline="False" ForeColor="#333333" HorizontalAlign="Justify"
  143. CellPadding="4" GridLines="None" PageSize="20" AutoGenerateColumns ="false"
  144. OnSelectedIndexChanged="cboOnCallGroup_SelectedIndexChanged">
  145.  
  146. <Columns>
  147. <asp:TemplateField ShowHeader="false">
  148. <FooterTemplate>
  149. <asp:ImageButton ID="AddButton" runat="server" CommandName="Insert" ImageURL="~/images/New.png"
  150. Text="Add" ToolTip="Add New On Call Record" />
  151. </FooterTemplate>
  152.  
  153. <EditItemTemplate>
  154. <asp:ImageButton ID="UpdateButton" runat="server" CausesValidation="False" CommandName="Update"
  155. ImageUrl="~/images/Save.png" Text="Update" ToolTip="Update" />
  156. &nbsp;
  157. <asp:ImageButton ID="CancelButton" runat="server" CausesValidation="false" CommandName="Cancel"
  158. ImageURL="~/images/Cancel.png" Text="Cancel" ToolTip="Cancel" />
  159. </EditItemTemplate>
  160.  
  161. <ItemTemplate>
  162. <asp:ImageButton ID="EditButton" runat="server" CausesValidation="False" CommandName="Edit"
  163. ImageUrl="~/images/Edit.gif" Text="Edit" ToolTip="Edit" />
  164. &nbsp;
  165. <asp:ImageButton ID="DeleteButton" runat="server" CausesValidation="False" CommandName="Delete"
  166. ImageUrl="~/images/Delete.png" Text="Delete" ToolTip="Delete" />
  167. </ItemTemplate>
  168. <ItemStyle Wrap="false" />
  169. </asp:TemplateField>
  170.  
  171. <asp:Boundfield headertext="fldOCID" datafield="fldOCID" sortexpression="fldOCID" visible="false"
  172. InsertVisible="False" />
  173.  
  174. <asp:TemplateField headertext="On Call Group">
  175. <ItemTemplate>
  176. <asp:DropDownList ID="ddlOCGroup" width="250px" runat="server" datavaluefield="fldOnCallGroup" Enabled="false"
  177. DataSourceID= "dsListbox" SelectedValue="<%# Bind('fldOnCallGroup') %>">
  178. </asp:DropDownList>
  179. </ItemTemplate>
  180. <FooterTemplate>
  181. <asp:DropDownList ID="ftrddlOCGroup" width="250px" runat="server" datavaluefield="fldOnCallGroup"
  182. DataSourceID= "dsListbox" SelectedValue="<%# Bind('fldOnCallGroup') %>">
  183. </asp:DropDownList>
  184. </FooterTemplate>
  185. </asp:TemplateField>
  186.  
  187.  
  188. <asp:TemplateField headertext="Start Date/Time">
  189. <ItemTemplate>
  190. <asp:Textbox ID="txtStartOnCall" runat="server" Text='<%# Bind("fldStartOnCall") %>'>
  191. </asp:Textbox>
  192. <asp:Image ID="calpopup" runat="server" ImageUrl="~/images/calendar2.png" />
  193. <asp:CalendarExtender ID="StartOnCallCal" runat="server" TargetControlID="txtStartOnCall"
  194. PopupButtonID="calpopup" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
  195. </asp:CalendarExtender>
  196. </ItemTemplate>
  197. <FooterTemplate>
  198. <asp:Textbox ID="txtStartOnCallFtr" runat="server" Text='<%# Bind("fldStartOncall") %>'>
  199. </asp:Textbox>
  200. <asp:Image ID="calpopupFtr" runat="server" ImageUrl="~/images/calendar2.png" />
  201. <asp:CalendarExtender ID="StartOnCallCalFtr" runat="server" TargetControlID="txtStartOnCallFtr"
  202. PopupButtonID="calpopupFtr" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
  203. </asp:CalendarExtender>
  204.  
  205. </FooterTemplate>
  206. </asp:TemplateField>
  207.  
  208. <asp:TemplateField headertext="End Date/Time">
  209. <ItemTemplate>
  210. <asp:Textbox ID="txtEndOnCall" runat="server" Text='<%# Bind("fldEndOnCall") %>'>
  211. </asp:Textbox>
  212. <asp:Image ID="calpopup2" runat="server" ImageUrl="~/images/calendar2.png" />
  213. <asp:CalendarExtender ID="EndOnCallCal" runat="server" TargetControlID="txtEndOnCall"
  214. PopupButtonID="calpopup2" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
  215. </asp:CalendarExtender>
  216. </ItemTemplate>
  217. <FooterTemplate>
  218. <asp:Textbox ID="txtEndOnCallFtr" runat="server" Text='<%# Bind("fldEndOnCall") %>'>
  219. </asp:Textbox>
  220. <asp:Image ID="calpopup2Ftr" runat="server" ImageUrl="~/images/calendar2.png" />
  221. <asp:CalendarExtender ID="EndOnCallCalFtr" runat="server" TargetControlID="txtEndOnCallFtr"
  222. PopupButtonID="calpopup2Ftr" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
  223. </asp:CalendarExtender>
  224.  
  225. </FooterTemplate>
  226. </asp:TemplateField>
  227.  
  228.  
  229. <asp:TemplateField headertext="Call Order">
  230. <ItemTemplate>
  231. <asp:Textbox ID="lblCallOrder" runat="server" Text='<%# Bind("fldRank") %>'>
  232. </asp:Textbox>
  233. </ItemTemplate>
  234. <FooterTemplate>
  235. <asp:Textbox ID="txtCallOrderFtr" runat="server" Text='<%# Bind("fldOnCallGroup") %>'>
  236. </asp:Textbox>
  237. </FooterTemplate>
  238. </asp:TemplateField>
  239.  
  240.  
  241. <asp:TemplateField HeaderText="OnCall Analyst">
  242. <ItemTemplate>
  243. <asp:DropDownList ID="ddlAnalyst" runat="server" datavaluefield="fldEmpName"
  244. datasourceID="dsEmp" SelectedValue='<%# Bind("fldEmpName") %>'>
  245. </asp:DropDownList>
  246. </ItemTemplate>
  247. <FooterTemplate>
  248. <asp:DropDownList ID="ddlAnalystFtr" runat="server" datavaluefield="fldEmpName"
  249. DataSourceID= "dsEmp" SelectedValue='<%# Bind("fldEmpName") %>'>
  250. </asp:DropDownList>
  251. </FooterTemplate>
  252. </asp:TemplateField>
  253.  
  254. <asp:TemplateField headertext="Work Phone">
  255. <ItemTemplate>
  256. <asp:Textbox ID="lblWorkPhone" runat="server" Text='<%# Bind("fldEmpWorkPhone") %>'>
  257. </asp:Textbox>
  258. </ItemTemplate>
  259. <FooterTemplate>
  260. <asp:Textbox ID="txtWorkPhoneFtr" runat="server" Text='<%# Bind("fldEmpWorkPhone") %>'>
  261. </asp:Textbox>
  262. </FooterTemplate>
  263. </asp:TemplateField>
  264.  
  265. <asp:TemplateField headertext="Home Phone">
  266. <ItemTemplate>
  267. <asp:Textbox ID="lblHomePhone" runat="server" Text='<%# Bind("fldEmpHomePhone") %>'>
  268. </asp:Textbox>
  269. </ItemTemplate>
  270. <FooterTemplate>
  271. <asp:Textbox ID="txtHomePhoneFtr" runat="server" Text='<%# Bind("fldEmpHomePhone") %>'>
  272. </asp:Textbox>
  273. </FooterTemplate>
  274. </asp:TemplateField>
  275.  
  276. <asp:TemplateField headertext="Personal Cell">
  277. <ItemTemplate>
  278. <asp:Textbox ID="lblHomeCellPhone" runat="server" Text='<%# Bind("fldEmpHomeCellPhone") %>'>
  279. </asp:Textbox>
  280. </ItemTemplate>
  281. <FooterTemplate>
  282. <asp:Textbox ID="txtHomeCellPhoneFtr" runat="server" Text='<%# Bind("fldEmpHomeCellPhone") %>'>
  283. </asp:Textbox>
  284. </FooterTemplate>
  285. </asp:TemplateField>
  286.  
  287. <asp:TemplateField headertext="Alternate Phone">
  288. <ItemTemplate>
  289. <asp:Textbox ID="lblAltPhone" runat="server" Text='<%# Bind("fldEmpAltPhone") %>'>
  290. </asp:Textbox>
  291. </ItemTemplate>
  292. <FooterTemplate>
  293. <asp:Textbox ID="txtAltPhoneFtr" runat="server" Text='<%# Bind("fldEmpAltPhone") %>'>
  294. </asp:Textbox>
  295. </FooterTemplate>
  296. </asp:TemplateField>
  297.  
  298. <asp:TemplateField headertext="Preferred Contact">
  299. <ItemTemplate>
  300. <asp:Textbox ID="lblOCPreferredContact" runat="server" Text='<%# Bind("fldOCPreferredContact") %>'>
  301. </asp:Textbox>
  302. </ItemTemplate>
  303. <FooterTemplate>
  304. <asp:Textbox ID="txtOCPreferredContactFtr" runat="server" Text='<%# Bind("fldOCPreferredContact") %>'>
  305. </asp:Textbox>
  306. </FooterTemplate>
  307. </asp:TemplateField>
  308.  
  309.  
  310. </Columns>
  311. <FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
  312. <PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" />
  313. <SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
  314. <HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
  315. <EditRowStyle BackColor="#7C6F57" />
  316. <AlternatingRowStyle BackColor="White" />
  317.  
  318. </asp:Gridview>
  319. </div>
  320. <br />
  321. <br />
  322. <div style="margin-left: 200px">
  323. </div>
  324. </form>
  325. </body>
  326. </html>
  327.  
  328.  
  329. ***************************************VB.net Code behind****************************************
  330.  
  331. Imports System
  332. Imports System.Data
  333. Imports System.Data.Sql
  334. Imports System.Data.SqlClient
  335. Imports System.Data.DataRowView
  336.  
  337. Partial Class _Default
  338. Inherits System.Web.UI.Page
  339.  
  340. Protected Sub cboOnCallGroup_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
  341. cboOncallGroup.SelectedIndexChanged
  342. 'Dim cboAssignedFK As DropDownList = DirectCast(sender, DropDownList)
  343. Dim cboOnCallGroup As String = TryCast(sender, DropDownList).SelectedValue
  344. Dim sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings
  345. ("DiscussSQLConnectionString").ConnectionString)
  346. Dim sSql As System.Xml.Linq.XElement = <sql>
  347.  
  348. SELECT [fldOnCallGroup], [fldStartOnCall], [fldEndOnCall], [fldRank], [fldEmpName], [fldEmpWorkPhone],
  349. [fldEmpHomePhone], [fldEmpHomeCellPhone], [fldEmpAltPhone], [fldOCPreferredContact]
  350. FROM [tblOnCall]
  351.  
  352. WHERE ([fldOnCallGroup] = '<%= cboOnCallGroup %>')
  353. ORDER BY [fldOnCallGroup], [fldEndOnCall], [fldRank] </sql>
  354.  
  355.  
  356. Dim sqlCmd As New SqlCommand(sSql.Value, sqlConn)
  357. Dim sqlRead As SqlDataReader
  358. If sqlConn.State <> ConnectionState.Open Then
  359. sqlConn.Open()
  360. End If
  361. sqlRead = sqlCmd.ExecuteReader()
  362. sqlRead.Read()
  363.  
  364. sqlRead.Close()
  365. sqlConn.Close()
  366.  
  367. End Sub
  368.  
  369. Function SendSQLCommand(ByVal tsSQLCmd As String, ByVal tsqlConn As SqlConnection) As Integer
  370. Dim iRetVal As Integer = -1
  371. Dim sqlCmd As New SqlCommand(tsSQLCmd, tsqlConn)
  372. If tsqlConn.State <> ConnectionState.Open Then
  373. tsqlConn.Open()
  374. End If
  375. Try
  376. iRetVal = sqlCmd.ExecuteNonQuery()
  377. Catch ex As Exception
  378. Throw ex
  379. End Try
  380. Return iRetVal
  381. End Function
  382.  
  383. Function SendSQLCommand2(ByVal tsSQLCmd As String, ByVal tsqlConn As SqlConnection) As Integer
  384. Dim iRetVal As Integer = -1
  385. Dim sqlCmd As New SqlCommand(tsSQLCmd, tsqlConn)
  386. If tsqlConn.State <> ConnectionState.Open Then
  387. tsqlConn.Open()
  388. End If
  389.  
  390. Return iRetVal
  391. End Function
  392. Protected Sub GvOnCall_Update(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs)
  393. Dim keyValue As Integer = e.Keys("fldOCID")
  394. Dim strfldOnCallGroupOld As String = RTrim(LTrim(e.OldValues("fldOnCallGroup").ToString()))
  395. Dim strfldOnCallGroupNew As String = RTrim(LTrim(e.NewValues("fldOnCallGroup").ToString()))
  396. Dim strfldStartOnCallOld As String = RTrim(LTrim(e.OldValues("fldStartOnCall").ToString()))
  397. Dim strfldStartOnCallNew As String = RTrim(LTrim(e.NewValues("fldStartOnCall").ToString()))
  398. Dim strfldEndOnCallOld As String = RTrim(LTrim(e.OldValues("fldEndOnCall").ToString()))
  399. Dim strfldEndOnCallNew As String = RTrim(LTrim(e.NewValues("fldEndOnCall").ToString()))
  400. Dim strfldRankOld As Int32 = e.OldValues("fldRank")
  401. Dim strfldRankNew As Int32 = e.NewValues("fldRank")
  402. Dim strfldEmpNameOld As String = e.OldValues("fldEmpName")
  403. Dim strfldEmpNameNew As String = e.NewValues("fldEmpName")
  404. Dim strfldEmpWorkPhoneOld As String = e.OldValues("fldEmpWorkPhone")
  405. Dim strfldEmpWorkPhoneNew As String = e.OldValues("fldEmpWorkPhone")
  406. Dim strfldEmpHomePhoneOld As String = e.OldValues("fldEmpHomePhone")
  407. Dim strfldEmpHomePhoneNew As String = e.OldValues("fldEmpHomePhone")
  408. Dim strfldEmpHomeCellPhoneOld As String = e.OldValues("fldEmpHomeCellPhone")
  409. Dim strfldEmpHomeCellPhoneNew As String = e.OldValues("fldEmpHomeCellPhone")
  410. Dim strfldEmpAltPhoneOld As String = e.OldValues("fldEmpAltPhone")
  411. Dim strfldEmpAltPhoneNew As String = e.OldValues("fldEmpAltPhone")
  412. Dim strfldOnCallCellPhoneOld As String = e.OldValues("fldOnCallCellPhone")
  413. Dim strfldOnCallCellPhoneNew As String = e.OldValues("fldOnCallCellPhone")
  414. Dim fldOCPreferredContactOld As String = e.OldValues("fldOCPreferredContact")
  415. Dim fldOCPreferredContactNew As String = e.OldValues("fldOCPreferredContact")
  416.  
  417.  
  418. gvOnCall_Updated(keyValue, strfldOnCallGroupNew, strfldStartOnCallNew, strfldEndOnCallNew, strfldRankNew,
  419. strfldEmpNameNew, _
  420. strfldEmpWorkPhoneNew, strfldEmpHomePhoneNew, strfldEmpHomeCellPhoneNew, strfldEmpAltPhoneNew,
  421. strfldOnCallCellPhoneNew, fldOCPreferredContactNew)
  422.  
  423. End Sub
  424.  
  425. Protected Sub gvOnCall_Updated(ByVal fldOCID As Integer, ByVal fldOnCallGroup As String, ByVal fldStartOnCall As
  426. String, ByVal fldEndOnCall As String, _
  427. ByVal fldRank As Integer, ByVal fldEmpName As String, ByVal fldEmpWorkPhone As String,
  428. ByVal fldEmpHomePhone As String, _
  429. ByVal fldEmpHomeCellPhone As String, ByVal fldEmpAltPhone As String, ByVal fldOnCallCellPhone As String,
  430. ByVal fldOCPreferredContact As String)
  431. Dim sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings
  432. ("DiscussSQLConnectionString").ConnectionString)
  433. Dim sSql As XElement
  434. sSql = <sql>
  435. Update [tblOncall] SET [fldOnCallGroup] = '<%= fldOnCallGroup %>',
  436. [fldStartOnCall] = '<%= [fldStartOnCall] %>',[fldEndOnCall] = '<%= [fldEndOnCall] %>',
  437. [fldRank] = '<%= [fldRank] %>', [fldEmpName] = '<%= [fldEmpName] %>', [fldEmpWorkPhone] = '<%= [fldEmpWorkPhone] %>',
  438. [fldEmpHomePhone] = '<%= [fldEmpHomePhone] %>', [fldEmpHomeCellPhone] = '<%= [fldEmpHomeCellPhone] %>',
  439. [fldEmpAltPhone] = '<%= [fldEmpAltPhone] %>', [fldOCPreferredContact] = '<%= [fldOCPreferredContact] %>'
  440. Where [fldOCID] = '<%= [fldOCID] %>' </sql>
  441.  
  442. 'MsgBox(Err.Description, MsgBoxStyle.Critical, "SQL Error")
  443.  
  444. SendSQLCommand(sSql.Value, sqlConn)
  445. sqlConn.Close()
  446. End Sub
  447.  
  448. Protected Sub gvOnCallSchedule_RowCommand(ByVal sender As Object, ByVal e As
  449.  
  450. System.Web.UI.WebControls.CommandEventArgs) Handles gvOnCallSchedule.RowCommand
  451.  
  452. If e.CommandName = "Insert" AndAlso Page.IsValid Then
  453. Try
  454. dsOncallGroup.Insert()
  455. Catch ex As Exception
  456. MsgBox(Err.Description, MsgBoxStyle.Critical, "SQL Error")
  457. 'MsgBox("An error occured. Please ensure all required fields are entered and that the Application you
  458. are trying to add doesn't already exist.", MsgBoxStyle.Critical, "Database Error")
  459. Response.Redirect("Default.aspx")
  460. End Try
  461.  
  462. Response.Redirect("Default.aspx")
  463. End If
  464.  
  465.  
  466. If e.CommandName = "Delete" Then
  467. Try
  468. dsOncallGroup.Delete()
  469. Catch ex As Exception
  470. MsgBox(Err.Description, MsgBoxStyle.Critical, "SQL Error")
  471. 'MsgBox("Application Deleted Successfully")
  472. End Try
  473.  
  474. Response.Redirect("Default.aspx")
  475.  
  476. End If
  477.  
  478.  
  479. End Sub
  480.  
  481.  
  482. Protected Sub dsOnCallGroup_Inserting(ByVal sender As Object, ByVal e As SqlDataSourceCommandEventArgs) Handles
  483. dsOncallGroup.Inserting
  484. Dim strddlGroupName As New DropDownList
  485. Dim txtStartOnCall As New TextBox
  486. Dim txtEndOnCall As New TextBox
  487. Dim txtRank As New TextBox
  488. Dim strddlEmpName As New DropDownList
  489. Dim txtEmpWorkPhone As New TextBox
  490. Dim txtEmpHomePhone As New TextBox
  491. Dim txtEmpHomeCellPhone As New TextBox
  492. Dim txtEmpAltPhone As New TextBox
  493. Dim txtOCPreferredContact As New TextBox
  494.  
  495.  
  496. strddlGroupName = CType(gvOnCallSchedule.FooterRow.FindControl("ftrddlOCGroup"), DropDownList)
  497. txtStartOnCall = CType(gvOnCallSchedule.FooterRow.FindControl("txtStartOnCallFtr"), TextBox)
  498. txtEndOnCall = CType(gvOnCallSchedule.FooterRow.FindControl("txtEndOnCallFtr"), TextBox)
  499. txtRank = CType(gvOnCallSchedule.FooterRow.FindControl("txtCallOrderFtr"), TextBox)
  500. strddlEmpName = CType(gvOnCallSchedule.FooterRow.FindControl("ddlAnalystFtr"), DropDownList)
  501. txtEmpWorkPhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtWorkPhoneFtr"), TextBox)
  502. txtEmpHomePhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtHomePhoneFtr"), TextBox)
  503. txtEmpHomeCellPhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtHomeCellPhoneFtr"), TextBox)
  504. txtEmpAltPhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtAltPhoneFtr"), TextBox)
  505. txtOCPreferredContact = CType(gvOnCallSchedule.FooterRow.FindControl("txtOCPreferredContactFtr"), TextBox)
  506.  
  507. e.Command.Parameters("@fldOnCallGroup").Value = strddlGroupName.Text
  508. e.Command.Parameters("@fldStartOnCall").Value = txtStartOnCall.Text
  509. e.Command.Parameters("@fldEndOnCall").Value = txtEndOnCall.Text
  510. e.Command.Parameters("@fldRank").Value = txtRank.Text
  511. e.Command.Parameters("@fldEmpName").Value = strddlEmpName.Text
  512. e.Command.Parameters("@fldEmpWorkPhone").Value = txtEmpWorkPhone.Text
  513. e.Command.Parameters("@fldEmpHomePhone").Value = txtEmpHomePhone.Text
  514. e.Command.Parameters("@fldEmpHomeCellPhone").Value = txtEmpHomeCellPhone.Text
  515. e.Command.Parameters("@fldEmpAltPhone").Value = txtEmpAltPhone.Text
  516. e.Command.Parameters("@fldOCPreferredContact").Value = txtOCPreferredContact.Text
  517. 'MsgBox(strddlGroup.Text, MsgBoxStyle.Information)
  518.  
  519.  
  520. End Sub
  521.  
  522. End Class
  523.  
  524. ConflictDetection="OverwriteChanges"
  525.  
  526. <asp:SqlDataSource ID="dsOncallGroup" runat="server"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!