ign="justify">. Мейер Д. Теорія реляційних баз даних raquo ;, М., Світ raquo ;, 1987.
. Орлов С.А. Технології розробки програмного забезпечення.- СПб .: Питер, 2007. - 464 с.
. Пестриков В.М., Маслобоєв А.Н. Delphi на прикладах.- СПб .: БХВ-Петербург, 2005. - 496 с .: ил.
. Рапаков Г.Г., Ржеуцкая С.Ю. Turbo Pascal для студентів і школярів.- СПб .: БХВ-Петербург, 2002. - 352 с .: ил.
. Сухарєв М.В. Основи Delphi. Професійний підхід - СПб .: Наука і Техніка, 2004. - 600 с .: ил.
. Шаймарданов Р.Б. Моделювання та автоматизація проектування структур БД. raquo ;, М., Радіо і зв'язок raquo ;, 2005р.
. Проектування користувальницького інтерфейсу на персональних комп'ютерах. Стандарт фірми IBM.- М .: Видавництво Лев raquo ;, 2006. - 186 с.
. Інтернет ресурс # justify gt ;. Інтернет ресурс # justify gt ;. Інтернет ресурс # justify gt ;. Мейер Д. Теорія реляційних баз даних raquo ;, М., Світ raquo ;, 2006.
. Орлов С.А. Технології розробки програмного забезпечення.- СПб .: Питер, 2007. - 464 с.
. Пестриков В.М., Маслобоєв А.Н. Delphi на прикладах.- СПб .: БХВ-Петербург, 2005. - 496 с .: ил.
. Рапаков Г.Г., Ржеуцкая С.Ю. Turbo Pascal для студентів і школярів.- СПб .: БХВ-Петербург, 2002. - 352 с .: ил.
. Сухарєв М.В. Основи Delphi. Професійний підхід - СПб .: Наука і Техніка, 2004. - 600 с .: ил.
. Шаймарданов Р.Б. Моделювання та автоматизація проектування структур БД. raquo ;, М., Радіо і зв'язок raquo ;, 2005р.
. Проектування користувальницького інтерфейсу на персональних комп'ютерах. Стандарт фірми IBM.- М .: Видавництво Лев raquo ;, 2006. - 186 с.
. Інтернет ресурс # justify gt ;. Інтернет ресурс # justify gt ;. Інтернет ресурс # justify gt; ДОДАТКИ А
Лістинг головного модуля АРМ «Касир» MainForm; TfmMain.Reports; BtnYes=TruebeginReport of
: begin (False) ;. Password:=StrToInt (AdminPassw); ECR.PrintReportWithoutCleaning=0 ThenfmMain.paResultCode.Caption:=IntToStr (ECR.resultCode) + laquo ;: + ECR. ResultCodeDescription; (True) ;;;
: begin (False) ;. Password:=StrToInt (AdminPassw); ECR.PrintReportWithCleaning=0 Then fmPayAdd.ShowModalfmMain.paResultCode.Caption:=IntToStr (ECR.resultCode) + laquo ;: raquo;+ECR.ResultCodeDescription;(True);;;;;;TfmMain.WinShowing;PasswOKlt;2begin.ActivePage:=laquo;Loginraquo;;;PasswOK=2begin.ActivePage:=laquo;Workraquo;;CurrentUser=Adminbegin.Visible:=True;.Checked:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Visible:=True;.SetFocus;begin.Visible:=True;.SetFocus;;;;TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean) ;. ShowModal; Report lt; gt; 0begin.ShowModal; begin:=False ;;;; TfmMain.FormClose (Sender: TObject; var Action: TCloseAction); Report lt; gt; 0 then AppExit ;; TfmMain. buF9Click (Sender: TObject);:=1; .ShowModal; BtnYes=Truebegin
//Комманда X-звіт ;;; TfmMain.buF10Click (Sender: TObject);:=2; .ShowModal; BtnYes=Truebegin
//Комманда Z-звіт ;;; TfmMain.buF2Click (Sender: TObject); n: Integer; (False) ;. Password:=StrToInt (CurrentPassw) ;. ShowProperties; n:=0 to ComboBox1.Items.Count - 1 DoECR.ComNumber=StrToInt (copy (ComboBox1.Items [n], 4,255)) Then Begin.ItemIndex:=n ;;;. ItemIndex:=ECR.Baudrate; .Value:=ECR. Timeout; Integer (ECR.UModel) of
: Size:=36;
: Size:=40;
: Size:=24;
: Size:=20;
: Size:=36; Size:=40 ;; (True) ;;; TfmMain.FormCreate (Sender: TObject);;:=Date();:=800;:=600;.Caption:=IntToStr(WorkPC);.Caption:=DateToStr(WorkDate);.ActivePage:=laquo;Loginraquo;;.ADOConnection.Connected:=True;.taPayType.Filter:=laquo;org=raquo;+IntToStr(vOrg);.taPayment.Filter := PayDate= + DateToStr (WorkDate) + laquo;raquo;laquo;raquo;;.taPayment.Filtered:=True;.taPayType.Active:=True;.taPayment.Active:=True;.quDOLG_m.Active:=True;.DropDownBox.Rows:=DM.taPayType.RecordCount;;.ItemIndex:=0;.ItemIndex:=0;:= Caption + + GetFileVersionInfoStr ;;; TfmMain.buF3Click (Sender: TObject);.Enabled:=False;.Enabled:=False;.Clear;(False);.Password:=StrToInt(CurrentPassw);ECR.GetECRStatus=0 Then Begin.Caption:=CurrentUser; Memo1.Lines Do Begin ( ПО ФР: ); (# 9 Версія: + ECR.ECRSoftVersion); (# 9 Складання: + IntToStr (ECR. ECRBuild)); (# 9 Дата: + DateToStr (ECR.ECRSoftDate)); ( ПО ФП: ); (# 9 Версія: + ECR.FMSoftVersion); (# 9 Збірка: + IntToStr (ECR.FMBuild)); (# 9 Дата: + DateToStr (ECR.FMSoftDate)); ( Прапори ФР: lt; + IntToSt...
