Строительство одно из самых значимых структур народного хозяйства



жүктеу 0,72 Mb.
Pdf просмотр
бет21/23
Дата01.12.2017
өлшемі0,72 Mb.
#2634
1   ...   15   16   17   18   19   20   21   22   23

81

 

 



47. 

form1.Close; 

48. 

end; 


А қосымшасының жалғасы 

 

49. 



procedure TForm1.Button4Click(Sender: TObject); 

50. 


begin 

51. 


radiobutton1.Caption:='Филиал ТОО "СК БАЗИС" в г.Алматы ошірілуде'; 

52. 


mediaplayer3.Play; 

53. 


radiobutton1.visible:=false; 

54. 


button1.visible:=false; 

55. 


button4.visible:=false; 

56. 


showmessage('Филил ТОО "СК БАЗИС" в г.Алматы ошірілуде!!!'); 

57. 


end; 

58. 


procedure TForm1.Button3Click(Sender: TObject); 

59. 


begin 

60. 


mediaplayer2.Play; 

61. 


radiobutton1.visible:=true; 

62. 


radiobutton1.Caption:='Филиал ТОО "СК БАЗИС" в г.Алматы'; 

63. 


showmessage('Филиал ТОО "СК БАЗИС" в г.Алматы онделуде'); 

64. 


button1.visible:=true; 

65. 


button4.visible:=true; 

66. 


end; 

67. 


procedure TForm1.RadioButton1Click(Sender: TObject); 

68. 


begin 

69. 


button1.Visible:=true; 

70. 


button7.Visible:=true; 

71. 


button3.Visible:=true; 

72. 


button4.Visible:=true; 

73. 


end; 

74. 


end. 

 

1. 



unit Unit2; 

2. 


interface 

3. 


uses 

4. 


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

5. 


Dialogs, StdCtrls, Buttons, acPNG, ExtCtrls, MPlayer; 

6. 


type 

7. 


TForm2 = class(TForm) 

8. 


ComboBox1: TComboBox; 

9. 


Edit1: TEdit; 

10. 


Label1: TLabel; 

11. 


Label2: TLabel; 

12. 


Label3: TLabel; 

13. 


SpeedButton1: TSpeedButton; 

14. 


SpeedButton2: TSpeedButton; 

15. 


SpeedButton3: TSpeedButton; 

16. 


Image1: TImage; 

17. 


Image2: TImage; 

18. 


Image3: TImage; 

19. 


MediaPlayer1: TMediaPlayer; 

20. 


procedure SpeedButton2Click(Sender: TObject); 


82

 

 



21. 

procedure SpeedButton3Click(Sender: TObject); 

22. 

procedure Image3Click(Sender: TObject); 



А қосымшасының жалғасы 

 

23. 



procedure ComboBox1Change(Sender: TObject); 

24. 


private 

25. 


{ Private declarations } 

26. 


public 

27. 


{ Public declarations } 

28. 


end; 

29. 


var 

30. 


Form2: TForm2; 

31. 


implementation 

32. 


uses Unit3, Unit1, Unit5; 

33. 


{$R *.dfm} 

34. 


procedure TForm2.SpeedButton2Click(Sender: TObject); 

35. 


var login,pass:string; 

36. 


begin 

37. 


login:='Рысбаковна Айнур Айбеккызы'; 

38. 


pass:='01'; 

39. 


if (Combobox1.text=login) and (edit1.text=pass)then 

40. 


form3.show 

41. 


else 

42. 


mediaplayer1.Play; 

43. 


edit1.text:=''; 

44. 


SpeedButton1.Caption:='Малiметтер кате енгiзiлдi!'; 

45. 


form3.edit1.text:='Рысбаковна Айнур Айбеккызы'; 

46. 


end; 

47. 


procedure TForm2.SpeedButton3Click(Sender: TObject); 

48. 


begin 

49. 


form2.Close; 

50. 


form1.show; 

51. 


form1.Visible:=true; 

52. 


end; 

53. 


procedure TForm2.Image3Click(Sender: TObject); 

54. 


begin 

55. 


form5.show; 

56. 


form5.MediaPlayer1.Play; 

57. 


form5.Color:=clGradientInactiveCaption; 

58. 


end; 

59. 


procedure TForm2.ComboBox1Change(Sender: TObject); 

60. 


begin 

61. 


form1.MediaPlayer4.play; 

62. 


end; 

63. 


end. 

 

1. 



unit Unit3; 

2. 


interface 

3. 


uses 

4. 


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

5. 


Dialogs, Menus, StdCtrls, ExtDlgs, DB, ADODB,ComObj, DBCtrls, Grids, DBGrids, 


83

 

 



6. 

Mask, Buttons, jpeg, ExtCtrls, ComCtrls,ShellAPI,acPNG, MPlayer; 

7. 

type 


А қосымшасының жалғасы 

 

8. 



TForm3 = class(TForm) 

9. 


DataSource1: TDataSource; 

10. 


ADOConnection1: TADOConnection; 

11. 


ADOTable1: TADOTable; 

12. 


OpenPictureDialog1: TOpenPictureDialog; 

13. 


OpenDialog1: TOpenDialog; 

14. 


SaveDialog1: TSaveDialog; 

15. 


Edit1: TEdit; 

16. 


SpeedButton21: TSpeedButton; 

17. 


Image8: TImage; 

18. 


MainMenu1: TMainMenu; 

19. 


N1: TMenuItem; 

20. 


N2: TMenuItem; 

21. 


N4: TMenuItem; 

22. 


N7: TMenuItem; 

23. 


DBGrid1: TDBGrid; 

24. 


DataSource2: TDataSource; 

25. 


ADOConnection2: TADOConnection; 

26. 


ADOTable2: TADOTable; 

27. 


DBGrid2: TDBGrid; 

28. 


GroupBox5: TGroupBox; 

29. 


DBNavigator1: TDBNavigator; 

30. 


N5: TMenuItem; 

31. 


Image3: TImage; 

32. 


N8: TMenuItem; 

33. 


N9: TMenuItem; 

34. 


Timer1: TTimer; 

35. 


N6: TMenuItem; 

36. 


N10: TMenuItem; 

37. 


N3: TMenuItem; 

38. 


N11: TMenuItem; 

39. 


N12: TMenuItem; 

40. 


N13: TMenuItem; 

41. 


N14: TMenuItem; 

42. 


N15: TMenuItem; 

43. 


N16: TMenuItem; 

44. 


N17: TMenuItem; 

45. 


N18: TMenuItem; 

46. 


N19: TMenuItem; 

47. 


N20: TMenuItem; 

48. 


N21: TMenuItem; 

49. 


N22: TMenuItem; 

50. 


H1: TMenuItem; 

51. 


PageControl1: TPageControl; 

52. 


TabSheet1: TTabSheet; 

53. 


SpeedButton1: TSpeedButton; 

54. 


SpeedButton2: TSpeedButton; 


жүктеу 0,72 Mb.

Достарыңызбен бөлісу:
1   ...   15   16   17   18   19   20   21   22   23




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау