Сурет Есеп шығару алгоритмінің бейнеленуі. 8 Іі-бөлім «несиелерді рәсімдеу» абж қҰру 9



жүктеу/скачать 0.92 Mb.
бет5/11
Дата01.04.2024
өлшемі0.92 Mb.
#497131
1   2   3   4   5   6   7   8   9   10   11
диплом

procedure TfrmCreditsMain. btnNewZavClick(Sender: TObject);
begin
with dmCreditsMain do
begin
tblAcredits. Append;
edtCr_num. SetFocus;
end; end;

Барлық жолдарды толтырып болған соң еңгізген ақпаратты сақтау үшін «Тіркеу» батырмасын шертеміз, ол команда жұмыс істеу үшін келесі код жазылған:


procedure TfrmCreditsMain. btnZokClick(Sender: TObject);
begin
if dmCreditsMain. tblAcredits. Modified then
dmCreditsMain. tblAcredits. Post;
end;
Программаның басты формасын 7- суретте бейнеленген



Сурет – 7. Басты беті.

Толықтыру тек клиенттің толықтырылып жатқан келісім-шарт туралы мәлім болған жағдайда жасалады. Түзету қажет жазбаны таңдау және белгілі жолдарды толтыру арқылы жүзеге асады. Түзетіліп жатқан келісім шарттың нөмірімен сәйкес келген кестенің барлық жолдары автоматты түрде өзгертіледі. Бұл өзгеріс деректер базасының сілтеме толықтығын сақтау үшін қажет. Белгілі бір мәлімдемені жою үшін жазбаны таңдап, «Мәлімдемені жою» батырмасын шерту керек. Жоюға жіберілген құжатпен байланысты барлық жазбалар автоматты түрде жойылады. Аталған батырманы шерткен кезде «Нақты жойғыңыз келе ме?» деген сұрақ шығады. Код төмендегідей түрде болады:


