й А.Я. Програмування в Delphi.- М .: ТОВ «Біном-Пресс», 2004. - 1 152 с .: Іл.
Хоменко А.Д. Delphi 7. - СПб .: БХВ Петербург, 2008. - 1 216 с .: іл.
Виханский О.С., Наумов А.І., Менеджмент.- Москва, 1998р.- 528 c.
Иванцевич Дж., Лобанов А.А., Людські ресурси управління.- Москва, 1993р.- 120 с.
Д. Сульє, Управление.- Київ, 1992р.
Структури даних и алгоритм - базові компоненти програми.- Режим доступу: # justify gt; ДОДАТОК А
Текст програмного забезпечення
А.1 Лістінг форми редактора БД програмного продуктуTextRedactor ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, ComCtrls, Menus, StdCtrls, ExtCtrls, Mask ,, Jpeg , Printers;=class (TForm) _s: TPageControl ;: TTabSheet ;: TDBGrid ;: TTabSheet ;: TTabSheet ;: TDBGrid ;:TDBGrid ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TGroupBox ;: TLabel ;: TButton ;: TMaskEdit ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton;:TButton ;: TButton ;: TButton ;: TButton ;: TTabSheet ;: TMemo ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TPanel ;: TImage ;: TButton ;: TButton ;: TButton ;: TButton ;: TOpenDialog ;: TSaveDialog ;: TOpenPictureDialog ;: TSavePictureDialog ;: TFontDialog ;: TColorDialog ;: TPrintDialog ;: TPrinterSetupDialog ;: TFindDialog ;: TReplaceDialog ;: TButton ;: TButton; RadioGroup2Click (Sender: TObject); RadioGroup3Click (Sender: TObject); RadioGroup6Click (Sender: TObject); Button1Click (Sender: TObject); Button4Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject ); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button11Click (Sender: TObject); Button22Click (Sender: TObject) ; Button25Click (Sender: TObject); Button12Click (Sender: TObject); Button24Click (Sender: TObject); Button15Click (Sender: TObject); Button16Click (Sender: TObject); Button23Click (Sender: TObject); Button17Click (Sender: TObject); Button13Click (Sender: TObject); Button14Click (Sender: TObject); Button20Click (Sender: TObject); Button18Click (Sender: TObject); Button19Click (Sender: TObject); FormCreate (Sender: TObject); ReplaceDialog1Replace (Sender: TObject); FindDialog1Find (Sender: TObject); ReplaceDialog1Find (Sender: TObject); Button26Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations} ;: TForm1 ;: string; UnitDM, Redactor, RedactorK, RedactorS;
{$ R * .dfm} TForm1.RadioGroup2Click (Sender: TObject); nss: string; RadioGroup1.ItemIndex of
: nss:= ASC raquo ;;
: nss:= DESC raquo ;;; RadioGroup2 do.ADOTable1.Sort:=Items [ItemIndex] + nss ;; TForm1.RadioGroup3Click (Sender: TObject); nsk: string; RadioGroup4.ItemIndex of
: nsk:= ASC raquo ;;
: nsk:= DESC raquo ;;; RadioGroup3 do.ADOTable2.Sort:=Items [ItemIndex] + nsk ;; TForm1.RadioGroup6Click (Sender: TObject); nsp: string; RadioGroup5.ItemIndex of
: nsp:= ASC raquo ;;
: nsp:= DESC raquo ;;; RadioGroup6 do.ADOTable3.Sort:=Items [ItemIndex] + nsp ;; TForm1.Button1Click (Sender: TObject); DM.ADOTable3 do:= [Дата виконан] gt;= + MaskEdit1.Text ;:=True ;;; TForm1.Button4Click (Sender: TObject) ;. ShowModal ;; TForm1.Button2Click (Sender: TObject) ;. ADOTable3.Insert; .ShowModal ;; TForm1.Button3Click (Sender: TObject); MessageBox (0 , PChar ( ВИДАЛИТИ записів: + DM.ADOTable3DSDesigner.AsString
+ ? ), Ві впевнені? raquo ;, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2)=id_yesDM.ADOTable3.Delete ;; TForm1.Button5Click (Sender: TObject) ;. ADOTable2. Insert; .ShowModal ;; TForm1.Button6Click (Sender: TObject); MessageBox (0, PChar ( ВИДАЛИТИ записів: + DM.ADOTable2DSDesigner.AsString
+ ? ), Ві впевнені? raquo ;, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2)=id_yesDM.ADOTable2.Delete ;; TForm1.Button7Click (Sender: TObject) ;. ShowModal; ; TForm1.Button8Click (Sender: TObject) ;. ADOTable1.Insert; .ShowModal ;; TForm1.Button9Click (Sender: TObject); MessageBox (0, PChar ( ВИДАЛИТИ записів: + DM.ADOTable1DSDesigner.AsString
+ ? ), Ві впевнені? raquo ;, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2)=id_yesDM.ADOTable1.Delete ;; TForm1.Button10Click (Sender: TObject) ;. ShowModal; ; TForm1.Button11Click (Sender: TObject) ;;; TForm1.Button22Click (Sender: TObject);.Lines.Clear;.Font.Size:=8;.Font.Color:=clWindowTex...
