Файл: Проектирование реализации операций бизнес-процесса «Учет ремонтных работ жилищно-коммунального хозяйства».pdf

Проектная часть посвящена созданию конфигурации для решения задачи. Также дана характеристика информационной архитектуры разрабатываемой проекта, описана структура справочников, документов, проанализированы все информационные потоки входной, оперативной, нормативно-справочной и результатной информации.

Список использованной литературы

1. ГОСТ 34.602-89. «Комплекс стандартов на автоматизированные системы. Автоматизированные системы. Техническое задание на создание автоматизированной системы».
2. Абрамов Г.В., Медведкова И.Е., Коробкова Л.А. «Проектирование информационных систем» - Воронеж:ВГУИТ, 2012. - 172 с.
3. Аверченков В.И., Лозбинев Ф.Ю., Тищенко А.А. «Информационные системы в производстве и экономике» - М.:ФЛИНТА, 2011. - 274 с.
4. Братищенко В.В. «Проектирование информационных систем» - Иркутск: Изд-во БГУЭП, 2010. - 84 с.
5. Вендеров А.М. «Проектирование программного обеспечения экономических информационных систем» - М.: Финансы и статистика, 2012.
6. Гвоздева Т.В., Баллод Б.А. «Проектирование информационных систем» - М.:Феникс, 2011. - 512 с.
7. Гвоздева В.А., Лаврентьева И.Ю. «Основы построения АИС» - М.: ИД «ФОРУМ»: ИНФРА-М, 2010. – 320с.
8. Калянов Г.Н. «Стратегическое управление информационными системами» - М.:БИНОМ, 2010. - 510 с.
9. Коровкина Н.Л. «Проектирование информационных систем» - М.: Инетрнет-университет информационных технологий - ИНТУИТ. ру, 2013.
10. Мишенин А.И. «Теория экономических информационных систем» - М.: Финансы и статистика, 2011. - 240 с.
11. Соловьев И.В., Майоров А.А. «Проектирование информационных систем» - М.:Академический проект, 2011. - 400 с.
12. Титоренко Г.А. «Информационные системы и технологии управления» - М.:ЮНИТИ-ДАНА, 2012. - 591 с.
13. Черемных С.В. «Моделирование и анализ систем» - М.: Финансы и статистика, 2013. - 192 с.

Приложение

nit zayavka_f;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, sBitBtn, sGroupBox, sCheckBox, Mask, sMaskEdit,

sCustomComboEdit, sTooledit, sComboBox, DBCtrls, sDBEdit, sLabel,

sSpeedButton, ExtCtrls, sPanel, sBevel, sRadioButton, Grids, DBGrids, RzDBGrid,

sComboEdit, RzButton, RzRadChk, RzGrids, sEdit, DB, ADODB;

type

Tzayavka = class(TForm)

sLabel7: TsLabel;

lb_disp: TsLabel;

sGroupBox1: TsGroupBox;

combo_lico: TsLabel;

combo_tip_lica: TsComboBox;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

btn_vib: TsBitBtn;

sLabel14: TsLabel;

ed_tel: TsMaskEdit;

rad_d: TsRadioButton;

rad_m: TsRadioButton;

sLabel13: TsLabel;

sLabel18: TsLabel;

dtp_post: TsDateEdit;

ed_time_post: TsMaskEdit;

sLabel12: TsLabel;

sGroupBox2: TsGroupBox;

sLabel15: TsLabel;

combo_type_neispr: TsComboBox;

btn_add_z: TsBitBtn;

btn_del_z: TsBitBtn;

btn_ok: TsSpeedButton;

btn_cancel: TsSpeedButton;

sGroupBox3: TsGroupBox;

bvl_avar: TsBevel;

check_gor: TCheckBox;

check_hol: TCheckBox;

check_el: TCheckBox;

sLabel1: TsLabel;

dtp_data_prib: TsDateEdit;

sLabel2: TsLabel;

ed_time_prib: TsMaskEdit;

sLabel3: TsLabel;

sLabel4: TsLabel;

combo_master: TsComboEdit;

sBevel1: TsBevel;

sBevel2: TsBevel;

chek_avar: TsCheckBox;

grid_pr: TRzStringGrid;

ed_raion: TsEdit;

