Главная
База знаний "Allbest"
Программирование, компьютеры и кибернетика
Автоматизированная информационная система по учету строительных материалов
Автоматизированная информационная система по учету строительных материалов
Создание комплексной информационной системы на основе компьютерных информационных технологий подготовки, приема, обработки, передачи, учета, поиска экономической информации. Повышение оперативности и качества управления строительными материалами.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 20.07.2014 |
| Размер файла | 2,3 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
if poisk=false then
begin
combobox1. Visible: =true;
edit1. Visible: =true;
poisk: =true;
end
else
begin
combobox1. Visible: =false;
edit1. Visible: =false;
poisk: =false;
end;
end;
procedure TForm1. N5Click (Sender: TObject); begin
application. terminate;
end;
procedure TForm2. Button1Click (Sender: TObject);
begin
if (form2. maskEdit1. Text='') or (form2. LabeledEdit2. Text='')
or (form2. LabeledEdit3. Text='') or (form2.combobox2. Text='')
or (form2. LabeledEdit5. Text='') or (form2.combobox3. Text='')
or (form2. LabeledEdit8. Text='') or (form2.comboBox1. Text='')
or (form2. LabeledEdit9. Text='') { or (form2. LabeledEdit14. Text='') } then
application. MessageBox ('Некоторые поля (поле) не заполнены','Внимание')
else
begin
shamaich;
end;
end;
procedure TForm2. Timer1Timer (Sender: TObject);
begin
form2. labelededit14. Text: =form1. DBText14. Caption;
end;
procedure TForm2. LabeledEdit10KeyPress (Sender: TObject; var Key: Char);
begin
if Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;
end;
procedure TForm2. LabeledEdit11KeyPress (Sender: TObject; var Key: Char);
begin
if Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;
end;
procedure TForm2. LabeledEdit12KeyPress (Sender: TObject; var Key: Char);
begin
if Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;
end;
procedure TForm2. LabeledEdit13KeyPress (Sender: TObject; var Key: Char);
begin
if Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;
end;
procedure TForm2. LabeledEdit14KeyPress (Sender: TObject; var Key: Char);
begin
if Key in ['a'. 'z','A'. 'Z','а'. 'я','А'. 'Я'] then key: =#0;
end;
procedure TForm2. shamaich;
var
a,b,c: string;
I: integer;
begin
a: =form2. maskEdit1. Text;
b: =form2. labelededit2. text;
c: =form2. labelededit3. text;
for I: = 0 to form1. ADODataSet1. RecordCount - 1 do
begin
if I = 0
then
begin
form1. ADODataSet1. First;
end
else
begin
form1. ADODataSet1. Next;
end;
end;
if (form1. dbgrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString=a)
or (form1. dbgrid1. DataSource. DataSet. FieldByName ('Идент_номер'). AsString=b)
or (form1. DBGrid1. DataSource. DataSet. FieldByName ('Двигатель'). AsString=c) then
begin
application. MessageBox ('Повторяющиеся значения','Synthetic System Bus');
end
else
begin
form1. ADODataSet1. Insert;
form1. ADODataSet1. FieldByName ('Гос_Номер'). AsString: =form2. maskEdit1. Text;
form1. ADODataSet1. FieldByName ('Идент_Номер'). AsString: =form2. LabeledEdit2. Text;
form1. ADODataSet1. FieldByName ('Двигатель'). AsString: =form2. LabeledEdit3. Text;
form1. ADODataSet1. FieldByName ('Цвет кузова'). AsString: =form2.combobox2. Text;
form1. ADODataSet1. FieldByName ('Марка авто'). AsString: =form2. LabeledEdit5. Text;
form1. ADODataSet1. FieldByName ('Тип ТС'). AsString: =form2.combobox3. Text;
form1. ADODataSet1. FieldByName ('Год'). AsString: =form2.combobox1. Text;
form1. ADODataSet1. FieldByName ('Собственник'). AsString: =form2. LabeledEdit8. Text;
form1. ADODataSet1. FieldByName ('Пробег'). AsString: =form2. LabeledEdit9. Text;
form1. ADODataSet1. FieldByName ('Дата'). AsString: =form2. LabeledEdit14. Text;
form1. ADODataSet1. Post;
application. MessageBox ('Запись успешно добавлена','SynthSysBus');
clear;
close;
end;
end;
procedure TForm2. clear;
begin
form2. maskEdit1. Text: ='';
form2. LabeledEdit2. text: ='';
form2. LabeledEdit3. text: ='';
form2.comboBox2. Text: ='';
form2. LabeledEdit5. Text: ='';
form2.comboBox3. Text: ='';
form2.comboBox1. Text: ='';
form2. LabeledEdit8. Text: ='';
form2. LabeledEdit9. Text: ='';
end;
procedure TForm4. Button4Click (Sender: TObject);
var i: integer;
begin
for I: = 0 to form4. ADODataSet1. RecordCount - 1 do
begin
if I = 0
then
begin
form4. ADODataSet1. First;
end
else
begin
form4. ADODataSet1. Next;
end;
form4. adodataset1. Delete;
end;
end;
procedure TForm4. N4Click (Sender: TObject);
begin
close;
end;
procedure TForm4. Edit1Change (Sender: TObject);
begin
if edit1. Text<>''then
begin
case combobox1. ItemIndex of
0: adodataset1. Locate ('Фамилия',Edit1. Text, [loCaseInsensitive,loPartialKey]);
1: adodataset1. Locate ('Имя',Edit1. Text, [loCaseInsensitive,loPartialKey]);
2: adodataset1. Locate ('Отчество',Edit1. Text, [loCaseInsensitive,loPartialKey]);
3: adodataset1. Locate ('Номер В/У',Edit1. Text, [loCaseInsensitive,loPartialKey]);
end;
end;
end;
procedure TForm4. FormCreate (Sender: TObject);
begin
poisk: =false;
end;
procedure TForm4. N2Click (Sender: TObject);
begin
if poisk=false then
begin
combobox1. Visible: =true;
edit1. Visible: =true;
poisk: =true;
end
else
begin
combobox1. Visible: =false;
edit1. Visible: =false;
poisk: =false;
end;
end;
procedure TForm5. Button1Click (Sender: TObject);
begin
if (form5. LabeledEdit1. Text='') or (form5. LabeledEdit2. Text='')
or (form5. LabeledEdit3. Text='') or (form5. labelededit4. Text='')
or (form5. sdateedit1. Text='') or (form5. LabeledEdit6. Text='')
or (form5. LabeledEdit8. Text='') or (form5. labelededit7. Text='')
or (form5. sdateedit2. Text='') then
application. MessageBox ('Некоторые поля (поле) не заполнены','Внимание')
else
begin
form4. ADODataSet1. Insert;
form4. ADODataSet1. FieldByName ('Фамилия'). AsString: =form5. LabeledEdit1. Text;
form4. ADODataSet1. FieldByName ('Имя'). AsString: =form5. LabeledEdit2. Text;
form4. ADODataSet1. FieldByName ('Отчество'). AsString: =form5. LabeledEdit3. Text;
form4. ADODataSet1. FieldByName ('Должность'). AsString: =form5. labelededit4. Text;
form4. ADODataSet1. FieldByName ('В/У действителен до'). AsString: =form5. sdateedit1. Text;
form4. ADODataSet1. FieldByName ('Номер В/У'). AsString: =form5. LabeledEdit6. Text;
form4. ADODataSet1. FieldByName ('Класс'). AsString: =form5. LabeledEdit7. Text;
form4. ADODataSet1. FieldByName ('Телефон'). AsString: =form5. LabeledEdit8. Text;
form4. ADODataSet1. FieldByName ('Дата рождения'). AsString: =form5. sdateedit2. Text;
form4. ADODataSet1. Post;
application. MessageBox ('Запись успешно добавлена','SynthSysBus');
labelededit1. Text: ='';
labelededit2. Text: ='';
labelededit3. Text: ='';
labelededit4. Text: ='';
sdateedit1. Text: ='';
labelededit6. Text: ='';
labelededit7. Text: ='';
labelededit8. Text: ='';
sdateedit2. Text: ='';
close;
end;
end;
procedure DrawGridCheckBox (Canvas: TCanvas; Rect: TRect; Checked: boolean);
begin
Canvas. TextRect (Rect, Rect. Left + 1, Rect. Top + 1, ' ');
DrawFrameControl (Canvas. Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
DrawFlags: = DFCS_BUTTONCHECK or DFCS_ADJUSTRECT; // DFCS_BUTTONCHECK
if Checked then
DrawFlags: = DrawFlags or DFCS_CHECKED;
DrawFrameControl (Canvas. Handle, Rect, DFC_BUTTON, DrawFlags);
end;
procedure TForm7. FormCloseQuery (Sender: TObject; var CanClose: Boolean);
begin
form1. show;
end;
procedure TForm7. DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column. FieldName = 'Виновен' then // Модифицируйте под себя
if Column. Field. AsBoolean then
DrawGridCheckBox (DBGrid1. Canvas, Rect, true)
else
DrawGridCheckBox (DBGrid1. Canvas, Rect, false)
end;
procedure TForm7. DBGrid1ColEnter (Sender: TObject);
begin
with TDBGrid (Sender) do
if SelectedField. FieldName = 'Виновен' then // Модифицируйте под себя
Options: = Options - [dgEditing]
else
Options: = Options + [dgEditing];
end;
procedure TForm7. DBGrid1DblClick (Sender: TObject);
begin
adodataset1. Edit;
if adodataset1. FieldByName ('Виновен'). AsBoolean=true then
begin
adodataset1. FieldByName ('Виновен'). AsBoolean: =false;
end
else
begin
adodataset1. FieldByName ('Виновен'). AsBoolean: =true;
end;
adodataset1. Post;
if adodataset1. FieldByName ('Виновен'). AsBoolean=true then
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');
end
else
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');
end;
end;
procedure TForm7. DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);
begin
if adodataset1. FieldByName ('Виновен'). AsBoolean=true then
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');
end
else
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');
end;
end;
procedure TForm7. DBGrid1CellClick (Column: TColumn);
begin
if adodataset1. FieldByName ('Виновен'). AsBoolean=true then
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');
end
else
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');
end;
end;
procedure TForm7. Timer1Timer (Sender: TObject);
begin
label1. Caption: =timeToStr (Now);
end;
procedure TForm7. FormCreate (Sender: TObject);
begin
if adodataset1. FieldByName ('Виновен'). AsBoolean=true then
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');
end
else
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');
end;
end;
procedure TForm7. FormShow (Sender: TObject);
begin
if adodataset1. FieldByName ('Виновен'). AsBoolean=true then
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\true. bmp');
end
else
begin
image1. Picture. LoadFromFile ('C: \Synthetic\rec\false. bmp');
end;
end;
procedure TForm7. Edit1Change (Sender: TObject);
begin
if edit1. Text<>''then
begin
case combobox1. ItemIndex of
0: adodataset1. Locate ('Фамилия',Edit1. Text, [loCaseInsensitive,loPartialKey]);
1: adodataset1. Locate ('Имя',Edit1. Text, [loCaseInsensitive,loPartialKey]);
2: adodataset1. Locate ('Отчество',Edit1. Text, [loCaseInsensitive,loPartialKey]);
3: adodataset1. Locate ('Гос_номер',Edit1. Text, [loCaseInsensitive,loPartialKey]);
end;
end;
end;
procedure TForm8. FormShow (Sender: TObject);
begin
form8. ADODataSet1. Close;
form8. ADODataSet1. Open;
form8. ADODataSet2. Close;
form8. ADODataSet2. Open;
end;
procedure TForm8. Button1Click (Sender: TObject);
begin
if ( (adodataset1. RecordCount=0) or (adodataset2. RecordCount=0) or (adodataset5. RecordCount=0)) then
begin
application. MessageBox ('Нельзя добавлять пустые значения','SynthSysBus');
end
else
begin
adodataset3. Insert;
adodataset3. FieldByName ('Фамилия'). AsString: =adodataset2. fieldbyname ('Фамилия'). AsString;
adodataset3. FieldByName ('Имя'). AsString: =adodataset2. fieldbyname ('Имя'). AsString;
adodataset3. FieldByName ('Телефон'). AsString: =adodataset2. fieldbyname ('Телефон'). AsString;
adodataset3. FieldByName ('Гос_Номер'). AsString: =adodataset1. fieldbyname ('Гос_Номер'). AsString;
adodataset3. FieldByName ('Идент_Номер'). AsString: =adodataset1. fieldbyname ('Идент_Номер'). AsString;
adodataset3. FieldByName ('Марка Авто'). AsString: =adodataset1. fieldbyname ('Марка Авто'). AsString;
adodataset3. FieldByName ('Тип ТС'). AsString: =adodataset1. fieldbyname ('Тип ТС'). AsString;
adodataset3. FieldByName ('Номер маршрута'). AsString: =adodataset5. fieldbyname ('Номер маршрута'). asstring;
adodataset3. FieldByName ('Конечные'). AsString: =adodataset5. fieldbyname ('Конечные'). asstring;
adodataset3. FieldByName ('Путь'). AsString: =adodataset5. fieldbyname ('Путь'). asstring;
adodataset3. FieldByName ('Остановочные пункты'). AsString: =adodataset5. fieldbyname ('Остановочные пункты'). asstring;
adodataset3. Post;
end;
end;
procedure TForm8. Button2Click (Sender: TObject);
begin
form9. showmodal;
end;
procedure TForm8. Button4Click (Sender: TObject);
begin
if form8. ADODataSet5. RecordCount=0 then
application. MessageBox ('Таблица пуста','SynthSysBus')
else
adodataset5. Delete;
end;
procedure TForm8. Button3Click (Sender: TObject);
begin
form10. showmodal;
end;
procedure TForm8. get_probeg;
var
I: integer;
a: string;
begin
a: =form8. dbgrid4. datasource. dataset. fieldbyname ('Гос_номер'). asstring;
for I: = 0 to form1. ADODataSet1. RecordCount - 1 do
begin
if I = 0
then
begin
form1. ADODataSet1. First;
end
else
begin
form1. ADODataSet1. Next;
end;
if form1. dbgrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString=a then
begin
form1. ADODataSet1. Edit;
form1. dbgrid1. DataSource. DataSet. FieldByName ('Пробег'). AsString: =inttostr (strtoint (form1. dbgrid1. DataSource. DataSet. FieldByName ('Пробег'). AsString) +strtoint (form8. dbgrid4. DataSource. DataSet. fieldbyname ('Путь'). AsString));
form1. ADODataSet1. Post;
end;
end;
end;
procedure TForm8. Button5Click (Sender: TObject);
begin
get_probeg;
form8. ADODataSet4. Delete;
end;
procedure TForm8. Button6Click (Sender: TObject);
begin
if adodataset1. RecordCount=0 then
begin
application. MessageBox ('Заполните таблицу','SynthSysBus');
end
else
begin
form8. ADODataSet4. Insert;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Фамилия'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Фамилия'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Имя'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Имя'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Гос_номер'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Идент_номер'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Идент_номер'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Марка Авто'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Марка Авто'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Тип ТС'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Тип ТС'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Телефон'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Телефон'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Номер маршрута'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Номер маршрута'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Путь'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Путь'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Конечные'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Конечные'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Остановочные пункты'). AsString: =form8. DBGrid1. DataSource. DataSet. FieldByName ('Остановочные пункты'). AsString;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Время отправки'). AsString: =form8. Label1. Caption;
form8. DBGrid4. DataSource. DataSet. FieldByName ('Дата'). AsString: =DateToStr (Now);
form8. ADODataSet3. Delete;
form8. ADODataSet4. Post;
end;
end;
procedure TForm11. Button1Click (Sender: TObject);
begin
if edit1. Text<>'' then
begin
form7. ADODataSet1. Insert;
form7. DBGrid1. DataSource. DataSet. FieldByName ('Фамилия'). AsString: =form8. DBGrid4. DataSource. DataSet. FieldByName ('Фамилия'). AsString;
form7. DBGrid1. DataSource. DataSet. FieldByName ('Имя'). AsString: =form8. DBGrid4. DataSource. DataSet. FieldByName ('Имя'). AsString;
form7. DBGrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString: =form8. DBGrid4. DataSource. DataSet. FieldByName ('Гос_номер'). AsString;
form7. DBGrid1. DataSource. DataSet. FieldByName ('Дата'). AsString: =DateToStr (Now);
form7. DBGrid1. DataSource. DataSet. FieldByName ('Адрес'). AsString: =form11. Edit1. Text;
form7. dbgrid1. DataSource. DataSet. FieldByName ('Заметки'). AsString: =form11. Memo1. Text;
form7. DBGrid1. DataSource. DataSet. FieldByName ('Отчество'). AsString: =form11. Label2. Caption;
form7. DBGrid1. DataSource. DataSet. FieldByName ('Время'). AsString: =timetostr (now);
if form11. CheckBox1. Checked=true then
begin
form7. dbgrid1. datasource. DataSet. FieldByName ('Виновен'). AsBoolean: =true
end
else
begin
form7. dbgrid1. datasource. DataSet. FieldByName ('Виновен'). AsBoolean: =false;
end;
del_dtp;
form8. ADODataSet4. Delete;
form7. ADODataSet1. Post;
end
else
begin
application. MessageBox ('Заполни все поля','SynthSysBus');
end;
form11. Memo1. Clear;
form11. Edit1. Clear;
form11. CheckBox1. Checked: =false;
close;
label2. Caption: ='';
form8. Close;
form7. Show;
end;
procedure TForm11. del_dtp;
var
k: string;
I: integer;
begin
k: =form8. dbgrid4. datasource. dataset. fieldbyname ('Гос_номер'). asstring;
for I: = 0 to form1. ADODataSet1. RecordCount - 1 do
begin
if I = 0
then
begin
form1. ADODataSet1. First;
end
else
begin
form1. ADODataSet1. Next;
end;
if form1. dbgrid1. DataSource. DataSet. FieldByName ('Гос_номер'). AsString=k then
form1. ADODataSet1. Delete;
end;
end.
Размещено на Allbest.ru
Подобные документы
Повышение оперативности и качества управления транспортным предприятием Бел. ж.д.; разработка АСОЭИ с использованием компьютерных информационных технологий подготовки, приема, обработки, передачи, учета, поиска, контроля экономической информации.
курсовая работа [155,3 K], добавлен 21.10.2011Анализ автоматизированных информационных технологий, применяемых в экономике. Особенности экономической информационной системы, предназначенной для поиска, хранения и выдачи информации по запросам пользователей. Поиск информации с помощью баз данных.
курс лекций [1,4 M], добавлен 27.01.2010Разработка информационной системы для анализа, хранения и обработки информации необходимой для автоматизации учета в автомобильном салоне "Aurore Auto" с помощью технологий Rational Rose, PHP и MySQL. Реализация и экономическая эффективность проекта.
дипломная работа [2,2 M], добавлен 20.05.2011Правовые основы аренды в Республике Казахстан. Обзор существующего программного обеспечения по работе агентств недвижимости. Выбор инструментария разработки информационной системы. Организация технологии сбора, передачи, обработки и выдачи информации.
дипломная работа [930,2 K], добавлен 16.06.2015Создание автоматизированной информационной системы учета оборудования (компьютерной и оргтехники) на АКБ НМБ ОАО с использованием современных компьютерных средств. Проектирование базы данных. Алгоритмы решения задач. Расчёт затрат на проектирование.
дипломная работа [2,1 M], добавлен 16.12.2013Понятие информационных технологий, этапы их развития, составляющие и основные виды. Особенности информационных технологий обработки данных и экспертных систем. Методология использования информационной технологии. Преимущества компьютерных технологий.
курсовая работа [46,4 K], добавлен 16.09.2011Рассмотрение структуры предприятия, обзор современного программного обеспечения. Описание информационной системы учета кадров. Создание информационной системы для работы с персоналом на основе выполненного анализа программных продуктов этого направления.
дипломная работа [3,7 M], добавлен 03.07.2015Современные системы обработки данных. Автоматизированная информационная система. Понятие информационной и динамической модели. Появление множества разнотипных систем, отличающихся принципами построения и заложенными в них правилами обработки информации.
презентация [36,0 K], добавлен 14.10.2013Система методов и способов сбора, накопления, хранения, поиска и обработки информации на основе применения средств вычислительной техники. Телепроекты, телеконференции, дистанционное обучение. Системы компьютерной графики (компьютерных презентаций).
реферат [37,7 K], добавлен 26.01.2015Информационная система как взаимосвязанная совокупность средств, методов и персонала, используемых для хранения и обработки информации в интересах достижения поставленной цели. Особенности проектирования информационной системы по учету кадров аптеки.
курсовая работа [4,2 M], добавлен 17.07.2016
