прикладних областей) для учнів старших класів шкіл вивчають Delphi на уроках інформатики.
Інформаційна система значно зменшує витрати часу на складання поточної документації та підсумкових звітів, виключає можливість помилок у розрахунках, може використовуватися в різних масштабах, тобто може працювати з величезною кількістю даних, не вимагає перепрограмування при зміні моделей устаткування, характеристиках, ціни і т.п.
Таким чином, завдання на курсовий проект виконано в повному обсязі. Розроблена інформаційна система повністю задовольнила вимогам замовника та знаходиться на стадії впровадження.
Список використаної літератури
1.Шумаков П.В. Delphi 7 і розробка додатків баз даних. - М .: Нолидж raquo ;, 2007;
2. # justify gt; Додаток А
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Menus, ImgList, StdCtrls, DBCtrls, Mask, Buttons; type TForm1=class (TForm) DBGrid1: TDBGrid; MainMenu1: TMainMenu; ImageList1: TImageList; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N4: TMenuItem; DBGrid2: TDBGrid; Edit1: TEdit; Label1: TLabel; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; GroupBox1: TGroupBox; N18: TMenuItem; Label2: TLabel; Label3: TLabel; DBEdit2: TDBEdit; Label4: TLabel; DBEdit3: TDBEdit; Label5: TLabel; DBEdit4: TDBEdit; Label6: TLabel; DBEdit5: TDBEdit; DBLookupComboBox1: TDBLookupComboBox; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label7: TLabel; Edit2: TEdit; BitBtn3: TBitBtn; Label8: TLabel; DBEdit1: TDBEdit; Label9: TLabel; DBEdit6: TDBEdit; Label10: TLabel; procedure FormClose (Sender: TObject; var Action: TCloseAction); procedure N4Click (Sender: TObject); procedure N5Click (Sender: TObject); procedure N8Click (Sender: TObject); procedure N9Click (Sender: TObject); procedure Edit1Change (Sender: TObject); procedure N7Click (Sender: TObject); procedure N13Click (Sender: TObject); procedure N14Click (Sender: TObject); procedure N11Click (Sender: TObject); procedure N16Click (Sender: TObject); procedure N18Click (Sender: TObject); procedure BitBtn1Click (Sender: TObject); procedure BitBtn2Click (Sender: TObject); procedure BitBtn3Click (Sender: TObject); procedure DBLookupComboBox1Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form1: TForm1; implementation uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10; {$ R * .dfm} procedure TForm1.FormClose (Sender: TObject; var Action: TCloseAction); begin if DataModule2.ADOTable1.Modified then DataModule2.ADOTable1.Post; if DataModule2.ADOTable2.Modified then DataModule2.ADOTable2.Post; end; procedure TForm1.N4Click (Sender: TObject); begin DataModule2.ADOTable1.Insert; DataModule2.ADOTable2.Insert; Form3.ShowModal; end; procedure TForm1.N5Click (Sender: TObject); begin Form3.ShowModal; end; procedure TForm1.N8Click (Sender: TObject); begin DataModule2.ADOTable1.IndexFieldNames:= Назва raquo ;; end; procedure TForm1.N9Click (Sender: TObject); begin DataModule2.ADOTable1.IndexFieldNames:= Ціна raquo ;; end; procedure TForm1.Edit1Change (Sender: TObject); begin if Length (Edit1.Text) gt; 0 then DataModule2.ADOTable1.Filtered:=true else DataModule2.ADOTable1.Filtered:=false; DataModule2.ADOTable1.Filter:=laquo;Названиеgt;raquo;laquo;raquo;+Edit1.Text+laquo;raquo;laquo;raquo;; end; procedure TForm1.N7Click (Sender: TObject); begin Form4.Show; end; procedure TForm1.N13Click (Sender: TObject); begin Form6.Show; end; procedure TForm1.N14Click (Sender: TObject); begin Form7.Show; end; procedure TForm1.N11Click (Sender: TObject); begin Form1.Close; end; procedure TForm1.N16Click (Sender: TObject); begin Form8.Show; end; procedure TForm1.N18Click (Sender: TObject); begin Form9.Show; end; procedure TForm1.BitBtn1Click (Sender: TObject); begin DataModule2.ADOTable6.Post; DataModule2.ADOQuery2.Active:=false; DataModule2.ADOQuery2.SQL.Clear; DataModule2.ADOQuery2.SQL.Add ( UPDATE Склад ); DataModule2.ADOQuery2.SQL.Add ( SET Склад. [Кількість на складі]=Склад. [Кількість на складі] - + DBEdit4.Text + ); DataModule2.ADOQuery2.SQL.Add ( WHERE Склад. [Код] LIKE + DBEdit1.Text + ); DataModule2.ADOQuery2.ExecSQL; DataModule2.ADOTable2.Refresh; DataModule2.ADOTable6.Refresh; end; procedure TForm1.BitBtn2Click (Sender: TObject); begin DataModule2.ADOTable6.Insert; end; procedure TForm1.BitBtn3Click (Sender: TObject); begin DataModule2.ADOQuery1.Active:=false; DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add ( Select Постачальники. [Код постачальника], Ліки. [Назва], Склад. [Кільк...
