API tools faq
paste
Advertisement
Guest User

zieldenastere

a guest
Jun 17th, 2013
235
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 16.08 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2. Dim con As System.Data.SqlClient.SqlConnection
  3. Dim cmd As System.Data.SqlClient.SqlCommand
  4. Dim dr As System.Data.SqlClient.SqlDataReader
  5. Dim sqlstr As String
  6. Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
  7. If ComboBox1.Text = "Ianuarie" Then
  8. ComboBox2.Items.Clear()
  9. ComboBox2.Items.Add(1)
  10. ComboBox2.Items.Add(2)
  11. ComboBox2.Items.Add(3)
  12. ComboBox2.Items.Add(4)
  13. ComboBox2.Items.Add(5)
  14. ComboBox2.Items.Add(6)
  15. ComboBox2.Items.Add(7)
  16. ComboBox2.Items.Add(8)
  17. ComboBox2.Items.Add(9)
  18. ComboBox2.Items.Add(10)
  19. ComboBox2.Items.Add(11)
  20. ComboBox2.Items.Add(12)
  21. ComboBox2.Items.Add(13)
  22. ComboBox2.Items.Add(14)
  23. ComboBox2.Items.Add(15)
  24. ComboBox2.Items.Add(16)
  25. ComboBox2.Items.Add(17)
  26. ComboBox2.Items.Add(18)
  27. ComboBox2.Items.Add(19)
  28. ComboBox2.Items.Add(20)
  29. ComboBox2.Items.Add(21)
  30. ComboBox2.Items.Add(22)
  31. ComboBox2.Items.Add(23)
  32. ComboBox2.Items.Add(23)
  33. ComboBox2.Items.Add(24)
  34. ComboBox2.Items.Add(25)
  35. ComboBox2.Items.Add(26)
  36. ComboBox2.Items.Add(27)
  37. ComboBox2.Items.Add(28)
  38. ComboBox2.Items.Add(29)
  39. ComboBox2.Items.Add(30)
  40. ComboBox2.Items.Add(31)
  41. End If
  42.  
  43. If ComboBox1.Text = "Februarie" Then
  44. ComboBox2.Items.Clear()
  45. ComboBox2.Items.Add(1)
  46. ComboBox2.Items.Add(2)
  47. ComboBox2.Items.Add(3)
  48. ComboBox2.Items.Add(4)
  49. ComboBox2.Items.Add(5)
  50. ComboBox2.Items.Add(6)
  51. ComboBox2.Items.Add(7)
  52. ComboBox2.Items.Add(8)
  53. ComboBox2.Items.Add(9)
  54. ComboBox2.Items.Add(10)
  55. ComboBox2.Items.Add(11)
  56. ComboBox2.Items.Add(12)
  57. ComboBox2.Items.Add(13)
  58. ComboBox2.Items.Add(14)
  59. ComboBox2.Items.Add(15)
  60. ComboBox2.Items.Add(16)
  61. ComboBox2.Items.Add(17)
  62. ComboBox2.Items.Add(18)
  63. ComboBox2.Items.Add(19)
  64. ComboBox2.Items.Add(20)
  65. ComboBox2.Items.Add(21)
  66. ComboBox2.Items.Add(22)
  67. ComboBox2.Items.Add(23)
  68. ComboBox2.Items.Add(23)
  69. ComboBox2.Items.Add(24)
  70. ComboBox2.Items.Add(25)
  71. ComboBox2.Items.Add(26)
  72. ComboBox2.Items.Add(27)
  73. ComboBox2.Items.Add(28)
  74. ComboBox2.Items.Add(29)
  75. End If
  76.  
  77. If ComboBox1.Text = "Martie" Then
  78. ComboBox2.Items.Clear()
  79. ComboBox2.Items.Add(1)
  80. ComboBox2.Items.Add(2)
  81. ComboBox2.Items.Add(3)
  82. ComboBox2.Items.Add(4)
  83. ComboBox2.Items.Add(5)
  84. ComboBox2.Items.Add(6)
  85. ComboBox2.Items.Add(7)
  86. ComboBox2.Items.Add(8)
  87. ComboBox2.Items.Add(9)
  88. ComboBox2.Items.Add(10)
  89. ComboBox2.Items.Add(11)
  90. ComboBox2.Items.Add(12)
  91. ComboBox2.Items.Add(13)
  92. ComboBox2.Items.Add(14)
  93. ComboBox2.Items.Add(15)
  94. ComboBox2.Items.Add(16)
  95. ComboBox2.Items.Add(17)
  96. ComboBox2.Items.Add(18)
  97. ComboBox2.Items.Add(19)
  98. ComboBox2.Items.Add(20)
  99. ComboBox2.Items.Add(21)
  100. ComboBox2.Items.Add(22)
  101. ComboBox2.Items.Add(23)
  102. ComboBox2.Items.Add(23)
  103. ComboBox2.Items.Add(24)
  104. ComboBox2.Items.Add(25)
  105. ComboBox2.Items.Add(26)
  106. ComboBox2.Items.Add(27)
  107. ComboBox2.Items.Add(28)
  108. ComboBox2.Items.Add(29)
  109. ComboBox2.Items.Add(30)
  110. ComboBox2.Items.Add(31)
  111. End If
  112.  
  113. If ComboBox1.Text = "Aprilie" Then
  114. ComboBox2.Items.Clear()
  115. ComboBox2.Items.Add(1)
  116. ComboBox2.Items.Add(2)
  117. ComboBox2.Items.Add(3)
  118. ComboBox2.Items.Add(4)
  119. ComboBox2.Items.Add(5)
  120. ComboBox2.Items.Add(6)
  121. ComboBox2.Items.Add(7)
  122. ComboBox2.Items.Add(8)
  123. ComboBox2.Items.Add(9)
  124. ComboBox2.Items.Add(10)
  125. ComboBox2.Items.Add(11)
  126. ComboBox2.Items.Add(12)
  127. ComboBox2.Items.Add(13)
  128. ComboBox2.Items.Add(14)
  129. ComboBox2.Items.Add(15)
  130. ComboBox2.Items.Add(16)
  131. ComboBox2.Items.Add(17)
  132. ComboBox2.Items.Add(18)
  133. ComboBox2.Items.Add(19)
  134. ComboBox2.Items.Add(20)
  135. ComboBox2.Items.Add(21)
  136. ComboBox2.Items.Add(22)
  137. ComboBox2.Items.Add(23)
  138. ComboBox2.Items.Add(23)
  139. ComboBox2.Items.Add(24)
  140. ComboBox2.Items.Add(25)
  141. ComboBox2.Items.Add(26)
  142. ComboBox2.Items.Add(27)
  143. ComboBox2.Items.Add(28)
  144. ComboBox2.Items.Add(29)
  145. ComboBox2.Items.Add(30)
  146. End If
  147.  
  148. If ComboBox1.Text = "Mai" Then
  149. ComboBox2.Items.Clear()
  150. ComboBox2.Items.Add(1)
  151. ComboBox2.Items.Add(2)
  152. ComboBox2.Items.Add(3)
  153. ComboBox2.Items.Add(4)
  154. ComboBox2.Items.Add(5)
  155. ComboBox2.Items.Add(6)
  156. ComboBox2.Items.Add(7)
  157. ComboBox2.Items.Add(8)
  158. ComboBox2.Items.Add(9)
  159. ComboBox2.Items.Add(10)
  160. ComboBox2.Items.Add(11)
  161. ComboBox2.Items.Add(12)
  162. ComboBox2.Items.Add(13)
  163. ComboBox2.Items.Add(14)
  164. ComboBox2.Items.Add(15)
  165. ComboBox2.Items.Add(16)
  166. ComboBox2.Items.Add(17)
  167. ComboBox2.Items.Add(18)
  168. ComboBox2.Items.Add(19)
  169. ComboBox2.Items.Add(20)
  170. ComboBox2.Items.Add(21)
  171. ComboBox2.Items.Add(22)
  172. ComboBox2.Items.Add(23)
  173. ComboBox2.Items.Add(23)
  174. ComboBox2.Items.Add(24)
  175. ComboBox2.Items.Add(25)
  176. ComboBox2.Items.Add(26)
  177. ComboBox2.Items.Add(27)
  178. ComboBox2.Items.Add(28)
  179. ComboBox2.Items.Add(29)
  180. ComboBox2.Items.Add(30)
  181. ComboBox2.Items.Add(31)
  182. End If
  183.  
  184. If ComboBox1.Text = "Iunie" Then
  185. ComboBox2.Items.Clear()
  186. ComboBox2.Items.Add(1)
  187. ComboBox2.Items.Add(2)
  188. ComboBox2.Items.Add(3)
  189. ComboBox2.Items.Add(4)
  190. ComboBox2.Items.Add(5)
  191. ComboBox2.Items.Add(6)
  192. ComboBox2.Items.Add(7)
  193. ComboBox2.Items.Add(8)
  194. ComboBox2.Items.Add(9)
  195. ComboBox2.Items.Add(10)
  196. ComboBox2.Items.Add(11)
  197. ComboBox2.Items.Add(12)
  198. ComboBox2.Items.Add(13)
  199. ComboBox2.Items.Add(14)
  200. ComboBox2.Items.Add(15)
  201. ComboBox2.Items.Add(16)
  202. ComboBox2.Items.Add(17)
  203. ComboBox2.Items.Add(18)
  204. ComboBox2.Items.Add(19)
  205. ComboBox2.Items.Add(20)
  206. ComboBox2.Items.Add(21)
  207. ComboBox2.Items.Add(22)
  208. ComboBox2.Items.Add(23)
  209. ComboBox2.Items.Add(23)
  210. ComboBox2.Items.Add(24)
  211. ComboBox2.Items.Add(25)
  212. ComboBox2.Items.Add(26)
  213. ComboBox2.Items.Add(27)
  214. ComboBox2.Items.Add(28)
  215. ComboBox2.Items.Add(29)
  216. ComboBox2.Items.Add(30)
  217. End If
  218.  
  219.  
  220. If ComboBox1.Text = "Iulie" Then
  221. ComboBox2.Items.Clear()
  222. ComboBox2.Items.Add(1)
  223. ComboBox2.Items.Add(2)
  224. ComboBox2.Items.Add(3)
  225. ComboBox2.Items.Add(4)
  226. ComboBox2.Items.Add(5)
  227. ComboBox2.Items.Add(6)
  228. ComboBox2.Items.Add(7)
  229. ComboBox2.Items.Add(8)
  230. ComboBox2.Items.Add(9)
  231. ComboBox2.Items.Add(10)
  232. ComboBox2.Items.Add(11)
  233. ComboBox2.Items.Add(12)
  234. ComboBox2.Items.Add(13)
  235. ComboBox2.Items.Add(14)
  236. ComboBox2.Items.Add(15)
  237. ComboBox2.Items.Add(16)
  238. ComboBox2.Items.Add(17)
  239. ComboBox2.Items.Add(18)
  240. ComboBox2.Items.Add(19)
  241. ComboBox2.Items.Add(20)
  242. ComboBox2.Items.Add(21)
  243. ComboBox2.Items.Add(22)
  244. ComboBox2.Items.Add(23)
  245. ComboBox2.Items.Add(23)
  246. ComboBox2.Items.Add(24)
  247. ComboBox2.Items.Add(25)
  248. ComboBox2.Items.Add(26)
  249. ComboBox2.Items.Add(27)
  250. ComboBox2.Items.Add(28)
  251. ComboBox2.Items.Add(29)
  252. ComboBox2.Items.Add(30)
  253. ComboBox2.Items.Add(31)
  254. End If
  255.  
  256. If ComboBox1.Text = "August" Then
  257. ComboBox2.Items.Clear()
  258. ComboBox2.Items.Add(1)
  259. ComboBox2.Items.Add(2)
  260. ComboBox2.Items.Add(3)
  261. ComboBox2.Items.Add(4)
  262. ComboBox2.Items.Add(5)
  263. ComboBox2.Items.Add(6)
  264. ComboBox2.Items.Add(7)
  265. ComboBox2.Items.Add(8)
  266. ComboBox2.Items.Add(9)
  267. ComboBox2.Items.Add(10)
  268. ComboBox2.Items.Add(11)
  269. ComboBox2.Items.Add(12)
  270. ComboBox2.Items.Add(13)
  271. ComboBox2.Items.Add(14)
  272. ComboBox2.Items.Add(15)
  273. ComboBox2.Items.Add(16)
  274. ComboBox2.Items.Add(17)
  275. ComboBox2.Items.Add(18)
  276. ComboBox2.Items.Add(19)
  277. ComboBox2.Items.Add(20)
  278. ComboBox2.Items.Add(21)
  279. ComboBox2.Items.Add(22)
  280. ComboBox2.Items.Add(23)
  281. ComboBox2.Items.Add(23)
  282. ComboBox2.Items.Add(24)
  283. ComboBox2.Items.Add(25)
  284. ComboBox2.Items.Add(26)
  285. ComboBox2.Items.Add(27)
  286. ComboBox2.Items.Add(28)
  287. ComboBox2.Items.Add(29)
  288. ComboBox2.Items.Add(30)
  289. ComboBox2.Items.Add(31)
  290. End If
  291.  
  292. If ComboBox1.Text = "Septembrie" Then
  293. ComboBox2.Items.Clear()
  294. ComboBox2.Items.Add(1)
  295. ComboBox2.Items.Add(2)
  296. ComboBox2.Items.Add(3)
  297. ComboBox2.Items.Add(4)
  298. ComboBox2.Items.Add(5)
  299. ComboBox2.Items.Add(6)
  300. ComboBox2.Items.Add(7)
  301. ComboBox2.Items.Add(8)
  302. ComboBox2.Items.Add(9)
  303. ComboBox2.Items.Add(10)
  304. ComboBox2.Items.Add(11)
  305. ComboBox2.Items.Add(12)
  306. ComboBox2.Items.Add(13)
  307. ComboBox2.Items.Add(14)
  308. ComboBox2.Items.Add(15)
  309. ComboBox2.Items.Add(16)
  310. ComboBox2.Items.Add(17)
  311. ComboBox2.Items.Add(18)
  312. ComboBox2.Items.Add(19)
  313. ComboBox2.Items.Add(20)
  314. ComboBox2.Items.Add(21)
  315. ComboBox2.Items.Add(22)
  316. ComboBox2.Items.Add(23)
  317. ComboBox2.Items.Add(23)
  318. ComboBox2.Items.Add(24)
  319. ComboBox2.Items.Add(25)
  320. ComboBox2.Items.Add(26)
  321. ComboBox2.Items.Add(27)
  322. ComboBox2.Items.Add(28)
  323. ComboBox2.Items.Add(29)
  324. ComboBox2.Items.Add(30)
  325. End If
  326.  
  327. If ComboBox1.Text = "Octombrie" Then
  328. ComboBox2.Items.Clear()
  329. ComboBox2.Items.Add(1)
  330. ComboBox2.Items.Add(2)
  331. ComboBox2.Items.Add(3)
  332. ComboBox2.Items.Add(4)
  333. ComboBox2.Items.Add(5)
  334. ComboBox2.Items.Add(6)
  335. ComboBox2.Items.Add(7)
  336. ComboBox2.Items.Add(8)
  337. ComboBox2.Items.Add(9)
  338. ComboBox2.Items.Add(10)
  339. ComboBox2.Items.Add(11)
  340. ComboBox2.Items.Add(12)
  341. ComboBox2.Items.Add(13)
  342. ComboBox2.Items.Add(14)
  343. ComboBox2.Items.Add(15)
  344. ComboBox2.Items.Add(16)
  345. ComboBox2.Items.Add(17)
  346. ComboBox2.Items.Add(18)
  347. ComboBox2.Items.Add(19)
  348. ComboBox2.Items.Add(20)
  349. ComboBox2.Items.Add(21)
  350. ComboBox2.Items.Add(22)
  351. ComboBox2.Items.Add(23)
  352. ComboBox2.Items.Add(23)
  353. ComboBox2.Items.Add(24)
  354. ComboBox2.Items.Add(25)
  355. ComboBox2.Items.Add(26)
  356. ComboBox2.Items.Add(27)
  357. ComboBox2.Items.Add(28)
  358. ComboBox2.Items.Add(29)
  359. ComboBox2.Items.Add(30)
  360. ComboBox2.Items.Add(31)
  361. End If
  362.  
  363. If ComboBox1.Text = "Noiembrie" Then
  364. ComboBox2.Items.Clear()
  365. ComboBox2.Items.Add(1)
  366. ComboBox2.Items.Add(2)
  367. ComboBox2.Items.Add(3)
  368. ComboBox2.Items.Add(4)
  369. ComboBox2.Items.Add(5)
  370. ComboBox2.Items.Add(6)
  371. ComboBox2.Items.Add(7)
  372. ComboBox2.Items.Add(8)
  373. ComboBox2.Items.Add(9)
  374. ComboBox2.Items.Add(10)
  375. ComboBox2.Items.Add(11)
  376. ComboBox2.Items.Add(12)
  377. ComboBox2.Items.Add(13)
  378. ComboBox2.Items.Add(14)
  379. ComboBox2.Items.Add(15)
  380. ComboBox2.Items.Add(16)
  381. ComboBox2.Items.Add(17)
  382. ComboBox2.Items.Add(18)
  383. ComboBox2.Items.Add(19)
  384. ComboBox2.Items.Add(20)
  385. ComboBox2.Items.Add(21)
  386. ComboBox2.Items.Add(22)
  387. ComboBox2.Items.Add(23)
  388. ComboBox2.Items.Add(23)
  389. ComboBox2.Items.Add(24)
  390. ComboBox2.Items.Add(25)
  391. ComboBox2.Items.Add(26)
  392. ComboBox2.Items.Add(27)
  393. ComboBox2.Items.Add(28)
  394. ComboBox2.Items.Add(29)
  395. ComboBox2.Items.Add(30)
  396. End If
  397.  
  398. If ComboBox1.Text = "Decembrie" Then
  399. ComboBox2.Items.Clear()
  400. ComboBox2.Items.Add(1)
  401. ComboBox2.Items.Add(2)
  402. ComboBox2.Items.Add(3)
  403. ComboBox2.Items.Add(4)
  404. ComboBox2.Items.Add(5)
  405. ComboBox2.Items.Add(6)
  406. ComboBox2.Items.Add(7)
  407. ComboBox2.Items.Add(8)
  408. ComboBox2.Items.Add(9)
  409. ComboBox2.Items.Add(10)
  410. ComboBox2.Items.Add(11)
  411. ComboBox2.Items.Add(12)
  412. ComboBox2.Items.Add(13)
  413. ComboBox2.Items.Add(14)
  414. ComboBox2.Items.Add(15)
  415. ComboBox2.Items.Add(16)
  416. ComboBox2.Items.Add(17)
  417. ComboBox2.Items.Add(18)
  418. ComboBox2.Items.Add(19)
  419. ComboBox2.Items.Add(20)
  420. ComboBox2.Items.Add(21)
  421. ComboBox2.Items.Add(22)
  422. ComboBox2.Items.Add(23)
  423. ComboBox2.Items.Add(23)
  424. ComboBox2.Items.Add(24)
  425. ComboBox2.Items.Add(25)
  426. ComboBox2.Items.Add(26)
  427. ComboBox2.Items.Add(27)
  428. ComboBox2.Items.Add(28)
  429. ComboBox2.Items.Add(29)
  430. ComboBox2.Items.Add(30)
  431. ComboBox2.Items.Add(31)
  432. End If
  433. End Sub
  434.  
  435. Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
  436. TextBox1.Text = ""
  437. End Sub
  438.  
  439. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
  440. If TextBox1.Text = "Introduceti numele sarbatoritului" Or TextBox1.Text = "" Or ComboBox1.Text = "-" Or ComboBox2.Text = "-" Then
  441. MsgBox("Reintroduceti numele sarbatoritului", vbOKOnly + vbCritical, "Info")
  442. Else
  443. con = New SqlClient.SqlConnection("Data Source=(localdb)\projects;Initial Catalog=Database1;Integrated Security=True")
  444. con.Open()
  445. sqlstr = "insert into zdn values ('" & TextBox1.Text & "');"
  446. MsgBox(sqlstr)
  447. cmd = New SqlClient.SqlCommand(sqlstr, con)
  448. cmd.ExecuteNonQuery()
  449. MsgBox(" " & TextBox1.Text & " avand ziua de nastere in " & ComboBox2.Text & " " & ComboBox1.Text & " a fost adaugat cu succes", vbOKOnly + vbInformation, "Informatie")
  450. con.Close()
  451. End If
  452. End Sub
  453. End Class
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!