2. Руководство программиста (описание программный код добавление, изменение, удаление, поиск и сортировка данных в главном файле; формирование отчетов, ведомостей)

Добавление

begin

if edit1.text='' then

begin

showmessage('Введите код покупателя!'+#13'Внимание код покупателя не должен повторяться');

edit1.setfocus;

exit;

end;

if edit2.text='' then

begin

showmessage('Введите название покупателя');

edit2.setfocus;

exit;

end;

if edit3.text='' then

begin

showmessage('Введите адрес');

edit3.setfocus;

exit;

end;

if edit4.text='' then

begin

showmessage('Введите телефон');

edit4.setfocus;

exit;

end;

if edit5.text='' then

begin

showmessage('Введите факс');

edit5.setfocus;

exit;

end;

try

query1.Close;

query1.sql[1]:=('VALUES ('''+edit1.text+''','+''''+edit2.text+''')');

query1.execsql;

query2.Close;

query2.sql[1]:=('VALUES ('''+edit1.text+''','+''''+edit2.text+''','+''''+edit3.text+''','+''''+edit4.text+''','+''''+edit5.text+''')');

query2.execsql;

except

showmessage('Нельзя вводить повторяющиеся значения!');

end;

form1.table2.Close;

form1.table2.open;

form1.table1.Close;

form1.table1.open;

edit1.text:='';

edit2.text:='';

edit3.text:='';

edit4.text:='';

edit5.text:='';

end;

end;

Изменение:

procedure TForm6.FormActivate(Sender: TObject);

var i:byte;

begin

combobox1.Clear;

form1.Table3.First;

for i:=1 to form1.Table3.RecordCount do

begin

combobox1.Items.Add(form1.Table3.Fields[0].Asstring);

form1.Table3.Next;

end;

end;

procedure TForm6.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text<>'' then

begin

form2.query1.Close;

form2.query1.sql[5]:=('Dogovor.Iddog = '''+ComboBox1.Text+'''');

form2.query1.Open;

end;

edit1.text:=form2.query1.fields[4].value;

edit2.text:=form2.query1.fields[5].value;

edit3.text:=form2.query1.fields[3].value;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

if (ComboBox1.Text<>'') AND (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'')then

begin

query1.Close;

query1.sql[1]:=('SET Sena='''+edit3.Text+''', Kolich='''+edit2.Text+'''');

query1.sql[2]:=('WHERE Iddog ='''+ComboBox1.Text+'''');

query1.ExecSQL;

form1.Table3.Close;

form1.Table3.open;

edit3.text:='';

edit1.text:='';

edit2.text:='';

end;

end;

end.

Удаление:

procedure TForm9.FormActivate(Sender: TObject);

var i:byte;

begin

combobox1.Clear;

form1.Table4.First;

for i:=1 to form1.Table4.RecordCount do

begin

combobox1.Items.Add(form1.Table4.Fields[1].Asstring);

form1.Table4.Next;

end;

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

Query1.Close;

Query2.Close;

Query2.SQL[5]:=('Name ='''+combobox1.Text+'''');

Query1.SQL[2]:=('Name ='''+combobox1.Text+'''');

Query2.ExecSQL;

Query1.ExecSQL;

form1.Table4.Close;

form1.Table5.Close;

form1.Table4.Open;

form1.Table5.Open;

end;

end.

Сортировка:

procedure TForm8.RadioButton5Click(Sender: TObject);

begin

if radiobutton1.Checked then

form1.table5.IndexName:= 'KT ASC';

if radiobutton2.Checked then

form1.table5.IndexName:= 'KT DESC';

end;

procedure TForm8.RadioButton1Click(Sender: TObject);

begin

groupbox2.Visible:=true;

radiobutton3.Checked:= false;

radiobutton4.Checked:= false;

radiobutton5.Checked:= false;

radiobutton6.Checked:= false;

radiobutton7.Checked:= false;

end;

procedure TForm8.RadioButton2Click(Sender: TObject);

begin

groupbox2.Visible:=true;

radiobutton3.Checked:= false;

radiobutton4.Checked:= false;

radiobutton5.Checked:= false;

radiobutton6.Checked:= false;

radiobutton7.Checked:= false;

end;

procedure TForm8.RadioButton3Click(Sender: TObject);

begin

if radiobutton1.Checked then

form1.table5.IndexName:= 'N_nakl ASC';

if radiobutton2.Checked then

form1.table5.IndexName:= 'N_nakl DESC';

end;

procedure TForm8.RadioButton4Click(Sender: TObject);

begin

if radiobutton1.Checked then

form1.table5.IndexName:= 'N_dog ASC';

if radiobutton2.Checked then

form1.table5.IndexName:= 'N_dog DESC';

end;

procedure TForm8.RadioButton6Click(Sender: TObject);

begin

if radiobutton1.Checked then

form1.table5.IndexName:= 'Date ASC';

if radiobutton2.Checked then

form1.table5.IndexName:= 'Date DESC';

end;

procedure TForm8.RadioButton7Click(Sender: TObject);

begin

if radiobutton1.Checked then

form1.table5.IndexName:= 'Kolvo ASC';

if radiobutton2.Checked then

form1.table5.IndexName:= 'Kolvo DESC';

end;

end.

Поиск:

Программный код для первого запроса для кнопки «Найти»:

form1.query1.Close;

form1.query1.SQL[4]:=('where Name = '''+edit1.text+'''');

form1.query1.Open;

Программный код для второго запроса для кнопки «Договор»:

query1.Close;

query1.SQL[5]:=('Dogovor.Iddog = '''+combobox1.Text+'''');

query1.Open;

Диаграмма:

на вкладке Data Controls выбирается компонент DBChart. Затем нужно щелкнуть два раза на компоненте DBChart, выбрать нужную гистограмму и нажать Add. На вкладке Series выбрать вкладку DatsSourse(Query1: Select distinct Name,Sena,Kolich; From dogovor) и ввести необходимые параметры.

Диаграмма строится на основе данных из таблицы Договор и отображает соответствие цен определённым товарам.