Ребята как правильно на писать блок-схему по данному листингу программы
Код:
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
Table2.Append;
Table2.FieldByName('Название материала').AsString:=Edit7.Text;
Table2.FieldByName('Цена (грн)').AsString:=Edit8.Text;
Table2.FieldByName('Качество').AsString:=Edit9.Text;
Table2.FieldByName('Срок поставки (дни)').AsString:=Edit10.Text;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Table2.Post;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Table3.Append;
Table3.FieldByName('Наименование поставщика').AsString:=Edit11.Text;
Table3.FieldByName('Наименование материала').AsString:=Edit12.Text;
Table3.FieldByName('Юридический адрес').AsString:=Edit13.Text;
Table3.FieldByName('Финансовое состояние').AsString:=Edit14.Text;
Table3.FieldByName('Качество').AsString:=Edit15.Text;
Table3.FieldByName('Надежность').AsString:=Edit16.Text;
Table3.FieldByName('Ассортимент (шт.)').AsString:=Edit17.Text;
Table3.FieldByName('Цена (грн.)').AsString:=Edit18.Text;
Table3.FieldByName('Время поставки (дни)').AsString:=Edit19.Text;
Edit11.Clear;
Edit12.Clear;
Edit13.Clear;
Edit14.Clear;
Edit15.Clear;
Edit16.Clear;
Edit17.Clear;
Edit18.Clear;
Edit19.Clear;
Table3.Post;
end;
procedure TForm1.Button4Click(Sender: TObject);// Нажатие кнопки Удалить запись
begin
If Application.MessageBox('Вы действительно хотите удалить эту запись','Предупреждение',MB_OKCANCEL)=id_OK then
begin
IF DBGrid2.DataSource=Form1.DataSource2 then
Form1.Table2.Delete//Удаление строки таблицы
end;
end;
procedure TForm1.Button7Click(Sender: TObject);//Нажатие кнопки Удалить запись
begin
If Application.MessageBox('Вы действительно хотите удалить все записи?','Предупреждение',MB_OKCANCEL)=id_OK then
begin
while not Table3.Eof do Table3.Delete;
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
procedure TForm1.Button6Click(Sender: TObject);//Нажатие кнопки Удалить запись
begin
If Application.MessageBox('Вы действительно хотите удалить эту запись','Предупреждение',MB_OKCANCEL)=id_OK then
begin
IF DBGrid3.DataSource=Form1.DataSource3 then
Form1.Table3.Delete//Удаление строки таблицы
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);// Нажатие кнопки добавть запись
begin
Table1.Append;//переводим таблицу в режим добавления новой записи
Table1.FieldByName('Название изделия').AsString:=Edit1.Text;//присваиваем значение полей
Table1.FieldByName('Название материала').AsString:=Edit2.Text;//присваиваем значение полей
Table1.FieldByName('Цена (грн)').AsString:=Edit3.Text; //присваиваем значение полей
Table1.FieldByName('Качество').AsString:=Edit4.Text; //присваиваем значение полей
Table1.FieldByName('Срок производства').AsString:=Edit5.Text;//присваиваем значение полей
Table1.FieldByName('Ассортимент (шт.)').AsString:=Edit6.Text; //присваиваем значение полей
Edit1.Clear;// очищаем поля ввода
Edit2.Clear;// очищаем поля ввода
Edit3.Clear;// очищаем поля ввода
Edit4.Clear;// очищаем поля ввода
Edit5.Clear;// очищаем поля ввода
Edit6.Clear;// очищаем поля ввода
Table1.Post;//сохраняем изменения
end;
procedure TForm1.Button2Click(Sender: TObject);// Нажатие кнопки Удалить запись
begin
If Application.MessageBox('Вы действительно хотите удалить эту запись','Предупреждение',MB_OKCANCEL)=id_OK then
begin
IF DBGrid1.DataSource=Form1.DataSource1 then
Form1.Table1.Delete//Удаление строки таблицы
end;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
If Application.MessageBox('Вы действительно хотите удалить все записи?','Предупреждение',MB_OKCANCEL)=id_OK then
begin
while not Table1.Eof do Table1.Delete;
end;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
If Application.MessageBox('Вы действительно хотите удалить все записи?','Предупреждение',MB_OKCANCEL)=id_OK then
begin
while not Table2.Eof do Table2.Delete;
end;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form5.Show;
end;
end.