Реферат Розробка програмного додатка &Автоматизація обліку клієнтів відділу позавідомчої охорони&

f10 ]. Value:= Мін raquo ;;. ActiveSheet.Range [ f11 ]. Value :=ComboBox9.Text; .ActiveSheet.Range [ f12 ]. Value:=ComboBox11.Text; .ActiveSheet.Range [ f13 ]. Value:=ComboBox13.Text; .ActiveSheet.Range [ f14 raquo ;]. Value:=ComboBox15.Text; .ActiveSheet.Range [ g9 ]. Value:= До raquo ;;. ActiveSheet.Range [ g10 ]. Value:= Година raquo ;;. ActiveSheet.Range [ g11 ]. Value:=ComboBox3.Text; .ActiveSheet.Range [ g12 ]. Value:=ComboBox4.Text; .ActiveSheet.Range [ g13 ]. Value:=ComboBox6. Text; .ActiveSheet.Range [ g14 ]. Value:=ComboBox8.Text; .ActiveSheet.Range [ H10 ]. Value:= Мін raquo ;;. ActiveSheet.Range [ H11 ]. Value:=ComboBox10.Text; .ActiveSheet.Range [ H12 ]. Value:=ComboBox12.Text; .ActiveSheet.Range [ H13 ]. Value:=ComboBox14.Text; .ActiveSheet.Range [ H14 ]. Value:=ComboBox16.Text; .ActiveSheet.Range [ I9 ]. Value:= Час raquo ;;. ActiveSheet.Range [ I10 ]. Value:= охорони raquo ;;. Range [ i11: j15 ]. Interior.Color:=clSilver; .ActiveSheet.Range [ I11 ]. Formula:==G11-E11 raquo ;;. ActiveSheet.Range [ I12 ]. Formula:==G12-E12 raquo ;;. ActiveSheet.Range [ I13 ]. Formula:==G13-E13 raquo ;;. ActiveSheet.Range [ I14 ]. Formula:== G14-E14 raquo ;;. ActiveSheet.Range [ I15 ]. Formula:==Sum (I11: I14) raquo ;;. ActiveSheet.Range [ J9 ]. Value:= Норма годин охорони raquo ;;. ActiveSheet.Range [ J10 ]. Value:= на рік/на місяць raquo ;;. ActiveSheet.Range [ J11 ]. Formula:==I11 * D11 raquo ;;. ActiveSheet.Range [ J12 ]. Formula:==I12 * D12 raquo ;;. ActiveSheet.Range [ J13 ]. Formula:==I13 * D13 raquo ;;. ActiveSheet.Range [ J14 raquo ;]. Formula:==I14 * D14 raquo ;;. ActiveSheet.Range [ J15 ]. Formula:==Sum (j11: j14) raquo ;;. ActiveSheet.Range [ B17 ].Value:= Керівник Клієнта raquo ;;. ActiveSheet.Range [ B19 ].Value:= _____________________ raquo ;;. ActiveSheet.Range [ B21 ]. Value:= МП raquo ;;. ActiveSheet.Range [ I17 ]. Value:= Начальник Охорони ; .ActiveSheet.Range [ I19 ]. Value:= _____________________ raquo ;;. ActiveSheet.Range [ I21 ]. Value:= МП raquo ;;:=GetCurrentDir; .DisplayAlerts:=false ;. SaveAs (CurDir + Розрахунок времені.xls );

//xcel.Visible:=true ;; Traschet_wrem.Button2Click (Sender: TObject);:=CreateOleObject ( Excel.Application ) ;. Visible:=True; .Workbooks.Open ( D: Диплом Общій.xls );

///////////////////////////////////////// що відкрили.ActiveSheet.Range [ d7 ]. Value:=Dogowor.DBEdit1.Text; .ActiveSheet.Range [ F7 ]. Value:=Dogowor.DBEdit12.Text; .ActiveSheet.Range [ C7 ].Value:=Dogowor.DBEdit15.Text; .ActiveSheet.Range [ C14 ]. Value:=Edit1.Text; .ActiveSheet.Range [ d14 ]. Value:=ComboBox1.Text; .ActiveSheet.Range [ E14 ]. Value:=ComboBox9.Text; .ActiveSheet.Range [ F14 ]. Value:=ComboBox3.Text; .ActiveSheet.Range [ G14 ]. Value:=ComboBox10.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C15raquo;].Value :=Edit5.Text; .ActiveSheet.Range [ d15 ]. Value:=ComboBox17.Text; .ActiveSheet.Range [ E15 ]. Value:=ComboBox19.Text; .ActiveSheet.Range [ F15 raquo ;]. Value:=ComboBox18.Text; .ActiveSheet.Range [ G15 ]. Value:=ComboBox20.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C16raquo;].Value :=Edit6.Text; .ActiveSheet.Range [ d16 ]. Value:=ComboBox21.Text; .ActiveSheet.Range [ E16 ]. Value:=ComboBox23.Text; .ActiveSheet.Range [ F16 raquo ;]. Value:=ComboBox22.Text; .ActiveSheet.Range [ G16 ]. Value:=ComboBox24.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C17raquo;].Value :=Edit7.Text; .ActiveSheet.Range [ d17 ]. Value:=ComboBox25.Text; .ActiveSheet.Range [ E17 ]. Value:=ComboBox27.Text; .ActiveSheet.Range [ F17 raquo ;]. Value:=ComboBox26.Text; .ActiveSheet.Range [ G17 ]. Value:=ComboBox28.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C18raquo;].Value :=Edit8.Text; .ActiveSheet.Range [ d18 ]. Value:=ComboBox29.Text; .ActiveSheet.Range [ E18 ]. Value:=ComboBox31.Text; .ActiveSheet.Range [ F18 raquo ;]. Value:=ComboBox30.Text; .ActiveSheet.Range [ G18 ]. Value:=ComboBox32.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C19raquo;].Value :=Edit2.Text; .ActiveSheet.Range [ d19 ]. Value:=ComboBox2.Text; .ActiveSheet.Range [ E19 ]. Value:=ComboBox11.Text; .ActiveSheet.Range [ F19 raquo ;]. Value:=ComboBox4.Text; .ActiveSheet.Range [ G19 ]. Value:=ComboBox12.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C20raquo;].Value :=Edit3.Text; .ActiveSheet.Range [ d20 ]. Value:=ComboBox5.Text; .ActiveSheet.Range [ E20 ]. Value:=ComboBox13.Text; .ActiveSheet.Range [ F20 raquo ;]. Value:=ComboBox6.Text; .ActiveSheet.Range [ G20 ]. Value:=ComboBox14.Text;

/////////////////////////////////////////////.ActiveSheet.Range[laquo;C21raquo;].V...