r />
1.Фленов М.Є. Біблія Delphi: 2004. - 668с.
.Петров В.Н. Інформаційні системи.- СПб .: Питер, +2008.
.Фаронов В.В. Програмування баз даних в Delphi 7: Навчальний курс.- СПб .: Питер, 2004 - 464 с.
.Карпова Т.С. Бази даних: моделі, розробка, реалізація.- СПб .: Питер, 2005. - 304с.
.Ульман Дж., Уідом Дж. Введення в системи баз даних.- М .: Лорі, 2006. - 374с.
.Карпова Т.С. Бази даних: моделі, розробка.- СПб .: Питер, 2009, 304 с.
Додаток
Лістинг коду головної форми проекту:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj, ComCtrls;
type=class (TForm): TDBGrid ;: TDBNavigator ;: TDBGrid ;: TDBNavigator ;: TDBGrid ;: TDBNavigator ;: TGroupBox ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel;:TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TGroupBox ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TBitBtn ;: TBitBtn ;: TDateTimePicker ;: TRadioButton ;: TRadioButton ;: TRadioButton ;: TButton; DBGrid1CellClick (Column: TColumn); BitBtn1Click (Sender: TObject); RadioButton3Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;: string;: boolean ;: integer; LAV, Modul1;
{$ R * .dfm} TForm1.DBGrid1CellClick (Column: TColumn) ;. Text:=Ligidov.Tovar.FieldByName ( Cena ). AsString ;; TForm1.BitBtn1Click (Sender: TObject ) ;: string;: string;: string;
//stoim, naz, nar: string; .GurOper1.Insert; .GurOper1.FieldByName ( Debet ). AsString:=Edit3.Text; .GurOper1.FieldByName ( Kredit ) .AsString:=Edit4.Text;.GurOper1.FieldByName(laquo;DatOperraquo;).AsString:=DateToStr(DateTimePicker1.Date);.GurOper1.FieldByName(laquo;KodKassiraraquo;).AsString:=Ligidov.Kassir.FieldByName(laquo;KodKassiraraquo;).AsString;.GurOper1.FieldByName(laquo;Kolicraquo;).AsString:=Edit2.Text;:=CalKuljator(Edit1.Text,Edit2.Text,laquo;*raquo;,2);:=ZnakZamena(a0,laquo;.raquo;,laquo;,raquo;);.GurOper1.FieldByName(laquo;summaraquo;).AsString:=a0;.Text:=a0;radiobutton1.Checked then.Text:=a0; .Text:=inttostr (0);:= продаж raquo;;:=a1+Ligidov.Tovar.FieldByName(laquo;Tovarraquo;).AsString;.GurOper1.FieldByName(laquo;Operacraquo;).AsString:=a2;;radiobutton2.Checked then.Text:=inttostr (0) ;. Text:=a0;:= повернення raquo;;:=a1+Ligidov.Tovar.FieldByName(laquo;Tovarraquo;).AsString;.GurOper1.FieldByName(laquo;Operacraquo;).AsString:=a2;;radiobutton3.Checked then:=edit6.text; .GurOper1.FieldByName ( Operac ). AsString:=a2 ;; radiobutton4.Checked then.Text:=inttostr(0);.Text:=a0;:=laquo;Окладraquo;;:=a1+Ligidov.Kassir.FieldByName(laquo;FIOraquo;).AsString;.GurOper1.FieldByName(laquo;Operacraquo;).AsString:=a2;;radiobutton5.Checked then.Text:=inttostr (0) ;. Text:=a0;
a1:= налічка в Банк raquo ;;:=a1;
Ligidov.GurOper1.FieldByName ( Operac ). AsString:=a2 ;; radiobutton6.Checked then.Text:=a0; .Text:=inttostr (0);:= погасили долгraquo;;:=a1;.GurOper1.FieldByName(laquo;Operacraquo;).AsString:=a2;;.GurOper1.FieldByName(laquo;DebetSraquo;).AsString:= Edit7.Text; .GurOper1.FieldByName ( KreditS ). AsString:=Edit8.Text; .GurOper1.Post ;; TForm1.RadioButton3Click (Sender: TObject) ;. Text:= raquo ;;; TForm1.Button2Click (Sender: TObject) ;, dat1, dat2, G0, s0, k0, kodW, KodPr, a0, a01, a1, a2: string;, Gir1, SGir1, sum0, kol0, Sum1, kol1, Ssum1, Skol1: real; , n2, i1, i, s1, s2, s3: integer;, Sheet, Colum: Variant;, skolk1, skold2, skolk2, skold3, skolk3, kold1, kolk1, kold2, kolk2, kold3, kolk3,, sd1, k1, sk1, sk2, d2, k2, sd2, d3, sd3, k3, sk3: real; Ligidov do begin
//KodPr1:=Kassir.fieldbyname(laquo;KodKassiraraquo;).AsString;:=laquo;01.01.2000raquo;;:=DateToStr(DateTimePicker1.Date);:=a0;
//a01:=DateToStr (DateTimePicker2.Date);
//dat2:=a01;:=CreateOleObject ( Excel.Application ) ;. Visible:=true; .Workbooks.Add (- 4167);.Workbooks[1].WorkSheets[1].Name:=laquo;Обороткаraquo;;:=XLApp.Workbooks[1].WorkSheets[laquo;Обороткаraquo;].Columns;:=1;.Columns[1].ColumnWidth:=5;.Columns[2].ColumnWidth:=30;.Columns[3].ColumnWidth:=10;.Columns[4].ColumnWidth:=15;.Columns[5].ColumnWidth:=10;.Columns[6].ColumnWidth:=15;.Columns[7].ColumnWidth:=10;.Columns[8].ColumnWidth:=10;:=XLApp.Workbooks[1].WorkSheets[laquo;Обороткаraquo;].Rows;.Rows[2].Font.Bold:=true;.Rows[1].Font.Bold:=true;.Rows[1].Font.Color:=clBlue;.Rows[1].Font.Size:=12;:=XLApp.Workbooks[1].WorkSheets[laquo;Обороткаraquo;];
//n2:=0; .Cells [n2,1]:= Журнал операцій за + a0 + + + Kassir.fieldbyname ( FIO ). AsString;
