62
обеспечения «Учет платежей ПИС WebMoney».
Использование информационной системы «Управление объектами
охранной сигнализации» в ТОО «BEST SECURITI» даст возможность
сокращения числа служащих, занимающихся учетом транзакций платежей,
поступающих через ПИС WebMoney платежей за товары электронного магазина,
до одного человека. Уменьшилось количество ошибок, допускаемых при
проведении операций оперативного учета.
63
СПИСОК ЛИТЕРАТУРЫ
1. Бойко В.В., Савинков В.М. Проектирование баз данных
информационных систем. – М.: Финансы и статистика, 2012
2. Омарова Ш.Е., Муканова Ж.А. Системы баз данных – Учебно-
практическое пособие для ДО, КЭУК, г.Караганда, 2014
3. Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7.0. –
СПб.: БХВ – Петербург, 2013 г.
4. Информационные системы в экономике. Под ред. проф. В.В. Дика
Москва, Финансы и статистика, 2012
5. Омарова Ш.Е., Дрозд В.Г., Косова Е.Г. –Учебное пособие
«Проектирование баз данных».
6. Дантеманн Дж. «Программирование в среде Delphi», М., Наука, 2012
7. Бойко В.В., Савинков В.М. «Проектирование информационной базы
автоматизированной системы на основе СУБД» М.: Финансы и статистика, 2012.
8. Вермишев Ю.Х. “Основы автоматизации проектирования», М.:
Издательство Бином, 2015
9. Грого П. «Программирование на языке Delphi», М., Наука, 2014.
10. Фаронов В.В. Delphi 2007 Язык, среда, разработка приложений. –
СПб.: Санкт-Петербург, 2012.
11. Жилин Д.М. Теория систем: опыт построения курса. – КомКнига, 2013.
– С.123
12. Иванова Г.С. – «Основы безопасности баз данных и СУБД» Учебник
для вузов. – М.: Изд-во МГТУ им. Н.Э. Баумана, 2012. – С.156
13. Кулагин Д. Теория и практика построения баз данных. – Питер, 2012. –
С.206
14. Малевич Г. Информационная безопасность базы данных. – СПб. :
БХВ-Петербург, 2011. – С.199
15. Солодкин В.В. Базы данных. Теория и практика.– Высшая школа, 2012.
– С.49
64
16. Бронин Е.И. «Принципы построения и архитектура САПР», М.: Мир,
2014
17. Грого П. «Программирование на языке Delphi», М., Наука, 2014.
18. Цыбулин М.К. Базы данных. – М.: Наука, 2012. – 112 с.
19. Бобровский С. Delphi 5: учебный курс - СПб: Питер, 2014. -428с.
20. Тюкачев Н., Свиридов Ю. Delphi 5. Создание мультимедийных
приложений. Учебный курс.- СПб.: Питер, 2013.-251с.
21. Архангельский А.Я. 100 компонентов общего назначения библиотеки
Delphi 5 - М.: ЗАО «Издательство БИНОМ», 2012 .-112с.
65
ПРИЛОЖЕНИЕ А
Листинг программы
unit MainForm; // модуль главной формы
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, Grids, DBGrids, ExtCtrls, DBCtrls, Calendar,
ComCtrls, XPMan, StdCtrls, RpCon, RpConDS, RpDefine, RpRave, ExtDlgs,
Buttons,ComObj, Menus, jpeg;
type // типы обьектов, созданные конструктором форм делфи
TForm1 = class(TForm)
XPManifest1: TXPManifest;
ADOConnection1: TADOConnection;
SaveDialog1: TSaveDialog;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
MainMenu1: TMainMenu;
ADOQuery1: TADOQuery;
ADOQuery1DSDesigner: TAutoIncField;
ADOQuery1DSDesigner2: TWideStringField;
ADOQuery1DSDesigner3: TWideStringField;
66
ADOQuery1DSDesigner4: TWideStringField;
ADOQuery1DSDesigner5: TWideStringField;
ADOQuery1DSDesigner6: TDateTimeField;
ADOQuery1DSDesigner7: TFloatField;
Image1: TImage;
lbl1: TLabel;
procedure FormCreate(Sender: TObject);
procedure ADOTable1DSDesigner3SetText(Sender: TField;
const Text: String);
procedure Button3Click(Sender: TObject);
// procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
67
uses uSotrudniki, uKlienti, uTovar, uRealizacia, uTip, uStats, uAsort,
Wizard, uPost, uUpak, uSeltype;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); // при создании формы
выполнится
var
Icon: TIcon;
BMP: TBitmap;
begin
end;
procedure TForm1.ADOTable1DSDesigner3SetText(Sender: TField;
const Text: String);
var a:integer;
begin
if text='' then begin Sender.AsInteger := 1 ; exit; end;
a:= Pos(':', text) ;
if a<=0 then begin Sender.AsInteger := 1 ; exit; end
else
Sender.AsInteger:=StrToInt( Copy(text,1, a-1) );
//перечитать таблицу
68
end;
unit uAsort; // ассортимент
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBAdvNavigator, Grids, DBGrids, StdCtrls,
DBCtrls, ExtDlgs, Buttons,ComObj, ADOInt, ActiveX,DBTables,Jpeg, Mask;
type
TForm9 = class(TForm)
Label1: TLabel;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TIntegerField;
Panel1: TPanel;
ADOTable1DSDesigner5: TBlobField;
ADOTable1DSDesigner6: TBlobField;
ADOTable1DSDesigner7: TIntegerField;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
pre: TADOTable;
69
AutoIncField1: TAutoIncField;
WideStringField1: TWideStringField;
WideStringField2: TWideStringField;
IntegerField1: TIntegerField;
BlobField1: TBlobField;
BlobField2: TBlobField;
IntegerField2: TIntegerField;
DataSource2: TDataSource;
post: TADOTable;
AutoIncField2: TAutoIncField;
WideStringField3: TWideStringField;
WideStringField4: TWideStringField;
IntegerField3: TIntegerField;
BlobField3: TBlobField;
BlobField4: TBlobField;
IntegerField4: TIntegerField;
DataSource3: TDataSource;
Label3: TLabel;
GroupBox1: TGroupBox;
DBImage4: TDBImage;
BitBtn5: TBitBtn;
GroupBox2: TGroupBox;
BitBtn4: TBitBtn;
DBImage3: TDBImage;
BitBtn3: TBitBtn;
DBImage1: TDBImage;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
DBImage2: TDBImage;
Label2: TLabel;
70
Panel2: TPanel;
Label4: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label6: TLabel;
BitBtn6: TBitBtn;
ADOTable1DSDesigner8: TIntegerField;
ADOTable1DSDesigner9: TIntegerField;
Label7: TLabel;
DBEdit2: TDBEdit;
ADOTable1DSDesigner10: TIntegerField;
DBEdit3: TDBEdit;
Label9: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure ADOTable1MoveComplete(DataSet: TCustomADODataSet;
const Reason: TEventReason; const Error: Error;
var EventStatus: TEventStatus);
procedure BitBtn3;
procedure BitBtn2;
procedure BitBtn4;
procedure BitBtn5;
procedure BitBtn6;
procedure ADOTable1BeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
71
Form9: TForm9;
implementation
uses uTip;
{$R *.dfm}
procedure TForm9.BitBtn1Click(Sender: TObject);
begin
if SavePictureDialog1.Execute then
begin
DBImage1.Picture.SaveToFile(SavePictureDialog1.FileName+'.bmp');
end;
end;
function CopyRecordSet(RecordSet: _RecordSet): _RecordSet;
var
adoStream: OleVariant;
begin
adoStream := CreateOLEObject('ADODB.Stream');
Variant(RecordSet).Save(adoStream, adPersistADTG);
Result := CreateOLEObject('ADODB.RecordSet') as _RecordSet;
Result.CursorLocation := adUseClient;
Result.Open(adoStream, EmptyParam, adOpenStatic, adLockOptimistic,
adOptionUnspecified);
adoStream := UnAssigned;
end;
procedure TForm9.DataSource1DataChange(Sender: TObject; Field: TField);