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

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

жүктеу/скачать 4,77 Mb.

Pdf көрінісі

бет	149/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 145 146 147 148 149 150 151 152 ... 180

Байланысты:
УМК-ОББ

strSQL:= SELECT * FROM Страны ORDER BY Страны.+NameSortField; if Desc then strSQL:=strSQL+ DESC; else strSQL:=strSQL+;; SQL.Add(strSQL);

Қадам 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;

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу:

1 ... 145 146 147 148 149 150 151 152 ... 180