АИС формирования балансов и учета платежей за потребление электрической энергии на ООО «Антанта Строй»

Содержание
ВВЕДЕНИЕ 5
1 ПРОБЛЕМЫ РАЗРАБОТКИ АВТОМАТИЗИРОВАННЫХ СИСТЕМ УЧЕТА В ОБЛАСТИ ЭНЕРГОУЧЕТА И КОНТРОЛЯ ОПЛАТЫ 8
1.1 Задача разработки автоматизированной информационной системы управления балансом и платежами за потребление электрической энергии 8
1.2 Формирование балансов и учет платежей за потребление электрической энергии на ООО «Антанта Строй» 11
1.2 Анализ современных методов решения задач автоматизированного учета и контроля оплаты 14
2 СИСТЕМНЫЙ АНАЛИЗ ПРОЦЕССОВ АВТОМАТИЗИРОВАННОГО УПРАВЛЕНИЯ БАЛАНСОМ И ПЛАТЕЖАМИ ЗА ПОТРЕБЛЕНИЕ ЭЛЕКТРИЧЕСКОЙ ЭНЕРГИИ 18
2.1 Концептуальная модель процесса автоматизированного управления балансом и платежами за потребление электрической энергии 18
2.2 Формирование требований к проектируемой системе 21
2.3 Требования к системе 27
2.3.1 Функциональные требования 27
2.3.2 Требования по производительности 27
2.3.3 Требования по интерфейсу 28
2.3.3 Операционные требования 28
2.3.4 Верификационные требования 28
2.3.5 Требования по приемочным испытаниям 28
2.3.6 Требования по документации 29
2.3.7 Требования по защите 29
2.3.8 Требования по переносимости 30
2.3.9 Требования по качеству 30
2.3.10 Требования по надежности ПО 30
2.3.11 Требования по сопровождению 30
2.3.12 Требования по безопасности 31
2.4 Функциональная модель системы управления балансом и платежами за потребление электрической энергии 31
3 ПРОЕКТИРОВАНИЕ АВТОМАТИЗИРОВАННОЙ ИНФОРМАЦИОННОЙ СИСТЕМЫ ФОРМИРОВАНИЯ БАЛАНСОВ И УЧЕТА ПЛАТЕЖЕЙ ЗА ПОТРЕБЛЕНИЕ ЭЛЕКТРИЧЕСКОЙ
ЭНЕРГИИ 33
3.1 Характеристики информационных потоков 33
3.2 Построение информационно-логической модели проектируемой системы 33
3.3 Структура системы 40
3.4 Проектирование пользовательского интерфейса 45
4 ЭКОНОМИЧЕСКАЯ ЭФФЕКТИВНОСТЬ ПРОЕКТИРУЕМОЙ СИСТЕМЫ 62
4.1 Анализ источников экономической эффективности АИС 62
4.2 Расчёт показателей экономической эффективности проекта 66
ЗАКЛЮЧЕНИЕ 75
ЛИТЕРАТУРА 77

