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

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с

Проект

Главная форма приложения MainClients

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas

Бухгалтера

Гл. бухгалтер

Бухгалтерия

Подразделения ремонта

Отдел снабжения

Директор

Руководитель работ

Специалисты

Начальник склада

Отдел кадров

Начальник отдела

Специалист