//Сөздің басы бойынша іздеу
procedure TFrmmain.EditChange(Sender: TObject);
begin
if not qry.Filtered then
// фильтрация режимі болмаса
//толық емес сөз және регистрлік есепсіз бойынша іздеу
qry.Locate(SortField,edit.Text,[loCaseInsensitive, loPartialKey])
else
qry.Refresh; //немесе сұранысты жаңалау
end;
//Мәліметті жаңалау барысында
procedure TFrmmain.DataSource1DataChange(Sender: TObject; Field: TField);
begin
//жою және өңдеу батырмасы іске қосылды
//егерде база бос болмаса
Ф-ОБ-001/033
71
actedit .Enabled :=not qry.IsEmpty and admin;
actdel .Enabled :=not qry.IsEmpty and admin;
ActPrint.Enabled :=not qry.IsEmpty;
FrmDoc.Enabled :=not qry.IsEmpty;
end;
//Үлгіні құру
procedure TFrmmain.FormCreate(Sender: TObject);
begin
Application.OnHint := ShowHint; //көмекті көрсетуді инициализациялау
end;
//Үлгіні жабу
procedure TFrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
qry.Close; //үлгіні жабу
application.OnHint := nil;
end;
//кесте тақырыбында шерту
procedure TFrmmain.GridTitleClick(Column: TColumn);
var s:string;
i:integer;
begin
s:=column.FieldName;
for i := 0 to Grid.Columns.Count-1 do
begin
if Grid.Columns[i].fieldname=s then
Grid.Columns[i].title.Font.Style := Grid.Columns[i].title.Font.Style+[fsBold]
else Grid.Columns[i].title.Font.Style := Grid.Columns[i].title.Font.Style-[fsBold]
end;
i:=-1;
if not Qry.IsEmpty then
i:=QryId.AsInteger;
qry.Close;
SortField := s;
s:='order by ['+s+']';
if (sort2<>'') and (sort2<>SortField) then
begin
s:=s+',['+sort2+']';
end;
qry.sql[1]:=s;
Refresh(i);
end;
Достарыңызбен бөлісу: |
