Шығыс Қазақстан облысының білім басқармасы


Қадам 2 – МҚ – на SQL- сұрауының бағдарламалық өзгеруі



Pdf көрінісі
бет149/180
Дата06.01.2022
өлшемі4,77 Mb.
#15026
1   ...   145   146   147   148   149   150   151   152   ...   180
Байланысты:
УМК-ОББ

Қадам 2 – МҚ – на SQL- сұрауының бағдарламалық өзгеруі 
1. 
Процедура атауын форма классын бейнелеу Public  бөліміне орналастырыңыз: 
 
2. 
Төменде  көрсетілген  процедураны  құрыңыз  және  басқа  да  қосалқы 
бағдарламалардың хабарламалары жанында  unMain модулінің  interface секциясында оның 
атауын орналастырыңыз: 
procedure TfmMain.NewQuerySQL; 
var strSQL:string; 
begin 
DataSource1.Enabled :=False; 
   With ADOQuery1 do begin 
    if Active=True then Active:=False; 
    SQL.Clear; 
    strSQL:= 'SELECT * FROM Страны ORDER BY Страны.'+NameSortField; 
    if Desc then strSQL:=strSQL+' DESC;' else strSQL:=strSQL+';'; 
    SQL.Add(strSQL); 
    Active:=True; 
   end; 
DataSource1.Enabled :=True;    
end; 
3. 
Сізбен  құрылған  оқиғаларды  өндеушілерде    NewQuerySQL    процедураны 
шақыруды қосыңыз: 
procedure TfmMain.DBGrid1TitleBtnClick(Sender: TObject; ACol: Integer; 
  Field: TField); 
begin 
    if (Field <> nil) then begin 
       if NameSortField=Field.FullName then begin 
           Desc:=Not(Desc); 
       end else begin 
         Desc:=False; 
         NameSortField:=Field.FullName; 


146 
 
       end; 
    end; 


Достарыңызбен бөлісу:
1   ...   145   146   147   148   149   150   151   152   ...   180




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

    Басты бет