Delphi

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 3
1 Бөлім. Файлдар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .. 4
1.1. Мәтіндік файлдар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... . 4
1.2. Сұқбаттар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .. 5
1.3. Типтелген файлдар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 6
2 Бөлім. Графика және мультимедиа ... ... ... ... ... ... ... ... ... ... ... ... ... ... . 8
2.1. Графикалық файлдар форматтары ... ... ... ... ... ... ... ... ... ... ... ... ... . 8
2.2. Графикалық ақпараттарды кескіндеу компоненттері ... ... ... ... ... ... .. 9
3 Бөлім. Мәліметтер қоры қосымшасын құру ... ... ... ... ... ... ... ... ... ... ... 12
3.1. МҚ кестесін құру ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 12
3.2. МҚ қосымшасын құру компоненттері ... ... ... ... ... ... ... ... ... ... ... ... ... 14
3.3. Есептелетін және таңдау өрістерін құру ... ... ... ... ... ... ... ... ... ... ... ... . 15
3.4. Мәліметтерге қатынаудың навигациялық тәсілдері ... ... ... ... ... ... ... .. 16
3.5. Сүзгілеу тәсілдері ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .. 17
3.6. Бірнеше кестелердегі мәліметтер жиынтығын құру және өңдеу ... ... . 17
3.7. Есеп құру ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .. 18
Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .. 27
Пайдаланылған әдебиеттер тізімі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 28
Қосымшалар
МАЗМҰНЫ
КІРІСПЕ

Қазіргі қолданбалы программаларды дайындау технологияларының өте мықтылығына қарамастан, егер программаның жобасын жасауға, шешілуге тиісті мәселелерді анықтау кезеңіне барынша назар аударып, әбден пысықтамаса, соңында оны жөндеуге көп уақыт кетуі мүмкін. Егер программа құрылымы, жобасы дұрыс келістірілмеген болса, программаға жаңа функция енгізу немесе ондағы кемшіліктерді жөндеу үлкен қаржы шығынына да ұшыратуы мүмкін. «Delphi ортасында мәліметтер қорына рұқсат алу механизмдері», «Мәліметтер қорын құру және басқару», «Delphi7 ортасында локальды деректер қорын қолданып ақпараттық жүйелер құру», «Серверлік мәліметтер қоры және Interbase серверімен танысу» тақырыптары қарастырылып, әрбір тақырыпқа қысқаша теориялық мағлұматтар және оларға сәйкес мысалдар келтірілді. Қазіргі техника мен технологияның дамып, маңызы артқан XXI-ғасыр заманында мәліметтер қоры адамзат баласы өмірінің бір бөлшегіне айналып отыр. Ал мәліметтер қоры қазіргі таңда кез келген сферада қолданылып жүргені бәрімізге мәлім. Бұл туралы тұрақты анықтама жоқ, себебі бұл ұғымның қасиеттеріне байланысты аясы кең болып саналады.
1. В Фаронов. Объектно-риентированная среда Delphi. Версия 6. Учебноепособие. "Русская редакция", 2002.
2. Я. Н. Глинский, В. Е. Анохин, В. А. Ряжская – TURBOPASCAL 7.0 и Delphi. Учебное пособие. Москва – Санкт – Петербург-Киев. 2001.
3. Культин Н. Delphi3. Программирование на ObjectPascal. Санкт-
Петербург, 1998. -304 с.
4. Конопка Р. Создание оригинальных компонентов в среде ОеІрһі.Персангл.Рей.К.:НИПФ «Диа Софт ЛТД», 1996. -152 с.
5. Орлик С.В. Секреты Delphiна примерах. М.: Бином, 1996. - 136 с.
6. Нурбекова Ж. Практикум решения задач на Delphi 5.O. Учебно-
методическое пособие. Павлодар, 2001. -106 с.
7. Халықова К.З. Паскаль тілінде программалау. Оқу құралы. Абай ат.ҚазҰПУ. Алматы, 2002. -2106.
8. Дудина И.П. Построние графиков функций в Delphi. Информатика иобразование. №6, 2003, стр.27-31.
9. Давыдова Е.В., Скородумов И.А., Балаханов В.А. Создание базовыхэлементов интерфейса Windowsпрограммы в среде Delphi.
Информатика и образование. №4,5,6. 2002.
10. Халықова К.З., Ануарбекова Г.Ж. Object Pascal тілі. Delphi ортасы. Оқу әдістемелік құрал. – Алматы: Абай ат.ҚазҰПУ, 2008. – 220 бет.
11. Б. Д. Сыдықов, Ш. Т. Шекербекова, Н. И. Культин - Delphi ортасында бағдарламалау практикумы. Алматы, 2005
12. Культин Н. Основы программирования в Delphi 7.0 - Санкт-Петербург, 2005.
13. Гофман В. Delphi6/В.Гофман, А.Хомоненко. – Санкт-Петербург: БХВ – Петербург, 2001.
14. Фаронов В.В. Программирование баз данных в Delphi 7: Учебный курс/В.В.Фаронов. – СПб.: Питер, 2004.
15. Архангельский А. 100 компонентов библиотеки Delphi5. - Санкт-Петербург, 2001.
16. Фленов М. Delphi 2005 секреты программирования. – Питер, 2006.
17. Харрингтон Д. Проектирование объектно-ориентированных баз данных. Пер. С англ. – М.: ДМК Пресс, 2001.
18. Абдолдина Ф.Н. Delphi ортасында бағдарламалау. Әдістемелік құрал.- ШҚМУ баспасы, Өскемен, 2005.
        
        КІРІСПЕ
