Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΠΎ ΠΌΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠΉΠ½ΡΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΎΡΠ°ΠΌ
Borders. linestyle:=1; excelapp. cells. borders. linestyle:=1; form1. ADOQuery4. Next; end; excelapp. cells: =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… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΠΎ ΠΌΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠΉΠ½ΡΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΎΡΠ°ΠΌ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
- ΠΠ΅ΡΠ΅ΡΠ΅Π½Ρ ΡΡΠ»ΠΎΠ²Π½ΡΡ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠΉ
- Π’Π΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «Π¦ΠΈΡΡΠΎΠ²ΡΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²Π°»
- ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
- 1. ΠΡΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΉ ΡΠ°Π·Π΄Π΅Π»
- 1. 1. ΠΠ½Π°Π»ΠΈΠ· Π²ΠΈΠ΄ΠΎΠ² ΠΌΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠΉΠ½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΡΠΎΠ²
- 1. 2. ΠΠ½Π°Π»ΠΈΠ· Π±ΠΈΠ·Π½Π΅Ρ-ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΡΡΠ΅ΡΠ° ΠΌΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠΉΠ½ΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΡΠΎΠ²
- 2. ΠΡΠΎΠ΅ΠΊΡΠ½Π°Ρ ΡΠ°ΡΡΡ
- 2. 1. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ ΡΡΠ΅ΡΠ° ΠΏΡΠΎΠ΅ΠΊΡΠΎΡΠΎΠ²
- 2. 2. ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
- 2. 3. Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π°ΡΡ ΠΈΡΠ΅ΠΊΡΡΡΠ΅ ΠΠ
- 3. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½Π°Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ
- ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
- Π‘ΠΠΠ‘ΠΠ ΠΠ‘ΠΠΠΠ¬ΠΠΠΠΠΠΠ«Π₯ ΠΠ‘Π’ΠΠ§ΠΠΠΠΠ
- ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 3
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.