dfm}
function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Pred(AFormName.MDIChildCount) DownTo 0 do
if (AFormName.MDIChildren[i].Name = AMDIChildName) then
begin
Result := True;
AFormName.MDIChildren[i].Free;
end;
end;
function TMainClientsForm.IsFormOpen(const FormName : string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Screen.FormCount - 1 DownTo 0 do
if (Screen.Forms[i].Name = FormName) then
begin
Result := True;
Break;
end;
end;
procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource);
begin
//создаем форму
DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner);
DirectoryForm.TableDBGrid.DataSource:=ds;
DirectoryForm.Top:=0;
DirectoryForm.Left:=0;
DirectoryForm.Caption:=sCaption;
end;
procedure TMainClientsForm.N12Click(Sender: TObject);
begin
MainClientsForm.Close;
end;
procedure TMainClientsForm.N6Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;
mainclientsform.ADOTable7.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('клиенты', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' ФИО ';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Ид р/с ';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' адрес ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:=' Организация ';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:=' тел. ';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:=' льгот ';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:=' дата рег. ';
DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:=' ИД прибор ';
DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:=' атрибуты ';
DirectoryForm.TableDBGrid.Fields[10].DisplayLabel:=' договор ';
end;
procedure TMainClientsForm.N7Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;
mainclientsform.ADOTable2.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('расчетные счета', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ид. ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Номер ';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Дата регистрации';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Всего КВт';
{DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='цель';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='количество';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='стоимость';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='номер партии';}
end;
procedure TMainClientsForm.N8Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;
mainclientsform.ADOTable3.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('текущие платежи', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' дата ';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' ИД. расч. счета';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' КВТ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:=' сумма ';
{DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='кто резерв.';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='дата резерв.';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='примечание';}
end;
procedure TMainClientsForm.N9Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;
mainclientsform.ADOTable4.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem(' поставщики элект.', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД. ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Адрес';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Атрибут';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='договоры';
end;
procedure TMainClientsForm.N10Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;
mainclientsform.ADOTable5.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem(' Прибор учета ', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Марка';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Номер ';
{DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Атрибут';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Договор';}
end;
procedure TMainClientsForm.N20Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;
mainclientsform.ADOTable6.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Выставленные счета', mainclientsform.DataSource1);
{DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='серийный номер';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='срок годности';}
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД Счет';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Ид Атрибут';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Ид Баланс ';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Дата';
end;
procedure TMainClientsForm.N22Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'addForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
MainClientsForm.N6Click(sender);
prosmForm:=Taddform.Create(Owner);
prosmForm.Top:=230;
prosmForm.Left:=0;
prosmForm.Width:=500;
prosmForm.Height:=200;
prosmForm.Caption:='просмотр записей';
prosmForm.Button1.Visible:=false;
prosmForm.DBNavigator1.Visible:=true;
mainflag:=true;
prosmForm.Show;
prosmForm.GroupBox4.Visible:=false;
MainClientsForm.DataSource1.DataSet.last

end;
procedure TMainClientsForm.FormCreate(Sender: TObject);
var NewConnection: Widestring;
begin
ADOConnection1.Close;
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\baza.mdb;';
ADOConnection1.Open;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable7.Active:=true;
end;
procedure TMainClientsForm.N3Click(Sender: TObject);
var dobForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'addForm');
dobForm:=Taddform.Create(Owner);
dobForm.Top:=240;
dobForm.Left:=3;
dobForm.Caption:='добавление записи';
dobForm.Show;
dobForm.GroupBox4.Visible:=false;
dobForm.Button1.Visible:=true;
end;
procedure TMainClientsForm.DataSource1DataChange(Sender: TObject;
Field: TField);
var
sql_str,rez:string;
P11:Tparameter;
rezdate:tdatetime;
rezint:integer;
rezfloat:real;
Ayear, amonth,aday,ahour,aminute,asecond,amillisecond:word;
begin
if mainflag then
begin
prosmForm.edit1.text:='';
prosmForm.edit2.text:='';
prosmForm.edit3.text:='';
prosmForm.edit4.text:='';
prosmForm.edit5.text:='';
prosmForm.edit6.text:='';
prosmForm.edit7.text:='';
prosmForm.edit8.text:='';
prosmForm.edit9.text:='';
prosmForm.edit10.text:='';
prosmForm.edit11.text:='';
prosmForm.edit14.text:='';
prosmForm.edit17.text:='';
prosmForm.edit41.text:='';
fio:=MainClientsForm.DataSource1.DataSet.FieldByName('Fio').AsString;
id_atribute:=MainClientsForm.DataSource1.DataSet.FieldByName('id_atribute').AsInteger;
organization:=MainClientsForm.DataSource1.DataSet.FieldByName('organization').AsString;
adres:= MainClientsForm.DataSource1.DataSet.FieldByName('adres').AsString;
tel:=MainClientsForm.DataSource1.DataSet.FieldByName('tel').AsString;
lgot:=MainClientsForm.DataSource1.DataSet.FieldByName('lgot').AsString;
datareg:=MainClientsForm.DataSource1.DataSet.FieldByName('datareg').AsDateTime;
id_pribor:=MainClientsForm.DataSource1.DataSet.FieldByName('id_pribor').AsInteger;
dogovor:=MainClientsForm.DataSource1.DataSet.FieldByName('dogovor').AsString;
id_postavshik:=MainClientsForm.DataSource1.DataSet.FieldByName('id_postavshik').AsInteger;
prosmForm.Edit1.Text:= fio;
prosmForm.Edit41.Text:=adres;
prosmForm.Edit17.Text:=dogovor;
prosmForm.edit9.Text:=organization;
prosmForm.edit10.Text:=tel;
prosmForm.edit11.Text:=lgot;
if id_atribute<>0 then begin
MainClientsForm.ADOTable2.Active:=true;
if MainClientsForm.ADOTable2.Locate('id_atribute',id_atribute,[]) then
begin
rr:= MainClientsForm.adotable2.FieldByName('nomer').AsString;
prosmForm.Edit2.Text:=rr;
end;
MainClientsForm.ADOTable1.Active:=true;
if MainClientsForm.ADOTable1.Locate('id_atribute',id_atribute,[]) then begin
kvt:= MainClientsForm.adotable1.FieldByName('balance_kvt').AsFloat;
prosmForm.Edit4.Text:=floattostr(kvt);
summa:= MainClientsForm.adotable1.FieldByName('balance_rub').AsFloat;
prosmForm.Edit5.Text:=floattostr(summa);
period:= MainClientsForm.adotable1.FieldByName('period').AsString;
prosmForm.Edit6.Text:=period;
end;
end;
if id_postavshik<>0 then begin
MainClientsForm.ADOTable4.Active:=true;
if MainClientsForm.ADOTable4.Locate('id_postavshik', id_postavshik,[]) then begin
postavshik:= MainClientsForm.adotable4.FieldByName('name').AsString;
prosmForm.Edit7.Text:=postavshik;
atrib_p:= MainClientsForm.adotable4.FieldByName('atribute').AsString;
prosmForm.Edit8.Text:=atrib_p;
end;
end;
if id_pribor<>0 then begin
MainClientsForm.ADOTable5.Active:=true;
if MainClientsForm.ADOTable5.Locate('id_pribor',id_pribor,[]) then
begin
pribor:= MainClientsForm.adotable5.FieldByName('marka').AsString;
prosmForm.Edit3.Text:=pribor;
nomer:= MainClientsForm.adotable5.FieldByName('nomer').AsString;
prosmForm.Edit14.Text:=nomer;
end;
end;
{ MainClientsForm.ADOTable7.FieldByName('dogovor').AsString:= dogovor;}
//из таблицы
end;
end;
procedure TMainClientsForm.N4Click(Sender: TObject);
var zakForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'zakForm');
IsMDIChildOpen(MainClientsForm,'addForm');
zakForm:=Taddform.Create(Owner);
zakForm.Top:=240;
zakForm.Left:=3;
zakForm.Caption:='создание заказа';
zakForm.Show;
zakForm.GroupBox2.Visible:=false;
zakForm.GroupBox4.Visible:=false;
// show;
end;
procedure TMainClientsForm.N14Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск потребителя';
poisk.Label1.Caption:='фамилия потребителя';
nomer_poisk:=1;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;
procedure TMainClientsForm.N15Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск платежа';
nomer_poisk:=2;
poisk.Label1.Caption:='расчетный счет';
poisk.Edit1.Visible:=true;
poisk.Label1.Visible:=true;;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;
procedure TMainClientsForm.N16Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск счетов с отрицательным балансом';
nomer_poisk:=3;
poisk.Label1.Caption:='отрицательный баланс';
poisk.Edit1.Visible:=false;
poisk.Label1.Visible:=true;;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;
procedure TMainClientsForm.N17Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='просмотр хронологии платежей';
nomer_poisk:=4;
poisk.Label1.Visible:=false;
poisk.Edit1.Visible:=false;
poisk.Label7.Caption:='Платежи в период'
end;
procedure TMainClientsForm.N11Click(Sender: TObject);
var naklForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'naklForm');
IsMDIChildOpen(MainClientsForm,'addForm');
naklForm:=Taddform.Create(Owner);
naklForm.Top:=240;
naklForm.Left:=3;
naklForm.Caption:='ввод квитанции';
naklForm.Show;
naklForm.GroupBox2.Visible:=false;
naklForm.GroupBox4.Left:=2;
naklForm.GroupBox4.Top:=2;
naklForm.GroupBox4.Width:=600;
naklForm.GroupBox4.Height:=250;
end;
procedure TMainClientsForm.N19Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='создание счетов';
nomer_poisk:=5;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
poisk.Label1.Visible:=false;
poisk.Button1.Caption:='создание счетов'
end;
procedure TMainClientsForm.N18Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;
mainclientsform.ADOTable1.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('балансы счетов', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ИД поставщик';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' ИД. атрибут';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' КВТ ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:=' Сумма ';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:=' Период ';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:=' ИД платежа';
end;
end.
unit addsorce;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,
StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls, Buttons , OleServer, ExcelXP, OleCtnrs, ComObj;
type
TaddForm = class(TForm)
Panel1: TPanel;
GroupBox2: TGroupBox;
DBNavigator1: TDBNavigator;
Label7: TLabel;
Label5: TLabel;
Label2: TLabel;
Label1: TLabel;
Edit1: TEdit;
Edit5: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit17: TEdit;
Label14: TLabel;
Label3: TLabel;
Label6: TLabel;
Label11: TLabel;
Edit14: TEdit;
Edit4: TEdit;
GroupBox4: TGroupBox;
Label23: TLabel;
Label24: TLabel;
Edit33: TEdit;
Label28: TLabel;
Edit36: TEdit;
Label29: TLabel;
Edit38: TEdit;
Button3: TButton;
Edit41: TEdit;
Label4: TLabel;
Edit6: TEdit;
Label8: TLabel;
Button1: TButton;
Label9: TLabel;
Label10: TLabel;
Edit9: TEdit;
Label12: TLabel;
Edit10: TEdit;
Label13: TLabel;
Edit11: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit35: TEdit;
BitBtn1: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
addForm: TaddForm;
naim:string;
ed_izm:string;
kolvo:integer;
cena:real;
fio_e, adres_e:string;
srok_godnost:tdate;
data_postavka:tdate;
postavchik:string;
description:string;
location:string;
location_part:string;
primech:string;
Ayear, amonth,aday:word;
razmer_part,kol:integer;
id_part,idaddional,idlocation,idzapas:integer;
balance_kvt_e, balance_rub_e:real;
var idschet:integer;
implementation
uses MainClients;
{$R *.dfm}
procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TaddForm.Button1Click(Sender: TObject);
begin
kolvo:=strtoint(Edit2.Text);
cena:=strtofloat(Edit3.Text);
nomerpartiya:=Edit4.Text;
sernum:=Edit5.Text;
srok_godnost:=encodedate(Ayear, amonth,aday);
data_postavka :=encodedate(Ayear, amonth,aday);
fio:=Edit1.Text;
rr:=Edit2.Text;
adres:= Edit41.Text;
postavshik:=Edit7.Text;
dogovor:=Edit17.Text;
period:=Edit6.Text;
kvt:=strtofloat(Edit4.Text );
summa:= strtofloat(Edit5.Text );
organization:=edit9.Text;
pribor:=edit3.Text;
nomer:=edit14.Text;
atrib_p:=edit8.Text;
tel:=edit10.Text;
lgot:=edit11.Text;
if fio<>'' then begin
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable2.Insert;
MainClientsForm.ADOTable2.FieldByName('nomer').AsString:=rr;
MainClientsForm.ADOTable2.FieldByName('nomer_dog').AsString:= dogovor;
MainClientsForm.ADOTable2.FieldByName('data_reg').AsDateTime:= now;
MainClientsForm.ADOTable2.FieldByName('vsego').AsInteger:= 0;
MainClientsForm.ADOTable2.Post;
id_atribute:=MainClientsForm.ADOTable2.FieldByName('id_atribute').AsInteger;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable5.Insert;
MainClientsForm.ADOTable5.FieldByName('marka').AsString:=pribor;
MainClientsForm.ADOTable5.FieldByName('nomer').AsString:= nomer;
MainClientsForm.ADOTable5.Post;
id_pribor:=MainClientsForm.ADOTable5.FieldByName('id_pribor').AsInteger;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Insert;
MainClientsForm.ADOTable4.FieldByName('name').AsString:= postavshik;
MainClientsForm.ADOTable4.FieldByName('atribute').AsString:= atrib_p;
MainClientsForm.ADOTable4.FieldByName('dogovor').AsString:= dogovor;
MainClientsForm.ADOTable4.Post;
id_postavshik:=MainClientsForm.ADOTable4.FieldByName('id_postavshik').AsInteger;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable1.Insert;
MainClientsForm.ADOTable1.FieldByName('id_postavshik').AsInteger:= id_postavshik;
MainClientsForm.ADOTable1.FieldByName('id_atribute').AsInteger:= id_atribute;
MainClientsForm.ADOTable1.FieldByName('balance_kvt').AsFloat:= kvt;
MainClientsForm.ADOTable1.FieldByName('balance_rub').AsFloat:= summa;
MainClientsForm.ADOTable1.FieldByName('period').AsString:= period;
MainClientsForm.ADOTable1.Post;
id_balans:=MainClientsForm.ADOTable1.FieldByName('id_balans').AsInteger;
MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable7.Insert;
MainClientsForm.ADOTable7.FieldByName('Fio').AsString:= Fio;
MainClientsForm.ADOTable7.FieldByName('id_atribute').AsInteger:= id_atribute;
MainClientsForm.ADOTable7.FieldByName('organization').AsString:= organization;
MainClientsForm.ADOTable7.FieldByName('adres').AsString:= adres;
MainClientsForm.ADOTable7.FieldByName('tel').AsString:= tel;
MainClientsForm.ADOTable7.FieldByName('lgot').AsString:= lgot;
MainClientsForm.ADOTable7.FieldByName('datareg').AsDateTime:= now;
MainClientsForm.ADOTable7.FieldByName('id_pribor').AsInteger:= id_pribor;
MainClientsForm.ADOTable7.FieldByName('dogovor').AsString:= dogovor;
MainClientsForm.ADOTable7.FieldByName('id_postavshik').AsInteger:= id_postavshik;
MainClientsForm.ADOTable7.Post;
end;
end;
procedure Tparampoik.RzBitBtn4Click(Sender: TObject);
begin
flagpoisk:=false;
MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');
end;
procedure Tparampoik.Button1Click(Sender: TObject);
var ChildTemplateForm:TChildTemplateform;
timenach,timekon:tdatetime;
sw:integer;
begin
MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm');
ChildTemplateForm:=TChildTemplateform.Create(Owner);
ChildTemplateForm.Left:=0;
ChildTemplateForm.Top:=3;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;
mainclientsform.ADOQuery2.Active:=false;
mainclientsform.ADOQuery2.SQL.Clear;
if nomer_poisk=1 then begin
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
ChildTemplateForm.Label1.Caption:='Информация о потребителе: '+edit1.Text;
sqlwhere:= ' where (client.Fio like :P1)';
stroka_SQL:='select * from client '+sqlwhere ;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
end;
if nomer_poisk=2 then begin
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
ChildTemplateForm.Label1.Caption:='Информация о платежах по счету: '+edit1.Text;
sqlwhere:= ' where (plateg.id_atribute = ( select atribute.id_atribute from atribute where atribute.nomer Like :P1))';
stroka_SQL:='select * from plateg '+sqlwhere ;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
end;
if nomer_poisk=3 then begin
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
ChildTemplateForm.Label1.Caption:='Информация об отрицательном балансе: '+edit1.Text;
sqlwhere:= ' where (balance_rub> 0)';
stroka_SQL:='select * from balance '+sqlwhere ;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
end;
if nomer_poisk=4 then begin
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftdatetime;
ayear:= strtoint(Edit4.Text);
amonth:=strtoint(Edit3.Text);
aday:=strtoint(Edit2.Text);
ahour:=0;
aminute:=0;
asecond:=0;
amillisecond:=0;
timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond);
ayear:= strtoint(Edit7.Text);
amonth:=strtoint(Edit6.Text);
aday:=strtoint(Edit5.Text);
ahour:=0;
aminute:=0;
asecond:=0;
amillisecond:=0;
timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond);
P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P2.Name:='P2';
p2.DataType := ftdatetime;
P1.Value := timenach;
P2.Value := timekon;
sqlwhere:= ' where (plateg.data > :P1) and (plateg.data < :P2)';
stroka_SQL:='select * from plateg,atribute '+ sqlwhere;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
end;
if nomer_poisk=5 then begin
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
ChildTemplateForm.Label1.Caption:='Информация об отрицательном балансе: '+edit1.Text;
sqlwhere:= ' where (balance_rub> 0)';
stroka_SQL:='select * from balance '+sqlwhere ;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
mainclientsform.ADOQuery2.First;
mainclientsform.ADOTable6.Active:=true;
for sw:=1 to mainclientsform.ADOQuery2.RecordCount do
begin
mainclientsform.ADOTable6.Insert;
mainclientsform.ADOTable6.FieldByName('id_balans').AsInteger:= mainclientsform.ADOQuery2.FieldByName('id_balans').AsInteger ;
mainclientsform.ADOTable6.FieldByName('id_atribute').AsInteger:= mainclientsform.ADOQuery2.FieldByName('id_atribute').AsInteger;
mainclientsform.ADOTable6.FieldByName('date').AsDateTime:=now;
mainclientsform.ADOTable6.FieldByName('sum').AsFloat:= mainclientsform.ADOQuery2.FieldByName('balance_rub').AsFloat;
mainclientsform.ADOQuery2.Next;
mainclientsform.ADOTable6.Post;
end;
end;
end;
end.
Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
Тубинис В.В. Автоматизация учета электрической энергии в России и за рубежом. [Электронный ресурс]. Метод доступа: http://yanviktor.narod.ru/ascue/askue/avtom_uchet.doc.
Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с
Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с
Дайан А. и др. Маркетинг. М., Экономика, 1993.
Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с
Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.
.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с
97
Проект
Главная форма приложения MainClients
childTemplate.pas
DbdDirectoryTemplate
AddSource.pas
ParamPoisk.pas
Бухгалтера
Гл. бухгалтер
Бухгалтерия
Подразделения ремонта
Отдел снабжения
Директор
Руководитель работ
Специалисты
Начальник склада
Отдел кадров
Начальник отдела
Специалист