Автоматизация комплекса задач по контролю и учету ремонтов технологического обоурдования

СОДЕРЖАНИЕ
ВВЕДЕНИЕ
1.ПОСТАНОВКА ЗАДАЧИ ДИПЛОМНОГО ПРОЕКТИРОВАНИЯ
1.1 Назначение и цели системы
1.2 Требование к системе
1.3 Техническое задание на разработку
2.ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО КОМПЛЕКСА
2.1 Технические средства для реализации проекта
2.2 Обоснование выбора программных средств
2.3 Разработка структуры базы данных
2.4 Программная реализация системы
2.5 Разработка форм отчетной документации
2.6 Разработка пользовательского интерфейса
2.7 Выбор методов обмена данными
2.8 Руководство пользователя
3.ОЦЕНКА ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ
3.1 Составление сметы затрат на разработку
3.2 Определение проектной цены
3.3 Выводы по эффективности использования предложенного проекта
4.ЭКОЛОГИЧНОСТЬ И БЕЗОПАСНОСТЬ ПРОЕКТА
4.1 Анализ условий труда разработчика
4.2 Проектирование оптимального рабочего места разработчика
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ А Листинг программного проекта

';
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:='Телефон';
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:='Неисправность';
end;
procedure TMainClientsForm.SpeedButton2Click(Sender: TObject);
begin
mainClientsForm.N6.Click;
end;
procedure TMainClientsForm.SpeedButton5Click(Sender: TObject);
begin
mainClientsForm.N7.Click;
end;
procedure TMainClientsForm.SpeedButton6Click(Sender: TObject);
begin
mainClientsForm.N22.Click;
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[4].DisplayLabel:='Адрес';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Телефон';
end;
procedure TMainClientsForm.N22Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'addForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
MainClientsForm.N7Click(sender);
prosmForm:=Taddform.Create(Owner);
prosmForm.Top:=230;
prosmForm.Left:=0;
prosmForm.Width:=500;
prosmForm.Height:=200;
prosmForm.Caption:='просмотр записей';
prosmForm.DBNavigator1.Visible:=true;
mainflag:=true;
prosmForm.Show;
prosmForm.GroupBox3.Visible:=false;
prosmForm.GroupBox4.Visible:=false;
prosmForm.GroupBox5.Visible:=false;
MainClientsForm.DataSource1.DataSet.last

