Дипломдық жұмыс Тақырыбы: "Бизнес-проектіні моделдеу және басқару" ақпараттық жүйесін тұрғызу



жүктеу 1,89 Mb.
бет4/11
Дата12.02.2018
өлшемі1,89 Mb.
#9410
түріДиплом
1   2   3   4   5   6   7   8   9   10   11

12-кестеге анықтама


Сатып алуға кететін шығындарды құрушы есептейді және ол техникалық тапсырма, техникалық жұмыс жобаларын жасауға кететін шығынжар соммасы болып табылады. Жобаны енгізуге кететін шығындар енгізу уақыты бойынша жобаны құраушылардың жалақысын ескерумен есептеледі. Байланыстыру шығындары жобаны енгізу шығындарына ұқсас жасалынады:

    • дербес компьютерлердің құны “Прайст-лист” құжатынан алынады;

    • жылдық пайдалану шығындары (13-кесте );

    • берілген есептеумен шұғылданатын жұмысшылар саны;

    • жұмысшылардың орташа жылдық мөлшерлемесі;

    • жобаны енгізілетін кәсіпорынның бухгалтериясы есептейді;

    • дербес коипьютерді пайдалану коэффициенті жасалатын есептер үшін 1-ден аспауы керек;

    • дербес компьютерге берілетін жұмыстардың алғашқы көлемінен пайыз ескеретін коэффициенті автоматты түрде есептелетін есептер көлемінің пайыз қатынасын біліреді;

    • дербес компьютердің жылдық жұмыс уақытының қоры 14-кестеде есептелінген;

13-кесте. Дербес компьютердің жылдық жұмыс уақытының қоры

Дербес компьютер түрі

1 ауысымда

ғы жұмыс сағатының саны



Ауысымдар саны

Жылдық жұмыс ауысым саны

ДК-дің жылдық жұмыс қоры

Pentium

8.2

1

270

2214




    • есептердің шығарылу уақыты эмприкалық түрде өңделетін формалар санын ескерумен есептелінеді;

    • енгізілетін ақпарат көлемі әрбір енгізілген форма бойынша ақпарат көлемінің қосындысы ретінде есептелінеді. Бір форма бойынша ақпара көлемі келесідей анықталады: бір жолдағы максималды белгілер саны бір құжаттағы жылдың санына және бір жылдағы құжаттар саны көбейтіледі;

    • белгілердегі өңделетін ақпарат көлемі енгізілетін ақпарат көлемі мен есептер кешенін шешу үшін пайдаланатын мәліметтер қорында сақталынатын ақпарат көлемінің соммасы болып табылады. Өңделетін ақпарат көлемін Кбайтқа айналдыру үшін алынған қосындыны 6-ға көбейтіп 8-ге бөлу керек;

    • шығатын ақпарат көлемі әрбір форма бойынша шығатын ақпараттар көлемінің қосындысы ретінде алынады. Әрбір форма бойынша ақпарат көлемі келесідей анықталады: бір жолдағы белгілер саны құжаттағы жолдар санына көбейтіледі.

14-кесте. Бір жұмысшының жылдық жұмыс уақытын есептеу



Көрсеткіштер

өлшем бірлігі

Саны

Күнтізбелік уақыт


Күн

366

Демалыс күндер

Күн

53

Мейрам күндер

Күн

8

Номиналды күндер

Күн

305

Жұмысқа келмеу

Күн




Еңбек демалысы

Күн

24

Ауырған күндер

Күн

11

Мемлекеттік міндет

Күн

0

Жылдағы нақты жұмыс күндерінің саны

Күн

270

Мейрам алдындағы күндер

Күн

7

Нақты есепті жылдың жұмыс қоры

сағат

2204,4

Фбр = (жылдағы жұмыс күндерінің нақты саны – мейрам алды күндерінің саны) * 8,2 – мейрам алды күндерінің саны 7= (270-8)8,2+8*7= 2204,4 сағат.

Жұмысшылардың жобаны енгізбестен бұрын істейтін жұмыстарының еңбек сыйымдылығы (До) келесі формуламен анықталады:

До = Ч * Фбр (1)

Мұндағы, Ч – жұмысшылар саны, адам

Фбр – бір жұмысшының жылдық жұмыс уақытының қоры, сағат Яғңи, До = 5 * 2204,4 = 11022,0 сағатЖоба енгізілместен бұрын жұмысшы жасайтын жұмыстар құны (Со), келесі формуламен анықталады:

Со = До * З [(1+д) * (1+с) + н] (2)