Оқу тәжірибесі 2014 - 2015 оқу жылдарының күзгі семестрінде өтті.
Оқу тәжірибесінің жалпы өту мерзімі - 2 ... ... (2014 ... 1-ші және 14-ші ... ... ... ... Заманғы көпсалалы колледжінде өтті.
Қазіргі қолданбалы программаларды дайындау ... өте ... ... егер ... ... ... шешілуге тиісті мәселелерді анықтау кезеңіне барынша назар аударып, әбден пысықтамаса, соңында оны жөндеуге көп уақыт кетуі мүмкін. Егер программа ... ... ... ... ... ... жаңа функция енгізу немесе ондағы кемшіліктерді жөндеу үлкен қаржы ... да ... ... , , , ... қарастырылып, әрбір тақырыпқа қысқаша теориялық мағлұматтар және оларға сәйкес мысалдар келтірілді. Қазіргі техника мен технологияның дамып, маңызы ... ... ... ... қоры ... ... ... бір бөлшегіне айналып отыр. Ал мәліметтер қоры қазіргі таңда кез келген сферада қолданылып жүргені ... ... Бұл ... ... ... жоқ, ... бұл ... қасиеттеріне байланысты аясы кең болып саналады.
1 БӨЛІМ. ФАЙЛДАР
1.1 Мәтіндік файлдар
Мәтіндік файл (text file) -- ... ... ... ... ... бар ... ... цифрлардан және тыныс белгілері мен арнайы символдардан құрастырылған ... ... ... онда ... ... мен келесі жолға ауысудан өзге басқару (пішімдеу) таңбалары болмайды. Көбінесе ASCII кодындағы ... деп ... ... ... ... ... да ... Мәтіндік файл - символдық (Char) типті берілгендерден құрылатын файл. Оны сипаттау үлгісі: f : file of char не f : text. ... файл ... .text ... ... ... ... файл ұзындықтары анықталмаған түрлі жолдардан тұрады, тек әр жол ... 255 - тен ... ... Файл құру ... сөз ... бос орын ... әр жол ... Еnd пернесін басу керек.
+ Сұқбаттар
1104901350010Delphi сұқбаттары файлды таңдау кезінде өздігінен жұмыс атқармайды, тек қана ... файл ... ... ... ... ғана құрылымдауларды көрсетеді. Оның ең маңызды тәсілі Execute болып табылады. Ол файлды таңдау терезесіндегі және ... ... ... ғана іске ... ... Сұқбаттар компоненттерін көрсететін терезе
+ Типтелген файлдар
Барлық типтелген файлдардың элементтері бірдей болуы керек, ал типтелген файл әртүрлі болуы мүмкін.
Типтелген файлдарды оқу read ... ал жазу write ... ... (f) - атауы AssignFile операторында анықталған берілгендер ... ... тиеу үшін ... ашу ... (rewrite - ... ... Ол f үшін ... арнайы орын ашып, көрсеткішті (бастиекті) осы орынның басына орналастырады.
Write (f, v) - ... ... ... f ... ... дискілік файлға БФ-тің кезекті элементін (v) тиеу операторы (v ... ... ... жазылатын үтірлер арқылы бөлінген айнымалылар тізімін енгізуге де ... (f) - ... жабу ... ... дискіге тиеу не дискіден оқу аяқталған кезде енгізіледі).
Reset (f) - атауы f арқылы белгіленген ... ... ... осы ... ... орналастырады (reset - қайта орнату).
Read (f, n: longint) - ... ... n+1 ... ... ... орналастырады. Ол файлдың (n+1) - ... оқу үшін ... (f) - ... ... ... анықталған берілгендер файлын дискіге тиеу үшін файлды ашу операторы (rewrite - жаңадан жазу). Ол f үшін ... ... орын ... ... ... осы ... басына орналастырады.
Write (f, v) - атауы AssignFile ... f ... ... ... ... ... кезекті элементін (v) тиеу операторы (v орнына мәндері файлға жазылатын үтірлер ... ... ... тізімін енгізуге де болады).
CloseFile (f) - файлды жабу (оператор БФ-ті дискіге тиеу не ... оқу ... ... ... (f) - атауы f арқылы белгіленген файлды ашып, бастиекті осы файлдың басына орналастырады (reset - ... ... (f, n: longint) - ... ... n+1 ... ... ... орналастырады. Ол файлдың (n+1) - жолын оқу үшін ... ... ... - де ... файлдарды құру бағдарламасы. Бағдарламаны құру кезінде тиісті компоненттерді қолданып, бағдарлама мәтінін ... ... ... ... Classes, ... ... ... ExtDlgs, Jpeg, StdCtrls, ExtCtrls, Menus, Math, Buttons,
ComCtrls, Gim02, Gim05;
procedure TFmain.OuvrirUnPaquetClick(Sender: TObject);
begin
Odlg.FilterIndex := 1;
ODlg.InitialDir := chemin;
if ... ... ... ext,nf : ... : integer;
begin
nf := NomImage(ImaFile);
ext := ExtractFileExt(ImaFile);
typ := QuelType(ext);
if typ > -1 then
begin
inc(Nbima);
SetLength(tbPima,Nbima+1); // on agrandit la table des ... := ... // ... а l'aide de l'йlйment 0
tbPima[Nbima].ftype := typ; // on note le type de fichier ... := ... := ... := ... // position dans le ... := ... := ... // copie de l'image
tbPima[Nbima].taille := ImaStrm.Position - tbPima[Nbima].posima;
// la taille de l'image est calculйe par diffйrence entre sa position
// et la taille du stream aprиs ajout de ... ... ... Ajout d'une ou ... images. Il est possible de modifier la ... des images en ... i,nbi : integer;
begin
if OPDlg.Execute then
begin
nbi := OPDlg.Files.Count;
FileBox.Clear;
FileBox.Items.Assign(OPDlg.Files);
if Nbima = 0 then debima := Nbima+1;
for i := 1 to nbi ... := ... ... : string) : ... st : string;
p : integer;
begin
st := ExtractFileName(nf);
p := ... p > 12 then st:= ... st := ... := ... ... ... ... құру бағдарламасы
* Тапсырма
Бұл бағдарлама үйдің шығындарын, яғни кіріс - шығысын есептейтін бағдарлама. Бағдарлама мәтіні төмендегідей:
unit ... ... ... ... Classes, Graphics, Controls, Forms,
Dialogs, TB97Tlbr, TB97Ctls, TB97, ... ... ImgList, ... elTree, uChild, VCLUnZip, VCLZip, StdCtrls, TB97Tlwn;
type
TfrmMain = class(TForm)
MainMenu: TMainMenu;
mnmWork: TMenuItem;
mnmCost: TMenuItem;
mnmOptions: TMenuItem;
mnmSplitter3: TMenuItem;
mnmExit: TMenuItem;
mnmView: TMenuItem;
mnmFilterPanel: TMenuItem;
mnmData: ... ... ... ... ... ... ... TMenuItem;
mnmHorizontal: TMenuItem;
mnmVertical: TMenuItem;
mnmMinimizeAll: TMenuItem;
mnmArrange: TMenuItem;
mnmClose: TMenuItem;
mnmHelp: TMenuItem;
mnmAbout: TMenuItem;
ImageList: TImageList;
StandartActions: TActionList;
AcCost: TAction;
AcShowHideWindow: TAction;
AcWindowCascade: TWindowCascade;
AcWindowTileHorizontal: TWindowTileHorizontal;
AcWindowTileVertical: ... ... ... ... TAction;
AcExit: TAction;
AcAbout: TAction;
ChildActions: TActionList;
AcAdd: TAction;
AcEdit: TAction;
AcDelete: TAction;
AcRefresh: TAction;
AcToExcel: TAction;
AcFilterPanel: TAction;
DockTop: TDock97;
MainToolbar: TToolbar97;
btnRefresh: TToolbarButton97;
btnAdd: TToolbarButton97;
ToolbarSep4: TToolbarSep97;
btnCost: TToolbarButton97;
ToolbarSep5: TToolbarSep97;
StatusBar: TStatusBar;
AcCostType: TAction;
mnmManual: TMenuItem;
mnmCostType: ... ... ... ... ... ... TMenuItem;
btnGainType: TToolbarButton97;
ToolbarSep1: TToolbarSep97;
AcBalance: TAction;
mnmBalance: TMenuItem;
ToolbarSep3: TToolbarSep97;
AcGainCost: TAction;
mnmGainCost: TMenuItem;
AcDebt: TAction;
mnmDebt: TMenuItem;
ToolbarSep2: TToolbarSep97;
AcAddPattern: ... ... ... ... TMenuItem;
btnErrand: TToolbarButton97;
mnmSplitter1: TMenuItem;
mnmSplitter2: TMenuItem;
procedure ChildActionsUpdate(Action: TBasicAction;
var Handled: Boolean);
//универсальный обработчик событий для ... ... ... ... ... ... AcOptionsExecute(Sender: TObject);
procedure AcExitExecute(Sender: TObject);
procedure AcAboutExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... ... ... AcGainExecute(Sender: TObject);
procedure AcGainTypeExecute(Sender: TObject);
procedure AcBalanceExecute(Sender: TObject);
procedure AcGainCostExecute(Sender: TObject);
procedure AcDebtExecute(Sender: TObject);
procedure AcErrandExecute(Sender: TObject);
private
procedure ExecuteChildAction(Sender: TObject; ac: TChildActions);
procedure DisplayHint(Sender: TObject);
function ... ... ... Public ... ... ... *.dfm}
//создание формы
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
AcFilterPanel.Tag := integer(childFilterPanel);
AcAdd.Tag := ... := ... := ... := ... := ... := ... TfrmMain.FormShow(Sender: TObject);
begin
if (not Connection) then
begin
Close;
exit;
end;
BuckUpDataBase;
//TfrmCost.Create(self).Show;
end;
//закрытие формы
procedure TfrmMain.FormClose(Sender: TObject; var Action: ... := ... ... ... := ... TfrmMain.ExecuteChildAction(Sender: TObject; ac: TChildActions);
var
info: PChildInfo;
begin
if ActiveMDIChild = nil then
exit;
info := PChildInfo(ActiveMDIChild.Tag);
if Assigned ... ... (info nil) ... ... ... ЖӘНЕ ... Графикалық файлдар форматтары
Веб-дизайнер, графиканы пайдалана отырып көптеген эффектілерге қол ... ... ... Мұндағы құпия негізінен, бейненің қандай да бір текстура, ... ... ... ... блогы, логотип, диаграмма, пиктограмма, фотография және т.б. бола алуынан тұрады. Мұндағы жалғыз ғана ... ... ... ... ... ... ең ... браузерлермен көтеруі мүмкін болатын түрінде құру және сақтау қажеттігінен тұрады.
WWW жүйесінде стандарттар ... ... екі ... - GIF және JPEG ... Тағы бір формат - PNG (Portable Network ... - ... ... болашақта қосылатындығы туралы түсініктемелерді қарастыруға тұрарлық. Ол растрлық форматтар болып табылады. Мұнда бейнелер жеке ... - ... ... ... үшін ... ... ... пикселмен сандық сипаттама байланысады, ол оның жалпы тақталық түсін (егер бейне ақ қара ... ... ... ... (түрлі түсті бейнелер үшін) суреттейді.
Delphi - де графикалық ... ... 2 ... бар. ... ... матрицалар, пиктограммалар және метафайлдар.
Биттік матрицалар(bmp файл кеңейтілуі) сақталған суреттің әрбір пиксельін көрсету ... бар. ... - ақ ... өз ... жоғалтпастан кез келген компьютерда ашылады.
Пиктограммалар(ico файл кеңейтілуі) бұл кішкентай биттік матрицалар. Олар қосымша берлгілерін, жылдамдық батырмаларда, ... ... ... ... үшін ... ... Оның сақтау үлгісі bmp - ға ұқсайды. Бірақ айырмашылықтары бар. Көп ... ... ... қиын ... ол құрылған өлшемінде сақталады.
2.2. Графикалық ақпараттарды ... ... Chart ... параметрлерін анықтау әрекеттері Editing Chart редакторының терезесінде анықталады. Ол ... ... үшін ... TСhart терезесiн екі рет сырт еткізіңіз немесе тышқанның оң жақ батырмасын басқандағы Edit Chart опциясын таңдаңыз. Ашылған ... ... Series ... Add батырмасын басу арқылы диаграмманың немесе графиктің түрін анықтауға болады. Delphi ортасы схемаларды, сызбаларды, ... ... ... ... ... ... қарапайым жолмен құруға мүмкіндік береді.
ProgressBar ортаның Win32 парағында орналасқан, бұл компонент ... ... ... ... ұзақ ... ... іс-әрекеттің көрінісін экран бетіне шығарады.
ProgressBar
* сурет. ProgressBar компоненті
0000Delphi ... Win32 ... ... ... ... мен ... түсін өзгертетін қасиеттері жоқ, сондықтан бұл параметрлер контейнер параметрлерімен анықталады. Әдетте графикалық белдеу көк түспен боялады.
ProgressBar компонентінің келесі ... ... деп ... Min және Max - ... ... және ... мәндерінің
аралығын анықтайды. Келісімше Min=0%, Max=100% деп саналады.
* Position - орындалған ... ... ... Min және Max ... ... анықтайды. Мысалы, Min=0, Max=80 деп көрсетілсе, онда Position-ның 20 деген мәніне сәйкес орындалған жұмыстың ... 25% деп ... Step - ... ... өскендегі позицияның қандай мәнге өсіп отыратынын анықтайды.
Индикатордың ... ... ... ... мысалы:
ProgressBar1. Position:=35;
ProgressBar-ның элементінің позициясын StepIt (өсімшесі Step) және StepBy (Delta:Integer) (өсімшесі Delta) процедуралары ... ... ... Мысалы, ProgressBar1.StepBy (13).
Бұл оператор бойынша ProgressBar1-дің индикаторы 13-ке өсіп отырады.
ProgressBar1 компонентінің Caption ... Text ... жоқ ... ... ... ... ... қамту үшін, Label компонентін қолдануға болады.
3 тапсырма
Delphi - дің ... ... ... ... ... ... ... SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure ... TObject; Button: ... ... X, Y: ... Private ... ... Public ... }
procedure StarLine(x0,y0,r: integer); // рисует звезду
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// рисует звезду
procedure TForm1.StarLine(x0,y0,r: integer);
// x0,y0 - координаты центра звезды
// r - ... ... : ... of TPoint; // ... ... ... и ... integer; // угол между осью ОХ и прямой, соединяющей
// центр звезды и конец луча или впадину
i: integer;
begin
a := 18; // ... от ... гор. ... i:=1 to 10 ... (i mod 2 = 0) then
begin // впадина
p[i].x := x0+Round(r/3*cos(a*2*pi/360));
p[i].y:=y0-Round(r/3*sin(a*2*pi/360));
end
else
begin // ... := ... := p[1].X; // ... ... ... ... := ... // начертить контур звезды
end;
// нажатие кнопки мыши
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft // ... ... ... ... := clBlack
else Canvas
end.
233680-21463000
4 сурет. бағдарламасы
4 тапсырма
3 БӨЛІМ. МӘЛІМЕТТЕР ҚОРЫ ҚОСЫМШАСЫН ҚҰРУ
3.1 МҚ кестесін ... - New - Table ... ... ... ... таңдау үшін TableType жолында Paradox7 дегенді көрсетіп OK батырмасын басамыз.
Келесі терезеде кестенің құрылымын анықтаймыз. ... ... ... ... өріс ... ... типтерін (Type), өріс жазуларының ұзындықтарын (Size), кілттік өрісті (Key) көрсетуден тұрады. Бұл ортада кесте өрістерінің атаулары латын әріптерімен теріледі. Ал өріс ... ... ... ... ... - мәтіндік өріс, ұзындығы 255 символға ... ... - ... тип, -10307 нен +10308 ... - ... тип, ... тип ... - қысқа бүтін тип, -32768 ден +32767 дейін
LongInteger - ұзақбүтін тип, -2147483648 ден +2147483647 ... - ... ... ... ... - дата типі.
Time - ... ... - дата және ... ... - ұзақ ... тип, ... 255 символдан артық.
Formatted Memo - форматталған мәтіндік тип ... - ... ... ... бейнесі көрсетіледі).
Graphic - Графикалық тип.
OLE (Object Linking and Embedding) - осы технологияны ... ... ... - логикалық тип.
+(Autoinctement) - санаушы, ... ... мәні 1-ге өсіп ... - ... ... екілік деректер типі.
Кілттік өрістің атауы тізімде бірінші орналасып соңына ID әріптері ... де Key ... ... белгіленеді.
Осы терезеде өрістердің қасиеттері көрсетіледі:
Required Field - міндетті түрдегі өріс.
Minimum Value - ... мәні ... ... ... Value - максималды мәні (сандық әрістер үшін).
Default Value - үндемеген немесе атап көрсетпеген жағдайда ... ... - ... маскасы.
Кестені сақтау үшін Save As батырмасын басып шыққан терезеде файл атауын (мысалы student.db), алиас атауын ... vkgu) ... де ... ... жолы ... сәйкес келеді. Бағаналардың тағайындаулары:
* Fields Name - өріс аты;
* Type - өріс типі;
* Size - өріс ... ... ... ... ... Өріс ... ... МҚ қосымшасын құру компоненттері
Мәліметтерді қосымшасын құру кезінде қолданылатын компоненттер.
Деректер кестесі деп аталатын DBGrid компоненті
Мәліметтер қоры ... ... ... ... жаңа жазу қосу ... ... ол үшін программалық код жазудың қажеті жоқ, қалыпқа DataControls (мәліметтерді басқару ... деп ... ... ... TDGrid ... орналастырып, DataSource қасиетінде қажетті деректер көзін көрсету ... ... ... ... ... ... ... өріс жазуларын көрсету, өзгерту үшін қолданылады. Tlabel компонентіне ұқсас. DataSource қасиетінде деректер көзі көрсетіледі, DataField қасиетінде қолданылатын өріс ... ... ... ... ... өзгерту, көрсету үшін қолданылады. Алдыңғы компонентке ұқсас. Қосымша қасиеті ReadOnly қасиетін True десе кестенің жазулары өзгертуді қабылдамайды.
Бейне компоненті DBImage:
Мәліметтер қорында ... ... ... ... ... ... Егер AutoDisplay қасиеті True десе өрістегі бейне автоматты түрде экранда көрінеді. Егер ол қасиет көрсетілмеген болса LoadMemo әдісін ... ... ... ... ... ... қою, ... т.б. операциялар Picture қасиетінде көрсетіледі.
Деректер тізімін қолдану компоненті ... ... ... ... ... ... таңдау, қолдануды орындайды. Енгізу облысындағы мәтін жиыны қажетті жазуға ... ... ... ... жоқ ... ... ... береді. ComboBox компонентіне ұқсас, тек қосымша қасиеті Style ... ... ... ... ... ... бейнелену стилі көрсетіледі.
Деректер жалаушасы (флажок) компоненті DBCheckBox:
Бұл компонент көмегімен екі жағдайдың бірін қабылдайтын өрістердің ... ... ... ... ... мән қабылдайды. Өрістің қандай жағдайда тұрғанын және оның мәнін өзгертуге көмектеседі.
+ Есептелетін және таңдау ... ... ... ... ... кезінде мемо - типті деректерді қолдану мүмкіндігі бар. Онда ұзақ мәтіннен тұратын деректерді сақтау ... ... ... ... кестенің баған атаулары латынша болғаны тиімсіз, оны қазақша немесе орысшаға аударып жазу керек.
Деректер жиынының өрістері деп кестенің ... ... ... ... TdataSet компоненті бағанның нөмірі, мәні бойынша немесе атауы бойынша жазуларды басқаруға көмектеседі. Ол үшін Fields, FieldByName, FieldValues қасиеттерін қолдануға болады.
Мысалы: Label1 ... Query1 ... ... құрылған сұраныс нәтижесіндегі бірінші баған жазуын шығару керек болса, мына әдістердің бірін қолданады:
Label1.Caption:=Query1.Fields[1].asstring; 1-ші ... ... ... ... FIO ... ... ... шығарады;
Label1.Caption:=Query1.FieldValue(`Петров В.И.').asstring; Сұраныстан Петров В.И. мәнін тауып, Label1-ге шығарады;
Атрибуттардың ... ... ... ... ... ... ... атауын экранға жөндемейтіндей режимде шығару керек болса, DisplayName қасиетін, атрибут атауын экранға жөнделетіндей режимде шығару керек болса ... ... ... ... ... ... ... DisplayText қасиетін, атрибуттың типін анықтап көрсету керек болса, DataType қасиетін, атрибуттың кестедегі реттік нөмірін анықтау керек болса, FieldNo қасиетін, ... ... ... ... ... ... ... CanModify қасиетін қолданады.
Cfield.FieldKind қасиеті келесі мәндерді қабылдайды:
fkData - атрибуттың кестеде сақталғандығын білдіреді
fkCalculated - атрибуттың есептелетін екендігін ... - ... ... ... ... ... - ... және есептеу нәтижесінің кестеде сақталатындығын білдіреді
+ Мәліметтерге қатынаудың навигациялық тәсілдері
Навигатор компоненті DBNavigator
Бұл компонент кестенің жазуларын ... үшін ... ... жазу бойымен жылжу дегенді білдіреді. Бұл компонент 10 батырмадан тұрады:
* First - бірінші жазуға жылжу
* Prior - ... ... ... Next - ... ... жылжу
* Last - соңғы жазуға ... Insert - ... ... жазу ... жаңа жазу ... Delete - ... ... өшіру, егер ConfirmDelete қасиетін True деп қойса өшіруді орындауды құптау хабарламасы шығады.
* Edit - ... ... ... Post - кестеге енгізілген өзгертулерді сақтау
* Cansel - енгізілген өзгертулерді ... Refresh - ... ... мәліметтердіжаңадан оқып кестенің жазуларын жаңарту.
+ Сүзгілеу тәсілдері.
Деректер кестесі жазуларынан ... бір ... ... жазуларды сүзіп алу сұраныс немесе фильтр деп ... ... да бір ... ... ... ... керек болса, фильтр қолдануға болады.
Сүзгілеуді қолдану мүмкіндіктерінің екі түрі бар, ... ... ... ... ... ... Filter ... жолдық мәні, екіншісі, OnFilterRecord оқиғасында сипатталған шарттары. Осы екі сүзгілеу тәсілдерінің ішінде ен бірінші кезекте Filter құрамын пайдалану керек. ... ол ... кең ... сүзгілеп өңдеуге мүмкіндік береді. Бұл көбінесе кестелерге көп мәліметтер енгізген кезде байқалады. Filter құрамын пайдалану OnFilterRecord ... ... ... ... ... күрделі болып келеді. Ал, OnFilterRecord оқиғасы пайдалануға жеңілірек. ... көп ... екі ... де қолданады.
6 сурет. Сүзгілеу тәсілдері
+ Бірнеше кестелердегі мәліметтер жиынтығын құру және өңдеу
TdataSet компоненті. ... ... ... ... ашу үшін ... ... ... әдістерін қолданады.
Мәліметтер жинағын жабу үшін: If Query1.Active then Query1.Close; әдісін қолданады.
Мәліметтер жинағы ... ... үшін кэш деп ... ... жады ... Оны TdataSet ... ... Әр уақыт сәтінде уақытша кестеден бір жазу активті болып, курсормен ... ... ... ... үшін TdataSet ... ... әдістері бар:
First - бірінші жазуға көшу
Last - соңғы жазуға көшу
Prior - ... ... ... - ... ... ... - ... мәнге тең жазудан аттау
BOF - егер курсор алғашқы жазуда ... ... ... ... мән береді.
EOF - егер курсор соңғы жазуда тұрса ақиқат, әйтпесе жалған мән береді.
Бұл әдістерді былайша қолданады:
Query1.Next;
Query1.Prior; т.с.с.
Cfield.FieldKind ... ... ... ... - атрибуттың кестеде сақталғандығын білдіреді
fkCalculated - атрибуттың есептелетін екендігін білдіреді
fkLookUp - ... ... ... ... ... - есептелетін және есептеу нәтижесінің кестеде сақталатындығын білдіреді
fkAggregate - аггрегаттылығын ... Есеп ... - ... қорындағы жазулардан құжат түрінде аяқталған нәтиже береді. Ол нәтижені бірден принтерге ... ... Есеп құру үшін Qreport ... ... ... алу ... Есеп ... компоненті TQRBand: Есепте белгілі бір элементтерді орналастыру, топтау бейнелеуін көрсетеді. TquickRep бейнелеуді көрнекі түрде орындайды.
Есеп тақырыбы компоненті ... Tlabel ... ... ... ... мәтін жазуға көмектеседі.
Шығару өрісі компоненті TQRDBText: Деректер жиынынан өріс мәндерін шығару үшін қолданылады. Деректер жиыны DataSet ... ... Ал ... ... бір өріс DataField қасиетімен көрсетіледі. Компонент орналасқан жолақ мәні BandType - rbDetail болуы керек. BandType ... одан ... да ... бар: ... - есеп ... - жоғарғы колонтитул
RbDetail - жазу тақырыбы
RbPageFooter - ... ... - есеп ... - ... ... - бөлім тақырыбы
RbGroupHeader - бөлім ... ... ... Timer, ... ... Image ... арқылы құрдым, Бұл компоненттердің қасиеттерін бағдарламаға сай етіп өзегерттім. Және де бағдарламадан осы компоненттердің қасиеттерін өзгерте отырып, сыртқы өзгерістер енгізуге ... ... ... ... ... ... қорын құруға арналған біршама компонент және олардың қасиеттерімен таныстым.
Бағдарлама ... ... ... Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, Menus, ExtCtrls, XPMenu,
MMSystem;
type
TAFirstPage = class(TForm)
MMAfirst: ... ... ... ... ... TMenuItem;
Consultation1: TMenuItem;
Liste1: TMenuItem;
Fiche1: TMenuItem;
GBRRT: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
CBNom: TComboBox;
CBPr: TComboBox;
CBTPor: TComboBox;
CBTBur: TComboBox;
OkNom: TBitBtn;
OkPr: TBitBtn;
OkTPor: TBitBtn;
OkTBur: TBitBtn;
CBGr: TComboBox;
OkGr: TBitBtn;
GBRRB: ... ... ... ... ... ... TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton31: TSpeedButton;
N4: TMenuItem;
Timer1: TTimer;
PanelTime: TPanel;
LblTime: TLabel;
Panel1: TPanel;
LDate: ... ... ... ... ... TObject);
procedure Liste1Click(Sender: TObject);
procedure Fiche1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CBNomChange(Sender: TObject);
procedure CBPrChange(Sender: TObject);
procedure CBTPorChange(Sender: TObject);
procedure ... ... ... ... ... TObject);
procedure RBNETPClick(Sender: TObject);
procedure RBNOUPClick(Sender: TObject);
var
AFirstPage: TAFirstPage;
con,Chemin: string;
implementation
uses FrmEdit, EditGroupes, FrmConsultations, DataModule, PrintContacts,UThread;
{$R *.dfm}
{$R WindowsXP.res}
procedure TAFirstPage.Ajouter1Click(Sender: TObject);
begin
EditContacts.show;
end;
-260985-37655500
7 сурет. ... қоры - ... бір ... ... ... ... ... білудің жалпы принциптерін қарастыратын, компьютердің көмегімен туындайтын ақпараттық структура немесе модель. Қазіргі кезде жергілікті (ADO, dBase, FoxPro, Access, Paradox) және ... ... Oracle, Sysbase, Infomix, ... SQL Server) ... ... ... және ... мүмкіндік беретін көптеген бағдарламалы жүйелер бар. Мағыналар мен мінездемелер арасында ... ... - ... МҚБЖ-не негіздеп кестелер және олардың бағандары (атрибут-өріс) анықталуы керек. (Paradox, dBase, FoxPro, Access, Clipper, InterBase, Sybase, Informix, Oracle және т.б.). ... ... ... ... ... ... анықтау. Мәліметтердің толықтылығын қамтамасыз ететін ережелерді құрастыру. Объектілер арасында байланыс орнату. Кестені ... ... ... ... ететін сұрақтарды жоспарлау. Delphi жұмыс ортасы мәліметтер қорын басқару жүйесінің (МҚБЖ) тура мағынасында болмаса да, МҚБЖ-нің ... ... ... ие. Delphi - дегі ... ... SQL ... ... және өзіне Borland Database Engine қуатын жинақтаған. Сондай-ақ Delphi құрамына Borland SQL Link те енгізілген, сондықтан да Oracle, Sybase, Informix және ... ... ... ... ... Одан ... Delphi өзіне InterBase локальды серверін енгізгендіктен кез келген ішкі SQL серверлерде қосымшаларды офлайндық режимде өңдеуге мүмкіндік береді. ... ... үшін ... жүйе ... ... өңдеуші ақпаратты .dbf файлдық форматта (dBase, Clipper) немесе .db (Paradox) форматында сақтауға ... Егер де ... ... ... for Windows 4.0 - ті ... ... ол ... архитектурасында жұмыс істей береді.
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
* В Фаронов. Объектно-риентированная среда Delphi. ... 6. ... ... "Русская редакция", 2002.
* Я. Н. Глинский, В. Е. Анохин, В. А. ... - TURBO PASCAL 7.0 и Delphi. ... ... Москва - Санкт - Петербург-Киев. 2001.
* Культин Н. Delphi 3. ... на Object Pascal. ... 1998. -304 ... ... Р. ... ... ... в среде ОеІрһі.Перс англ.Рей.К.:НИПФ , 1996. -152 с.
* Орлик С.В. Секреты Delphi на примерах. М.: Бином, 1996. - 136 ... ... Ж. ... ... ... на Delphi 5.O. ... ... Павлодар, 2001. -106 с.
* Халықова К.З. Паскаль тілінде программалау. Оқу ... Абай ... ... 2002. ... ... И.П. ... графиков функций в Delphi. Информатика и образование. №6, 2003, стр.27-31.
* Давыдова Е.В., Скородумов И.А., Балаханов В.А. ... ... ... интерфейса Windows программы в среде Delphi.Информатика и образование. №4,5,6. 2002.
* Халықова К.З., Ануарбекова Г.Ж. Object Pascal ... Delphi ... Оқу ... құрал. - Алматы: Абай ат.ҚазҰПУ, 2008. - 220 бет.
* Б. Д. ... Ш. Т. ... Н. И. ... - Delphi ортасында бағдарламалау практикумы. Алматы, 2005
* Культин Н. Основы программирования в Delphi 7.0 - ... ... ... В. Delphi6/В.Гофман, А.Хомоненко. - Санкт-Петербург: БХВ - Петербург, 2001.
* Фаронов В.В. ... баз ... в Delphi 7: ... ... - СПб.: ... 2004.
* ... А. 100 ... библиотеки Delphi5. - Санкт-Петербург, 2001.
* Фленов М. Delphi 2005 ... ... - ... ... ... Д. ... ... баз данных. Пер. С англ. - М.: ДМК Пресс, 2001.
* ... Ф.Н. Delphi ... ... ... ... ШҚМУ ... Өскемен, 2005.

Пән: Информатика
Жұмыс түрі: Іс-тәжірибеден есеп беру
Көлемі: 16 бет
Бұл жұмыстың бағасы: 1 000 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
"Delphi ортасымен танысу."26 бет
"Кітапхана" деректер базасы (Delphi тілінде)14 бет
Borland Delphi ортасында электронды оқулық жасау45 бет
Borland Delphi-де калькулятор бағдарламасын құрастыру11 бет
Borland Delphі ортасының интерфейсі28 бет
Delphi (дерек қормен жұмыс)11 бет
Delphi - де «Мозаика» ойын бағдарламасын жазу әдістері35 бет
Delphi 7 жүйесінің негізгі түсініктері мен принциптері17 бет
Delphi 7 ортасы24 бет
Delphi 7 ортасында Калькулятор бағдарламасын құру23 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь