"Ақпараттық жүйелер."

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .2
I бөлім. Тапсырманың мақсаты.
1.1. Тапсырманың қойылуы ... ... ... ... ... ...5
II бөлім. Қызметкерлердiң жалақысын еңбек уақыты бойынша есептейтiн программа құру.
2.1. Тапсырманың қалыптасуы ... ... ... ... ...6
2.2. Тапсырманы шешу алгоритмі ... ... ... ..7
2.3. Программа нәтижесі ... ... ... ... ... ... ..11
III бөлім. Программамен жұмыс ережелері
3.1. Программа жұмысының шарттары ... .12
3.2. Программамен жұмыс жасауға нұсқаулар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...13
Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 14
Қосымша
Программа мәтіні ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .15
Ақпараттық жүйелер дегенiмiз бұл пайдаланушының сұранысы бойынша ақпаратты сақтауға, iздеуге, өңдеуге және жеткiзуге арналған жүйе. Ақпараттық жүйе қамтамасыз ететiн және функционалды бөлiктерден тұрады. қамтамасыз етушi бөлiк ақпараттық, технологиялық және программалық жабдықтардан тұрады.
Автоматтандырылған жүйелердi ақпараттық жабдықтау деген түсiнiктемеге мәлiметтердiң бiрлiгi, осы мәлiметтердi классификациялау және кодтау жолдары және түрлерi, жинау түрлерi, мәлiметтердi алмастыру және нәтижелi ақпаратты алу жолдары жатады.
Сонымен, ақпараттық жабдықтаудың негiзiн мәлiметтер құрайды. Мәлiметтер экономикалық көрсеткiштерiн финанс шаруашылық фактiлердi қалып-күйiн немесе процестерiн бейнелейтiн өзiндiк материалдық құрылғылары ( бұл бухгалтерлiк және финанстық құжаттар, дисплейлер және және магниттiк құрылғылар) бар. Кез келген басқару жүйесi ақпараттың еш түрiмен таныс: сыртқы (бұл сыртқы ортаның ақпараты) және iшкi (бұл басқару ақпараты және басқару арасын бақылайтын ақпарат). Сыртқы ақпаратқа сауда және бәсекелес, проценттiк тiгу және бағалар, салықтар және саясат жағдайлары жатады. Мысалы, колледж үшiн бұл сыртқы мекемелерден және басқа оқу орындарынан алынған ақпарат. Мұндай ақпарат ақиқат мiнездеме (дәлiрек айтқанда, кездейсоқ, дәл емес) қабылдайды. Мұндай ақпаратты өңдеуде, арнайы құрылған программалар (мысалы, детерминдi емес ақпаратты немесе негiзiнде, дәл шешiм бере алатын эксперттi жүйелер) қолданылады.
        
        Мазмұны