Мұндағы, До – жоба енгізбестен бұрын жұмысшының жұмыстарының еңбек сыйымдылығы;
З – бір жұмысшының орташа сағаттық тарифтік мөлшерлемесі;

Д – қосымша жалақыны ескеретін коэффициент;

С – зейнетақы қорларына аударымдарды ескеретін коэффициент;

Н – қосымша шығындарды ескеретін коэффициент.


Со = 11022,0 * 0,85 * [(1+0,7) * (1+0,14) + 0,33] = 21248,2116 = 21,25 мың тг Ақпаратты автоматты түрде өңдеу жағдайында жұмыстардың еңбек сыйымдылығы жұмысшыларға қалған жұмыстардан және ДЭЕМ пайдаланудан тұрады.

Жобаны енгізуден кейін жұмысшыларға қалған жұмыстардың жылдық еңбек сыйымдылығы (Дост) келесі формуламен есептелінеді:

Дост = До * (1 – р / 100) (3)

Мұндағы, До – жұмысшылардың автоматты жұмыс орнын енгізуден бұрын жұмыстарының жылдық еңбек сыйымдылығы, сағат;

Р – бастапқы көлемнен ДЭЕМ-ге берілетін жұмыстардың процентін ескеретін коэффициент.

Дост = 11022,0 * (- - 75 / 100) = 2755,5 сағат

Жобаны енгізгеннен кейін жұмысшыларға қалған жұмыстар құны (Сост) келесі формуламен септелінеді:

Сост = Дост * 3 * [(1 + д) * (1 + с) + н] (4)

Сост = 2755,5 * 0,85 * [(1+1,7) * (1+1,14) + 0,33] = 5312,0529 тг = 5,3 мың тг

ДЭЕМ-ның жылдық пайдалану шығындары 15-кестеде келтірілген.

ДЭЕМ-ның жылдық пайдалану шығындары

Шығын баптарының атауы

Құны (мың тг)

1

Ағымдағы және алдын ала жөндеудегі шығындар

5,4

Жөндеулер (ДЭЕМ құнының 5%)

12,96

2

ДЭЕМ тозуы (ДЭЕМ құнының 12%)

2,16

3

Материалдарға кететін шығын

0,54

4

Басқа шығындар

Жалпы пайдалану шығындары

21,06

Автоматты жұмыс орны жобаның жұмыс істеуімен байланысты жылдық пайдалану шығындарының үлесі (Свц) келесі формула бойынша есептелінеді:

Свц = Р реш * Т реш * Зэ / Тэем (5)

Мұндағы, Р реш – жыл ішіндегі есептер шешілуінің периоды;

Зэ – жылдық пайдалану шығындары, мың тг;

Тэем – ДК жылдық жұмыс уақытының қоры, сағат;

Т реш – есепті шешу уақыты.

Егер жобадағы есептерді шешу периоды әртүрлі болса, онда ол екі қосылғыштың қосындысы болып табылады, яғни:

Свц = Свц1 + Свц2

Свц1 = (60 * 15 * 21,060) / 2214 = 8,5609 мың тг

Свц2 = (17 * 15 * 21,060) 2214 = 2,4256 мың тг

Свц = 8,5609 + 2,4256 = 10,9856 мың тг

Жобаны енгізген жағдайда ақпаратты өңдеуге шығатын жылдық шығын (Савт) келесі формуламен есептелінеді:

Савт = Свц + Сост (6)

Мұндағы, Свц – жобаны енгізу жағдайында ақпаратты өңдеудің пайдалану шығындары, мың тг;

Савт = 10,9856 +5,3 = 16,2865 мың тг

Автоматтандырылған жұмыс орнын енгізуден түсетін жылдық үнем (Сажо):


Сажо = Со – Савт (7)

Мұндағы, Со – автоматтандырылған жұмыс орнын енгізуден бұрынғы ақпаратты өңдеу шығындары, мың тг;

Савт – автоматтандырылған жұмыс орнын енгізген жағдайдағы ақпаратты өңдеу шығындары, мың тг.

Сажо = 21,25 – 16,2865 = 4,9635 мың тг

3.2 Ақпараттық өнімді коммерциалық сатуға берілетін кеңестер және нәтижесін талдау

Ақпараттық жүйесінің тиімділігі ретінде оның тағайындалуына сәйкестік дәрежесі мен жақсы икемділікті қамтамасыз ету мақсатымен есептеу және сұраныстарды қалыптастыру үрдістерін ұйымдастыруының дұрыс тағайындалуы, оның техникалық және методологиялық жетістігі және экономикалық тұрғыдан ақталатындығы түсініледі.

