Разработка информационной системы по мультимедийным проекторам

workbooks.open ('C:ufsinxltgur_zak.xlt'); ExcelApp. Visible := False; for i:=1 to form1. ADOQuery8.RecordCount do begin excelapp. cells[3+i, 1]: =1; excelapp. cells[3+i, 2]: =form1.ADOQuery8vid_obor.AsString; excelapp. cells[3+i, 3]: ='шт'; excelapp. cells[3+i, 4]: ='1'; excelapp. cells[3+i, 5]: =form1.ADOQuery8zavnum.AsString; excelapp. cells[3+i, 6]: =form1.ADOQuery8nam.AsString; excelapp. cells[3+i, 1]. borders. linestyle:=1; excelapp. cells[3+i, 2]. borders. linestyle:=1; excelapp. cells[3+i, 3]. borders. linestyle:=1; excelapp. cells[3+i, 4]. borders. linestyle:=1; excelapp. cells[3+i, 5].

borders.linestyle:=1; excelapp. cells[3+i, 6]. borders. linestyle:=1; excelapp. cells[3+i, 7]: =form1.ADOQuery8fio.AsString; excelapp. cells[3+i, 7]. borders. linestyle:=1; form1. ADOQuery8. Next; end; excelapp. visible:=true; excelapp:=unassigned;end;procedure TForm1. N12Click (Sender: TObject);begin with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('select * from vid_to'); active:=true; end; form8. DBGrid1.Columns[0]. T itle. caption:='Код'; form8. DBGrid1.Columns[1]. T.

itle.caption:='Наименование'; form8. show;end;procedure TForm1. N1Click (Sender: TObject);var i: integer; excelapp: variant;begin with form1. ADOQuery11 do begin close; sql. Clear; sql. Add ('select * from zp4'); open; end; ExcelApp := CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:ufsinxltplan.xlt'); ExcelApp. Visible := False; for i:=1 to form1. ADOQuery11.RecordCount do begin excelapp. cells[3+i, 1]: =form1.ADOQuery11nam.AsString; excelapp. cells[3+i, 2]: =form1.ADOQuery11zavnum.AsString; excelapp. cells[3+i, 3]: =form1.ADOQuery11day.AsString; excelapp. cells[3+i, 4]: =form1.ADOQuery11nam_to.AsString;; excelapp. cells[3+i, 1]. borders. linestyle:=1; excelapp. cells[3+i, 2]. borders. linestyle:=1; excelapp. cells[3+i, 3]. borders. linestyle:=1; excelapp. cells[3+i, 4]. borders. linestyle:=1; form1. ADOQuery11. Next; end; excelapp. visible:=true; excelapp:=unassigned;end;procedure TForm1. N10Click (Sender: TObject);begin with form1. ADOQuery12 do begin close; sql. Clear; sql. Add ('select distinct (nam) from zp4'); active:=true; end; with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from sotr'); active:=true; end; form10. Show;end;procedure TForm1. N13Click (Sender: TObject);var i: integer; excelapp: variant;begin with form1. ADOQuery4 do begin close; sql. Clear; sql. Add ('select * from zp1'); open; end; ExcelApp := CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:ufsinxltlimit.xlt'); ExcelApp. Visible := False; for i:=1 to form1. ADOQuery4.RecordCount do begin excelapp. cells[5+i, 1]: =i; excelapp. cells[5+i, 2]: =form1.ADOQuery4nam.AsString; excelapp. cells[5+i, 3]: =form1.ADOQuery4zavnum.AsString; excelapp. cells[5+i, 4]: =form1.ADOQuery4resurs.AsInteger; excelapp. cells[5+i, 5]: =int (24*(now-form1.ADOQuery4dtv.AsDateTime)); excelapp. cells[5+i, 6]: =form1.ADOQuery4resurs.AsInteger-int (24*(now-form1.ADOQuery4dtv.AsDateTime)); excelapp. cells[5+i, 1]. borders. linestyle:=1; excelapp. cells[5+i, 2]. borders. linestyle:=1; excelapp. cells[5+i, 3].

