евич Ю.Б. MSAccess 2000 за 30 занять: практ. Посібник. - СПб.: БХВ - Петербург, 2000. - 492 с.
2. Фленов М.Є. Біблія Delphi. - СПб.: БХВ - Петербург, 2004. - 880с.
. Хомоненко А.Д. та ін Delphi 7. - СПб.: БХВ - Петербург, 2008. - 1216 с.: Іл.
. Корняков В.М. Програмування документів і додатків MSOffice в Delphi. - СПб.: БХВ - Петербург, 2005. - 496с.: Іл.
. ГрібачевК.Г. Delphi і Model Driven Architecture. Разработак додатків БД. - СПб.: Пітер, 2004. - 348с.: Іл.
Програми
Додаток 1
Керівництво користувача
Після запуску програми необхідно вибрати свою посаду, логін зі списків і ввести пароль:
В
Далі, в залежності від вашої посади, відкривається вікно програми:
В
або
В
У вікні Керівника ліворуч відображаються документи: прийняті (нові вхідні) і затверджені (ті документи, які вже були переглянуті, затверджені або відхилені). При подвійному натисканні миші у полі, де відображається інформація про документ, відкриється вікно, де можна переглянути текст документа, інформацію про нього, а також затвердити або відхилити документ. br/>В
У вікні Секретаря є таблиця, в якій відображаються документи, створені даними секретарем. Клацнувши правою кнопкою миші в цьому полі, можна переглянути рекомендації керівників до виправлення документів. br/>В
Додаток 2
Текст основних програмних модулейAuthorization;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, XPMan; = class (TForm): TLabel;: TLabel;: TLabel ;: TComboBox;: TComboBox;: TEdit;: TCheckBox;: TButton;: TButton;: TADOConnection;: TADOQuery;: TXPManifest; (Sender: TObject); Button1Click (Sender: TObject); (Sender: TObject); (Sender: TObject); Button2Click (Sender: TObject); (Sender: TObject);
{Private declarations}: integer;
{Public declarations};: TAuthForm;, MainSek, ChangePassword;
{$ R *. dfm}. SavePasChBoxClick (Sender: TObject); (SavePasChBox. Checked = True) then. PasswordChar: = # 0. PasswordChar: = '*';; TAuthForm. Button1Click (Sender: TObject);, Password: string;. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: = 'p';. Parameters [0]. Value: = KeyUser;. SQL. Add ('Select * From Users Where id_user =: p');. Open;: = AdoQuery1 ['Password']; (PassEdit. Text = Password) thenstatCmb. Text = 'Керівник' then. CreateForm (TMainFormR...