Ақпараттық жүйенің тиімділігі кезінде келесі көрсеткіштердің анықтамасын қамтиды: өнімділік, нақтылық, сенімділік, икемділік, интерфейстің достастығы, интерактивті режимде жұмыс істей алуы және т.б.

Ақпаратты іздеу жүйесінің жұмыс істеу жағдайлары үздіксіз өзгеруі мүмкін, әсіресе бұл тақырыптық аймақ, яғни нақты қосымшалар, өңдейтін ақпарат көлемі, сондай-ақ олардың мазмұнына қарасты шешілетін есептер тізімі. Бұл жағдайда берілген ақпаратты іздеу жүйесі оның элементтері арасында есептеу көлемін жедел түрде қайта бөлу қасиетін қамтамасыз етуге едәуір икемді, сондай-ақ жаңа есептер қосуға кеңейтілмелі болып табылады.

Сондай-ақ ақпараттық жүйенің тақырыптық ауданының мазмұнын өзгертуге қабілетін атап айту керек. Оны банкте ақпаратты өңдеу мен сақтау үшін мәліметтер қорында сапалық құрамы мен ақпарат көлемінен тәуелсіз пайдалануға болады. Мәліметтер қорының бүтіндігі оларды пайдалану кезі мен активті күйде тез сақталуын қамтамасыз етеді. Ақпаратты қамтамасыз етудің кешені жүйеге түсетін мәліметтерді унификациялауға мүмкіндік беріп, өңдеуді ыңғайлы түрде келтіреді.



Осы ақпараттық жүйенің сенімділігі жұмыс кезінде өз қасиеттерін ұзақ уақыт сақтай алуымен сипатталады. Барлық ақпараттық жүйе бір ғана мақсатқа бағындырылған – қарыз алушының төлемқабілетін жедел, үздіксіз және сенімді жұмыс істеуін қамтамасыз ету. Жүйенің модульдік құрылуы оның логикалық байланысын және жалпы стратегиялық бағытталуын кеңейту мен жеке бөліктерінің жұмыс істеуінің оптималдылығына байланысты.

Пайдаланылған әдебиеттер


        1. Қ.С. Байшоланова Ақпараттық жүйелер теориясы, Алматы: Экономика -2002ж.

        2. Ақпараттандыру туралы Қазақстан Республикасының заңдары. 1 маусым 2003 жыл.

        3. «Практикум по эконометрикең - п.р. И.И. Елисеевой, Москва 2004.

        4. «Математическое программирование в примерах и задачахң - И.Л. Акулич, 1986

        5. «Эконометрия» - Е.И. Куулинич, Москва – 1999ж.

        6. «Статистиканың жалпы теориясың Ызғарбек Әміреұлы, Алматы-1998ж.

        7. Системы управления базами данных и знаний: Спра­вочное издание./ Под ред. А.Н. Наумова. - М.: Фи­нансы и статистика, 1991. – 352 с.

        8. Стороженко Л.А., Матвеева И.А. Информационно-ком­пьютерные системы учета в Республике Казахстан./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.87-93.

        9. Неверова Е.Г. Технология проектирования баз дан­ных и знаний, Алматы - 2000.

        10. Н. Назарбаев Қазақстан – 2030, ел президентінің Қазақстан халқына жодауы, Білім:1998ж.

        11. Указ Президента Республики Казахстан № 359 от 14 марта 2000 года "О государственной программе обес­печения информационной безопасности Республики Ка­захстан на 2000 - 2003 годы"

        12. Н.Б.Бралиева, Қ.С.Байшоланова, Н.Л.Гагарина “Экономикадағы ақпараттық жүйелері”. Оқу құралы. Алматы, 2001

        13. Н.Б.Бралиева, Л.А.Байбөлекова, Қ.Т.Балашов “Ақпараттық менеджмент негіздері”. Оқу құралы. Алматы: Экономика, 2000

        14. Н.Б.Бралиева, В.Ф.Тимошенко, Н.Л.Гагарина “Информационные системы бизнеса”. Алматы, 1994

        15. Қазақстан Республикасының Президентінің №359 14 маусым-нан 2000 жыл. “2000-2003 жылға Қазақстан Республикасы мемлекетініңақпараттық қауіпсіздігінің программалық жабдықтауы”.

        16. Н.Г.Семенова “Автомотизированные информационные технологий в экономике”. Москва, 2000

        17. Бралиева Н.Б., Куличихин А.А. “Информационные аспекты создания и функционирования автоматизированных информационных систем”

        18. Қазақстан Республикасының Президентінің №359 14 маусымнан 2000 жыл. “2000-2003 жылға Қазақстан Республикасы мемлекетінің ақпараттық қауіпсіздігінің программалық жабдықтауы”.

        19. “Информационные системы в экономике”. Учебник под редакцией Дика В.В., Москва, 1999

        20. Н.Г.Семенова “Автомотизированные информационные технологий в экономике”. Москва, 2000

        21. А.Ө.Биярова “Экономикалық кибернетика”. Оқу құралы. Алматы, 2001


