|
|
45 |
4 |
35 |
3 |
25 |
- |
0,008 |
7 |
5 |
45 |
4 |
||
|
12 |
45 |
4 |
35 |
3 |
25 |
- |
- |
7 |
6 |
45 |
4 |
3 |
|
|
16 |
4 |
35 |
3 |
25 |
- |
- |
- |
6 |
5 |
4 |
3 |
- |
|
|
20 |
35 |
3 |
25 |
- |
- |
- |
- |
5 |
4 |
3 |
- |
- |
|
Таблица 2
Code_metod
S
V
X
1
1,2
6,3
0,007
1
1,8
6,3
0,006
1
3,2
6,3
0,005
1
5
6,3
0,0045
1
7,5
6,3
0,004
1
11
6,3
0,0035
1
16
6,3
0,003
1
1,2
8
6
1
1,8
8
5
1
3,2
8
45
1
5
8
4
1
7,5
8
36
1
11
8
3
1
16
8
0,0025
1
1,2
10
5
1
1,8
10
45
1
3,2
10
4
1
5
10
35
1
7,5
10
3
1
11
10
25
1
1,2
12
45
1
1,8
12
4
1
3,2
12
35
1
5
12
3
1
7,5
12
25
1
1,2
16
4
1
1,8
16
35
1
3,2
16
3
1
5
16
25
1
1,2
20
35
1
1,8
20
3
1
3,2
20
25
2
1,8
6,3
0,012
2
3,2
6,3
0,009
2
5
6,3
0,007
2
7,5
6,3
0,006
2
11
6,3
0,005
2
1,8
8
0,01
2
3,2
8
8
2
5
8
6
2
7,5
8
5
2
11
8
0,0045
2
1,8
10
0,008
2
3,2
10
7
2
5
10
5
2
7,5
10
45
2
11
10
4
2
1,8
12
7
2
3,2
12
6
2
5
12
45
2
7,5
12
4
2
11
12
3
2
1,8
16
6
2
3,2
16
5
2
5
16
4
2
7,5
16
3
2
1,8
20
5
2
3,2
20
4
2
5
20
3
Кодирование материала:
Таблица 3
|
Mater |
Code_ metod |
|
Сталь |
1 |
|
Чугун |
2 |
Текст программы поиска в базе данных в среде Delphi 7.0
procedure TForm2.Button1Click(Sender: TObject);
var x1,res:variant;
label 1,2,3,4,5;
begin
x1:=TableMater.Lookup('Mater',DBComboBox1.Text,'Code_metod');
TableX.First;
While not TableX.EOF do
1: if x1=TableX.FieldByName('Code_metod').AsInteger then
2: if strtofloat(Trim(MaskEdit1.Text))<=TableX.FieldByName('S').AsFloat then
3: if strtofloat(Trim(MaskEdit2.Text))<=TableX.FieldByName('V').AsFloat then
begin
res:=TableX.Lookup('Code_metod;S;V', VarArrayOf([x1, TableX.FieldByName('S').Asfloat, TableX.FieldByName('V').AsFloat]), 'X');
goto 5;
end
else
begin
TableX.Next;
goto 3;
end
else
begin
TableX.Next;
goto 2;
end
else
begin
TableX.Next;
goto 1;
end;
5: Maskedit3.Text:=res;
end;
end.
Заключение
В работе выполнены блок-схемы задач, приведены листинги расчетных приложении. Приведено изготовление реляционной базы данных, а также листинг программы поиска в этой базе данных в среде Borland Delphi 7.0 Enterprise.
Библиографический список
1. Обработка металлов резанием. Под ред. А.А Панова. М.: Машиностроение, 1988.
2. Галисеев Г. В. Программирование в среде Delphi 7. Самоучитель.
М.: Издательский дом «Вильямс», 2004.
Страницы: 1, 2
При использовании материалов активная ссылка на источник обязательна.