3.1.2 Delphi ортасында мәліметтерді өңдеу үшін пішіндер құру

Дельфи ортасында пішін құру қадамдары: Пішін құру үшін Delphi7 (Пуск/Программы/Borland Delphi7) утилитасын жүктеу керек. Delphi7 жүктелген кезде Form1 терезесі пайда болады. BDE парағынан Table компонентін түсіріп DataBaseName, TableName алиас пен кесте атын беріп, Active қасиетінде True таңдау керек. DataSourse компонентін Form1 түсіріп, Dataset қасиетін беру керек. DBGrid компонентін Form1 түсіріп DataSourse қасиетін берген кезде Form1 таңдалған кестенің жазбаларымен толады. BitBtn түсіріп Kind қасиетінің керегін таңдап, жазбаларды қимылға келтіруге болады. Пішінді іске қосу үшін F9 басу керек.

3.1.3 Delphi ортасында байланысқан кестелер бойынша пішіндер құру

Delphi ортасында бірнеше байланысқан кестелер бойынша пішін құру үшін TQuery компонентін қолдану керек. Пішін құру үшін Delphi7 (Пуск/Программы/Borland Delphi7) утилитасын жүктеу керек. Delphi7 жүктелген кезде Formх терезесі пайда болады. BDE парағынан Query компонентін түсіріп, объекттер инспекторында SQL қасиетін беру керек. Мысалы:

DataSourse компонентін Form1 түсіріп, Dataset қасиетін беру керек. DBGrid компонентін Form1 түсіріп DataSourse қасиетін беру керек. Енді терезені безендіру үшін Label компонентін және Dbedit компоненттерін түсірі, керекті қасиеттерін,беріп жазбаларды қимылға келтіруге болады.

3.1.4 Delphi ортасында байланысқан кестелер бойынша есеп беруді құрастыру

Байланысқан кестелер бойынша пішін құру қадамдары жоғарыда көрсетілген, және формаға bitBtn компонентін қойып, caption қасиетіне «опубликовать отчет» деп береміз:

Сол терезеге RvTableConnection немесе RvQueryConnection (Rave парағынан )түсіріп, қасиеттерін беру керек. Енді Tools/RaveDesigner жүктеп, есеп беруді құруға болады. Rave Designer өз компоненттер палитрасына, объекттер инспекторына, объекттер ағашына және батырма құралдарының жиынтығына ие. Жобаға жаңа объект енгізу керек:File/New Data object. Бұл жерде жұмысқа мастер кіріседі. Келесі терезеден DataView таңдау керек, сонда есеп беру мәліметтер базасымен байланысады.

Tools/ReportWizards/SimpleTable таңдалған кестенің бағандарын көрсетеді, барлығын таңдаған кезде All таңдау керек.

Қажетті өлшемдерін береміз және есептеулер жүргіз үшін агрегаттық функцияларды қолданамыз. CalsType қасиетінде өзімізге керекті функцияны таңдаймыз және де қай баған бойынша есептеу жүретінін DataField қасиетінде беру керек.

Осы жұмыстағы бірінші пішінге қайта оралып, «Опубликовать отчет» батырмасын екі рет басып келесі программа жазу керек:

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

RvProject1.Execute;

end;

4. ПРАКТИКАЛЫҚ БӨЛІМ

4.1 Программаның баяндалуы:

4.1.1 Жалпы мағұлматтар:

Бұл программа Delphi7 тілінде жазылған. Программаның орындалуы үшін MS-DOS операциялық жүйесі , Windows XP графикалық операциялық жүйесі және Borland Delphi программалау пакеті қажет, және C/SBD/sbddd да орналасқан.

4.1.2 Функционалдық арналуы:

Бұл программа жоғарыда көрсетілген есептің шығарылу жолын тексеріп, соларды салыстыруға арналған Delphi7 тілі арқылы іске асады. Бұл программа берілген үш таблица бойынша берілген адамның паспорты және туу туралы куәлігін шығарады.

4.1.3 Қолданылған техникалық құрал –жабдықтар:

4.1.4 Программаның жүктелуі және шақырылуы

• Компьютерді қосу

• Delphi программасын ашу

• Программаны орындау

• Нәтижені көру F9

• Программаны сақтау Ctrl+S

• Программадан шығу Exit or Ctrl+Q

4.1.5 Енгізілген мәліметтер

Енгізілген мәліметтер Ә қосымшасындағы 20 беттегі суреттер

4.1.6 Шығарылған мәліметтер

Шығарылған мәліметтер Ә қосымшасындағы 20 беттегі суреттер

Қосымша А

1. unit Unit1;

2. interface

3. uses

4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

5. Dialogs, Menus, ExtCtrls, jpeg;

6. type

7. TForm1 = class(TForm)

8. MainMenu1: TMainMenu;

9. N1: TMenuItem;

10. N2: TMenuItem;

11. N3: TMenuItem;

12. N4: TMenuItem;

13. N5: TMenuItem;

14. Al1: TMenuItem;

15. N6: TMenuItem;

16. N7: TMenuItem;

17. N8: TMenuItem;

18. N9: TMenuItem;

19. Image1: TImage;

20. N10: TMenuItem;

21. N11: TMenuItem;

22. N12: TMenuItem;

23. N13: TMenuItem;

24. N14: TMenuItem;

25. procedure N2Click(Sender: TObject);

26. procedure N3Click(Sender: TObject);

27. procedure N4Click(Sender: TObject);

28. procedure Al1Click(Sender: TObject);

29. procedure N6Click(Sender: TObject);

30. procedure N11Click(Sender: TObject);

31. procedure N12Click(Sender: TObject);

32. procedure N13Click(Sender: TObject);

33. procedure N14Click(Sender: TObject);

34. procedure N10Click(Sender: TObject);

35. private

36. { Private declarations }

37. public

38. { Public declarations }

39. end;

40. var

41. Form1: TForm1;

42. implementation

43. uses Unit3, Unit4, Unit5,unit6, unit7, Unit10, Unit11, Unit12, Unit8;

44. {$R *.dfm}

45. procedure TForm1.N2Click(Sender: TObject);

46. begin

47. form3.show;

48. end;

49. procedure TForm1.N3Click(Sender: TObject);

50. begin

51. form4.show;

52. end;

53. procedure TForm1.N4Click(Sender: TObject);

54. begin

55. form5.show;

56. end;

57. procedure TForm1.Al1Click(Sender: TObject);

58. begin

59. form7.show;

60. end;

61. procedure TForm1.N6Click(Sender: TObject);

62. begin

63. form6.show;

64. end;

65. procedure TForm1.N11Click(Sender: TObject);

66. begin

67. form10.show;

68. end;

69. procedure TForm1.N12Click(Sender: TObject);

70. begin

71. If MessageDlg ('Вы действительно хотите выйти?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)=mrYes

72. Then

73. Begin

74. MessageDlg ('Работа приложение закончена', mtInformation, [mbOk], 0);

75. close;

76. end;

77. end;

78. procedure TForm1.N13Click(Sender: TObject);

79. begin

80. form11.show;

81. end;

82. procedure TForm1.N14Click(Sender: TObject);

83. begin

84. form12.show;

85. end;

86. procedure TForm1.N10Click(Sender: TObject);

87. begin

88. form8.show;

89. end;

90. end.