Қ О С Ы М Ш А

Қосымша 1


unit UnitMain;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, Menus, ComCtrls, ExtCtrls, Buttons, ActnList;
type

TFrmMain = class(TForm)

Panel1: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

ImageList1: TImageList;

ActionList1: TActionList;

StatusBar1: TStatusBar;

DateTimePicker1: TDateTimePicker;

procedure N6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FrmMain: TFrmMain;
implementation
uses UnitModul, UnitObch, UnitIPN, UnitOPB, UnitCO, UnitAbout, UnitPass;
{$R *.dfm}
procedure TFrmMain.N6Click(Sender: TObject);

begin


if FrmObch=nil then FrmObch:=TFrmObch.Create(Self)

else FrmObch.Show;

end;
procedure TFrmMain.FormCreate(Sender: TObject);

begin


StatusBar1.Panels[0].Text:=DateToStr(DateTimePicker1.DateTime);

StatusBar1.Panels[1].Text:='Вход: Не выполнен!';

end;
procedure TFrmMain.N12Click(Sender: TObject);

begin


WinExec('C:\Program Files\Outlook Express\msimn.exe',SW_RESTORE);

end;
procedure TFrmMain.N11Click(Sender: TObject);

var f1,f2:TextFile;

s:string;

begin

AssignFile(f1,'C:\Kanat\Base\basa1.db');



AssignFile(f2,'C:\Kanat\Export\basa1.lnk');

Reset(f1);

Rewrite(f2);

while not eof(f1) do

begin

readln(f1,s);



writeln(f2,s);

end;


CloseFile(f1);

CloseFile(f2);

N11.Enabled:=false;

MessageDlg('Файл заблокирован!',mtWarning,[mbOK],0);

end;
procedure TFrmMain.N7Click(Sender: TObject);

begin


if FrmIPN=nil then FrmIPN:=TFrmIPN.Create(Self)

else FrmIPN.Show;

end;
procedure TFrmMain.N8Click(Sender: TObject);

begin


if Frmopb=nil then Frmopb:=TFrmopb.Create(Self)

else Frmopb.Show;

end;
procedure TFrmMain.N9Click(Sender: TObject);

begin


if FrmCO=nil then FrmCO:=TFrmCO.Create(Self)

else FrmCO.Show;

end;
procedure TFrmMain.N15Click(Sender: TObject);

begin


AboutBox.ShowModal;

end;
procedure TFrmMain.N2Click(Sender: TObject);

begin

PasswordDlg.ShowModal;



end;
procedure TFrmMain.N3Click(Sender: TObject);

begin


ActiveMDIChild.Free;

end;
procedure TFrmMain.N4Click(Sender: TObject);

begin

close;


end;
end.
unit UnitCO;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Menus;
type

TFrmCO = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

Label13: TLabel;

ComboBox1: TComboBox;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

Edit2: TEdit;

Label4: TLabel;

Edit3: TEdit;

Label5: TLabel;

Label6: TLabel;

Edit4: TEdit;

Label7: TLabel;

Edit5: TEdit;

Label8: TLabel;

Edit6: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit6KeyPress(Sender: TObject; var Key: Char);

procedure FormDestroy(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FrmCO: TFrmCO;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmCO.FormClose(Sender: TObject; var Action: TCloseAction);

begin


Action:=caFree;

end;
procedure TFrmCO.FormCreate(Sender: TObject);

begin

DataModule1.TabCO.Open;



DataModule1.TabOPB.Open;

DataModule1.TabIPN.Open;

DataModule1.TabAbout.Open;

DataModule1.TabAbout.First;

ComboBox1.Clear;

while not (DataModule1.TabAbout.Eof) do

begin

ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);



DataModule1.TabAbout.Next;

end;
end;


procedure TFrmCO.BitBtn1Click(Sender: TObject);

begin


DataModule1.TabCO.Append;

DataModule1.TabCO.FieldByName('RNN').AsString:=ComboBox1.Text;


DataModule1.TabCO.FieldByName('r1a1').AsString:=Edit1.Text;

DataModule1.TabCO.FieldByName('r1b1').AsString:=Edit2.Text;

