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)
Достарыңызбен бөлісу: |