ed_yl: TsEdit;

ed_dom: TsEdit;

ed_kv: TsEdit;

ed_fio: TsEdit;

q_st_prin: TADOQuery;

procedure rad_dClick(Sender: TObject);

procedure rad_mClick(Sender: TObject);

procedure chek_avarClick(Sender: TObject);

procedure btn_add_zClick(Sender: TObject);

procedure btn_vibClick(Sender: TObject);

procedure combo_masterButtonClick(Sender: TObject);

procedure btn_cancelClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure btn_okClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure btn_del_zClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure DeleteRow(ARow: Integer);

end;

var

zayavka: Tzayavka;

implementation

uses DM_f, problema_f, adresa_form, sotr_f, main_f, autorizaciya_form;

{$R *.dfm}

procedure Tzayavka.DeleteRow(ARow: Integer);

var i, j: Integer;

begin

with grid_pr do

begin

for i:=ARow+1 to RowCount-1 do

for j:=0 to ColCount-1 do

Cells[j, i-1]:=Cells[j, i];

for i:=0 to ColCount-1 do

Cells[i, RowCount-1]:='';

RowCount:=RowCount-1;

end;

end;

procedure Tzayavka.btn_add_zClick(Sender: TObject);

begin

problema.btn_vib.Visible:=True;

problema.btn_vib.Tag:=1;

problema.Show;

end;

procedure Tzayavka.btn_cancelClick(Sender: TObject);

begin

Close;

end;

procedure Tzayavka.btn_del_zClick(Sender: TObject);

begin

if grid_pr.RowCount>2 then

DeleteRow(grid_pr.Row)

else grid_pr.Cells[0,1]:='';

end;

procedure Tzayavka.btn_okClick(Sender: TObject);

var

i: Integer;

t:TDateTime;

begin

try

if (dtp_post.Text<>' . . ')and(ed_time_post.Text<>' : ') then

BEGIN

t:=StrToTime(ed_time_post.Text);

t:=StrToDate(dtp_post.Text);

if (combo_tip_lica.Text<>'')and(ed_raion.Text<>'')and(ed_yl.Text<>'')and(ed_dom.Text<>'')and(ed_kv.Text<>'')and((ed_tel.Text<>' - - - - ')or(ed_tel.Text<>' - - '))and(combo_type_neispr.Text<>'') then

begin

if Tag<>1 then dm.zayavka.Edit;

DM.personal.Locate('kod_pers',autorizaciya.q_paskod_pers.AsInteger,[]);

dm.zayavkadispetcher.AsString:=dm.personalfio.AsString;

dm.zayavkadata_post.AsString:=dtp_post.Text;

dm.zayavkatime_post.AsString:=ed_time_post.Text;

dm.zayavkatip_lica.AsString:=combo_tip_lica.Text;

dm.zayavkaraion.AsString:=ed_raion.Text;

dm.zayavkaylica.AsString:=ed_yl.Text;

dm.zayavkadom.AsString:=ed_dom.Text;

dm.zayavkakv.AsString:=ed_kv.Text;

dm.zayavkafio.AsString:=ed_fio.Text;

dm.zayavkaraion.AsString:=ed_raion.Text;

dm.zayavkaylica.AsString:=ed_yl.Text;

dm.zayavkadom.AsString:=ed_dom.Text;

dm.zayavkakv.AsString:=ed_kv.Text;

dm.zayavkatel.AsString:=ed_tel.Text;

dm.zayavkatip_neispr.AsString:=combo_type_neispr.Text;

if chek_avar.Checked=true then

begin

dm.zayavkaavar.AsBoolean:=true;

if check_hol.Checked=true then dm.zayavkaotkl_h_voda.AsBoolean:=true else dm.zayavkaotkl_h_voda.AsBoolean:=False;

if check_gor.Checked=true then dm.zayavkaotkl_g_voda.AsBoolean:=true else dm.zayavkaotkl_g_voda.AsBoolean:=False;

if check_el.Checked=true then dm.zayavkaotkl_el.AsBoolean:=true else dm.zayavkaotkl_el.AsBoolean:=False;

end;

dm.zayavkakod_pers.AsInteger:=combo_master.Tag;

if dtp_data_prib.Text<>' . . ' then