DataModule1.TabCO.FieldByName('r1c1').AsString:=Edit3.Text;
DataModule1.TabCO.FieldByName('r1a2').AsString:=Edit4.Text;

DataModule1.TabCO.FieldByName('r1b2').AsString:=Edit5.Text;

DataModule1.TabCO.FieldByName('r1c2').AsString:=Edit6.Text;

DataModule1.TabCO.Post;

end;
procedure TFrmCO.BitBtn2Click(Sender: TObject);

begin


DataModule1.TabCO.Delete;

end;
procedure TFrmCO.BitBtn3Click(Sender: TObject);

begin

DataModule1.TabCO.Edit;



DataModule1.TabCO.Post;

end;
procedure TFrmCO.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit2.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit1.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmCO.Edit2KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit3.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit2.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmCO.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit4.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit3.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmCO.Edit4KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit4.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit4.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmCO.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit6.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit5.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmCO.Edit6KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :BitBtn1.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit6.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmCO.FormDestroy(Sender: TObject);

begin

DataModule1.TabIPN.Close;



DataModule1.TabCO.Close;

DataModule1.TabAbout.close;

DataModule1.TabOPB.Close;

FrmCO:=nil;

end;
procedure TFrmCO.N2Click(Sender: TObject);

begin


DataModule1.RvProject2.Execute;

end;
procedure TFrmCO.N3Click(Sender: TObject);

begin

DataModule1.RvProject1.Execute;



end;
end.
unit UnitAbout;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;


type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;
var

AboutBox: TAboutBox;


implementation
uses UnitMain;
{$R *.dfm}
procedure TAboutBox.OKButtonClick(Sender: TObject);

begin


close;

end;
end.


unit UnitIPN;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, ExtCtrls;
type

TFrmIPN = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label5: TLabel;

BitBtn1: TBitBtn;

ComboBox1: TComboBox;

Panel2: TPanel;

DBGrid1: TDBGrid;

BitBtn2: TBitBtn;

Label6: TLabel;

Edit4: TEdit;

Label7: TLabel;

Edit5: TEdit;

Label8: TLabel;

Edit6: TEdit;

Label9: TLabel;

Edit7: TEdit;

Label10: TLabel;

Edit8: TEdit;

Label11: TLabel;

Edit9: TEdit;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Edit10: TEdit;

Label16: TLabel;

Edit11: TEdit;

Label17: TLabel;

Edit12: TEdit;

Label18: TLabel;

Label19: TLabel;

Edit13: TEdit;

Label20: TLabel;

Edit14: TEdit;

Label21: TLabel;

Edit15: TEdit;

BitBtn3: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure BitBtn3Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit6KeyPress(Sender: TObject; var Key: Char);

procedure Edit7KeyPress(Sender: TObject; var Key: Char);

procedure Edit8KeyPress(Sender: TObject; var Key: Char);

procedure Edit9KeyPress(Sender: TObject; var Key: Char);

procedure Edit10KeyPress(Sender: TObject; var Key: Char);

procedure Edit11KeyPress(Sender: TObject; var Key: Char);

procedure Edit12KeyPress(Sender: TObject; var Key: Char);

procedure Edit13KeyPress(Sender: TObject; var Key: Char);

procedure Edit14KeyPress(Sender: TObject; var Key: Char);

procedure Edit15KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }



public

{ Public declarations }

end;
var

FrmIPN: TFrmIPN;


implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmIPN.FormCreate(Sender: TObject);

begin


DataModule1.TabAbout.Open;

DataModule1.TabAbout.First;

while not(DataModule1.TabAbout.Eof) do

begin


ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);

DataModule1.TabAbout.Next;

end;

DataModule1.TabAbout.close;



DataModule1.TabIPN.Open;

end;
procedure TFrmIPN.FormDestroy(Sender: TObject);

begin

DataModule1.TabIPN.close;



FrmIPN:=nil;

end;
procedure TFrmIPN.BitBtn1Click(Sender: TObject);

begin

DataModule1.TabIPN.Append;



DataModule1.TabIPN.FieldByName('RNN').AsString:=ComboBox1.Text;
DataModule1.TabIPN.FieldByName('r1a1').AsString:=Edit1.Text;

DataModule1.TabIPN.FieldByName('r1b1').AsString:=Edit2.Text;

DataModule1.TabIPN.FieldByName('r1c1').AsString:=Edit3.Text;
DataModule1.TabIPN.FieldByName('r1a2').AsString:=Edit4.Text;

DataModule1.TabIPN.FieldByName('r1b2').AsString:=Edit5.Text;

DataModule1.TabIPN.FieldByName('r1c2').AsString:=Edit6.Text;
DataModule1.TabIPN.FieldByName('r1a3').AsString:=Edit7.Text;

DataModule1.TabIPN.FieldByName('r1b3').AsString:=Edit8.Text;

DataModule1.TabIPN.FieldByName('r1c3').AsString:=Edit9.Text;
DataModule1.TabIPN.FieldByName('r1a4').AsString:=Edit10.Text;

DataModule1.TabIPN.FieldByName('r1b4').AsString:=Edit11.Text;

DataModule1.TabIPN.FieldByName('r1c4').AsString:=Edit12.Text;
DataModule1.TabIPN.FieldByName('r1a5').AsString:=Edit13.Text;

DataModule1.TabIPN.FieldByName('r1b5').AsString:=Edit14.Text;

DataModule1.TabIPN.FieldByName('r1c5').AsString:=Edit15.Text;
DataModule1.TabIPN.Post;

end;
procedure TFrmIPN.BitBtn2Click(Sender: TObject);

begin

DataModule1.TabIPN.Delete;



end;
procedure TFrmIPN.FormClose(Sender: TObject; var Action: TCloseAction);

begin


Action:=caFree;

end;
procedure TFrmIPN.BitBtn3Click(Sender: TObject);

begin

DataModule1.TabIPN.Edit;



DataModule1.TabIPN.Post;

end;
procedure TFrmIPN.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit2.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit1.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit2KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit3.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit2.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit4.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit3.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit4KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit5.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit4.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit6.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit5.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit6KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit7.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit6.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit8.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit7.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit8KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit9.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit8.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit9KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit10.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit9.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit10KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit11.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit10.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit11KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit12.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit11.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit12KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit13.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit12.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit13KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit14.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit13.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmIPN.Edit14KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit15.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit14.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmIPN.Edit15KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :BitBtn1.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit15.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
end.
unit UnitModul;
interface
uses

SysUtils, Classes, DB, DBTables, RpCon, RpConDS, RpDefine, RpRave;


type

TDataModule1 = class(TDataModule)

TabAbout: TTable;

DataSource1: TDataSource;

TabAboutRNN: TStringField;

TabAboutKbartal: TSmallintField;

TabAboutGod: TIntegerField;

TabAboutFam: TStringField;

TabAboutName: TStringField;

TabAboutPar: TStringField;

TabAboutOKEDA: TStringField;

TabAboutOKEDB: TStringField;

TabAboutOKEDC: TStringField;

TabAboutUDBec1: TFloatField;

TabAboutUDBec2: TFloatField;

TabAboutUDBec3: TFloatField;

TabAboutBidRas1: TBooleanField;

TabAboutBidRas2: TBooleanField;

TabAboutBidRas3: TBooleanField;

TabAboutBidRas4: TBooleanField;

TabAboutBidRas5: TBooleanField;

TabAboutNomerUbed: TStringField;

TabAboutDataUbed: TDateField;

TabAboutNomerKontr: TStringField;

TabAboutDataZakKontr: TDateField;

TabAboutNalogRej: TStringField;

RvProject1: TRvProject;

RvDataSetConnection1: TRvDataSetConnection;

RvDataSetConnection2: TRvDataSetConnection;

TabIPN: TTable;

DataSource2: TDataSource;

TabIPNRNN: TStringField;

TabIPNR1A1: TFloatField;

TabIPNR1B1: TFloatField;

TabIPNR1C1: TFloatField;

TabIPNR1D1: TFloatField;

TabIPNR1E1: TFloatField;

TabIPNR1A2: TFloatField;

TabIPNR1B2: TFloatField;

TabIPNR1C2: TFloatField;

TabIPNR1A3: TFloatField;

TabIPNR1B3: TFloatField;

TabIPNR1C3: TFloatField;

TabIPNR1A4: TFloatField;

TabIPNR1B4: TFloatField;

TabIPNR1C4: TFloatField;

TabIPNR1A5: TFloatField;

TabIPNR1B5: TFloatField;

TabIPNR1C5: TFloatField;

TabIPNR1D2: TFloatField;

TabIPNR1E2: TFloatField;

TabIPNR1D3: TFloatField;

TabIPNR1E3: TFloatField;

TabIPNR1D4: TFloatField;

TabIPNR1E4: TFloatField;

TabIPNR1D5: TFloatField;

TabIPNR1E5: TFloatField;

TabOPB: TTable;

DataSource3: TDataSource;

TabOPBRNN: TStringField;

TabOPBR1A1: TFloatField;

TabOPBR1B1: TFloatField;

TabOPBR1C1: TFloatField;

TabOPBR1A2: TFloatField;

