Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
Категория реферата: Рефераты по информатике, программированию
Теги реферата: бесплатные рефераты и курсовые, quality assurance design patterns системный анализ
Добавил(а) на сайт: Аксёнов.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
BtnSAVEVILLAGE.Enabled := True else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditVILLAGEKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do begin
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]); if (TblVILLAGETITLE.Value EditVILLAGE.Text) and
(EditVILLAGE.Text '') then
BtnSAVEVILLAGE.Enabled := True else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]); end; end;
end.
AdminDM.pas unit AdminDM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables;
type
TDMAdmin = class(TDataModule)
TblDATA: TTable;
DatSrcDATA: TDataSource;
TblYEARS: TTable;
DatSrcYEARS: TDataSource;
TblDATAYEARNUM: TFloatField;
TblDATANN: TFloatField;
TblDATAHISTORYNUM: TFloatField;
TblDATAFIO: TStringField;
TblDATABORN TDateField;
TblDATABORNTIMEH: TSmallintField;
TblDATABORNTIMEM: TSmallintField;
Рекомендуем скачать другие рефераты по теме: дипломная работа проект, защита диплома.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата