Э. В. Фуфаев, Д. Э. Фуфаев



жүктеу 10,13 Mb.
Pdf просмотр
бет52/93
Дата19.11.2018
өлшемі10,13 Mb.
#21568
түріОқулық
1   ...   48   49   50   51   52   53   54   55   ...   93

Public Sub GetFromRegister() 
Dim Ret As Long 
Ret = GetSetting ("Book", "Init", "BackColor", 
vbApplicationWorkspace) 
"7303023) 
FrmBackColor = Ret 
Ret = GetSetting("Book", "Init", "Default", 1) 
If Ret = "0" Then Default = False 
If Ret = "1" Then Default = True 
Ret  =  GetSetting("Book",  "Init", 
"Size", 2) 
If Ret = "0" Then ShowMax = True 
If Ret = "2" Then ShowMax = False 
End Sub 
Бағдарлама параметрлерін реестрде сақтау 
PublicSubSavetoRegister() 
SaveSetting 
"Book",  If  Default 
Then 
"Init
", 
"BackColor", FrmBackColor 
SaveSetting 
"Book", Else 
"Init
", 
"Default", "1" 
SaveSetting 
"Book", End If 
If ShowMax Then 
"Init
", 
"Default", "0" 
SaveSetting 
"Book", Else 
"Init
", 
"Size", "0" 
SaveSetting 
"Book", 
"Init
", 
"Size", "2" 
End If End Sub 
'Басты нысанның мəнмəтіндік мəзірінің бірінші тармағының 
таңдауын өңдеу  
Public Sub Item1Clk(ColorDialog As CommonDialog, TPicture As 
PictureBox, TItem As Menu) 
On Error GoTo ErrHandler ColorDialog.Flags = cdlCCRGBInit 
ColorDialog.ShowColor FrmBackColor = ColorDialog.Color 
TPicture.BackColor = FrmBackColor TItem.Checked = False Default = 
False Exit Sub 
ErrHandler: Exit Sub End Sub 
'Басты нысанның мəнмəтіндік мəзірінің екінші тармағының 
таңдауын өңдеу 
Public Sub Item2Clk(TPicture As PictureBox, TItem As Menu) 
If TItem.Checked Then Default = False TItem.Checked = False 


 
TPicture.BackColor = TPicture.BackColor 
Else 
Default = True 
TItem.Checked = True 
Lines TPicture End If 
End Sub 
Сонымен,  біз  VBA  бағдарламалау  тілінің  негізгі  ҧғымдарымен 
таныстық. 
Access  жҥйесінде  деректер  жҧмысты  автоматтандыру  ҥшін 
қолданудың кейбір тəсілдерін қарастырайық. 
8.2-суретте бҧйымның кəсіпорнында дайындалатын технологиялық 
ҥрдістерді жіктегішті жасау нысаны ҧсынылған.  
Жіктегіш  қҧрама  бірліктің  белгіленуін  жылдам  іздеуге  арналған 
(қҧрастыру сызбасының №). 
Осы  жіктегіш  ―көбіне  біреу‖  қатынастарымен  байланысқан,  төрт 
кесте  (тізім)  тҥрінде  ҧсынылуы  мҥмкін,  төрт  деңгейлі  иерархиялық 
жҥйе  болып  табылады:  •  бірінші  кестеде  бҧйым  тҥрлерінің  атаулары 
бар; 
 
Тізімге енгізу өрістері 
Жіктеу топтарының байланысқан тізімдері 
8.2-сурет. Технологиялық үрдістерді жіктегіш нысаны  


 
 
8.3-сур. Бағдарлама фрагментімен Бағдарламаларды құрушы терезесі  
•  екінші кестеде əрбір тҥріне арналған бҧйым тҥрлерінің атаулары; 
•  ҥшінші кестеде бҧйымдардың атаулары, осы мысалда - нақты 
тҥріне жататын қҧрама бірліктердің атаулары; 
•  төртінші кестеде қҧрама бірлік сызбасының белгіленуі (нөмірі). 
Жіктегішті толтыру алгоритмі мына əрекеттерден тҧрады: 
•  меңзерді бірінші тізімнің деректерді енгізу аясына орналастыру 
(бҧйым тҥрлері); 
•  тҥрінің атауын енгізу; 
•  бҧйымның тҥрін ерекшелеу жəне меңгерді екінші тізімнің 
деректер енгізу аясына орналастыру — Бұйым түрлері
•  келесі тізімдерді толтыру ҥшін көрсетілген əрекеттерді қайталау 
керек. 
Осы рəсімдерді орындау ҥшін VISUALBASIC тіліндегі 
бағдарламаны қарастырайық. 
Бағдарламалар Бағдарламаларды құрушы терезесіндегі макростарға 
жəне тіркестерге ҧқсас жасап шығарылады.  
Бағдарлама мəтінінің фрагментімен Бағдарламаларды құрушы 
терезесі 8.3-суретте келтірілген. Бағдарламаны жасап шығару реті:  
•  Құрастырушы режимінде нысанды ашу


