Page 67
Ф-ОБ-001/033
68
TFontDialog; TPanel; TBitBtn; TImageList; TPanel; TPanel; TDBMemo;
TLabel; TSplitter; TADOQuery; TPanel; TBitBtn; ComboSort: TComboBox;
TActionMainMenuBar;
TActionToolBar;
TActionManager;
TAction;
TAutoIncField;
TStringField;
QryCost:
TBCDField;
TMemoField;
TPageControl;
TTabSheet;
TEdit;
TCheckBox;
procedure
BtnAddClick(Sender: TObject); procedure BtnEditClick(Sender: TObject);
procedure
BtnDelClick(Sender:
TObject);
procedure
ComboSortChange(Sender:
TObject);
procedure
EditChange(Sender:
TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure FormCreate(Sender: TObject); procedure FormClose(Sender:
TObject; var Action: TCloseAction); procedure GridTitleClick(Column:
TColumn);
procedure
BtnFontClick(Sender:
TObject);
procedure
ActExitExecute(Sender: TObject);
unit main;
//Негізгі модуль
//Қосымша көмек беру қатарын көрсету
procedure TFrmmain.ShowHint(Sender: TObject);
begin
status.Panels[1].text:=Application.Hint;
end;
//Мәліметтер кестесін жаңалау
procedure TFrmmain.Refresh(ph:integer);
Ф-ОБ-001/033
69
begin
if (ph=-1) and Qry.Active and (not QryId.isNull) then ph:=Qryid.Value;
qry.close;
//сұранысты жабу
qry.open;
//сұранысты ашу
qry.first;
// сұранысты ашу
try
if not qry.IsEmpty then
qry.Locate('id',ph,[]);// керекті жазбада позицияланады
except
end;
Достарыңызбен бөлісу: |