borders.linestyle:=1; excelapp. cells[5+i, 4]. borders. linestyle:=1; excelapp. cells[5+i, 5]. borders. linestyle:=1; excelapp. cells[5+i, 6]. borders. linestyle:=1; form1. ADOQuery4. Next; end; excelapp. cells[3,2]: =datetostr (now); excelapp. visible:=true; excelapp:=unassigned;end;end.procedure TForm10. RzBitBtn1Click (Sender: TObject);begin with form10. ADOQuery1 do begin close; sql. Clear; sql. Add ('select zavnum from zp4 where nam='+form1.Label1.Caption+trim (form1.ADOQuery12nam.AsString)+form1.Label1.Caption); active:=true; end;end;procedure TForm10. RzBitBtn2Click (Sender: TObject);begin with form10. ADOQuery2 do begin close; sql. Clear; sql. Add ('select nam_to, code_pto from zp4 where zavnum='+form1.Label1.Caption+trim (form10.ADOQuery1zavnum.AsString)+form1.Label1.Caption); active:=true; end;end;procedure TForm10. RzBitBtn4Click (Sender: TObject);beginclose;end;procedure TForm10. RzBitBtn3Click (Sender: TObject);begin with form1. ADOQuery10 do begin close; sql. Clear; sql. Add ('update gur_to set act=0 where code_pto='+form10.ADOQuery2code_pto.AsString); execsql; close; sql. Clear; sql. Add ('update gur_to set code_sotr='+form1.ADOQuery1code_sotr.AsString+' where code_pto='+form10.ADOQuery2code_pto.AsString); execsql; close; sql. Clear; sql. Add ('select * from gur_to'); open; end; showmessage ('Записано');end;end.unit Unit2;procedure TForm4. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery2 do begin close; sql. Clear; sql. Add ('select * from vid_obor'); active:=true; end; form5. Show;end;procedure TForm4. RzBitBtn3Click (Sender: TObject);begin with form1. ADOQuery5 do begin close; sql. Clear; sql. Add ('select * from mesto'); active:=true; end; with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from sotr'); active:=true; end; with form1. ADOQuery6 do begin close; sql. Clear; sql. Add ('select * from zp2 where code_obor='+form1.ADOQuery4code_obor.AsString); active:=true; end; form7. DBGrid1.Columns[0].

