Деректер қорын құру

МАЗМҰНЫ
КІРІСПЕ 3
1 DELPHI-ДЕ ДЕРЕКТЕР ҚОРЫМЕН ЖҰМЫС ІСТЕУ 4
1.1 Мәліметтер қорының негізгі ұғымдары 4
1.2 Деректер қорын құру 7
1.3 Бүркеншік ат құру 8
1.4 Кесте құру 10
1.5 Деректер қорын (кесте) құру 14
1.6 Деректер қорын қарау 15
2 «ЖЫЛЖЫМАЙТЫН МҮЛІК» ҚОЛДАНБАЛЫ ПРОГРАММАЛЫҚ ПАКЕТІ 24
2.1 Мәліметтерге қойылатын талаптар 24
2.2 Транзакцияларға қойылатын талаптар 24
2.3 Берілгендерге сұраныс қойып өңдеу. 24
ҚОРЫТЫНДЫ 28
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР 29
ҚОСЫМША А 30
ҚОСЫМША В 37
КІРІСПЕ
Қазіргі таңда техника мен технологияның қарқынды дамуына байланысты
Диссертациялық зерттеудің мақсаты жылжымайтын мүлікпен айналысатын мекемелер деректер
Бағдарлама Delphi программалау тілінде құрылуы тиіс. Жылжымайтын
1 DELPHI-ДЕ ДЕРЕКТЕР ҚОРЫМЕН ЖҰМЫС ІСТЕУ
1.1 Мәліметтер қорының негізгі ұғымдары
ЭЕМ (электронды есептегіш машиналардың) маңызды ерекшеліктерінің бірі
Мәліметтер базасы (МБ) - белгілі бір арнаулы ауқымға
Қарапайым МБ мысалы ретінде телефон анықғамалығын, поездар қозғалысы
Электронды МБ-сының басты қасиеті - ақпаратты тез іздестіру
Мәліметтер базасын басқару теориясы дербес пән ретінде шамамен
Объект деп мағлүматтары
Атрибут - объектінің қасиеттерін ақпараттың бейнелеу. Әрбір объект
Мәлметіпердің басты элементі деп мәлметтердің баска элементтерінің мәндерін
Алғашқы кілт - объектінің (жазбаның) әрбір данасын біреғей
МББЖ - жаңа база құрылымын құруға арналған программаның
Кез келген МББЖ мәліметтермен төрт қарапайым операция орындауға
■ кестеге бір немесе бірнеше жазбаны қосу;
■ кестеден бір немесе бірнеше жазбаны жою;
■ кейбір өрістердің бір немесе бірнеше жазбаларындағы мәндерді
■ берілген шартты қанағаттандыратын бір немесе бірнеше жазбаларды
МББЖ-ның тағы бір функңиясы - мәліметтерді басқару. Мәліметтерді
Деректер қоры деп ақпаратпен қамтамасыз ететін бағдарламаны айтады.
Жалпы алғанда деректер қоры дегеніміз - файлдар жиыны.
Қазіргі кезде деректер қоры жергілікті (dBase, FoxPro, Access,
Delphi құрамында dBase, Infomix және Oracle деректер файлдарымен
Жергілікті деректер қоры бір құралда тұрады. Құрал ретінде
Бірнеше қолданушы арасында деректерді бөлуді қамтамасыз ету үшін
Деректердің қашықтық қоры басқа компьютерде тұрады (қашықтық компьютер
Онымен жұмыс екі бөліктен тұрады: тұтынғыш (клиенттік) және
Серверлік қашықтық компьютерде жұмысты қамтамасыз ететін бағдарлама бөлігі.
Сұраулар SQL (құрылымды сұрау) тілінде берілетін әмірлер.
Қашықтық сервер бағдарламасы бірмезетте бірнеше қолданушыны қамтамасыз ете
Бірізді амалдар - бұл деректер берілместен бұрын міндетті
Қағазда деректер кесте түрінде беріледі. Кестенің әр жолы
Әр кесте жеке файлда сақталады. Бірақ деректер қоры
Деректер қорымен жұмыс істейтін бағдарламаның ақпарат көзі барлық
Деректер қоры С:, D: дискі каталоггерінде немесе желілік
Деректер қорымен жұмысты қамтамасыз ететін, бағдарлама Borland Database
1.2 Деректер қорын құру
Жоғарыда келтірілген мысалдарда Delphi 7 құрамындағы дайын кестелер
Деректер қоры бірнеше кестеден тұрады және олар бір
Деректер қоры бүркеншік ат арқылы алынатындықтан, деректердің жаңа
Деректер қорын құру кезінде мына әрекеттер орындалуға тиісті:
Каталог құру.
Бүркеншік атау құру.
Кесте құру.
Каталог құру
Деректер қоры файлдары үшін каталог (қалта) әдеттегідей, мысалы,
1.3 Бүркеншік ат құру
Деректер қорының бүркеншік атауы BDE Administrator бағдарламасымен құрылады.
Cурет 2.1 – BDE Administrator сұхбат терезесінің түрі
Терезенің сол жағында Databases тіркемеде, осы компьютерде тіркелген,
Бүркеншік ат құрған кезде әдетте STANDARD драйвері ұсынылады.
Cурет 2.2 – Жаңа бүркеншікті тіркеу
Бүркеншік атты өзгертуге, деректер қоры файлының жолын көрсетуге
1.4 Кесте құру
Кесте құрған кезде, мысалы жай тізім құрған кезде,
Жазба өрістері анықталған соң, кестеде өрістерді орналастыру кажет.
Ескертпе. Бірнеше деректер қорынан тұратын бір бірімен байланысты
Деректер қорының жазбалар құрылымы анықталған соң, кесте құруға
1. Жаңа есте құру үшін Tools|Database Desktop әмірін
2. File|New|Tabte алыңыз. Ашылған Create Table сұхбат терезеде
Нәтижесінде Create Paradox 7 Table терезесі (2.3-сурет) шығады.
Cурет 2.3 – Create Paradox 7 Table сұхбат
Кестенің әр өрісі үшін атау мен түр, егер
Кесте 1 - Өріс түрі ақпарат түрін анықтайды
Түрі Тұрақты Өріс мәні
Alpha A Нышандар жолы. Size - жол ұзындағы
Number N 15 мәнді аралықта жатқан цифрлар
Money $ Ақша пішіміндегі сан. Сандар разряд тобының
Short S -32767, 32767 аралықтағы бүтін сан
Long Integer I -2 147 483 648, 2
Date D Дата
Time T Миллисекундпен берілген, түн ортасынан басталған уақыт
Memo M Кез келген ұзындықты нышандар жолы. Мұнда
Timestamp @ Уақыт пен дата
Formatted Memo F Нышандар жолы. Қаріп түрі мен
Graphic G Сурет, графика.
Logical L Шын (true) және өтірік (false) мәндері
Auto-Increment + Бүтін сан. Кестеге кезекті жазбаны қосқан
Bytes Y Екілікті деректер. Мұндай өрістер Database Desktop
Binary В Екілік деректер. Мұндай өрістер Database Desktop
1.5 Деректер қорын (кесте) құру
Деректер қорын құру Database, Table, Query. DataSource құраластарымен
Database құраласы деректер қорын тұтас, яғни кестелер жинағы
Егер деректер қоры бір кестеден тұрса, деректермен жұмыс
Кесте 2 – Table құраласы сипаттары
Сипаттары: Анықтайды:
Name Құралас аты
DatabaseName Дерек қорының аты (дерек файлы), оны алуға
TableName Деректер файлының аты, оны алу үшін құралас
TableТуре Кесте түрі. Кесте Paradox (tt Paradox), dBase
Active Кестені белсенді ету белгісі. Нәтижесінде сипатқа true
Бағдарлама пішінін жасау кезінде DatabaseName мен TableName сипаттарының
DataSource құраласының Name, DataSet сипаттары бар. DataSet арқылы
Table құраласының сипаттары: Name – Таble1, DatabaseName -
DataSource құраласының сипаттары: Name - DataSourcel, DataSet –
1.6 Деректер қорын қарау
Деректер қорын пішін күйінде немесе кесте күйінде қарауға
Пішін күйі
Пішін күйінде деректер қорын қарау үшін, әр өріс
Name - құралас аты. Құралас сипаттарын алу үшін
Data Source - деректердің негізгі құраласы.
DataField - бейнелеу немесе өңдеуге құраласты қолданатын, деректер
DBEdit мен DBMemo құраластарының қолданылу мысалы ретінде "Балықтар"
Пішін былайша құрылады. Әуелі бос формаға Table, DataSource
DBEdit1- DBEdit5 және DBMemo құраластарының сипаттары: Барлық құралас
Table құраласының Active сипатына true берілгендіктен, DataField сипатына
Деректер қорының өрісін өңдеу-қарау құраластарынан басқа, пішінге DBImage
Деректер файлының жазбаларын қарау үшін, пішінге DBNavigator құраласы
Енді бағдарлама құрастырмасын қоссақ, бейнебетте оның пішіні шығады.
Кесте режимі.Жоғарыда айтылған "Балықтар" деректер қорында бағдарлама пішіні
Кесте күйінде деректер қорын қарауды қамтамасыз ететін бағдарлама
Деректер қоры "Мектеп" (Бүркеншік аты Мектеп) Mektep.db файлында
Ескертпе. Мектеп бүркеншік аты BDE Administrator арқылы құрылады,
Әуелі әзірленетін бағдарлама түріне Table мен DataSource құраласын
Table1DatabaseName - Мектеп
Table1.TableName - Mektep.db
Table1.Active - true
DataSource1.Dataset - Table1
Кесте күйінде деректерді қарау мен өңдеуді қамтамасыз ету
Dbgrid сипаттары:
Name- Құралас аты
DataSource - Деректер кестесінде бейнеленетін негіз
Columns - Кестеде бейнеленетін ақпаратты
Options.dgTitle - Бағандар тақырыбы жолын шығарады
Options.dglndicator - Индикатор бағаннан шығарады. Деректер қорымен жұмыс
Options.dgColumnResize - Бағдарлама жұмысы кезінде кесте бағаны енін
Options.dgColL.ines - Кесте бағанын бөлетін сызықты шығаруға рұқсат
Options.dgRowLines -Кесте жолын бөлетін сызықты шығаруға рұқсат етеді
Бағдарлама жұмысы кезінде кестеде қандай ақпарат бейнеленетінін білу
Column құраласының сипаттары
FieldName - мәні бағанға шығарылатын жазба өрісі
Width - пикселмен берілген баған ені
Font –баған ұяшасында мәтінді шығаратын қаріп
Color - Баған өңінің түсі
Alignment - Баған ұяшасында мәтінді теңестіру әдісі. Мәтін
Title.Caption - Баған тақырыбы. Әдеттегі мән жазба өрісінің
Title.Color - Баған тақырыбы өңінің түсі
Title. Font- Баған тақырыбының қаріпі
Әдетте әр баған үшін жазба өрісінің аты FieldName
Dbgrid құраласының сипаттарының мәні
Құралас FieldName Title.Caption
DBGrid1.Columns[0] fam Фамилия
DBGrid1.Columns[1] Name Имя
DBGrid1.Coiumns[2] Ciass Класс
DBGrid1.Columns[3] Adr Адрес, телефон
Енді нысанға DBNavigator құраласын қосамыз. Бұл құраластың DataSource
Енді бағдарламаны құрастыруға қосып көріңіз. Мынаған назар аударыңыз:
Кесте түріндегі деректер қорының жұмысы, Microsotf Excel электрондық
Деректер қорынан ақпаратты алу
Қолданушыға деректер қорымен жұмыс істегенде, әдетте оның барлығы
Деректерді басқару базаларының көптеген жүйелері керекті ақпаратты сұрауды
Кейбір шарттарды қанағаттандыратын жазбаны қарау үшін, Query құраласы
Сұрау SQL сипатына сұрауды жазу үшін нысанды әзірлеу
SQL сипаты жол тізімі болып табылады. Сондықтан бағдарлама
Төменде нақты адам турасында ақпаратты іздеуге сұрау құратын
Деректер қорын қарау мен сұрауды орындауға DBGrid1 құраласы
Tform.Button1 Click процедурасы Сұрақ тетігіне нұқумен қосылады. Ол
SQL-сұрауы өзгeртілер алдында Close әдісімен жабылуға тиісті (бұл
Tform.Button2Click процедурасы Барлық жазбалар тетігіне шертумен қосылады. Ол
Егер сұрау бағдарлама пішінін әзірлеу кезінде сұрау SQL
Мысалы, сұрау үшін
Select Distinst fam, Name, Class
From ':Meктen:Mektep.db'
Where
(Class ='10a')
Order By Name, fam
Сұрау шартын ауыстыру нұсқауы былай болуы мумкін:
Form1.Ouery1.SQL[3] := '(fam="' + fam'")'
SQL сипаты жолдар нөлден бастап нөмірленетін, түрі Tstring
Динамикалық құрылатын бүркеншік аттар
Деректер қорын тандауға бүркеншік атты қолдану, жүйеге деректерді
Бұл айтылғандардың мысалы ретінде "Мектеп" деректер қоры жұмысы
Бағдарламаның осы үлгісінде деректер қоры бағдарламаның орындалатын файлы
Деректер қорын басқаратын бағдарламаны басқа компьютерге көшіру
Құрылған деректер қорын басқаратын бағдарламаны басқа компьютерге кою
BDE деректер қорымен жұмысты қамтамасыз ететін, драйверлер мен
ВDЕ бағдарламаны қолмен қоюға тырысып көруге болады. Төменде
• BLW32.DLL
• IDAPI32.DLL
• IDBAT32.DLL
• IDPDX32.DLL
• IDR20009.DLL
• USA.BLL
• CHARSET.BLL
Бұл файлдарды қолданушы компьютеріне қою керек, сосын Windows
• Бөлім HKEY_LOCAL_MACHINE\Software\Borland\Database engine - параметр
• DLLPATH BDE DLL-файлдарына жолы болуға тиісті
• HKEY_LOCAL_MACHINESoftware\Borland\BLW32 -параметр
• BLAPIPATH BDE BLL-файлдарына жолы болуға тиісті
2 «ЖЫЛЖЫМАЙТЫН МҮЛІК» ҚОЛДАНБАЛЫ ПРОГРАММАЛЫҚ ПАКЕТІ
2.1 Мәліметтерге қойылатын талаптар
Realty бөлімі клиенттерге жалға берілетін, сатылатын объекттілерін ұсынады.
2.2 Транзакцияларға қойылатын талаптар
Мәліметтер енгізу. Жалға берілетін, сатылатын пәтер туралы мәлімет
Мәліметтерді жаңарту. Ескі мәліметтерді өшіріп, жаңа мәліметтерді енгізу.
2.3 Берілгендерге сұраныс қойып өңдеу.
Транзакция А. Карағанды қаласында орналасқан құны 25000 тенгеден
Транзакция В. 3 бөлмелі Язева көшесінде
Программа құру барысында жасаған операцияларымды мұқият тексеру үшін
procedure TForm1.Button3Click(Sender: TObject);
var index,i:integer;
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Datasource3.DataSet.Append;
while not Eof(F) do
begin
Datasource3.DataSet.Append;
for i:=0 to 10 do begin
Readln(F, S);
if (i=0) or (i=3)or (i=4)or (i=8) then Datasource3.DataSet.Fields.Fields[i].AsInteger:=strtoint(S)
else Datasource3.DataSet.Fields.Fields[i].AsString:=S;
end;
end;
CloseFile(F);
end;
end;
Одан кейін пәтерлерді жалға беру, сатуға байланысты сұраныс
procedure TForm1.Button2Click(Sender: TObject);
begin
dbgrid2.Visible:=true;
dbgrid2.Height:=200;
dbgrid2.Left:=groupbox1.Left;
dbgrid2.Top:=groupbox1.Top+groupbox1.Height;
dbgrid2.Height:=dbgrid1.Height;
dbgrid2.Width:=dbgrid1.Width;
dbgrid1.Visible:=false;
Query1.Active := false;
Query1.SQL.clear;
if (edit3.Text='')and (edit4.Text='') then
begin edit3.Text:=inttostr(0);
edit4.Text:=inttostr(1000000);end;
if (edit6.Text='')and(combobox6.Text='')and(combobox7.Text='')and(combobox8.Text='')and(combobox9.Text='')and(combobox10.Text='') then
Query1.SQL.Add(' select * from vrsdayu1')
else
if combobox6.Text'' then
Query1.SQL.Add(' select * from vrsdayu1 where (price between
else
Query1.SQL.Add(' select * from vrsdayu1 where (price between
Query1.Active := true;
n1.Enabled:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
dbgrid2.Visible:=true;
dbgrid2.Left:=groupbox2.Left;
dbgrid2.Top:=groupbox2.Top+groupbox2.Height;
dbgrid2.Height:=dbgrid1.Height;
dbgrid2.Width:=dbgrid1.Width;
dbgrid1.Visible:=false;
Query1.Active := false;
Query1.SQL.clear;
if (edit3.Text='')and (edit4.Text='') then
begin edit1.Text:=inttostr(0);
edit2.Text:=inttostr(1000000);end;
if (edit5.Text='')and(combobox1.Text='')and(combobox2.Text='')and(edit7.Text='')then
Query1.SQL.Add(' select * from vrprodayu1')
else if combobox1.Text'' then
Query1.SQL.Add(' select * from vrprodayu1 where (price between
else
Query1.SQL.Add(' select * from vrprodayu1 where (price between
Query1.Active := true;
n1.Enabled:=true;
end;
ҚОРЫТЫНДЫ
Информатизацияның даму тарихы АҚШ-та 60-ж.ж.-дан басталып, сонан соң
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
Матаев С. Delphi 7 Бағдарлама құру негіздері: Оқу
Кеңеспаев І.К. Қазақ тілінің түсіндірме сөздігі.
Ожегова С.И., Шведова Н.Ю. Толковый словарь русского языка.
Акулов Н. DelphiWorld
Холмогоров В. Основы программирования в Delphi 7. Учебный
Фаронов В.И. Основы программирования в Delphi 7.-М.: Изд-во
Холмогоров В. Создание базы данных. Учебный курс –
Михаил Фленов. Delphi искусство программирования. Санкт-Петербург «БХВ-Петербург», 2006
Гофман В.Е., Хомоненко А.Д. Delphi: экспресс курс. –
Фаронов В.В. Программирование баз данных в Delphi7. Учебный
Гончаров А. Самоучитель Delphi. – СПб: Питер, 2000.
Матросов А.В., Сергеев А.О., Чаунин М. Программирование баз
Соловьева А. Сетевые технологии. Учебник-практикум. – СПб.:БХВ –
Глушаков С.В. Программирование в Delphi. / С.В. Глушаков,
Леонтьев Б.К. Web-дизайн: Руководство пользователя – М.: Позновательная
ҚОСЫМША А
\\ жалға берілетін және сатылатын пәтерлерге сұраныс
procedure TForm1.N5Click(Sender: TObject);
begin
GroupBox1.Visible:=true;
GroupBox2.Visible:=false;
dbgrid1.Visible:=false;
dbgrid2.Visible:=false;
//form1.Color:=clSkyBlue;
N1.Enabled:=false;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
GroupBox2.Visible:=true;
//form1.Color:=clMoneyGreen;
GroupBox1.Visible:=false;
dbgrid1.Visible:=false;
dbgrid2.Visible:=false;
N1.Enabled:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
dbgrid2.Visible:=true;
dbgrid2.Height:=200;
dbgrid2.Left:=groupbox1.Left;
dbgrid2.Top:=groupbox1.Top+groupbox1.Height;
dbgrid2.Height:=dbgrid1.Height;
dbgrid2.Width:=dbgrid1.Width;
dbgrid1.Visible:=false;
//dbgrid2.Visible:=false;
Query1.Active := false;
Query1.SQL.clear;
if (edit3.Text='')and (edit4.Text='') then
begin edit3.Text:=inttostr(0);
edit4.Text:=inttostr(1000000);end;
if (edit6.Text='')and(combobox6.Text='')and(combobox7.Text='')and(combobox8.Text='')and(combobox9.Text='')and(combobox10.Text='') then
Query1.SQL.Add(' select * from vrsdayu1')
else
if combobox6.Text'' then
Query1.SQL.Add(' select * from vrsdayu1 where (price between
else
Query1.SQL.Add(' select * from vrsdayu1 where (price between
Query1.Active := true;
n1.Enabled:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
dbgrid2.Visible:=true;
dbgrid2.Left:=groupbox2.Left;
dbgrid2.Top:=groupbox2.Top+groupbox2.Height;
dbgrid2.Height:=dbgrid1.Height;
dbgrid2.Width:=dbgrid1.Width;
dbgrid1.Visible:=false;
Query1.Active := false;
Query1.SQL.clear;
if (edit1.Text='')and (edit2.Text='') then
begin edit1.Text:=inttostr(0);
edit2.Text:=inttostr(1000000);end;
if (edit5.Text='')and(combobox1.Text='')and(combobox2.Text='')and(edit7.Text='')then
Query1.SQL.Add(' select * from vrprodayu1')
else if combobox1.Text'' then
Query1.SQL.Add(' select * from vrprodayu1 where (price between
else
Query1.SQL.Add(' select * from vrprodayu1 where (price between
Query1.Active := true;
n1.Enabled:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
var index,i:integer;
XLApp, Sheet, Colum:Variant;
F: TextFile;
S: string;
begin
//index:=2;
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Datasource3.DataSet.Append;
while not Eof(F) do
begin
Datasource3.DataSet.Append;
for i:=0 to 10 do begin
Readln(F, S);
if (i=0) or (i=3)or (i=4)or (i=8) then Datasource3.DataSet.Fields.Fields[i].AsInteger:=strtoint(S)
else Datasource3.DataSet.Fields.Fields[i].AsString:=S;
end;
end;
CloseFile(F);
end;
//New_record.DBNavigator1.BtnClick(nbPost);
end;
procedure TForm1.N2Click(Sender: TObject);
begin
with New_record do begin
caption:='Ввод данных';
if form1.GroupBox1.Visible=true then
begin panel1.Visible:=true;
panel2.Visible:=false;
Datasource1.DataSet.Append;
DBNavigator1.BtnClick(nbInsert);
end
else
begin panel2.Visible:=true;
panel1.Visible:=false;
Datasource3.DataSet.Append;
DBNavigator2.BtnClick(nbInsert);
end;
ShowModal;
end;
new_record.button3.Enabled:=true;
new_record.button5.Enabled:=true;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
with New_record do begin
Caption:='Редактировать запись';
if form1.GroupBox1.Visible=true then
begin panel1.Visible:=true;
panel2.Visible:=false;
Datasource1.DataSet.Edit;
DBNavigator1.BtnClick(nbEdit);
end
else
begin panel2.Visible:=true;
panel1.Visible:=false;
Datasource3.DataSet.Edit;
DBNavigator1.BtnClick(nbEdit);
end;
ShowModal;
end;
new_record.button3.Enabled:=true;
new_record.button5.Enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Height:=form1.Height-60;
image1.Width:=form1.Width-13;
image1.Top:=0;
image1.Left:=0;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
ShellAbout(form1.Handle, 'Курстык жумыс',
'Delphi (7.0) баѓдарламасы негізінде "Жылжымайтын мулик" колданбалы программалык
'', Application.Icon.Handle);
end;
procedure TForm1.N9Click(Sender: TObject);
begin
{toolButton1.Enabled:=false;
panel1.Visible:=true;
toolButton2.Enabled:=true;
toolButton3.Enabled:=true;
// form3.Width:=640;form3.Height:=520;
// form3.MediaPlayer1.Pause;
with mediaplayer2 do begin
open;
play;
end;
}
end;
ҚОСЫМША В
\\ жаңа жазба енгізу, жазбаны өңдеу
procedure TNew_record.Button1Click(Sender: TObject);
begin
IF new_record.Caption='Ввод данных' then
form1.DataSource1.DataSet.Append
else form1.DataSource1.DataSet.Edit;
DBNavigator1.BtnClick(nbPost);
Button3.Enabled:=false;
end;
procedure TNew_record.Button2Click(Sender: TObject);
begin
IF new_record.Caption='Ввод данных' then
form1.DataSource3.DataSet.Append
else form1.DataSource3.DataSet.Edit;
DBNavigator2.BtnClick(nbPost);
Button5.Enabled:=false;
end;
procedure TNew_record.Button5Click(Sender: TObject);
begin
with DBNavigator2 do begin
BtnClick(nbCancel);
end;
end;
procedure TNew_record.Button3Click(Sender: TObject);
begin
with DBNavigator1 do begin
BtnClick(nbCancel);
end;
end;
procedure TNew_record.Button4Click(Sender: TObject);
begin
close;
end;
procedure TNew_record.Button6Click(Sender: TObject);
begin
close;
end;
procedure TNew_record.FormCreate(Sender: TObject);
begin
panel1.Width:=new_record.Width-13;
panel1.Height:=new_record.Height-35;
panel2.Width:=new_record.Width-13;
panel2.Height:=new_record.Height-35;
panel1.Top:=0;
panel1.Left:=0;
panel2.Top:=0;
panel2.Left:=0;
image1.Top:=0;
image1.left:=0;
image1.Width:=panel1.Width;
image1.Height:=panel1.Height;
image2.Top:=0;
image2.left:=0;
image2.Width:=panel2.Width;
image2.Height:=panel2.Height;
end;
3