TabOPBR1B2: TFloatField;

TabOPBR1C2: TFloatField;

TabOPBR1D1: TFloatField;

TabOPBR1E1: TFloatField;

TabOPBR1D2: TFloatField;

TabOPBR1E2: TFloatField;

TabCO: TTable;

DataSource4: TDataSource;

TabCOR1D1: TFloatField;

TabCOR1E1: TFloatField;

TabCOR1D2: TFloatField;

TabCOR1E2: TFloatField;

TabCORNN: TStringField;

TabCOR1A1: TFloatField;

TabCOR1B1: TFloatField;

TabCOR1C1: TFloatField;

TabCOR1A2: TFloatField;

TabCOR1B2: TFloatField;

TabCOR1C2: TFloatField;

RvDataSetConnection3: TRvDataSetConnection;

RvDataSetConnection4: TRvDataSetConnection;

RvProject2: TRvProject;

RvDataSetConnection5: TRvDataSetConnection;

procedure TabIPNCalcFields(DataSet: TDataSet);

procedure TabOPBCalcFields(DataSet: TDataSet);

procedure TabCOCalcFields(DataSet: TDataSet);

private

{ Private declarations }



public

{ Public declarations }

end;
var

DataModule1: TDataModule1;


implementation
uses UnitMain, UnitObch, UnitIPN, UnitOPB, UnitCO;
{$R *.dfm}
procedure TDataModule1.TabIPNCalcFields(DataSet: TDataSet);

begin


TabIPNR1D1.Value:=TabIPNR1A1.Value+TabIPNR1B1.Value+TabIPNR1C1.Value;

TabIPNR1e1.Value:=TabIPNR1D1.Value;


TabIPNR1D2.Value:=TabIPNR1A2.Value+TabIPNR1B2.Value+TabIPNR1C2.Value;

TabIPNR1e2.Value:=TabIPNR1D2.Value;


TabIPNR1D3.Value:=TabIPNR1A3.Value+TabIPNR1B3.Value+TabIPNR1C3.Value;

TabIPNR1e3.Value:=TabIPNR1D3.Value;


TabIPNR1D4.Value:=TabIPNR1A4.Value+TabIPNR1B4.Value+TabIPNR1C4.Value;

TabIPNR1e4.Value:=TabIPNR1D4.Value;


TabIPNR1D5.Value:=TabIPNR1A5.Value+TabIPNR1B5.Value+TabIPNR1C5.Value;

TabIPNR1e5.Value:=TabIPNR1D5.Value;

end;
procedure TDataModule1.TabOPBCalcFields(DataSet: TDataSet);

begin


TabOPBR1D1.Value:=TabOPBR1A1.Value+TabOPBR1B1.Value+TabOPBR1C1.Value;

TabOPBR1e1.Value:=TabOPBR1D1.Value;


TabOPBR1D2.Value:=TabOPBR1A2.Value+TabOPBR1B2.Value+TabOPBR1C2.Value;

TabOPBR1e2.Value:=TabOPBR1D2.Value;


end;
procedure TDataModule1.TabCOCalcFields(DataSet: TDataSet);

begin


TabCOR1D1.Value:=TabCOR1A1.Value+TabCOR1B1.Value+TabCOR1C1.Value;

TabCOR1e1.Value:=TabCOR1D1.Value;


TabCOR1D2.Value:=TabCOR1A2.Value+TabCOR1B2.Value+TabCOR1C2.Value;

TabCOR1e2.Value:=TabCOR1D2.Value;

end;
end.
unit UnitObch;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;
type

TFrmObch = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

Label4: TLabel;

Label2: TLabel;

DBEdit2: TDBEdit;

Label5: TLabel;

Label3: TLabel;

DBEdit3: TDBEdit;

GroupBox1: TGroupBox;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

GroupBox2: TGroupBox;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

GroupBox3: TGroupBox;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBCheckBox4: TDBCheckBox;

DBCheckBox5: TDBCheckBox;

GroupBox4: TGroupBox;

Label12: TLabel;

Label13: TLabel;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

Label14: TLabel;

DBEdit12: TDBEdit;

Label15: TLabel;

DBEdit13: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

Panel2: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FrmObch: TFrmObch;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmObch.SpeedButton1Click(Sender: TObject);

begin


DataModule1.TabAbout.Append;

end;
procedure TFrmObch.SpeedButton2Click(Sender: TObject);

begin

DataModule1.TabAbout.First;



end;
procedure TFrmObch.SpeedButton3Click(Sender: TObject);

begin


DataModule1.TabAbout.Prior;

