Автоматизированная информационная система (АИС) "МРЭО ГАИ"
Описание логической структуры программы, разработка интерактивного интерфейса, описание используемых функций и процедур (листинг кода). Расчет себестоимости автоматизированных информационных услуг, показателей по труду и заработной платы, рентабельности.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 28.08.2014 |
| Размер файла | 8,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
Form30.ShowModal;
end;
procedure TForm26.sButton5Click(Sender: TObject);
begin
case MessageBox(Handle,'Вы действительно хотите удалить данную за-пись?','Подтверждение удаления',36) of
6: ADOQuery1.Delete;
7: ;
end;
end;
procedure TForm26.sButton6Click(Sender: TObject);
begin
Form31.ShowModal;
end;
procedure TForm26.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;
procedure TForm26.sEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(sEdit1.text)>0 then
begin
ADOQuery1.Filtered:=true;
case sCombobox1.ItemIndex of
0:ADOQuery1.Filter:='[Адрес] LIKE '+''''+sEdit1.Text+'%'+'''';
1:ADOQuery1.Filter:='[Дата выдачи] LIKE '+''''+sEdit1.Text+'%'+'''';
2:ADOQuery1.Filter:='[Директор] LIKE '+''''+sEdit1.Text+'%'+'''';
3:ADOQuery1.Filter:='[Категории] LIKE '+''''+sEdit1.Text+'%'+'''';
4:ADOQuery1.Filter:='[Лицензия №] LIKE '+''''+sEdit1.Text+'%'+'''';
5:ADOQuery1.Filter:='[Наименование] LIKE '+''''+sEdit1.Text+'%'+'''';
6:ADOQuery1.Filter:='[Срок действия] LIKE '+''''+sEdit1.Text+'%'+'''';
end;
end
else ADOQuery1.Filtered:=False;
end;
end.
Unit 27
procedure TForm27.sButton1Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sComboBox1.Text='') or (sDateEdit1.Text='') or (sCurrencyEdit1.Text='0')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form26.ADOQuery1.Insert;
Form26.ADOQuery1.FieldByName('Наименование').AsString:=sEdit1.Text;
Form26.ADOQuery1.FieldByName('Директор').AsString:=sEdit2.Text;
Form26.ADOQuery1.FieldByName('Адрес').AsString:=sEdit3.Text;
Form26.ADOQuery1.FieldByName('Лицензия №').AsString:=sCurrencyEdit1.Text;
Form26.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit1.Text;
Form26.ADOQuery1.FieldByName('Срок действия').AsString:=sComboBox1.Text;
Form26.ADOQuery1.FieldByName('Категории').AsString:=sEdit6.Text;
Form26.ADOQuery1.Post;
Form28.Print;
Form27.Close;
end
end;
procedure TForm27.FormShow(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsEdit then
TsEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsComboBox then
TsComboBox(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsCurrencyEdit then
TsCurrencyEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsDateEdit then
TsDateEdit(Components[i]).Text := '';
begin
sDateEdit1.Text:=DateTimeToStr(Date);
end;
end;
end;
end;
end;
procedure TForm27.sButton2Click(Sender: TObject);
begin
Form27.Close;
end;
end.
Unit 29
procedure TForm29.FormShow(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsEdit then
TsEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsDateEdit then
TsDateEdit(Components[i]).Text := '';
begin
sDateEdit1.Text:=DateTimeToStr(Date);
end;
end;
end;
procedure TForm29.sButton1Click(Sender: TObject);
begin
If (sCurrencyEdit1.Text='0')
Then begin
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
end
else
begin
Form26.ADOQuery1.Edit;
Form26.ADOQuery1.FieldByName('Лицензия №').AsString:=sCurrencyEdit1.Text;
Form26.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit1.Text;
Form26.ADOQuery1.FieldByName('Срок действия').AsString:=sComboBox1.Text;
Form26.ADOQuery1.Post;
Form29.Close;
ShowMessage ('Операция успешно выполнена');
Form28.Print;
end;
end;
procedure TForm29.sButton2Click(Sender: TObject);
begin
Form29.Close;
end;
end.
Unit 30
procedure TForm30.sButton1Click(Sender: TObject);
begin
Form26.ADOQuery1.Edit;
Form26.ADOQuery1.FieldByName('Срок действия').AsString:=('Лишена');
Form26.ADOQuery1.Post;
Form30.Close;
end;
procedure TForm30.sButton2Click(Sender: TObject);
begin
Form30.Close;
end;
end.
Unit 31
procedure TForm31.sButton1Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sComboBox1.Text='') or (sDateEdit1.Text='') or (sCurrencyEdit1.Text='0')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form26.ADOQuery1.Edit;
Form26.ADOQuery1.FieldByName('Наименование').AsString:=sEdit1.Text;
Form26.ADOQuery1.FieldByName('Директор').AsString:=sEdit2.Text;
Form26.ADOQuery1.FieldByName('Адрес').AsString:=sEdit3.Text;
Form26.ADOQuery1.FieldByName('Лицензия №').AsString:=sCurrencyEdit1.Text;
Form26.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit1.Text;
Form26.ADOQuery1.FieldByName('Срок действия').AsString:=sComboBox1.Text;
Form26.ADOQuery1.FieldByName('Категории').AsString:=sEdit6.Text;
Form26.ADOQuery1.Post;
Form31.Close;
ShowMessage ('Изменения произведены')
end
end;
procedure TForm31.FormShow(Sender: TObject);
begin
sEdit1.Text:=Form26.sDBText1.Caption;
sEdit2.Text:=Form26.sDBText2.Caption;
sEdit3.Text:=Form26.sDBText3.Caption;
sCurrencyEdit1.Text:=Form26.sDBText4.Caption;
sDateEdit1.Text:=Form26.sDBText7.Caption;
sComboBox1.Text:=Form26.sDBText5.Caption;
sEdit6.Text:=Form26.sDBText6.Caption;
end;
procedure TForm31.sButton2Click(Sender: TObject);
begin
Form31.Close;
end;
end.
Unit 32
procedure TForm32.sButton1Click(Sender: TObject);
begin
Form32.Close;
end;
procedure TForm32.sButton2Click(Sender: TObject);
begin
Form33.ShowModal;
end;
procedure TForm32.sButton3Click(Sender: TObject);
begin
Form34.sButton1.Visible:=false;
Form34.sButton2.Visible:=false;
Form34.Print;
end;
procedure TForm32.sButton4Click(Sender: TObject);
begin
Form34.ShowModal;
Form34.sButton1.Visible:=true;
Form34.sButton2.Visible:=true;
end;
procedure TForm32.sButton5Click(Sender: TObject);
begin
case MessageBox(Handle,'Вы действительно хотите удалить данную за-пись?','Подтверждение удаления',36) of
6: ADOQuery1.Delete;
7: ;
end;
end;
procedure TForm32.sButton6Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Статус').AsString:=('Проведено');
ADOQuery1.Post;
end;
procedure TForm32.sButton7Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Статус').AsString:=('Проводится');
ADOQuery1.Post;
end;
procedure TForm32.sButton8Click(Sender: TObject);
begin
Form35.ShowModal;
end;
procedure TForm32.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;
procedure TForm32.sEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(sEdit1.text)>0 then
begin
ADOQuery1.Filtered:=true;
case sCombobox1.ItemIndex of
0:ADOQuery1.Filter:='[Дата начала] LIKE '+''''+sEdit1.Text+'%'+'''';
1:ADOQuery1.Filter:='[Дата окончания] LIKE '+''''+sEdit1.Text+'%'+'''';
2:ADOQuery1.Filter:='[Запланированные работы] LIKE '+''''+sEdit1.Text+'%'+'''';
3:ADOQuery1.Filter:='[Место] LIKE '+''''+sEdit1.Text+'%'+'''';
4:ADOQuery1.Filter:='[Название] LIKE '+''''+sEdit1.Text+'%'+'''';
5:ADOQuery1.Filter:='[Ответственный] LIKE '+''''+sEdit1.Text+'%'+'''';
6:ADOQuery1.Filter:='[Статус] LIKE '+''''+sEdit1.Text+'%'+'''';
end;
end
else ADOQuery1.Filtered:=False;
end;
end.
Unit 33
procedure TForm33.sButton1Click(Sender: TObject);
begin
Form33.Close;
end;
procedure TForm33.sButton2Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sDateEdit1.Text='') or (sDateEdit2.Text='') Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form32.ADOQuery1.Insert;
Form32.ADOQuery1.FieldByName('Название').AsString:=sEdit1.Text;
Form32.ADOQuery1.FieldByName('Дата начала').AsString:=sDateEdit1.Text;
Form32.ADOQuery1.FieldByName('Дата окончания').AsString:=sDateEdit2.Text;
Form32.ADOQuery1.FieldByName('Запланированные работы').AsString:=Memo1.Text;
Form32.ADOQuery1.FieldByName('Место').AsString:=sEdit2.Text;
Form32.ADOQuery1.FieldByName('Статус').AsString:=('Не проведено');
Form32.ADOQuery1.FieldByName('Ответственный').AsString:=sEdit3.Text;
Form32.ADOQuery1.Post;
Form33.Close;
Form34.Print;
ShowMessage('Мероприятие зарегистрировано. Предупредите ответственных сотрудников.')
end
end;
procedure TForm33.FormShow(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsEdit then
TsEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsDateEdit then
TsDateEdit(Components[i]).Text := '';
begin
Memo1.Text:='';
end;
end;
end;
end.
Unit 34
procedure TForm34.sButton1Click(Sender: TObject);
begin
Form34.Close;
end;
procedure TForm34.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sButton1.Visible:=false;
end;
procedure TForm34.sButton2Click(Sender: TObject);
begin
sButton1.Visible:=false;
sButton2.Visible:=false;
Form34.Print;
Form34.Close;
end;
end.
Unit 35
procedure TForm35.sButton2Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sDateEdit1.Text='') or (sDateEdit2.Text='') Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form32.ADOQuery1.Edit;
Form32.ADOQuery1.FieldByName('Дата начала').AsString:=sDateEdit1.Text;
Form32.ADOQuery1.FieldByName('Дата окончания').AsString:=sDateEdit2.Text;
Form32.ADOQuery1.FieldByName('Запланированные работы').AsString:=Memo1.Text;
Form32.ADOQuery1.FieldByName('Место').AsString:=sEdit2.Text;
Form32.ADOQuery1.FieldByName('Ответственный').AsString:=sEdit3.Text;
Form32.ADOQuery1.Post;
Form35.Close;
end;
end;
procedure TForm35.FormShow(Sender: TObject);
begin
sEdit1.Text:=Form32.sDBText1.Caption;
sDateEdit1.Text:=Form32.sDBText3.Caption;
sDateEdit2.Text:=Form32.sDBText4.Caption;
Memo1.Text:=Form32.sDBMemo1.Text;
sEdit2.Text:=Form32.sDBText5.Caption;
sEdit3.Text:=Form32.sDBText2.Caption;
end;
procedure TForm35.sButton1Click(Sender: TObject);
begin
Form35.Close;
end;
end.
Unit 36
procedure TForm36.sButton2Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sEdit5.Text='') or (sEdit6.Text='') or (sEdit7.Text='')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form24.ADOQuery1.Edit;
Form24.ADOQuery1.FieldByName('ФИО').AsString:=sEdit1.Text;
Form24.ADOQuery1.FieldByName('Дата рождения').AsString:=sDateEdit1.Text;
Form24.ADOQuery1.FieldByName('Выдано ГИБДД МВД').AsString:=sEdit3.Text;
Form24.ADOQuery1.FieldByName('Дата выдачи ВУ').AsString:=sDateEdit1.Text;
Form24.ADOQuery1.FieldByName('Категории').AsString:=sEdit4.Text;
Form24.ADOQuery1.FieldByName('ВУ серия и №').AsString:=sEdit2.Text;
Form24.ADOQuery1.FieldByName('Причина').AsString:=sMemo1.Text;
Form24.ADOQuery1.FieldByName('Дата и время').AsString:=sMaskEdit1.Text;
Form24.ADOQuery1.FieldByName('Место').AsString:=sEdit6.Text;
Form24.ADOQuery1.FieldByName('Размер').AsString:=sEdit7.Text;
Form24.ADOQuery1.FieldByName('Инспектор').AsString:=sEdit5.Text;
Form24.ADOQuery1.Post;
Form25.Close;
end
end;
procedure TForm36.FormShow(Sender: TObject);
begin
sEdit1.Text:=Form24.sDBText2.Caption;
sDateEdit1.Text:=Form24.sDBText3.Caption;;
sEdit3.Text:=Form24.sDBText5.Caption;;
sDateEdit2.Text:=Form24.sDBText11.Caption;;
sEdit4.Text:=Form24.sDBText6.Caption;;
sEdit2.Text:=Form24.sDBText4.Caption;;
sMemo1.Text:=Form24.sDBText1.Caption;;
sMaskEdit1.Text:=Form24.sDBText10.Caption;;
sEdit6.Text:=Form24.sDBText12.Caption;;
sEdit7.Text:=Form24.sDBText8.Caption;;
sEdit5.Text:=Form24.sDBText7.Caption;;
end;
procedure TForm36.sButton1Click(Sender: TObject);
begin
Form36.Close;
end;
end.
Unit 37
procedure TForm37.FormCreate(Sender: TObject);
begin
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
procedure TForm37.ADOQuery1AfterScroll(DataSet: TDataSet);
var
Stream: TMemoryStream;
Jpg: TJpegImage;
GraphType: TGraphType;
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
TBlobField(ADOQuery1.FieldByName('image_i')).SaveToStream(Stream);
if Stream.Size > 0 then
begin
Stream.Position := 0;
Stream.Read(GraphType, 1);
case GraphType of
gtBitmap: Image1.Picture.Bitmap.LoadFromStream(Stream);
gtIcon: Image1.Picture.Icon.LoadFromStream(Stream);
gtMetafile: Image1.Picture.Metafile.LoadFromStream(Stream);
gtJpeg:
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Image1.Picture.Assign(Jpg);
end
else
Image1.Picture.Assign(nil); // Clear the image
end;
end
else
Image1.Picture.Assign(nil);
except
Image1.Picture.Assign(nil);
end;
jpg.Free;
Stream.Free;
end;
procedure TForm37.sButton1Click(Sender: TObject);
begin
Form37.Close;
end;
procedure TForm37.Image1Click(Sender: TObject);
begin
QBig.Image1.Picture:=Image1.Picture;
QBig.ShowModal;
end;
procedure TForm37.sButton2Click(Sender: TObject);
begin
Form38.ShowModal;
end;
procedure TForm37.sButton8Click(Sender: TObject);
begin
case MessageBox(Handle,'Вы действительно хотите удалить данную за-пись?','Подтверждение удаления',36) of
6: ADOQuery1.Delete;
7: ;
end;
end;
procedure TForm37.sButton5Click(Sender: TObject);
begin
Form39.ShowModal;
end;
procedure TForm37.sButton10Click(Sender: TObject);
begin
Form40.ShowModal;
end;
procedure TForm37.sButton4Click(Sender: TObject);
begin
Form41.ShowModal;
end;
procedure TForm37.sButton3Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Состояние').AsString:='Уволен';
ADOQuery1.FieldByName('Особые отметки').AsString:='Уволен';
ADOQuery1.Post;
ShowMessage ('Сотрудник был сокращён. Не забудьте вернуть ему документы, забрать удостоверение и инвентарь.')
end;
procedure TForm37.DataSource1DataChange(Sender: TObject; Field: TField);
begin
If (sDBText8.Caption='На больничном') or (sDBText8.Caption='В отпуске') Then begin
sButton4.Enabled:=False;
sButton5.Enabled:=False;
sButton10.Enabled:=False;
sButton3.Enabled:=False;
sButton11.Enabled:=True;
end;
begin
If (sDBText8.Caption='Работает') then begin
sButton4.Enabled:=True;
sButton5.Enabled:=True;
sButton10.Enabled:=True;
sButton3.Enabled:=True;
sButton11.Enabled:=False;
end;
begin
If (sDBText8.Caption='Уволен') then begin
sButton4.Enabled:=False;
sButton5.Enabled:=False;
sButton10.Enabled:=False;
sButton3.Enabled:=False;
sButton11.Enabled:=False;
end;
end;
end;
end;
procedure TForm37.sButton9Click(Sender: TObject);
begin
If (sDBText8.Caption='На больничном') or (sDBText8.Caption='В отпуске') Then begin
Form42.sDBText13.Visible:=True;
Form42.sLabel17.Visible:=True;
Form42.sButton1.Visible:=True;
Form42.sButton2.Visible:=True;
Form42.Image1.Picture:=Image1.Picture;
Form42.Show;
end
else
begin
Form42.sDBText13.Visible:=False;
Form42.sLabel17.Visible:=False;
Form42.sButton1.Visible:=True;
Form42.sButton2.Visible:=True;
Form42.Image1.Picture:=Image1.Picture;
Form42.Show;
end;
end;
procedure TForm37.sButton7Click(Sender: TObject);
begin
If (sDBText8.Caption='На больничном') or (sDBText8.Caption='В отпуске') Then begin
Form42.sDBText13.Visible:=True;
Form42.sLabel17.Visible:=True;
Form42.sButton1.Visible:=False;
Form42.sButton2.Visible:=False;
Form42.Image1.Picture:=Image1.Picture;
Form42.Print;
end
else
begin
Form42.sDBText13.Visible:=False;
Form42.sLabel17.Visible:=False;
Form42.sButton1.Visible:=False;
Form42.sButton2.Visible:=False;
Form42.Image1.Picture:=Image1.Picture;
Form42.Print;
end;
end;
procedure TForm37.sButton6Click(Sender: TObject);
begin
Form43.SHowModal;
Form43.Image1.Picture:=Image1.Picture;
end;
procedure TForm37.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;
procedure TForm37.sButton11Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Состояние').AsString:='Работает';
ADOQuery1.Post;
ShowMessage('Сотрудник приступил к работе.');
end;
procedure TForm37.sEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(sEdit1.text)>0 then
begin
ADOQuery1.Filtered:=true;
case sCombobox1.ItemIndex of
0:ADOQuery1.Filter:='[№] LIKE '+''''+sEdit1.Text+'%'+'''';
1:ADOQuery1.Filter:='[Дата выдачи] LIKE '+''''+sEdit1.Text+'%'+'''';
2:ADOQuery1.Filter:='[Дата приёма] LIKE '+''''+sEdit1.Text+'%'+'''';
3:ADOQuery1.Filter:='[Дата рождения] LIKE '+''''+sEdit1.Text+'%'+'''';
4:ADOQuery1.Filter:='[Документ об образовании] LIKE '+''''+sEdit1.Text+'%'+'''';
5:ADOQuery1.Filter:='[Должность] LIKE '+''''+sEdit1.Text+'%'+'''';
6:ADOQuery1.Filter:='[Кем выдан) №] LIKE '+''''+sEdit1.Text+'%'+'''';
7:ADOQuery1.Filter:='[Место жительства] LIKE '+''''+sEdit1.Text+'%'+'''';
8:ADOQuery1.Filter:='[Образование] LIKE '+''''+sEdit1.Text+'%'+'''';
9:ADOQuery1.Filter:='[Особые отметки] LIKE '+''''+sEdit1.Text+'%'+'''';
10:ADOQuery1.Filter:='[Отпуск] LIKE '+''''+sEdit1.Text+'%'+'''';
11:ADOQuery1.Filter:='[Серия] LIKE '+''''+sEdit1.Text+'%'+'''';
12:ADOQuery1.Filter:='[Состояние] LIKE '+''''+sEdit1.Text+'%'+'''';
13:ADOQuery1.Filter:='[Телефон] LIKE '+''''+sEdit1.Text+'%'+'''';
14:ADOQuery1.Filter:='[Удостоверение] LIKE '+''''+sEdit1.Text+'%'+'''';
15:ADOQuery1.Filter:='[ФИО] LIKE '+''''+sEdit1.Text+'%'+'''';
end;
end
else ADOQuery1.Filtered:=False;
end;
end.
Unit 38
procedure TForm38.sButton1Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sCurrencyEdit3.Text='0') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sCurrencyEdit1.Text='0') or (sEdit6.Text='') or (sCurrencyEdit2.Text='0')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form37.ADOQuery1.Insert;
Form37.ADOQuery1.FieldByName('ФИО').AsString:=sEdit1.Text;
Form37.ADOQuery1.FieldByName('Дата рождения').AsString:=sDateEdit1.Text;
Form37.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit2.Text;
Form37.ADOQuery1.FieldByName('Телефон').AsString:=sCurrencyEdit1.Text;
Form37.ADOQuery1.FieldByName('Образование').AsString:=sComboBox1.Text;
Form37.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit2.Text;
Form37.ADOQuery1.FieldByName('Документ об образовании').AsString:=sComboBox2.Text;
Form37.ADOQuery1.FieldByName('Кем выдан').AsString:=sEdit4.Text;
Form37.ADOQuery1.FieldByName('Серия').AsString:=sEdit3.Text;
Form37.ADOQuery1.FieldByName('№').AsString:=sCurrencyEdit2.Text;
Form37.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit5.Text;
Form37.ADOQuery1.FieldByName('Должность').AsString:=sEdit6.Text;
Form37.ADOQuery1.FieldByName('Удостоверение').AsString:=sCurrencyEdit3.Text;
Form37.ADOQuery1.FieldByName('Состояние').AsString:='Работает';
Form37.ADOQuery1.FieldByName('Дата приёма').AsString:=sDateEdit2.Text;
Form37.ADOQuery1.Post;
sButton1.Enabled:=False;
sButton2.Enabled:=True;
ShowMessage ('Вы успешно зарегистрировали сотрудника в БД. Вы можете загрузить его фото.')
end;
end;
procedure TForm38.sButton3Click(Sender: TObject);
begin
Form38.Close;
end;
procedure TForm38.FormShow(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsEdit then
TsEdit(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsComboBox then
TsComboBox(Components[i]).Text := '';
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TsCurrencyEdit then
TsCurrencyEdit(Components[i]).Text := '';
begin
sButton1.Enabled:=True;
sButton2.Enabled:=False;
end;
end;
end;
end;
procedure TForm38.sComboBox1Change(Sender: TObject);
begin
If (sComboBox1.Text='Нет образования') then
begin
sComboBox2.Text:='Нет';
sComboBox2.Enabled:=False;
end
else
begin
sComboBox2.Enabled:=True;
end;
end;
procedure TForm38.sButton2Click(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
begin
if dlgOpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (Form37.ADOQuery1.State <> dsEdit) and (Form37.ADOQuery1.State <> dsInsert) then
Form37.ADOQuery1.Edit;
Form37.ADOQuery1.FieldByName('name_i').AsString := ExtractFile-Name(dlgOpenPicture.FileName);
Stream.Position := 0;
TBlob-Field(Form37.ADOQuery1.FieldByName('image_i')).LoadFromStream(Stream);
Form37.ADOQuery1.Post;
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
Form37.ADOQuery1.AfterScroll(Form37.ADOQuery1);
end;
end;
Form38.Close;
Form44.Image1.Picture:=Form37.Image1.Picture;
Form44.Print;
ShowMessage('Регистрация успешна!')
end;
end.
Unit 39
procedure TForm39.sButton1Click(Sender: TObject);
begin
If (sCurrencyEdit3.Text='0') then
begin
ShowMessage('Неверное значение');
end
else
begin
Form37.ADOQuery1.Edit;
Form37.ADOQuery1.FieldByName('Удостоверение').AsString:=sCurrencyEdit3.Text;
Form37.ADOQuery1.FieldByName('Особые отметки').AsString:='Дубликат свидетельства';
Form37.ADOQuery1.Post;
Form44.Image1.Picture:=Form37.Image1.Picture;
Form44.Print;
Form39.Close;
end;
end;
procedure TForm39.sButton2Click(Sender: TObject);
begin
Form39.Close;
end;
end.
Unit 40
procedure TForm40.sButton1Click(Sender: TObject);
begin
Form40.Close;
end;
procedure TForm40.sButton2Click(Sender: TObject);
begin
Form37.ADOQuery1.Edit;
Form37.ADOQuery1.FieldByName('Отпуск').AsString:=sCurrencyEdit1.Text;
Form37.ADOQuery1.FieldByName('Состояние').AsString:=sComboBox1.Text;
Form37.ADOQuery1.Post;
Form40.Close;
end;
end.
Unit 41
procedure TForm41.sButton1Click(Sender: TObject);
begin
Form41.Close;
end;
procedure TForm41.sButton2Click(Sender: TObject);
begin
Form37.ADOQuery1.Edit;
Form37.ADOQuery1.FieldByName('Должность').AsString:=sEdit1.Text;
Form37.ADOQuery1.Post;
Form41.Close;
ShowMessage ('Должность изменена')
end;
procedure TForm41.FormShow(Sender: TObject);
begin
sEdit1.Text:='';
end;
end.
Unit 42
procedure TForm42.sButton2Click(Sender: TObject);
begin
sButton1.Visible:=False;
sButton2.Visible:=False;
Form42.Print;
Form42.Close;
end;
procedure TForm42.sButton1Click(Sender: TObject);
begin
Form42.Close;
end;
procedure TForm42.FormCreate(Sender: TObject);
begin
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
procedure TForm42.Image1Click(Sender: TObject);
begin
QBig.Image1.Picture:=Image1.Picture;
QBig.ShowModal;
end;
end.
Unit 43
procedure TForm43.sButton3Click(Sender: TObject);
begin
Form43.Close;
end;
procedure TForm43.sButton1Click(Sender: TObject);
begin
If (sEdit1.Text='') or (sCurrencyEdit3.Text='0') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sCurrencyEdit1.Text='0') or (sEdit6.Text='') or (sCurrencyEdit2.Text='0')
Then
Application.MessageBox('Одно или несколько полей незаполнены!', 'Ошибка ввода данных', MB_OK + MB_ICONSTOP)
else
begin
Form37.ADOQuery1.Edit;
Form37.ADOQuery1.FieldByName('ФИО').AsString:=sEdit1.Text;
Form37.ADOQuery1.FieldByName('Дата рождения').AsString:=sDateEdit1.Text;
Form37.ADOQuery1.FieldByName('Место жительства').AsString:=sEdit2.Text;
Form37.ADOQuery1.FieldByName('Телефон').AsString:=sCurrencyEdit1.Text;
Form37.ADOQuery1.FieldByName('Образование').AsString:=sComboBox1.Text;
Form37.ADOQuery1.FieldByName('Дата выдачи').AsString:=sDateEdit2.Text;
Form37.ADOQuery1.FieldByName('Документ об образовании').AsString:=sComboBox2.Text;
Form37.ADOQuery1.FieldByName('Кем выдан').AsString:=sEdit4.Text;
Form37.ADOQuery1.FieldByName('Серия').AsString:=sEdit3.Text;
Form37.ADOQuery1.FieldByName('№').AsString:=sCurrencyEdit2.Text;
Form37.ADOQuery1.FieldByName('Особые отметки').AsString:=sEdit5.Text;
Form37.ADOQuery1.FieldByName('Должность').AsString:=sEdit6.Text;
Form37.ADOQuery1.FieldByName('Удостоверение').AsString:=sCurrencyEdit3.Text;
Form37.ADOQuery1.FieldByName('Дата приёма').AsString:=sDateEdit2.Text;
Form37.ADOQuery1.Post;
ShowMessage ('Изменения успешно сохранены.')
end;
end;
procedure TForm43.FormShow(Sender: TObject);
begin
sEdit1.Text:=Form42.sDBText1.Caption;
sDateEdit1.Text:=Form42.sDBText2.Caption;
sEdit2.Text:=Form42.sDBText3.Caption;
sCurrencyEdit1.Text:=Form42.sDBText4.Caption;
sComboBox1.Text:=Form42.sDBText15.Caption;
sDateEdit2.Text:=Form42.sDBText9.Caption;
sComboBox2.Text:=Form42.sDBText14.Caption;
sEdit4.Text:=Form42.sDBText10.Caption;
sEdit3.Text:=Form42.sDBText12.Caption;
sCurrencyEdit2.Text:=Form42.sDBText11.Caption;
sEdit5.Text:=Form42.sDBText16.Caption;
sEdit6.Text:=Form42.sDBText5.Caption;
sCurrencyEdit3.Text:=Form42.sDBText7.Caption;
end;
procedure TForm43.sButton2Click(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
begin
if dlgOpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(dlgOpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Image1.Picture.Bitmap do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Image1.Picture.Icon do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Image1.Picture.Metafile do
begin
LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Bitmap.SaveToStream(Stream);
end;
end
else
if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(dlgOpenPicture.FileName);
Image1.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
if (Form37.ADOQuery1.State <> dsEdit) and (Form37.ADOQuery1.State <> dsInsert) then
Form37.ADOQuery1.Edit;
Form37.ADOQuery1.FieldByName('name_i').AsString := ExtractFile-Name(dlgOpenPicture.FileName);
Stream.Position := 0;
TBlob-Field(Form37.ADOQuery1.FieldByName('image_i')).LoadFromStream(Stream);
Form37.ADOQuery1.Post;
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
Form37.ADOQuery1.AfterScroll(Form37.ADOQuery1);
end;
end;
Form43.Close;
end;
procedure TForm43.FormCreate(Sender: TObject);
begin
Image2.Picture.LoadFromFile('Image/nopic.jpg');
end;
procedure TForm43.Image1Click(Sender: TObject);
begin
QBig.Image1.Picture:=Form37.Image1.Picture;
Qbig.ShowModal;
end;
end.
Unit 45
procedure TForm45.sButton1Click(Sender: TObject);
begin
Form1.sSkinManager1.SkinName:=sComboBox1.Text;
end;
procedure TForm45.sCheckBox1Click(Sender: TObject);
begin
If sCheckBox1.Checked then begin
Form1.sSkinManager1.Active:=False;
sButton1.Enabled:=false;
sComboBox1.Enabled:=false;
end
else
begin
Form1.sSkinManager1.Active:=True;
sButton1.Enabled:=True;
sComboBox1.Enabled:=True;
end;
end;
procedure TForm45.sButton2Click(Sender: TObject);
begin
Form45.Close;
end;
end.
Размещено на Allbest.ru
...Подобные документы
Основы программирования на 32-битном Ассемблере, разработка с его помощью программы, демонстрирующей работу одного из разделов ОС Windоws. Описание используемых АРI-функций как интерфейса программирования приложений. Листинг программы, результаты работы.
курсовая работа [164,5 K], добавлен 18.05.2014Характеритсика и роль автоматизации в бухгалтерском учете. Описание создания базы данных для расчета заработной платы сотрудников предприятия, вывода отчета. Выбор программного обеспечения, процедур и функций. Рассмотрение основ интерфейса программы.
курсовая работа [933,8 K], добавлен 19.04.2015Описание логической и модульной структуры разрабатываемой программы, используемые в данном процессе основные технические средства. Организация хранения данных в программе, проектирование интерфейса. Тестирование и отладка, листинг готовой программы.
курсовая работа [494,5 K], добавлен 20.06.2012Теоретические основы разработки приложения, реализующего подсвечивание ключевых слов. Описание используемых процедур и функций, структуры программы, интерфейса пользователя. Системные требования для работы приложения, анализ результаты его тестирования.
курсовая работа [1,2 M], добавлен 07.07.2012Анализ и описание алгоритма. Основные характеристики выбранного компьютера, программных сред (операционная система и среда программирования). Описание компонентов и интерфейса программы, а также модулей, процедур и функций. Вызов и загрузка программы.
курсовая работа [1,3 M], добавлен 26.04.2015Описание входной и выходной информации. Программно-технические средства, необходимые для разработки программы "Автоматизированная информационная справочная система аптеки". Возможность формирования и корректировки файлов, тестирование программы.
курсовая работа [761,7 K], добавлен 18.12.2013Характеристика функциональных возможностей разрабатываемой программы в среде Delphi для регистрации абитуриентов. Описание алгоритма и структуры данной программы. Поиск данных в базе по заданным параметрам. Описание модулей и листинг программы.
курсовая работа [801,5 K], добавлен 19.07.2011Существующие альтернативы программы. Описание формул для выкроек, используемых в разработке. Описание разрабатываемой программы, а также структура ее интерфейса. Детальное описание возможностей и спецификация, функциональные особенности программы.
курсовая работа [427,4 K], добавлен 10.10.2015Язык Delphi как строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal, его главные особенности. Стадии создания автоматизированной системы. Листинг программы, разработка интерфейса.
курсовая работа [933,9 K], добавлен 08.12.2011Описание предметной области. Характеристика программных средств. Описание компонентов, интерфейс программы. Описание процедур и функций. Вызов и загрузка программы. Испытание методом белого и черного ящика на ошибки кода программного приложения.
курсовая работа [2,2 M], добавлен 26.04.2015Объектная модель программной системы согласно методологии ОМТ (в виде IDEF-диаграмм): анализ предъявляемых требований и предварительное проектирование системы. Описание алгоритмов обработки данных. Реализация системы на языке С#, листинг программы.
контрольная работа [399,2 K], добавлен 25.02.2013Cоздание и описание логической модели автоматизированной системы обработки информации. Проектирование структуры системы в виде диаграмм UML. Анализ программных средств разработки программного обеспечения и интерфейса. Осуществление тестирования программы.
дипломная работа [2,5 M], добавлен 25.01.2015Общие сведения об автоматизированных информационных системах библиотек. Разработка графического макета, интерфейса и дизайна информационной системы. Требования к функциональной части системы. Создание программных модулей. Алгоритмы обработки данных.
дипломная работа [1,7 M], добавлен 04.11.2016Описание использованных структур данных и разработка программы, обеспечивающей сжатие данных по алгоритму LZ77 с пошаговой визуализацией. Описание процедур, функций, структуры приложения и интерфейса пользователя. Тест и анализ работы алгоритма LZ77.
курсовая работа [537,9 K], добавлен 28.06.2011Анализ входной и выходной информации, особенности ее документационного обеспечения. Описание таблиц и их основное содержание. Методика и этапы разработки интерфейса программы и ее листинг, а также формирование инструкций пользователя и программиста.
курсовая работа [682,7 K], добавлен 30.07.2015Программное обеспечение для диспетчерских станций карьеров по добыче полезных ископаемых. Описание технологий и языков программирования, используемых при разработке программы. Технические и программные средства. Описание логической структуры программы.
дипломная работа [2,0 M], добавлен 23.12.2016Анализ проектирования интерфейса программы. Выбор и назначение визуальных компонентов. Изучение экранных форм приложения. Модули, процедуры, функции проекта и их назначение. Листинг программного кода. Результаты работы автоматизированного продукта.
курсовая работа [1,9 M], добавлен 11.12.2017Область применения системы учета перевозок в карьере горно-обогатительного комбината. Функциональное назначение, описание логической структуры программы, пользовательского интерфейса, языков программирования, используемых при разработке программы.
дипломная работа [3,0 M], добавлен 21.12.2016Общие сведения о программном средстве по моделированию работы электродвигателя, его функциональное назначение. Описание логической структуры программного обеспечения. Вызов программы modelDPR52, ее загрузка, входные и выходные данные. Листинг программы.
курсовая работа [420,0 K], добавлен 28.05.2012Создание базы данных и СУБД. Структура простейшей базы данных. Особенности языка программирования Турбо Паскаль. Описание типов, констант, переменных, процедур и функций. Описание алгоритма базы данных (для сотрудников ГИБДД), листинг программы.
курсовая работа [26,3 K], добавлен 26.01.2012