title.caption:='Код'; form7. DBGrid1.Columns[1]. title. caption:='Местоустановки'; form7. DBGrid1.Columns[2]. title. caption:='Ответственныйспециалист'; form7. DBGrid1.Columns[3]. title. caption:='Датаустановки'; form7. DateTimePicker1. Date:=now; form7. Show;end;procedure TForm4. RzBitBtn4Click (Sender: TObject);var ExcelApp: variant;begin with form1. ADOQuery6 do begin close; sql. Clear; sql. Add ('select * from zp2 where code_obor='+form1.ADOQuery4code_obor.AsString); open; end; if form1. ADOQuery6.RecordCount=0 then showmessage ('Незаполненыданыеобустановке') else begin ExcelApp := CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:ufsinxltforml.xlt'); ExcelApp. Visible := False; ExcelApp. cells[2,2]: =form1.ADOQuery4nam.AsString; excelapp. cells[2,3]: =form1.ADOQuery4zavnum.AsString; excelapp. cells[2,4]: =form1.ADOQuery6nam.AsString; excelapp. cells[2,5]: =form1.ADOQuery4dtv.AsString; excelapp. cells[2,6]: = floattostr (int ((now-form1.ADOQuery4dtv.AsDateTime)*24))+' из '+form1.ADOQuery4resurs.AsString; excelapp. visible:=true; excelapp:=unassigned; end;end;procedure TForm4. RzBitBtn5Click (Sender: TObject);var i: integer;begin form9. CheckListBox1.Clear; with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('select * from vid_to'); active:=true; end; for i:=1 to form1. ADOQuery9.RecordCount do begin form9. CheckListBox1.Items.Add (form1.ADOQuery9nam_to.AsString); form1. ADOQuery9. Next; end; form9. Show;end;procedure TForm4. RzBitBtn6Click (Sender: TObject);var i: integer; excelapp: variant;begin with ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from zp5 where code_obor='+form1.ADOQuery4code_obor.AsString); open; end; ExcelApp := CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:ufsinxltgur_rab.xlt'); ExcelApp. Visible := False; for i:=1 to ADOQuery1. RecordCount do begin excelapp. cells[3+i, 1]: =ADOQuery1day.AsString; excelapp. cells[3+i, 2]: =ADOQuery1nam_to.AsString; if adoquery1act. AsInteger=0 then begin excelapp. cells[3+i, 3]: ='Выполнено'; excelapp. cells[3+i, 4]: =ADOQuery1fio.AsString;; end else excelapp. cells[3+i, 3]: ='Запланировано'; excelapp. cells[3+i, 1]. borders. linestyle:=1; excelapp. cells[3+i, 2]. borders. linestyle:=1; excelapp. cells[3+i, 3]. borders. linestyle:=1; excelapp. cells[3+i, 4]. borders. linestyle:=1; aDOQuery1. Next; end; excelapp. visible:=true; excelapp:=unassigned;end;end.procedure TForm5. RzBitBtn1Click (Sender: TObject);begin with form5. ADOQuery1 do begin close; sql. clear; sql. Add ('select code_vid, zavnum, dtv from obor '); open; end; form5. ADOQuery1.AppendRecord ([form1.ADOQuery2code_vid.AsInteger, edit1. Text, datetimepicker1. Date]); edit1. Clear; with form1. ADOQuery4 do begin close; sql. Clear; sql. add ('select * from zp1'); active:=true; end; showmessage ('Записано');end;end.procedure TForm7. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery7 do begin close; sql. Clear; sql. Add ('update ustan set act=0 where code_ob='+form1.ADOQuery4code_obor.AsString); execsql; close; sql. Clear; sql. Add ('select * from ustan'); open; end; form1. ADOQuery7.AppendRecord ([form1.ADOQuery4code_obor.AsInteger, form1. ADOQuery5code_mes.AsInteger, form1. ADOQuery1code_sotr.AsInteger, datetimepicker1. Date, 1]); with form1. ADOQuery6 do begin close; sql. Clear; sql. Add ('select * from zp2 where code_obor='+form1.ADOQuery4code_obor.AsString); active:=true; end; showmessage ('Записано');end;procedure TForm7. RzBitBtn3Click (Sender: TObject);var ExcelApp: variant; i: integer;begin form1. ADOQuery6.First; ExcelApp := CreateOleObject ('Excel.Application'); ExcelApp.workbooks.open ('C:ufsinxltistor.xlt'); ExcelApp. Visible := False; for i:=1 to form1. ADOQuery6.RecordCount do begin excelapp. cells[6+i, 1]: =form1.ADOQuery6day.AsString; excelapp. cells[6+i, 2]: =form1.ADOQuery6nam.AsString; excelapp. cells[6+i, 3]: =form1.ADOQuery6fio.AsString; excelapp. cells[6+i, 1].

borders.linestyle:=1; excelapp. cells[6+i, 2]. borders. linestyle:=1; excelapp. cells[6+i, 3]. borders. linestyle:=1; form1. ADOQuery6. Next; end; excelapp. cells[3,2]: =form1.ADOQuery4nam.AsString; excelapp. cells[4,2]: =form1.ADOQuery4zavnum.AsString; excelapp. visible:=true; excelapp:=unassigned;end;end.unit Unit8;procedure TForm9. RzBitBtn1Click (Sender: TObject);var i, code: integer;begin form1. ADOQuery10. Open; for i:=1 to checklistbox1.Items.Count do begin if form9. CheckListBox1.Checked[i-1]=true then begin with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('select * from vid_to where nam_to='+form1.Label1.Caption+trim (form9.CheckListBox1.Items[i-1])+form1.Label1.Caption); open; end; with form9. ADOQuery1 dobegin close; sql. Clear; sql. Add ('select max (code_pto) from gur_to'); open; end; if form9. ADOQuery1.RecordCount=0 then code:=1 else code:=1+form9.ADOQuery1Expr1000.AsInteger; form1. ADOQuery10.AppendRecord ([code, form1. ADOQuery4code_obor.AsInteger, form1. ADOQuery9code_to.AsInteger, datetimepicker1. Date, 1,1]); end; end; showmessage ('Записано');end;end.