4. Романова М.В. Управління проектами.- М .: ИНФРА-М. 2007.
25. Рад Б.Я., Цехановскій В.В.- Бази даних.- М .: Вища школа. 2005.
26. Тейксейра С.Т. DELPHI 5. Керівництво розробника.- М .: Вільямс, 2000.
27. Тіорі Т., Фрай Дж. Проектування структур баз даних: У 2-х кн. Пер. з англ.- М .: Світ, 1985.
. Угринович Н. Інформатика та інформаційні технології. Набір базових знань.- М .: Радио и связь, 2000.
. Фаронов В.В. Програмування баз даних в Delphi 7: Навчальний курс.- СПб .: Питер, 2004.
. Харитонова І.А. Міхєєва В.Д. Microsoft Access 2000. - СПб .: БХВ - Санкт-Петербург, 1999.
. Харрінгтон Дж. Проектування реляційних баз даних.- М .: ЛОРІ, 2000.
. Шумаков В.П. Delphi 3 і створення додатків баз даних.- М .: Нолидж, 1998.
. Шумаков П.В. Delphi 3 і розробка додатків баз даних.- М .: Нолидж, 1998.
. Ломакін В.К. Світова економіка: Підручник для вузів.- М .: Фінанси, ЮНИТИ, 2008.
Інтернет-джерела
35. # justify gt; 36. # justify gt ;. # justify gt ;. # justify gt; 39. # justify gt; Додаток
Вихідний код Delphi
unit DataModule;
, Classes, DB, ADODB;
=class (TDataModule): TADOConnection ;: TADOTable ;: TDataSource ;: TAutoIncField ;: TWideStringField ;: TWideStringField ;: TIntegerField ;: TWideStringField ;: TADOTable ;: TDataSource ;: TAutoIncField ;: TWideStringField ;: TIntegerField ;: TWideStringField ;: TADOTable ;: TDataSource ;: TAutoIncField ;: TWideStringField ;: TIntegerField ;: TDateTimeField ;: TWideStringField ;: TADOCommand ;: TADOTable ;: TDataSource ;: TAutoIncField ;: TWideStringField ;: TIntegerField ;: TDateTimeField ;: TWideStringField;:TADOQuery ;: TDataSource ;: TStringField ;: TWideStringField;
{Private declarations}
{Public declarations};
: TDM;
{$ R * .dfm}
.
unit FormInvoiceDlg ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, DataModule, ExtCtrls, DBCtrls;
=class (TForm): TDBGrid ;: TDBNavigator;
{Private declarations}
{Public declarations};
FormInvoiceDlgOpen: Boolean;
{$ R * .dfm}
FormInvoiceDlgOpen: Boolean ;: TFormInvoice;:=TFormInvoice. Create (Application);:=FormInvoice. ShowModal=mrOk ;. Free ;;
end.
FormPlanDlg ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, ExtCtrls, DBCtrls, DataModule, ComCtrls;=class (TForm): TDBGrid ;: TDBNavigator;
{Private declarations}
{Public declarations}; FormPlanDlgOpen (IsCanEdit: Boolean): Boolean;
{$ R * .dfm} FormPlanDlgOpen (IsCanEdit: Boolean): Boolean ;: TFormPlan;:=TFormPlan. Create (Application); IsCanEdit then FormPlan.DBGrid. Options:=FormPlan.DBGrid. Options + [dgEditing] FormPlan.DBGrid. Options:=FormPlan.DBGrid. Options - [dgEditing] ;. DBNavigator. Visible:=IsCanEdit;:=FormPlan. ShowModal=mrOk ;. Free ;;
.
FormProductDlg ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, DBCtrls, Grids, DBGrids, DataModule;
=class (TForm): TDBGrid ;: TDBNavigator;
{Private declarations}
{Public declarations};
FormProductDlgOpen: Boolean;
{$ R * .dfm}
FormProductDlgOpen: Boolean;
: TFormProduct;:=TFormProduct. Create (Application);:=FormProduct. ShowModal=mrOk ;. Free ;;
. FormProviderDlg;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, DBCtrls, Grids, DBGrids, DataModule;
=class (TForm): TDBGrid ;: TDBNavigator;
{Private declarations}
{Public declarations};
FormProviderDlgOpen: Boolean;
{$ R * .dfm} FormProviderDlgOpen: Boolean ;: TFormProvider;:=TFormProvider. Create (Application);:=FormProvider. ShowModal=mrOk ;. Free ;;
. Main ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, ...