•  объектті (аяны) ерекшелеу; 
•  Объекттің қасиеттері терезесін шақыру. 
Қасиеттер терезесінде тиісті қасиеттің жолында Бағдарламаларды 
құрушыны шақыру керек. Нəтижесінде бастапқы тіл операторларымен 
Бағдарламаларды құрушы шығады: 
Private  Sub  —  жаңа  қосалқы  бағдарламаны  жариялайтын 
нҧсқаулық. (Бағдарлама мəтіні) 
End Sub — қосалқы бағдарламаны жабатын нҧсқаулық. 
Төменде  Технологиялық  үрдістерді  жіктегіш  нысанын  толтыру 
кезінде орындалатын қосалқы бағдарламалардың мəтіндері келтірілген 
(8.2-сур.).  
Option Compare Database 
Option Explicit 
Private  Sub  ҚосБҧйымТҥрі_AfterUpdateO'  Бҧйымдар  тҥрі  тізімін 
толықтыру бағдарламасының басы  
DoCmd.SetWarnings  False  '  Жҥйелік  хабарламаларды  шығаруға 
тыйым салады  
DoCmd.OpenQuery "ҚосБҧйымТҥрі" 
DoCmd.SetWarnings  True  '  Жҥйелік  хабарламаларды  шығаруға 
рҧқсат етеді  
Me^^mi бҧйымдар].Requery 
Me![ҚосБҧйымТҥрі] = Null End 
Sub 
Private  Sub  ҚосБҧйымТҥрі_MouseMove(Button  As  Integer,  Shift  As 
Integer, X As Single, Y As Single) 
Me![ҚосБҧйымТҥрі].Visible = 
True End Sub 
Private Sub ҚосБҧйымТҥрі_AfterUpdateO 
DoCmd.SetWarnings  False  '  Жҥйелік  хабарламаларды  шығаруға 
тыйым салады 
DoCmd.OpenQuery "ҚосБҧйымТҥрі" 
DoCmd.SetWarnings  True  '  Жҥйелік  хабарламаларды  шығаруға 
рҧқсат етеді 
Me^^mi бҧйым].Requery ' Тізім жаңартылады 
Me![ҚосБҧйымТҥрі] = Null End Sub 
Private  Sub  ҚосБҧйымТҥрі_MouseMove(Button  As  Integer,  Shift  As 
Integer, X As Single, Y As Single) 
Me![ҚосБҧйымТҥрі].Visible = 
True End Sub 
Private Sub ҚосБҧйымТҥрі_AfterUpdateO 


DoCmd.SetWarnings False ' Жҥйелік хабарламаларды шығаруға 
тыйым салады 
DoCmd.OpenQuery "ҚосБҧйымТҥрі" 
DoCmd.SetWarnings True ' Жҥйелік хабарламаларды шығаруға 
рҧқсат етеді 
Ме![БҧйымТҥрлері].Requery ' Тізімді 
ЖаңартадыМе![ҚосБҧйымТҥрі] = Null End Sub 
Private Sub MидИздДоп_MouseMove(Button As Integer, Shift As 
Integer, X As Single, Y As Single) 
Me![ҚосБҧйымТҥрі].Visible = True End Sub 
Private Sub БҧйымАтауы_AfterUpdateO 
Me![БҧйымАтауы].Requery 
End Sub 
Private Sub БҧйымАтауы_MouseMove(Button As Integer, Shift As 
Integer, X As Single, Y As Single) 
Me![БҧйымАтауы].SetFocus End Sub 
Private Sub БҧйымТҥрлері_AfterUpdateO 
Me![БҧйымТҥрлері].Requery Me![БҧйымАтауы].Requery 
Me![БҧйымБелг].Requery End Sub 
Private Sub БҧйымТҥрлері_MouseMove(Button As Integer, Shift As 
Integer, X As Single, Y As Single) 
Me![^nbi бҧйым].SetFocus End Sub 
Private Sub БҧйымБелгMouseMove(Button As Integer, Shift As 
Integer, X As Single, Y As Single) 
Me![БҧйымБелг].SetFocus End Sub 
Private Sub ҚосБҧйымТҥрі_AfterUpdateO 
DoCmd.SetWarnings False ' Жҥйелік хабарламаларды шығаруға 
тыйым салады  
DoCmd.OpenQuery "ҚосБҧйымТҥрі" 
DoCmd.SetWarnings True ' Жҥйелік хабарламаларды шығаруға 
рҧсқат етеді  
Me![БҧйымТҥрлері].Requery ' ТізімдіЖаңартады 
Me![ҚосБҧйымТҥрі] = Null End Sub 
Private Sub ҚосБҧйымТҥрі_MouseMove(Button As Integer, Shift As 
Integer, X As Single, Y As Single) 


жүктеу 10,13 Mb.

Достарыңызбен бөлісу:
1   ...   48   49   50   51   52   53   54   55   ...   93




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

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