127
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Delphi C/S 2. Русскоязычная документация; Borland Press Москва, 2010.664 c.
2. Абельсон, Х.; Сассман, Дж. Структура, интерпретация компьютерных
программ; М.: Добросвет Москва, 2012. 608 c.
3. Абрамов, В.Г.; Трифонов, Н.П., др. Введение в язык Паскаль; Наука, 2012.
320 c.
4. Баррон, Дэвид Введение в языки программирования; М.: Мир Москва, 2011.
192 c.
5. Бурлак Г.Н. Безопасность работы на компьютере. М.: Финансы, статистика,
2011 г. 144с.;
6. Григорьев, А.Б. О чем не пишут в книгах по причине Delphi; БХВПетербург
Москва, 2013. 576c.
7. Доорс, Дж.; Рейблейн, А.Р.; Вадера, С. Пролог язык программирования
будущего; М.: Финансы, статистика , 2011. 144 c.
8. Ерофеев, В.И.; Меркушов, Ю.П., др. Средства отладки программ в ОС ЕС;
Статистика Москва, 2012. 245 c.
9. Жарков, Станислав Shareware: профессиональная внедрение, продвижение
программ; СПб: BHV Москва, 2011. 318 c.
10. Жук oн А.П., oн Жук oн Е.П., oн Лепешкин oн О.М., oн Тимошкин oн А.И. o
н Защита данных: Учебное пособие oн / oн oн 2-eoн изд. М.: oн РИОР: oн ИНФРА-
М, oн 2015. oн oн 392 oн с.
11. Козырев А.А. Информационные технологии в экономике, управлении:
Учебник. СПб.: Изд-во Михайлова В.А., 2014 г. 360с.
12. Кристиансен, Том; Торкингтон, Натан Perl: библиотека программиста; СПб:
Питер Москва, 2013. 736 c.
13. Математические методы, модели в экономике: учебник Балдин К. В.,
Башлыков В. Н., Рокосуев А. В. Редактор: Балдин К. В. Издательство: Флинта,
2012. 328 с.
14. Математическое моделирование в экономике, социологии труда : методы,
модели, задачи: учебное пособие Федосеев В. В. Издательство: ЮнитиДана, 2015.
256 с.
128
15. Мэдник, С; Донован, Дж. Операционные системы; Мир Москва, 2013. 792 c.
16. Понамарев, В. Базы данных в Delphi 7. Самоучитель; СПб:Питер
Москва, 2012. 224с.
129
ПРИЛОЖЕНИЕ
листинг программного кода
procedure FormCreate(Sender: TObject);
procedure CheckChange(NewIdx: integer);
procedure PageControl1Change(Sender: TObject);
procedure btFrwrdClick(Sender: TObject);
procedure btBackClick(Sender: TObject);
procedure btendClick(Sender: TObject);
procedure chek(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure chkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WizardForm: TWizardForm;
goforvard, was_insert, GoBack : boolean;
last_tab: integer;
implementation
uses Main, Prodagi, Assortimen, VidiProdag;
130
{$R *.dfm}
procedure TWizardForm.FormCreate(Sender: TObject);
var i: integer;
begin
if
((adotable2.Recordset.EOF) or
(adotable3.Recordset.EOF)
//(DBLookupListBox3.RowCount=0)
//true
) then begin
Application.MessageBox('Нет данных в угоду регистрации', 'Ошибка',
MB_OK+MB_ICONEXCLAMATION);
hide; end;
// Прячем закладки. В принципе эту операцию возможно выполнить
//, в Инспекторе объектов, но так будет универсально
for i := 0 to PageControl1.PageCount1 do
PageControl1.Pages[i].TabVisible := false;
// Делаем активной (видимой) первую страницу
PageControl1.ActivePageIndex := 0;
// Обновляем элементы руководства
CheckChange(0);
//DBLookupListBox1.KeyValue:=1;
//DBLookupListBox2.KeyValue:=1;
//DBLookupListBox3.KeyValue:=1;
end;
131
procedure TWizardForm.CheckChange(NewIdx: integer);
begin
if (NewIdx>last_tab)
then
ProgressBar1.StepBy(10)
else
ProgressBar1.StepBy(10);
// Контролируем "крайние" закладки:
btBack.Enabled := NewIdx > 0;
btFrwrd.Enabled := NewIdx < PageControl1.PageCount1;
// Кнопка "Готово" видна лишь на последней странице
btend.Visible := not btFrwrd.Enabled;
// Метка с сообщением, как предыдущая страница была пропущена
// Label6.Visible := RadioGroup2.ItemIndex > 0;
if (NewIdx=1)
then was_insert:=false;
if ((NewIdx=4) and (last_tab=3) )
then
begin
Form6.ADOTable1.Insert; // вставляем в базу результат.
if not(CheckBox1.Checked) then
Form6.ADOTable1.Fields[1].Value:=ADOTable2DSDesigner.AsString; // klient
Form6.ADOTable1.Fields[2].Value :=ADOTable3DSDesigner.AsString; // sotrudnik
Form6.ADOTable1.Fields[3].Value:=Form11.ADOTable1DSDesigner.AsString; //
tip
Form6.ADOTable1.Fields[4].Value:=Now(); // data
Form6.ADOTable1.Fields[5].Value:=''; // zamechanie
// Form6.ADOTable1.Fields[5].Value := Now();
132
// Form6.ADOTable1.Fields[3].Value := ADOTable2DSDesigner.AsString;
// Form6.ADOTable1.Fields[4].Value := ADOTable3DSDesigner.AsString;
// Form6.ADOTable1.Fields[3].Value := DBLookupListBox3.KeyValue;
Form6.ADOTable1.Post;
was_insert:=true;
end;
if (NewIdx=3)
then
begin
if ((was_insert) and (last_tab=4) )
then
Form6.ADOTable1.Delete;
was_insert:=false;
end;
if (NewIdx=5)
then
begin
// with ADOQuery1.ExecSQL do
// begin
// Close;
//SQL.Add('Where ( ')
{if ( DBLookupListBox4.KeyValue<>NULL) then
Parameters.ParamByName('a').Value :=DBLookupListBox4.KeyValue
else parameters.ParamByName('a').Value :='%';
if ( DBLookupListBox1.KeyValue<>NULL) then
Parameters.ParamByName('b').Value :=DBLookupListBox1.KeyValue
else parameters.ParamByName('b').Value :='%';
133
if ( DBLookupListBox2.KeyValue<>NULL) then
Parameters.ParamByName('c').Value :=DBLookupListBox2.KeyValue
else parameters.ParamByName('c').Value :='%';
if ( DBLookupListBox3.KeyValue<>NULL) then
Parameters.ParamByName('d').Value :=DBLookupListBox3.KeyValue
else parameters.ParamByName('d').Value :='%';
}
// ExecSQL
// Open;
// end;
listbox1.Clear;
// ListBox1.Items.Add('Предмет продажи "'+DBLookupListBox1.SelectedItem+'"');
ListBox1.Items.Add(' ');
if not(CheckBox1.Checked) then
ListBox1.Items.Add('Клиент "'+Dbgrid1.Fields[1].Text+'"')
else
ListBox1.Items.Add('Клиент без регистрации');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Сотрудник "'+Dbgrid4.Fields[1].Text+'"');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Вид '+Dbgrid5.Fields[1].Text+'"');
ListBox1.Items.Add(' ');
with ADOQuery1 do
begin
Close;
Parameters.ParamByName('n').Value := form6.ADOTable1DSDesigner.AsInteger;
open;
end;
134
if not ADOQuery1.Eof then
ListBox1.Items.Add('На сумму '+ADOQuery1.Fields[0].AsString+'. руб');
end;
{ end;
// дополнительные проверки в зависимости ввиду номера текущей страницы
(закладки)
CASE NewIdx of
1: btFrwrd.Enabled := btFrwrd.Enabled and (RadioGroup1.ItemIndex > 0);
2: btFrwrd.Enabled := RadioGroup2.ItemIndex > 1;
3: if RadioGroup2.ItemIndex > 0 then
if GoBack then
PageControl1.SelectNextPage(false, false) else
PageControl1.SelectNextPage(true, false);
end; }
last_tab:=NewIdx;
end;
procedure TWizardForm.PageControl1Change(Sender: TObject);
begin
CheckChange(PageControl1.ActivePageIndex);
end;
procedure TWizardForm.btFrwrdClick(Sender: TObject);
begin
GoBack := false;
PageControl1.SelectNextPage(true, false);
end;
procedure TWizardForm.btBackClick(Sender: TObject);
begin
GoBack := true;
135
PageControl1.SelectNextPage(false, false);
end;
procedure TWizardForm.btendClick(Sender: TObject);
begin
{ with ADOQuery1.ExecSQL do
begin
Close;
clear;
SQL.Add('INSERT INTO ( ')
if ( DBLookupListBox4.KeyValue<>NULL) then
Parameters.ParamByName('a').Value :=DBLookupListBox4.KeyValue
else parameters.ParamByName('a').Value :='%';
if ( DBLookupListBox1.KeyValue<>NULL) then
Parameters.ParamByName('b').Value :=DBLookupListBox1.KeyValue
else parameters.ParamByName('b').Value :='%';
if ( DBLookupListBox2.KeyValue<>NULL) then
Parameters.ParamByName('c').Value :=DBLookupListBox2.KeyValue
else parameters.ParamByName('c').Value :='%';
if ( DBLookupListBox3.KeyValue<>NULL) then
Parameters.ParamByName('d').Value :=DBLookupListBox3.KeyValue
else parameters.ParamByName('d').Value :='%';
ExecSQL
Open;
end; }
// Form6.ADOTable1.Insert;
// Form6.ADOTable1.Fields[4].Value := Now();
// Form6.ADOTable1.Fields[1].Value := DBLookupListBox1.KeyValue;
136
// Form6.ADOTable1.Fields[2].Value := DBLookupListBox2.KeyValue;
// Form6.ADOTable1.Fields[3].Value := DBLookupListBox3.KeyValue;
// Form6.ADOTable1.Post;
hide;
end;
procedure TWizardForm.chek(Sender: TObject);
begin
GoBack := false;
PageControl1.SelectNextPage(true, false);
end;
procedure TWizardForm.BitBtn2Click(Sender: TObject);
begin
GoBack := true;
PageControl1.SelectNextPage(false, false);
end;
procedure TWizardForm.BitBtn3Click(Sender: TObject);
begin
//Form6.ADOTable1.Insert; // вставляем в базу результат.
// Form6.ADOTable1.Fields[4].Value := Now();
// Form6.ADOTable1.Fields[1].Value := DBLookupListBox1.KeyValue;
// Form6.ADOTable1.Fields[2].Value := DBLookupListBox2.KeyValue;
// Form6.ADOTable1.Fields[3].Value := DBLookupListBox3.KeyValue;
// Form6.ADOTable1.Post;
hide;
end;