Кіріспе.....................................................................
....................2
I бөлім. Тапсырманың мақсаты.
1. Тапсырманың қойылуы.......................5
II бөлім. Қызметкерлердiң жалақысын еңбек уақыты бойынша есептейтiн
программа құру.
2.1. Тапсырманың қалыптасуы...................6
2.2. Тапсырманы шешу алгоритмі..............7
2.3. ... ... ... ... жұмыс ережелері
3.1. Программа жұмысының шарттары.....12
3.2. Программамен жұмыс жасауға
нұсқаулар...............................................................13
Қорытынды............................................................14
Қосымша
Программа
мәтіні.....................................................................1
5
Кіріспе
Ақпараттық жүйелер дегенiмiз бұл пайдаланушының сұранысы бойынша
ақпаратты ... ... ... және ... ... жүйе.
Ақпараттық жүйе қамтамасыз ететiн және ... ... ... ... ... ... технологиялық және программалық
жабдықтардан тұрады.
Автоматтандырылған жүйелердi ақпараттық жабдықтау деген ... ... осы ... ... және ... және ... жинау түрлерi, мәлiметтердi алмастыру және нәтижелi
ақпаратты алу ... ... ... ... ... мәлiметтер құрайды.
Мәлiметтер экономикалық ... ... ... ... қалып-
күйiн немесе процестерiн бейнелейтiн өзiндiк материалдық құрылғылары ( бұл
бухгалтерлiк және финанстық ... ... және және ... бар. Кез ... ... жүйесi ақпараттың еш түрiмен таныс:
сыртқы (бұл сыртқы ... ... және iшкi (бұл ... ... және
басқару арасын бақылайтын ақпарат). Сыртқы ақпаратқа сауда және ... тiгу және ... ... және ... ... ... ... үшiн бұл сыртқы мекемелерден және басқа оқу орындарынан
алынған ақпарат. Мұндай ... ... ... (дәлiрек айтқанда,
кездейсоқ, дәл емес) қабылдайды. Мұндай ақпаратты өңдеуде, арнайы құрылған
программалар ... ... емес ... ... ... дәл ... ... эксперттi жүйелер) қолданылады.
Iшкi ақпарат басқару жүйесiнiң өзiнде пайда болады және оның финанс
шаруашылық жағдайын бейнелейдi (мысалы, ... бұл оқу ... ... ... ... және ... емтихан ведомосты).
Бұл мәлiметтер құжаттарда дәл ... ... ... және
белгiленедi. Басқару деңгейiне байланысты түрлi ақпараттар қолдануды жұмыс
стратегиясын ұйымдастыратын жоғарыдағы басшыға көбiне ... және ... iшкi ... ал орта деңгейде көбiне iшкi және ... ... ... ... ... өзiндiк құрылғыларда сақталарды және негiзiнде
ақпараттық жүйелер басқаратын ақпараттық қойма құрайды. Ақпараттық ... ... екi ... ... машина iшiндегi ... ... тыс ... бөлiгiне техникалық құрылғыларсыз адаммен
қабылданатын ақпарат, мысалы құжаттар. Ал машиналық ... ... ... ... ... және ... мен ... тұрады. Мәлiметтер файлы бұл компьютердiң есте сақтау
құрылғысында ақпараттардың ... ... бар ... ... ... бұл мәлiметтер қоймасының құрылымы басқа ... ... ... ... ... дегенiмiз – ортақ программалық
басқаруға тәуелдi және дәл зат аумағына байланысты ... ... ... бар ... құрылымы. Файлдар және мәлiметтер қоймасы
бiр мәлiметтер қоймасының моделiне (реаляциялық, иерархиялық, ... және бiр ... ... ... ... ... ... өңдеуге арналған жүйелiк программалық
жабдықтау мәлiметтер қоймасының басқару жүйесi ... деп ... ... ... бар барлық құжаттар, ... ... ... қойманың файлдары, кiру және нәтиже болып бөлiнедi.
Ақпараттық жүйенiң техникалық жабдықтауына компьютерлер, коммуникация
мүмкiндiктерi және оргтехникалар жатады. ... ... ... ... ... ... ... дербес және жоғары өнiмдi компьютерлер. Соңғылары
үлкен мәлiметтер қоймасын құруға және оларға жұмыс ... ... ... ... үлкен талаптар қойылады, атап айтқанда, ... ... ... ... және ... есептеу желiлерiне бiрiгуi мүмкiн. Жергiлiктi есептеу
желiлерiнде ... ... ... белгiлi.
Жай режимде әрбiр ЭЕМ басқа компьютерге жеткiзiлетiн өзiндiк
шикiзаттары бар. ... ... ... программаларды және басқа
компьютерлердi қамтамасыз ететiн арнайы жеке компьютер пайдаланады. Тек ... ... ... және мәлiметтер қоймасы орналасады. ... ... деп ... үшiншi режим жеке компьютер тағайындайды
және ол ... деп ... ... ... ... ... тек қана ... мәлiметтер қоймасы емес, сонымен қатар, клиенттерге
(қашықтықта орналасқан программаға) барлық мәлiметтер қоймасын ... ... ... түгел және жартылай өңделген программалары орналасады.
Мұнымен ақпарат алмасу каналдарының жүгi азаяды. Жергiлiктi ... ... бiр ... ... ... ... ... пайдалану
арқылы бiрiгедi.
Бөлім. Тапсырманың мақсаты
1. Тапсырманың қойылуы
Қазiргi күнi ешбiр мемлекет ақпараттық технологияларсыз дами алмақ
емес. ... ХХI ... ... мен ... деректер мен
байланыстардың ... кең ... ... ... Жер ... ... ең қымбат дүние, нағыз капитал ақпар, яғни информация болып тұр.
Осыған байланысты ... ... ... ... ... енiп ... ... болсақ бүгiнгi күнi кез келген кiшiгiрiм
кәсiпорынның компьютердiң көмегiнсiз осы күнгi ... ... ... анық. Өйткенi қазiргi келушiлер сапалы және тез қызмет ... ... ... ... ... орындарына нарық заманының қатал
заңдарына төтеп беру үшiн тиiмдi компьютерлiк программалар ауадай қажет-ақ.
Мен программа объектісі ретінде тоңазытқыштар ... ... ... ... барлық сатып алушылар туралы мәліметтер сақталады және сатып
алушыларды ай сайын қайта тіркеуден өткізіп тұрады.
Сатып ... ... және ... ... ... құру үшін мен Delphi 6 ... ... таңдадым. Өйткені
бұл жүйе барынша жетілдірілен қазіргі заманғы программалау ... ... Бұл ... ... тағы бір ... ... ... өнім
жасап шығару мүмкіндігі жоғары, сонымен қатар визуалды және визуалды ... қоры ... ... мен Label, Button, Edit, ComboBox ... ... ... ... белгілі бір Unit.pas код
редакторы терезесінде берілетін өзінің функциясын атқарады.
II бөлiм. ... ... ... ... ... ... қалыптасуы
fmFirst – алғашқы форма. Мұнда ағысдағы ай таңдалад. Мұнда ... ...... айды таңдауға арналған ашылатын тізім. Label1. –
“Введите текщий месяц” жазуы.
DirectoryListBox1 – программаға деректер қоры ... ... ... ... ... ... бұл компонент көрінбейді.
BtnCancel – программадан шығу батырмасы.
BtnOK – таңдалған айды мақұлдау ...... ... ... ... ... бас ... Бұл формада келесі компоненттер бар.
Image1 – форма бетіндегі сурет.
MainMenu1 – программаның ... ... ... ...... айды сақтап тұруға арналған жазба. Программажұмысы
барысында бұл компонент көрінбейді.
fmKlienty – сатып алушылар ... ... және ... ... тіркеуге
арналған форма. Мұнда келесі компоненттер орналасқан.
BtnClose – ... ... ... ... ... ... батырмасы, кестеге жаңа мәліметтер қосу ...... ... ... ... ... ... – «Сохранить» батырмасы. Бұл батрманы шертсек, кестеге енгізілген
өзгерістердің барлығы сақталады.
LMesiac – Кез-келген айды таңдап алуға арналған батырма ... ... - ... айды таңдап алуға мүмкіндік беретін форма
CBMonth – айлар тізімі жазылған ашылатын тізім.
Label1 – «Выберите месяц» ... – кері ... ...... айды мақұлдау батырмасы.
fmAbout – «О программе» формасы. Мұнда программа туралы жалпы мағлұматтар
сақталған.
Image1 – сурет.
Label1-Label4 – ... ... ... – терезені жабу батырмасы.
2.2 Тапсырманы шешу алгоритмі.
Алгоритм дегенiмiз берiлген есептiң шығару жолын реттелген амалдар
тiзбегi ретiнде жазу. ... ... ... үшiн оны ... ... ... керек. Программа дегенiмiз алгоритмдi машинаға
түсiнiктi нұсқаулар тiзiмi ... ... ... ... ... жазылған
программамен жұмыс iстейдi. Командалар тiзбегiн программа деп ... ... бiр ғана ... ... ... үшiн ... ... табылады. Командалар төмендегiдей түрлерге бөлiнедi: арифметикалық
немесе логикалық амалды орындау, ақпаратты тасымалдау, берлiген ... ... ... ... ... ... келесi командаға көшу
тәртiбiн орындау командалары.
Алгоритмдi ... ... ... адам ... ... яғни ... ... тағы басқалар атқарады.
Алгоритмнiң орындалу барысында осы орындаушыға ... жолы ... ... ... ... ... Алгоритм мен программаға
байланысты компьютердiң мынадай жұмыс ерекшелiктерi болады:
1. Есептi шығару жолы алгоритм ... ... ... ... ... ... ... Программа машина жадына енгiзiлiп, ретiмен орындалуы керек.
Сонымен, алгоритм – ... ... ... яғни ... бiр нәтижеге
жету үшiн қолданылатын амалдардың реттелген жиыны.
Алгоритм қасиеттерi.
Компьютерде орындалуға тиiс алгоритмге мынадай талаптар қойылады:
1. ... анық әрi дәл ... ... Оның ... ... ... ... яғни алгоритмдi кiшкене
бөлiктерге бөлу ... ... ... ... шектелген уақыттан соң нәтиже беруi тиiс, яғни алгоритм
қадамдарының соңы ... ... ... ... ... ... бiр ғана ... қолданылуы тиiс.
Алгоритмнiң өрнектелу жолдары.
Алгоритмдi компьютерде орындау үшiн оларды белгiлi бiр ... ... ... ... ... ... тiл ... жазу;
2. белгiлi бiр түйiндi сөздер-терминдер арқылы қысқаша түрде қарапайым
алгоритмдiк тiлде жазу;
3. графиктiк жолмен (блок-схема арқылы) жазу;
4. прогаммалау тiлдерiнде жазу ... ... ... алгоритмдер схемасын оның блок-схемасы деп атайды. Блок-
схемада пайдаланатын фигуралар оның ... ал ... ... ... ... ... деп аталады. Блок-схема құрудың төмендегiдей
ережелерi бар:
1. Блок-схеманың басын және ... ... ... ... блок болуы
керек.
2. Блок-схемада бiр-бiрiмен қосылмаған блоктар болмауы керек.
3. Блок-схемада блоктар орындалу ретi бойынша тiзбектеле ... ... ... ... ... бiр ену, бiр ... ал ... орындалуын тексеретiн ромб түрiндегi блоктың бiр
ену, екi шығу сызығы болады, ал ... ... ... екi ену, екi шығу ... болады.
2.3. Программа нәтижесі
.
III бөлім.
Программамен жұмыс ережелері
3.1. Программа жұмысының шарттары
Берiлген программа жұмыс iстеуi үшiн ... ... ... ... ... ... керек.
1. ST-633-тен ET-42000ге дейiнгi модельдi компьютер;
2. INTEL Celeron-нан INTEL Pentium 4-ке дейiнгi процессор;
3. VIA-дан INTEL 845, 850-дейiн ... ... ... ... 64 MBтан 128 MB-қа ... оперативтi жад;
5. SHARE D4-32 MBтан 16 MB TNT-ға ... ... 2 ... ... ... ... Монитор;
8. Монипулятор;
9. CD-ROM;
10. Delphi 6,7 жүктеу дискi;
11. Басқа программалармен байланыс жасау үшiн Microsoft Office.
3.2. Программамен ... ... ... ... егер компьютерде Delphi 7 программалау ортасын орнатылмаған
болса, онда берілген ортасы бар диск арқылы оны орнату ... ... ... режимінде (режим конструктора)
программа формасы ... ... ... оны RUN ... ... Ғ9
функционалдық пернесі арқылы іске қосады.
Программа іске қосылған соң алғашқы диалог терезесінде ағымдағы айды
таңдап аламыз. «ОК» ... ... ... ... ... ... ... және жеке тұлғаларды тіркеуге арналған. Негізгі менбдің
файл пунктін ашсақ онда ... ... ... ... «Физическое лицо»
және «Юридическое лицо» деген екі пункті көреміз. Олар, сәйкесінше, сатып
алушы жеке және ... ... ... ... Ай аяқталған кезде
сатып алушыларды ... ... ... ... ... жолын таңдасақ, мұнда да сатып алушы жеке және заңды
тұлғаларды қайта тіркеуге арналған ... ... Бұл ... ... ... сатып алушылар тізімі келесі айға автоматты ... ... ... ... және ... ... арқылы сатып
алушылар тізімін өңдеп шығамыз. Менюдің «О программе» пунктін шертсек,
программа туралы жалпы ... ... ... ... Программамен жұмыс
аяқталған соң «Файл» пунктінің «Выход» ... ... ... одан ... біз ... ... ... технологияларды пайдаланатын
Delphi7 программалау ортасында құрылған Қызметкерлердiң жалақысын еңбек
уақыты бойынша ... ... ... ... Бұл ... ... ... онымен кез-келген қарапайым білімі бар адамдар жұмыс
істей алады. ... ... ... ... уақыты бойынша
есептеуге арналған программа арқылы жұмысшылардың жалақысын автоматты түрде
есептеп бередi.
Қосымша
Программа мәтіні
unit ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, FileCtrl;
type
TfmFirst = class(TForm)
ComboBox1: TComboBox;
BtnOK: TButton;
BtnCancel: TButton;
DirectoryListBox1: TDirectoryListBox;
Label1: TLabel;
Label2: TLabel;
TekMec: ... ... ... ... ... ... Private ... }
public
{ Public declarations }
end;
var
fmFirst: TfmFirst;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TfmFirst.BtnOKClick(Sender: TObject);
begin
fmMainForm.Show;
fmKlienty.Table1.DatabaseName:=Label2.Caption;
fmKlienty.Table2.DatabaseName:=Label2.Caption;
TekMec.Caption:=ComboBox1.Text;
if ComboBox1.ItemIndex=11 then
ComboBox1.ItemIndex:=0 else
ComboBox1.ItemIndex:=ComboBox1.ItemIndex+1;
SledMec.Caption:=ComboBox1.Text;
fmMainForm.Label1.Caption:=TekMec.Caption;
end;
procedure TfmFirst.BtnCancelClick(Sender: TObject);
begin
close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, ... Classes, ... ... Menus, ... jpeg, ... = class(TForm)
MainMenu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
Image1: TImage;
Label1: ... ... ... ... ... ... ... N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMainForm: TfmMainForm;
i:integer;
implementation
uses Unit2, Unit3, ... ... ... ... TfmMainForm.N8Click(Sender: TObject);
begin
fmKlienty.DBGrid1.DataSource:=fmKlienty.DataSource1;
fmKlienty.Table1.TableName:='Физ'+Label1.Caption+'.db';
fmKlienty.Table1.Active:=True;
fmKlienty.DBGrid1.ReadOnly:=True;
fmKlienty.Caption:='Список клиентов: Физическое лицо';
fmKlienty.Label1.Caption:='Текущий месяц: '+Label1.Caption;
fmKlienty.BtnDel.Visible:=False;
fmKlienty.BtnSave.Visible:=False;
fmKlienty.BtnApp.Visible:=False;
fmKlienty.LMesiac.Visible:=True;
fmKlienty.Show;
end;
procedure TfmMainForm.N7Click(Sender: TObject);
begin
fmKlienty.DBEdit2.DataField:='';
fmKlienty.DBEdit9.DataField:='';
fmKlienty.DBEdit4.DataField:='';
fmKlienty.DBEdit11.DataField:='';
fmKlienty.DBGrid1.DataSource:=fmKlienty.DataSource1;
fmKlienty.Table1.TableName:='Юр'+Label1.Caption+'.db';
fmKlienty.Table1.Active:=True;
fmKlienty.DBGrid1.ReadOnly:=True;
fmKlienty.Caption:='Список клиентов: Юридическое лицо';
fmKlienty.Label1.Caption:='Текущий месяц: '+Label1.Caption;
fmKlienty.BtnDel.Visible:=False;
fmKlienty.BtnSave.Visible:=False;
fmKlienty.BtnApp.Visible:=False;
fmKlienty.LMesiac.Visible:=True;
fmKlienty.Show;
end;
procedure TfmMainForm.N9Click(Sender: TObject);
var r,i:integer;
begin
fmKlienty.DBEdit2.DataField:='';
fmKlienty.DBEdit9.DataField:='';
fmKlienty.DBEdit4.DataField:='';
fmKlienty.DBEdit11.DataField:='';
fmKlienty.DBGrid1.DataSource:=fmKlienty.DataSource1;
fmKlienty.Table1.TableName:='Юр'+fmFirst.TekMec.Caption+'.db';
fmKlienty.Table2.TableName:='Юр'+fmFirst.SledMec.Caption+'.db';
fmKlienty.Label1.Caption:='Текущий месяц: ... ... ... ... ... ... ... TfmMainForm.N10Click(Sender: TObject);
var r,i:integer;
begin
fmKlienty.DBEdit2.DataField:='FirstName';
fmKlienty.DBEdit9.DataField:='FirstName';
fmKlienty.DBEdit4.DataField:='LastName';
fmKlienty.DBEdit11.DataField:='LastName';
fmKlienty.DBGrid1.DataSource:=fmKlienty.DataSource1;
fmKlienty.Table1.TableName:='Физ'+fmFirst.TekMec.Caption+'.db';
fmKlienty.Table2.TableName:='Физ'+fmFirst.SledMec.Caption+'.db';
fmKlienty.Label1.Caption:='Текущий месяц: '+fmFirst.SledMec.Caption;
fmKlienty.Table1.Active:=True;
fmKlienty.Table2.Active:=True;
fmKlienty.DBGrid1.ReadOnly:=False;
fmKlienty.Caption:='Перерегистрация: Физическое лицо';
fmKlienty.BtnDel.Visible:=True;
fmKlienty.BtnSave.Visible:=True;
fmKlienty.BtnApp.Visible:=True;
fmKlienty.LMesiac.Visible:=False;
fmKlienty.Show;
if fmKlienty.Table1.RecordCountfmKlienty.Table2.RecordCount ... ... ... ... ... ... TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DB, DBTables, Grids, DBGrids, ... Mask, DBCtrls, ... = ... ... ... ... TButton;
BtnApp: TButton;
BtnDel: TButton;
BtnSave: TButton;
Label1: TLabel;
LMesiac: TLabel;
Table2: TTable;
DataSource2: ... ... ... ... ... ... ... TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
procedure BtnCloseClick(Sender: TObject);
procedure BtnAppClick(Sender: ... ... ... ... ... FormClose(Sender: TObject; var Action: TCloseAction);
procedure LMesiacClick(Sender: TObject);
procedure LMesiacMouseMove(Sender: TObject; Shift: ... ... ... ... ... Private ... }
public
{ Public declarations }
end;
var
fmKlienty: TfmKlienty;
implementation
uses Unit5;
{$R *.dfm}
procedure TfmKlienty.BtnCloseClick(Sender: TObject);
begin
Table1.Active:=False;
close;
end;
procedure TfmKlienty.BtnAppClick(Sender: TObject);
begin
Table1.Edit;
Table1.Append;
end;
procedure TfmKlienty.BtnSaveClick(Sender: TObject);
begin
Table1.Edit;
Table1.Post;
end;
procedure TfmKlienty.BtnDelClick(Sender: TObject);
begin
Table1.Edit;
Table1.Delete;
end;
procedure TfmKlienty.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Active:=False;
Table2.Active:=False;
end;
procedure ... ... ... TObject; Shift: TShiftState;
X,
Y: Integer);
begin
LMesiac.Color:=clGray;
end;
procedure TfmKlienty.LMesiacMouseLeave(Sender: TObject);
begin
LMesiac.Color:=clSilver;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ... ... DB, ... Grids, DBGrids, ... Mask, DBCtrls, ... = ... ... TDBGrid;
Table1: TTable;
BtnClose: TButton;
BtnApp: TButton;
BtnDel: TButton;
BtnSave: TButton;
Label1: TLabel;
LMesiac: TLabel;
Table2: TTable;
DataSource2: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: ... ... ... ... ... TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
procedure BtnCloseClick(Sender: TObject);
procedure BtnAppClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
procedure BtnDelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... ... ... LMesiacMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LMesiacMouseLeave(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... ... ... TfmKlienty.BtnCloseClick(Sender: TObject);
begin
Table1.Active:=False;
close;
end;
procedure TfmKlienty.BtnAppClick(Sender: TObject);
begin
Table1.Edit;
Table1.Append;
end;
procedure TfmKlienty.BtnSaveClick(Sender: TObject);
begin
Table1.Edit;
Table1.Post;
end;
procedure TfmKlienty.BtnDelClick(Sender: TObject);
begin
Table1.Edit;
Table1.Delete;
end;
procedure TfmKlienty.FormClose(Sender: TObject; var Action: ... ... ... ... TObject; Shift: ... ... ... TObject);
begin
LMesiac.Color:=clSilver;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TfmAbout = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: ... ... ... ... ... ... Private declarations }
public
{ Public declarations }
end;
var
fmAbout: TfmAbout;
implementation
{$R *.dfm}
procedure TfmAbout.BBtnOKClick(Sender: TObject);
begin
close;
end;
end.

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 13 бет
Бұл жұмыстың бағасы: 300 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
«ақпараттық жүйелерді жобалау» электрондық оқулықты өңдеу және жобалау44 бет
«Экономикалық ақпарат жүйелері артықшылық үшін қолданылатын ақпараттық технологияны пайдалану"8 бет
Ақпараттық (информациялық) қызмет көрсету жүйелері мен компьютерлік технологияны білім беруде қолдану мәселесі54 бет
Ақпараттық жүйелер21 бет
Ақпараттық жүйелер және технологиялар орталығы8 бет
Ақпараттық жүйелер мамандығы37 бет
Ақпараттық жүйелер үлгілері3 бет
Ақпараттық жүйелер үлгілері жайлы3 бет
Ақпараттық жүйелер. Ақпараттық жүйелердің даму сатысы2 бет
Ақпараттық жүйелер. Олардың түрлері және ТКМ-да пайдалану ерекшеліктері4 бет


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


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

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

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

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

Email: info@stud.kz

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

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