home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / DB_GRID / DEMOFORM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-03  |  16.3 KB  |  479 lines
  1. DemoForm
  2. DBT Grid Demonstration Program
  3.     Wingdings
  4. Form1,
  5. ColumnLabel
  6. Column:
  7. ColumnPosition
  8. Label1
  9. Visible Columns:
  10. NVisibleColumns
  11. Label3
  12. Left Visible Column:
  13. LeftColumn
  14. RowLabel
  15. RowPosition
  16. Label2
  17. Visible Rows:
  18. NVisibleRows
  19. Label4
  20. Top Visible Row:
  21. TopVRow
  22. DBTGrid1
  23. DBTGrid
  24. $(Copyright (C)-1993, by Douglas A. Bebber&
  25. MNU_GridSettings
  26. &Grid Settings
  27. MNU_ColS
  28. &Columns
  29. MNU_ColumnLabels
  30. &Column labels
  31. MNU_ColLabelsNone
  32. &None
  33. MNU_ColLabelLetters
  34. &Letters
  35. MNU_ColLabNum
  36. &Numbers
  37. MNU_ColLabelUser
  38. &User defined
  39. MNU_ColFix
  40. MNU_ColFixTrue
  41. &True
  42. MNU_ColFixFalse
  43. &False
  44. MNU_ColResize
  45. &Resize
  46. MNU_ColResizeTrue
  47. &True
  48. MNU_ColResizeFalse
  49. &False
  50. MNU_ColSelect
  51. &Selection
  52. MNU_ColSelNone
  53. &None
  54. MNU_ColSelectSingle
  55. &Single Column
  56. MNU_ColSelMulti
  57. &Multi Column
  58. MNU_EditKeys
  59. Edit &keys
  60. MNU_AEK
  61. &AbortEditKey
  62. MNU_BEK
  63. &BeginEditKey
  64. MNU_EEK
  65. &EndEditKey
  66. MNU_Edit
  67. &Edit mode
  68. MNU_EditOn
  69. MNU_EditOff
  70. MNU_Font
  71. &Fonts
  72.     MNU_FBold
  73. MNU_FBT
  74. MNU_FBF
  75. False
  76. MNU_FontName
  77. "    MNU_Arial
  78. Arial
  79. MNU_Courier
  80. Courier
  81. MNU_Fences
  82. Fences
  83. MNU_Fixedsys
  84. Fixedsys
  85. MNU_Modern
  86. Modern
  87. MNU_MSS
  88. MS Sans Serif
  89. MNU_MSSerif
  90. MS Serif
  91. MNU_MTExtra
  92. MT Extra
  93. *    MNU_Roman
  94. Roman
  95. MNU_Script
  96. Script
  97. MNU_SmallFonts
  98. Small Fonts
  99. MNU_Symbol
  100. Symbol
  101. MNU_System
  102. System
  103. MNU_Terminal
  104. Terminal
  105. MNU_TNR
  106. Times New Roman
  107. MNU_WDG
  108.     Wingdings
  109. MNU_GridLines
  110. &Grid lines
  111. <    MNU_Horiz
  112. &Horizontals
  113. MNU_HorizOn
  114. MNU_HorizOff
  115. ?    MNU_Verts
  116. &Verticals
  117. MNU_RowVertOn
  118. MNU_VertsOff
  119. MNU_RowS
  120. &Rows
  121. MNU_RowLab
  122. &Labels
  123. MNU_RowLabNo
  124. &None
  125. MNU_RowLabBut
  126. Row &buttons
  127. MNU_RowLabNum
  128. Row &numbers
  129. MNU_RowSel
  130. &Selection
  131. MNU_RowSelNone
  132. &None
  133. MNU_RowSelSingle
  134. &Single Row
  135. MNU_RowSelMulti
  136. &Multi row
  137. MNU_Delete
  138. &Delete
  139. MNU_DeleteColumn
  140. &Column
  141. MNU_DeleteRow
  142. MNU_Insert
  143. &Insert
  144. MNU_InsertColumn
  145. &Column
  146. MNU_InsertRow
  147. MNU_MoveIt
  148. &Move
  149. MNU_MoveColumn
  150. &Column
  151. MNU_MoveRow
  152. MNU_Quit
  153. &Quit
  154. Label1_Click
  155. MNU_Quit_Click
  156. Form_Click
  157. @    Form_Load"
  158. DBTGrid1
  159. Columns    
  160. RowSelection3
  161. SetColumnHeadings
  162. FillGridr
  163. Column`
  164. ColumnHeading
  165.     CellStyleY
  166. ColumnStringLengthD
  167. Textf
  168. Form_Resizet
  169. Heightj
  170. Form1S
  171. Widthv
  172. DemoForm
  173. DBTGrid1_CellDoubleClicked
  174. DBTGrid1_GridPositionChanged
  175. ColumnPosition
  176. RowPosition
  177. MNU_RowVertOn_Click
  178.     Verticals
  179. MNU_VertsOff_Click/
  180. MNU_HorizOn_Click4
  181. HorizontalsE
  182. MNU_HorizOff_Clicke
  183. MNU_EditOn_Click
  184. EditModez
  185. MNU_EditOff_Click
  186. MNU_ColLabelsNone_Click
  187. ColumnLabels
  188. MNU_ColLabelLetters_Click
  189. MNU_ColLabelUser_Click
  190. MNU_ColLabNum_Click
  191. MNU_RowLabNo_Click
  192.     RowLabels-
  193. MNU_RowLabBut_Click\
  194. MNU_RowLabNum_Click
  195. DBTGrid1_GridHScroll
  196. MNU_Arial_Click
  197. FontName
  198. MNU_Courier_Click
  199. MNU_Fences_Click
  200. MNU_Fixedsys_Click
  201. MNU_Modern_Click
  202. MNU_MSS_Click
  203. DBTGrid1_CellValueChanged
  204. Col/    
  205. DBTGrid*
  206. MNU_MSSerif_Click?
  207. MNU_MTExtra_ClickR
  208. MNU_Roman_Clickf
  209. MNU_Script_Click~
  210. MNU_SmallFonts_Click
  211. MNU_Symbol_Click
  212. MNU_System_Click
  213. MNU_Terminal_Click
  214. MNU_TNR_Click
  215. MNU_WDG_Click
  216. MNU_FBF_Click-
  217. FontBold(
  218. MNU_FBT_Click;
  219. MNU_FBF
  220. CheckedO
  221. MNU_FBT
  222. MNU_EditOn
  223. MNU_EditOff0
  224. MNU_ColLabelUserr
  225. MNU_ColLabelNone
  226. MNU_ColLabelsNone
  227. MNU_ColLabelsNum#
  228. MNU_ColLabNum
  229. MNU_ColLabelLetters
  230. MNU_HoizOn
  231. MNU_HorizOn
  232. MNU_HorizOff
  233. MNU_RowVertOn
  234. MNU_RowVertOff
  235. MNU_VertsOff
  236. MNU_RowLabNum
  237. MNU_Rows
  238. MNU_RowLabNo
  239. MNU_RowLabBut
  240. NVisibleColumns
  241. VisibleColumns
  242. DBTGrid1_Resize
  243. NVisibleRows
  244. VisibleRows
  245. LeftColumn
  246. LeftVisibleColumn
  247. NVisibleColumns_Changeu    @
  248. DBTGrid1_GridVScroll
  249. TopVRow9
  250. TopVisibleRowH
  251. MNU_AEK_Click
  252. EditKeyFormY
  253. MNU_BEK_Clicku
  254. MNU_EEK_Click
  255. EditKey
  256. MNU_MoveColumn_Click
  257. NewColumnPosition
  258. ColumnNumber
  259. Value
  260. Action
  261. MoveColumn
  262. MNU_MoveRow_Click
  263. NewRowPosition,
  264.     RowNumber
  265. MoveRow<
  266. MNU_DeleteColumn_Click
  267. DeleteColumn`
  268. MNU_DeleteRow_Click
  269.     DeleteRow
  270. MNU_InsertColumn_Click
  271. InsertColumn
  272. MNU_InsertRow_Click
  273.     InsertRow
  274. MNU_ColFix_Click'    
  275. FixedColumn
  276. MNU_ColFixFalse_Click
  277. MNU_ColFixFalsec    
  278. MNU_ColFixTrue8    @
  279. MNU_ColFixTrue_Click
  280. tempP    
  281. False
  282. MNU_ColSelNone_ClickQ
  283. ColumnSelection
  284. MNU_ColSelNone
  285. MNU_ColSelMulti
  286. MNU_ColSelectSingle
  287. MNU_ColSelectSingle_Click
  288. MNU_ColSelMulti_Click&
  289. MNU_RowSelNone_Click
  290. MNU_RowSelNone
  291. MNU_RowSelSingle
  292. MNU_RowSelMulti@
  293. MNU_RowSelSingle_ClickY
  294. MNU_RowSelMulti_Click
  295. MNU_ColResizeTrue_Click
  296. ResizeColumn
  297. MNU_ColResizeTrue
  298. MNU_ColResizeFalse
  299. MNU_ColResizeFalse_Clicks
  300. MNU_ColResize_Click
  301.     SingleRow
  302. MultiRow
  303. DBT_None
  304. DBT_Numbersd
  305. DBT_RowButtonsA
  306. DBT_SingleRow
  307. DBT_MultiRow
  308. DBT_UserDefined
  309. DBT_Letters
  310. DBT_MultiColumn
  311. DBT_SingleColumn
  312. DBT_DeleteColumn
  313. DBT_DeleteRow
  314. DBT_InsertColumn
  315. DBT_InsertRow
  316. DBT_MoveColumn
  317. DBT_MoveRow
  318. MNU_Quit_Click
  319. Form_Load
  320. Define the number of rows and columns in the Grid.
  321. Let the user select single rowso
  322. Now label the Column Headings (keep the defaulti
  323. ColumnHeadingStyle = 0-Centered)
  324. OK the Grid's column format has been set.e
  325. Lets put some data in it!a
  326. Update the Visible Columns display..
  327. Update the Visible Rows display.
  328. Update the Left Visible Column display (in user units)..
  329. Update the Top Visible Row display (in user units)..
  330. SetColumnHeadings
  331. Start with Column #1
  332. Customer No.
  333. Center text in the Celle
  334. Move to Column #2e
  335. Last Name"
  336. Left justify text in the Cellt
  337. Move to Column #3 
  338. First Name
  339. Left justify text in the Cellt
  340. Move to Column #4 
  341. Center text in the Celle
  342. Move to Column #5e
  343. Address"
  344. Left justify text in the Cellt
  345. Move to Column #6 
  346. Left justify text in the Cellt
  347. Move to Column #7 
  348. State"
  349. Center text in the Celle
  350. Move to Column #8e
  351. Center text in the Celle
  352. Move to Column #9e
  353. Phone"
  354. Center text in the Celle
  355. FillGrid
  356. 123459
  357. 1212 Westwood Ave.
  358. Moline
  359. 61265"
  360. (309) 762-4444
  361. Move to Next row
  362. 623857
  363. Smith"
  364. 4733 Carry Street"
  365. Davenport"
  366. 52803"
  367. (319) 326-8088
  368. Move to Next row
  369. 883853
  370. 1114 Sparrow Road"
  371. Rock Island"
  372. 61201"
  373. (309) 788-8086
  374. Move back to Row 0 Column 0
  375. Form_Resize
  376. DBTGrid1_GridPositionChanged
  377. Display current row and column (in user units, i.e., + 1)
  378. MNU_RowVertOn_Click
  379. MNU_VertsOff_Click
  380. MNU_HorizOn_Click
  381. MNU_HorizOff_Click
  382. MNU_EditOn_Click
  383. MNU_EditOff_Click
  384. MNU_ColLabelsNone_Click
  385. MNU_ColLabelLetters_Click
  386. MNU_ColLabelUser_Click
  387. MNU_ColLabNum_Click
  388. MNU_RowLabNo_Click
  389. MNU_RowLabBut_Click
  390. MNU_RowLabNum_Click
  391. DBTGrid1_CellDoubleClicked
  392. Cell Value: 
  393. MNU_Arial_Click
  394. Arial"
  395. MNU_Courier_Click
  396. Courier"
  397. MNU_Fences_Click
  398. Fences
  399. MNU_Fixedsys_Click
  400. Fixedsys
  401. MNU_Modern_Click
  402. Modern
  403. MNU_MSS_Click
  404. MS Sans Serif"
  405. DBTGrid1_CellValueChanged
  406. MNU_MSSerif_Click
  407. MS Serif
  408. MNU_MTExtra_Click
  409. MT Extra
  410. MNU_Roman_Click
  411. Roman"
  412. MNU_Script_Click
  413. Script
  414. MNU_SmallFonts_Click
  415. Small Fonts"
  416. MNU_Symbol_Click
  417. Symbol
  418. MNU_System_Click
  419. System
  420. MNU_Terminal_Click
  421. Terminal
  422. MNU_TNR_Click
  423. Times New Roman"
  424. MNU_WDG_Click
  425. Wingdings"
  426. MNU_FBF_Click
  427. MNU_FBT_Click
  428. DBTGrid1_Resize
  429. Update the Visible Columns display..
  430. Update the Visible Rows display.
  431. DBTGrid1_GridHScroll
  432. Update the Left Visible Column display (in user units).
  433. DBTGrid1_GridVScroll
  434. Update the Top Visible Row display (in user units)..
  435. MNU_AEK_Click
  436. MNU_BEK_Click
  437. MNU_EEK_Click
  438. MNU_MoveColumn_Click
  439. What column do you wish to move the current column to?
  440. Move Grid Column
  441.     DBTGrid1.Action = DBT_MoveColumn
  442. MNU_MoveRow_Click
  443. What row do you wish to move the current row to?
  444. Move Grid Row"
  445.     DBTGrid1.Action = DBT_MoveRow
  446. MNU_DeleteColumn_Click
  447. Delete the current grid column.
  448. MNU_DeleteRow_Click
  449. Delete the current grid row.
  450. DBTGrid1.Action = DBT_DeleteRow
  451. MNU_InsertColumn_Click
  452. Insert a column before the current grid column.o
  453. DBTGrid1.Action = DBT_InsertColumn
  454. MNU_InsertRow_Click
  455. Insert a row before the current grid row.o
  456. DBTGrid1.Action = DBT_InsertRow
  457. MNU_ColFixFalse_Click
  458. Not a fixed column.N
  459. MNU_ColFixTrue_Click
  460. A fixed column.u
  461. MNU_ColFix_Click
  462. MNU_ColSelNone_Click
  463. No column selection allowed.
  464. MNU_ColSelectSingle_Click
  465. Single column selection allowed.
  466. MNU_ColSelMulti_Click
  467. Multi column selection allowed. 
  468. MNU_RowSelNone_Click
  469. No row selection allowed. 
  470. MNU_RowSelSingle_Click
  471. Single row selection allowed. 
  472. MNU_RowSelMulti_Click
  473. Multi row selection allowed.
  474. MNU_ColResizeTrue_Click
  475. Allow resizing of column
  476. MNU_ColResizeFalse_Click
  477. Do not allow resizing of columnn
  478. MNU_ColResize_Click
  479.