end;
procedure TMainClientsForm.N23Click(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.GroupBox1.Visible:=false;
dobForm.GroupBox3.Visible:=false;
dobForm.GroupBox4.Visible:=false;
dobForm.GroupBox2.Visible:=false;
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+'\remont.mdb;';
ADOConnection1.Open;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
end;
procedure TMainClientsForm.N3Click(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.GroupBox3.Visible:=false;
zakForm.GroupBox1.Visible:=true;
zakForm.GroupBox2.Visible:=false;
zakForm.GroupBox4.Visible:=false;
zakForm.GroupBox5.Visible:=false;
zakForm.GroupBox1.Left:=2;
zakForm.GroupBox1.Top:=2;
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;
kod_neisprav, kod_zakazchik, kod_ispolneniya,kod_sotr:integer;
begin
if mainflag then
begin
prosmForm.edit1.text:='';
prosmForm.edit2.text:='';
prosmForm.edit3.text:='';
prosmForm.edit5.text:='';
prosmForm.edit9.text:='1';
prosmForm.edit10.text:='1';
prosmForm.edit11.text:='2012';
prosmForm.edit14.text:='';
prosmForm.edit15.text:='';
prosmForm.edit16.text:='';
prosmForm.edit18.text:='';
prosmForm.edit19.text:='';
prosmForm.edit23.text:='';
//из таблицы
prosmForm.Edit1.Text:=inttostr(MainClientsForm.DataSource1.DataSet.FieldByName('kod_zayavka').AsInteger);
rezdate:=MainClientsForm.DataSource1.DataSet.FieldByName('data').AsDateTime;
kod_zayavka:=(MainClientsForm.DataSource1.DataSet.FieldByName('kod_zayavka').AsInteger);
decodedatetime(rezdate,Ayear, amonth,aday,ahour,aminute,asecond,amillisecond);
prosmForm.Edit9.Text:=inttostr(aday);
prosmForm.Edit5.Text:=inttostr(MainClientsForm.DataSource1.DataSet.FieldByName('kod_neisprav').AsInteger);
prosmForm.Edit10.Text:=inttostr(amonth);
prosmForm.Edit11.Text:=inttostr(Ayear);
data_zayavka:= prosmForm.Edit9.Text+'.'+prosmForm.Edit10.Text+'.'+prosmForm.Edit11.Text;
prosmForm.Edit16.Text:=MainClientsForm.DataSource1.DataSet.FieldByName('notes').AsString;
kod_zakazchik:= MainClientsForm.DataSource1.DataSet.FieldByName('kod_zakazchik').AsInteger;
kod_neisprav:=MainClientsForm.DataSource1.DataSet.FieldByName('kod_neisprav').AsInteger;
kod_ispolneniya:=MainClientsForm.DataSource1.DataSet.FieldByName('kod_ispolneniya').AsInteger;
kod_sotr:=MainClientsForm.DataSource1.DataSet.FieldByName('kod_sotr').AsInteger;
mainclientsform.ADOTable4.Active:=true;
if mainclientsform.ADOTable4.Locate('kod_neisprav',kod_neisprav, [loCaseInsensitive,loPartialKey]) then
begin
prosmForm.Edit8.Text:=mainclientsform.ADOTable4.FieldByName('object').AsString;
object1:=prosmForm.Edit8.Text;
prosmForm.Edit14.Text:=mainclientsform.ADOTable4.FieldByName('block').AsString;
prosmForm.Edit15.Text:=mainclientsform.ADOTable4.FieldByName('Naimenovanie').AsString;
end;
if mainclientsform.ADOTable5.Locate('kod_zakazchik', kod_zakazchik, [loCaseInsensitive,loPartialKey]) then
begin
prosmForm.Edit2.Text:=mainclientsform.ADOTable5.FieldByName('fam').AsString;
prosmForm.Edit3.Text:=mainclientsform.ADOTable5.FieldByName('name').AsString;
prosmForm.Edit17.Text:=mainclientsform.ADOTable5.FieldByName('otch').AsString;
fiozakaz:=prosmForm.Edit2.Text+' '+prosmForm.Edit3.Text+ ' '+prosmForm.Edit17.Text;
prosmForm.Edit20.Text:=mainclientsform.ADOTable5.FieldByName('telefon').AsString;
prosmForm.Edit21.Text:=mainclientsform.ADOTable5.FieldByName('adres').AsString;
end;
if mainclientsform.ADOTable1.Locate('kod_ispolneniya', kod_ispolneniya, [loCaseInsensitive,loPartialKey]) then
begin
rezdate:=mainclientsform.ADOTable1.FieldByName('data_ispolneniya').AsDateTime;
decodedatetime(rezdate,Ayear, amonth,aday,ahour,aminute,asecond,amillisecond);
prosmForm.Edit22.Text:=inttostr(aday);
prosmForm.Edit26.Text:=inttostr(amonth);
prosmForm.Edit27.Text:=inttostr(Ayear);
data_vup:= prosmForm.Edit22.Text+'.'+prosmForm.Edit26.Text+'.'+prosmForm.Edit27.Text;
prosmForm.Edit35.Text:=mainclientsform.ADOTable1.FieldByName('ochet').AsString;
prosmForm.Edit29.Text:=mainclientsform.ADOTable1.FieldByName('rabot').AsString;
end;
if mainclientsform.ADOTable3.Locate('kod_sotr', kod_sotr, [loCaseInsensitive,loPartialKey]) then
begin
fiosotr:=mainclientsform.ADOTable3.FieldByName('familyia').AsString;
fiosotr:=fiosotr+' '+mainclientsform.ADOTable3.FieldByName('Name').AsString;
fiosotr:=fiosotr+' '+mainclientsform.ADOTable3.FieldByName('Otchestvo').AsString;
end;
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.GroupBox1.Visible:=false;
zakForm.GroupBox2.Visible:=false;
zakForm.GroupBox4.Visible:=false;
zakForm.GroupBox5.Visible:=false;
zakForm.GroupBox3.Left:=2;
zakForm.GroupBox3.Top:=2;
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:='';
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.Edit1.Visible:=false;
poisk.Label1.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label2.Visible:=false;
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.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.GroupBox1.Visible:=false;
naklForm.GroupBox2.Visible:=false;
naklForm.GroupBox3.Visible:=false;
naklForm.GroupBox5.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.Caption:='номер в плане доставки';
poisk.Button1.Caption:='Распределение'
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,OleServer, ExcelXP, OleCtnrs, ComObj ;
type
TaddForm = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label15: TLabel;
Edit18: TEdit;
Label16: TLabel;
Edit19: TEdit;
Label17: TLabel;
Label18: TLabel;
Edit23: TEdit;
GroupBox2: TGroupBox;
Edit16: TEdit;
DBNavigator1: TDBNavigator;
Label8: TLabel;
Label7: TLabel;
Label1: TLabel;
Edit1: TEdit;
Edit5: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label6: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Label13: TLabel;
Label12: TLabel;
Label11: TLabel;
Edit14: TEdit;
Edit15: TEdit;
GroupBox3: TGroupBox;
Label19: TLabel;
Label20: TLabel;
Edit24: TEdit;
Edit25: TEdit;
Edit28: TEdit;
Label22: TLabel;
Button2: TButton;
GroupBox4: TGroupBox;
Label23: TLabel;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
UpDown7: TUpDown;
UpDown8: TUpDown;
Label24: TLabel;
Edit33: TEdit;
Label25: TLabel;
Edit34: TEdit;
Label28: TLabel;
Edit36: TEdit;
Edit39: TEdit;
Label31: TLabel;
Edit40: TEdit;
Button3: TButton;
Edit41: TEdit;
Label32: TLabel;
Label33: TLabel;
Edit42: TEdit;
Label30: TLabel;
GroupBox5: TGroupBox;
Label34: TLabel;
Label35: TLabel;
Label38: TLabel;
Label39: TLabel;
Edit7: TEdit;
Edit44: TEdit;
Edit45: TEdit;
Edit47: TEdit;
Edit48: TEdit;
Label36: TLabel;
Label37: TLabel;
Edit6: TEdit;
Button4: TButton;
Edit38: TEdit;
Label5: TLabel;
Edit4: TEdit;
UpDown1: TUpDown;
Edit12: TEdit;
UpDown2: TUpDown;
Edit13: TEdit;
Button5: TButton;
Label2: TLabel;
Edit17: TEdit;
Label3: TLabel;
Edit20: TEdit;
Label4: TLabel;
Edit21: TEdit;
Label9: TLabel;
Edit26: TEdit;
Edit27: TEdit;
Label10: TLabel;
Edit29: TEdit;
Edit22: TEdit;
Label14: TLabel;
Edit35: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
addForm: TaddForm;
naim:string;
ed_izm:string;
kolvo:integer;
cena:real;
nomerpartiya:string;
sernum: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;
idtov:integer;
XlApplication: OleVariant;
XLWorkSheet: OleVariant;
implementation
uses MainClients;
{$R *.dfm}
procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TaddForm.Button1Click(Sender: TObject);
var i:integer;
begin
try
XlApplication := GetActiveOleObject('Excel.Application');
except
XlApplication := CreateOleObject('Excel.Application');
end;
XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true];
XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true];
XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
XLWorkSheet.cells[2,5]:=inttostr(kod_zayavka);
XLWorkSheet.cells[2,7]:=data_zayavka;
XLWorkSheet.cells[33,4]:=inttostr(kod_zayavka);
XLWorkSheet.cells[33,6]:=data_zayavka;
XLWorkSheet.cells[5,4]:=fiozakaz;
XLWorkSheet.cells[26,4]:=fiozakaz;
XLWorkSheet.cells[7,5]:=prosmForm.Edit8.Text;
XLWorkSheet.cells[10,5]:=prosmForm.Edit15.Text;
XLWorkSheet.cells[11,4]:=prosmForm.Edit14.Text;
XLWorkSheet.cells[20,5]:=prosmForm.Edit29.Text;
XLWorkSheet.cells[29,4]:=prosmForm.Edit35.Text;
XLWorkSheet.cells[12,4]:=fiosotr;
XLWorkSheet.cells[35,4]:=fiosotr;
XLWorkSheet.cells[24,6]:=data_vup;
XLWorkSheet.cells[38,5]:=data_vup;
end;
procedure TaddForm.Button2Click(Sender: TObject);
var srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
family,
name,
phone,
sec_name,
adres :string;
begin
family:=edit24.Text;
name:=edit28.Text;
sec_name:=edit25.Text;
phone:=edit41.Text;
adres:=edit42.Text;
mainclientsform.ADOTable5.Insert;
mainclientsform.ADOTable5.Active:=true;
mainclientsform.ADOTable5.FieldByName('Fam').AsString:=family;
mainclientsform.ADOTable5.FieldByName('name').AsString:=name;
mainclientsform.ADOTable5.FieldByName('adres').AsString:= adres;
mainclientsform.ADOTable5.FieldByName('telefon').AsString:= phone;
mainclientsform.ADOTable5.FieldByName('Otch').AsString:= sec_name;
mainclientsform.ADOTable5.Post;
end;
procedure TaddForm.Button3Click(Sender: TObject);
var object1,block,naimenovan, srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
notes:string;
kod_neisprav,kod_zakazchik,kod_ispolneniya,kod_sotr:integer;
data:tdatetime;
begin
object1:=Edit33.Text;
block:=Edit34.Text;
naimenovan:=Edit36.Text;
notes:=Edit38.Text;
mainclientsform.ADOTable4.Active:=true;
mainclientsform.ADOTable4.Insert;
mainclientsform.ADOTable4.FieldByName('object').AsString:=object1;
mainclientsform.ADOTable4.FieldByName('block').AsString:=block;
mainclientsform.ADOTable4.FieldByName('Naimenovanie').AsString:=naimenovan;
mainclientsform.ADOTable4.Post;
kod_neisprav:=mainclientsform.ADOTable4.FieldByName('kod_neisprav').AsInteger;
kod_zakazchik:=strtoint(edit40.Text);
kod_sotr:=strtoint(edit39.Text);
Ayear:=strtoint(Edit32.Text);
amonth:= strtoint(Edit31.Text);
aday:= strtoint(Edit30.Text);
data:=encodedate(Ayear, amonth,aday);
mainclientsform.ADOTable2.Active:=true;
mainclientsform.ADOTable2.Insert;
mainclientsform.ADOTable2.FieldByName('kod_zakazchik').AsInteger:= kod_zakazchik;
mainclientsform.ADOTable2.FieldByName('kod_ispolneniya').AsInteger:= 0;
mainclientsform.ADOTable2.FieldByName('kod_neisprav').AsInteger:= kod_neisprav;
mainclientsform.ADOTable2.FieldByName('kod_sotr').AsInteger:= kod_sotr;
mainclientsform.ADOTable2.FieldByName('notes').AsString:=notes;
mainclientsform.ADOTable2.FieldByName('data').AsDateTime:=data;
mainclientsform.ADOTable2.Post;
end;
procedure TaddForm.Button4Click(Sender: TObject);
var
family,
name,
dolgnost,
phone,
otdel,
sec_name :string;
begin
family:=edit45.Text;
name:=edit7.Text;
sec_name:=edit44.Text;
phone:=edit47.Text;
otdel:=edit48.Text;
dolgnost:=edit6.Text;
sec_name:=edit6.Text;
mainclientsform.ADOTable3.Active:=true;
mainclientsform.ADOTable3.Insert;
mainclientsform.ADOTable3.FieldByName('Familyia').AsString:=family;
mainclientsform.ADOTable3.FieldByName('name').AsString:=name;
mainclientsform.ADOTable3.FieldByName('dolgnost').AsString:= dolgnost;
mainclientsform.ADOTable3.FieldByName('telefon').AsString:= phone;
mainclientsform.ADOTable3.FieldByName('otdel').AsString:= otdel;
mainclientsform.ADOTable3.FieldByName('Otchestvo').AsString:= sec_name;
mainclientsform.ADOTable3.Post;
end;
procedure TaddForm.Button5Click(Sender: TObject);
var otchet, rabot:string;
data_ispolneniya:tdatetime;
kod_zayavka,kod_ispolnenya:integer;
begin
Ayear:=strtoint(Edit13.Text);
amonth:= strtoint(Edit12.Text);
aday:= strtoint(Edit4.Text);
kod_zayavka:=strtoint(Edit18.Text);
data_ispolneniya:=encodedate(Ayear, amonth,aday);
otchet:=edit25.Text;
rabot:=edit19.Text;
mainclientsform.ADOTable1.Active:=true;
mainclientsform.ADOTable1.Insert;
mainclientsform.ADOTable1.FieldByName('ochet').AsString:=otchet;
mainclientsform.ADOTable1.FieldByName('rabot').AsString:=rabot;
mainclientsform.ADOTable1.FieldByName('data_ispolneniya').AsDateTime:=data_ispolneniya;
mainclientsform.ADOTable1.FieldByName('rabot').AsString:='Y';
mainclientsform.ADOTable1.Post;
kod_ispolnenya:=mainclientsform.ADOTable1.FieldByName('kod_ispolneniya').AsInteger;
mainclientsform.ADOTable2.Active;
if mainclientsform.ADOTable2.Locate('kod_zayavka',kod_zayavka , [loCaseInsensitive,loPartialKey]) then
begin
mainclientsform.ADOTable2.edit;
mainclientsform.ADOTable2.FieldByName('kod_ispolneniya').AsInteger:= kod_ispolnenya;
mainclientsform.ADOTable2.Post;
end;
end;
end.
unit parampoisk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce,
StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;
type
Tparampoik = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label7: TLabel;
Edit2: TEdit;
UpDown1: TUpDown;
Edit3: TEdit;
Edit4: TEdit;
UpDown2: TUpDown;
Edit5: TEdit;
UpDown3: TUpDown;
Edit6: TEdit;
UpDown4: TUpDown;
Edit7: TEdit;
Label2: TLabel;
Label3: TLabel;
procedure RzBitBtn4Click(Sender: TObject);
procedure RzBitBtn3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
parampoik: Tparampoik;
ChildTemplateForm1: TChildTemplateForm;
ff:string;
flagpoisk:boolean;
p1,p2:tparameter;
all:boolean;
ahour, aminute, asecond, amillisecond :word;
priznak:string;
stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;
idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;
implementation
uses mainclients;
{$R *.dfm}
procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure Tparampoik.RzBitBtn3Click(Sender: TObject);
var ChildTemplateForm:TChildTemplateform;
all:boolean;
stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;
fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;
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.ADOQuery1;
mainclientsform.ADOQuery1.Active:=false;
mainclientsform.ADOQuery1.SQL.Clear;
P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
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;
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 := ftinteger;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=strtoint(edit1.Text);
P1.Size:=4;
end;
ChildTemplateForm.Label1.Caption:='Информация о заявке: '+edit1.Text;
sqlwhere:= ' where (neispravnost.kod_neisprav = ( select zayavka.kod_neisprav from zayavka where zayavka.kod_zayavka =:P1))';
stroka_SQL:='select * from neispravnost'+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 := ftinteger;
ChildTemplateForm.Label1.Caption:='Информация о невыполненных заявках: '+edit1.Text;
ChildTemplateForm.Caption:='Информация о невыполненных заявках: ';
sqlwhere:= ' FROM neispravnost INNER JOIN (Ispolnenie INNER JOIN zayavka ON Ispolnenie.kod_ispolneniya = zayavka.kod_ispolneniya) ON neispravnost.kod_neisprav = zayavka.kod_neisprav WHERE (((Ispolnenie.vupolnen)<>"Y"))';
stroka_SQL:='SELECT zayavka.kod_zayavka, neispravnost.object, neispravnost.block, neispravnost.Naimenovanie' +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 (zayavka.data > :P1) and (zayavka.data < :P2)';
stroka_SQL:='select * from zayavka'+ 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 := ftinteger;
if edit1.Text<>'' then
begin
idnakl:=strtoint(edit1.Text);
P1.Value :=idnakl;
sqlwhere:= ' where (plan_dostavki.idplan_dostavki = :P1)';
stroka_SQL:='select * from plan_dostavki'+ sqlwhere;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
end;
end;
end;
end.
7
68
Проект
Главная форма приложения MainClients
childTemplate.pas
DbdDirectoryTemplate
AddSource.pas
ParamPoisk.pas