Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.05.2012, 21:55   #1
denl9
Пользователь
 
Регистрация: 16.04.2012
Сообщений: 11
Печаль Ребята как правильно на писать блок-схему по данному листингу программы(просто очень надо, а у меня не получается)

Ребята как правильно на писать блок-схему по данному листингу программы
Код:
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.
denl9 вне форума
Старый 08.05.2012, 22:05   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Отдельно для каждого метода пишите блок-схему. Хотя год тривиальный.. тут несчего просто блок-схему составить.. хотя можно сделать листинг работы программы.. начиная опр. дейсвием, включая все последующие..
Человек_Борща вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Нужно ли писать вот это в блок-схему? Женька Good Паскаль, Turbo Pascal, PascalABC.NET 0 21.03.2012 17:11
Ребята помогите нарисовать блок схему алгоритма? PashAs Помощь студентам 1 23.03.2009 17:44
Зделать блок-схему или алгоритм по листингу!!! metamfetamin Паскаль, Turbo Pascal, PascalABC.NET 4 04.11.2007 10:08