frmMain.lfm 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  1. object frMain: TfrMain
  2. Left = 340
  3. Height = 240
  4. Top = 119
  5. Width = 320
  6. Caption = 'Simple CRUD client example'
  7. ClientHeight = 240
  8. ClientWidth = 320
  9. Position = poDesktopCenter
  10. LCLVersion = '2.0.12.0'
  11. object DBGrid: TDBGrid
  12. Left = 0
  13. Height = 181
  14. Top = 0
  15. Width = 320
  16. Align = alClient
  17. Color = clWindow
  18. Columns = <>
  19. DataSource = DataSource
  20. TabOrder = 0
  21. end
  22. object DBNavigator: TDBNavigator
  23. Left = 0
  24. Height = 25
  25. Top = 181
  26. Width = 320
  27. Align = alBottom
  28. BevelOuter = bvNone
  29. ChildSizing.EnlargeHorizontal = crsScaleChilds
  30. ChildSizing.EnlargeVertical = crsScaleChilds
  31. ChildSizing.ShrinkHorizontal = crsScaleChilds
  32. ChildSizing.ShrinkVertical = crsScaleChilds
  33. ChildSizing.Layout = cclLeftToRightThenTopToBottom
  34. ChildSizing.ControlsPerLine = 100
  35. ClientHeight = 25
  36. ClientWidth = 320
  37. DataSource = DataSource
  38. Options = []
  39. TabOrder = 1
  40. VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
  41. end
  42. object pnBottom: TPanel
  43. Left = 0
  44. Height = 34
  45. Top = 206
  46. Width = 320
  47. Align = alBottom
  48. ClientHeight = 34
  49. ClientWidth = 320
  50. TabOrder = 2
  51. object btLoad: TButton
  52. Left = 3
  53. Height = 28
  54. Top = 3
  55. Width = 75
  56. Align = alLeft
  57. BorderSpacing.Around = 2
  58. Caption = 'Load'
  59. OnClick = btLoadClick
  60. TabOrder = 0
  61. end
  62. object btSave: TButton
  63. Left = 242
  64. Height = 28
  65. Top = 3
  66. Width = 75
  67. Align = alRight
  68. BorderSpacing.Around = 2
  69. Caption = 'Save'
  70. Enabled = False
  71. OnClick = btSaveClick
  72. TabOrder = 1
  73. end
  74. end
  75. object DataSource: TDataSource
  76. DataSet = Client.BufDataset
  77. Left = 144
  78. Top = 72
  79. end
  80. end