procedure TfrmCreditsMain. btnZvClick(Sender: TObject);
var
sName:string;
begin
sName:=dmCreditsMain. tblAcredits. FieldByName('caname'). AsString;
if MessageDlg('Сіздер мәлімдемені нақты жоюды қаладыңыздар ма? '+sName+'?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then
with dmCreditsMain do
begin
tblAcredits. Edit;
tblAcredits. Delete;
end;
end;

Жаңа мәлімдемені құрғанда немесе өзгерткең кезінде, «Аты-жөні» деген жолды толтыру үшін «…» батырмасын шертеміз. Нәтижесінде «Клиенттер» формасы ашылады. Батырманың программалық коды келесі түрде жазылған;


procedure TfrmCreditsMain. btnEditClientClick(Sender: TObject);
begin
frmCaProp:=TfrmCaProp. Create(self);
if frmCaProp. ShowModal=mrOK then
begin
with dmCreditsMain do
begin
tblContragents. Refresh;
tblAcredits. Edit;
tblAcredits.FieldByName('cr_ca').AsInteger:=tblContragents. FieldByName('ca_id'). AsInteger;
tblAcredits. Post;
tblAcredits. Refresh;
end;
gridCredits. Refresh;
end;
end;



    1. Клиенттер туралы ақпарат формасы – frmCaProp.

Берілген форма ақпаратты түзету мүмкіндігімен несие алушы туралы толық ақпаратты көрсету үшін арналады. Сонымен қатар, жаңа клиентті қосу үшін қолданылады.
Жаңа клиентті қосу үшін «Қосу» батырмасын басу қажет. Оны шерткен соң кестеде толтырылмаған жолдары бар жаңа жазба шығады. Қажетті ақпараттар сәйкес жолдарға толтырылады: аты-жөні, туу датасы, куәлігі, адресі, телефоны, жұмыс орны, банктің реквизиттері 5-суретте көрсетілген.
procedure TfrmCaProp. btnAddClick(Sender: TObject);
begin
with dmCreditsMain do
begin
tblContragents. Append;
edtCName. SetFocus;
end;

Клиенттер туралы ақпарат формасы 8-суретте көрсетілген





Сурет -8. Клиенттер туралы ақпарат.


«Жою» батырмасын шерту арқылы мәлімдемені жою жүзеге асырылады.


procedure TfrmCaProp. btnDelClick(Sender: TObject);
begin
with dmCreditsMain do
begin
tblContragents. Edit;
tblContragents. Delete;
end;

    1. Мәлімдеме Деңгейі формасы - frmCred_stat.6-суретте көрсетілген.

Мәлімдеме деңгейі формасы қазіргі уақытта несие алу мәлімдемесі қандай кезеңде екенін көрсетеді.
Осы форма мәлімдеме құру немесе түзету кезінде бас формада «...» батырмасын шерту арқылы орындалады.
procedure TfrmCreditsMain. btnZStatClick
(Sender: TObject);
begin
frmCred_stat:=TfrmCred_stat. Create(self);
frmCred_stat. ShowModal;
if dmCreditsMain. tblAcredits.
FieldByName('cr_pay'). AsBoolean then
btnPayList. Visible:=true;
end;
end;
Мәлімдеме деңгейі формасы 9-суретте көрсетілген



Сурет-9. Мәлімдеме деңгейі.





    1. «Анықтама түзету» формасындағы ақпараттар мазмұны «Анықтама» саласының мәтіндік менюінен не таңдағаныңызға байланысты болады. Анықтамаларды ашу кодтары:

    • валюталар:

procedure TfrmCreditsMain. miSpravCurClick(Sender: TObject);
begin
betShowSprav(dmCreditsMain. dsCurrensy, 'crcur_name');
end;

    • несие типі:

procedure TfrmCreditsMain. N1Click(Sender: TObject);
begin
betShowSprav(dmCreditsMain. dsCr_type, 'crt_name');
end;
«Анықтама түзету» формасы 10- суретте көрсетілген

Сурет – 10. Анықтама түзету.


Осы форма негізгі форманың бас менюі арқылы ашылады. Осы меню


11- суретте көрсетілген.
Негізгі форманың бас менюі



Сурет -11. Негізгі форманың бас менюі.





    • несие түрі:

procedure TfrmCreditsMain. N2Click(Sender: TObject);
begin
betShowSprav(dmCreditsMain. dsCr_vid, 'crv_name');
end;

    • несие мақсаты:

procedure TfrmCreditsMain. N3Click(Sender: TObject);
begin
betShowSprav(dmCreditsMain. dsCr_dest, 'crd_name');
end;

    • құжат түрлері:

procedure TfrmCreditsMain. N6Click(Sender: TObject);
begin
betShowSprav(dmCreditsMain. dsCd_type, 'cdt_name');
end;

    • мүліктің түрлері:

procedure TfrmCreditsMain. N4Click(Sender: TObject);
begin
betShowSprav(dmCreditsMain. dsCr_im_type, 'cit_name');
end;

Берілген форма анықтамаларды өңдеу үшін арналған. Анықтамада мәлімдемені құру (өңдеу мүмкіндігі бар) үшін қажетті ақпараттар (Валюта, Несие типі т.б.) ашылатын тізім бөлімінде сақталады. Бұл кестенің ұяшықтарында әрбір тауар жазбасының коды болады. Әрбір жаңа келісім-шартқа тұру кезінде кестені ақпараттармен толтыру міндетті.


Кестедегі жаңа жазбаны қосу, өңдей және жою «Өндеу» жолындағы белгі арқылы жүзеге асырылады:
procedure TfrmSpravEdit. chboxEditClick(Sender: TObject);
begin
if not chboxEdit. Checked then
frmSpravEdit. Width:=327
else
frmSpravEdit. Width:=757;
end;
және ақпаратты енгізудің өзі сәйкес жолдарға жазылады.
Жазбаларды қосу:
procedure TfrmSpravEdit. btnAddClick(Sender: TObject);
begin
gridSpravView. DataSource. DataSet. Append;
edtRName. SetFocus;
end;
Жазбаларды жою:
procedure TfrmSpravEdit. btnDelClick(Sender: TObject);
begin
gridSpravView. DataSource. DataSet. Edit;
gridSpravView. DataSource. DataSet. Delete;
end;

Несие іс қағаздар папкасы түйіндемесін баспадан шығару үшін «Файл»→«Басу» батырмасын шерту арқылы жүзеге асырылады. Аталған әрекетті орындау барысында көрсету формасы ашылады. 12-суретте көрсетілген





Сурет -12. Көрсету және басу формасы.


Осы терезеде баспаға берілген құжатты, оның басылу параметрлері мен принтердің икемделуін өзгерту мүмкіндігін береді. Форманы құру үшін Delphi-ге қосымша EhLib атты компоненттер жалғанды. Баспаға шығару формасы ашылу үшін келесі код орындалады:


procedure TfrmCreditsMain.miFilePrintClick(Sender: TObject);
begin
with dmCreditsMain do
begin
tblPrint.First;
tblPrint.Edit;
tblPrint.FieldByName('pr_value').AsString:=edtMCName.Text;
tblPrint.Next;
tblPrint.Edit;
tblPrint.FieldByName('pr_value').AsString:=lookupCr_dest.Text;
tblPrint.Next;
tblPrint.Edit;
tblPrint.FieldByName('pr_value').AsString:=edtCr_sum.Text;
tblPrint.Next;
tblPrint.Edit;
tblPrint.FieldByName('pr_value').AsString:=lookupCa_pls.Text;
tblPrint.Next;
tblPrint.Edit;
tblPrint.FieldByName('pr_value').AsString:=lookupCurrensy.Text;
tblPrint.Post;
end;
PrintDBGridEh1.Preview;
end;

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



жүктеу/скачать 0.92 Mb.

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



©dereksiz.org 2024
әкімшілігінің қараңыз
    Басты бет