end;
procedure TFrmObch.SpeedButton4Click(Sender: TObject);

begin

DataModule1.TabAbout.Next;



end;
procedure TFrmObch.SpeedButton6Click(Sender: TObject);

begin


DataModule1.TabAbout.last;

end;
procedure TFrmObch.SpeedButton7Click(Sender: TObject);

begin

DataModule1.TabAbout.Edit;



DataModule1.TabAbout.Post;

end;
procedure TFrmObch.SpeedButton5Click(Sender: TObject);

begin

DataModule1.TabAbout.Delete;



end;
procedure TFrmObch.FormCreate(Sender: TObject);

begin


DataModule1.TabAbout.Active:=true;

end;
procedure TFrmObch.FormDestroy(Sender: TObject);

begin

DataModule1.TabAbout.Close;



FrmObch:=nil;

end;
procedure TFrmObch.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;



end;
end.
unit UnitOPB;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;
type

TFrmOPB = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label13: TLabel;

ComboBox1: TComboBox;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit6KeyPress(Sender: TObject; var Key: Char);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FrmOPB: TFrmOPB;
implementation
uses UnitMain, UnitModul;
{$R *.dfm}
procedure TFrmOPB.FormClose(Sender: TObject; var Action: TCloseAction);

begin


Action:=cafree;

end;
procedure TFrmOPB.FormCreate(Sender: TObject);

begin

DataModule1.TabAbout.Open;



DataModule1.TabAbout.First;

ComboBox1.Clear;

while not (DataModule1.TabAbout.Eof) do

begin


ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);

DataModule1.TabAbout.Next;

end;

DataModule1.TabAbout.close;



DataModule1.TabOPB.Open;

end;
procedure TFrmOPB.FormDestroy(Sender: TObject);

begin

DataModule1.TabOPB.close;



FrmOPB:=nil;

end;
procedure TFrmOPB.BitBtn1Click(Sender: TObject);

begin

DataModule1.TabOPB.Append;



DataModule1.TabOPB.FieldByName('RNN').AsString:=ComboBox1.Text;
DataModule1.Tabopb.FieldByName('r1a1').AsString:=Edit1.Text;

DataModule1.TabOPB.FieldByName('r1b1').AsString:=Edit2.Text;

DataModule1.TabOPB.FieldByName('r1c1').AsString:=Edit3.Text;
DataModule1.TabOPB.FieldByName('r1a2').AsString:=Edit4.Text;

DataModule1.TabOPB.FieldByName('r1b2').AsString:=Edit5.Text;

DataModule1.TabOPB.FieldByName('r1c2').AsString:=Edit6.Text;

DataModule1.TabOPB.Post;

end;
procedure TFrmOPB.BitBtn2Click(Sender: TObject);

begin


DataModule1.TabOPB.Delete;

end;
procedure TFrmOPB.BitBtn3Click(Sender: TObject);

begin

DataModule1.TabOPB.Edit;



DataModule1.TabOPB.Post;

end;
procedure TFrmOPB.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit2.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit1.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmOPB.Edit2KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit3.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit2.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmOPB.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit4.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit3.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmOPB.Edit4KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :edit5.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit4.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
procedure TFrmOPB.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case key of



'0'..'9',#8: ;

#13 :edit6.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit5.Text)<>0 then key:=char(0);

end;


else key:=char(0);

end;


end;
procedure TFrmOPB.Edit6KeyPress(Sender: TObject; var Key: Char);

begin


case key of

'0'..'9',#8: ;

#13 :BitBtn1.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit6.Text)<>0 then key:=char(0);

end;

else key:=char(0);



end;

end;
end.


unit UnitPass;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons;
type

TPasswordDlg = class(TForm)

Label1: TLabel;

Password: TEdit;

OKBtn: TButton;

CancelBtn: TButton;

procedure OKBtnClick(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;
var

PasswordDlg: TPasswordDlg;


implementation
uses UnitMain;
{$R *.dfm}
procedure TPasswordDlg.OKBtnClick(Sender: TObject);

begin


if Password.Text='111' then begin

FrmMain.N5.Visible:=true;

FrmMain.N10.Visible:=true;

FrmMain.N2.Visible:=false;

FrmMain.SpeedButton1.Enabled:=true;

FrmMain.SpeedButton2.Enabled:=true;

FrmMain.SpeedButton3.Enabled:=true;

FrmMain.SpeedButton4.Enabled:=true;

FrmMain.SpeedButton5.Enabled:=true;

FrmMain.SpeedButton6.Enabled:=true;



end;

end;
end.



Қосымша 2





жүктеу 1,89 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10   11




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау