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

;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel;:TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TComboBox ;: TButton ;: TXPManifest ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TComboBox ;: TComboBox ;: TEdit ;: TComboBox ;: TComboBox ;: TCheckBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TComboBox ;: TComboBox ;: TEdit ;: TComboBox ;: TComboBox ;: TCheckBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TComboBox;:TComboBox ;: TEdit ;: TComboBox ;: TComboBox ;: TCheckBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TComboBox ;: TComboBox ;: TEdit ;: TComboBox ;: TComboBox ;: TCheckBox ;: TBevel ;: TBevel ;: TLabel ;: TButton ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TBevel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); N1Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); CheckBox1Click (Sender: TObject); CheckBox5Click (Sender: TObject); CheckBox6Click (Sender: TObject); CheckBox7Click (Sender: TObject); CheckBox8Click (Sender: TObject); CheckBox2Click (Sender: TObject ); CheckBox3Click (Sender: TObject); CheckBox4Click (Sender: TObject); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations}; _ wrem: Traschet_wrem ;, Doc, app, book, sheet, Excel: variant ;, Col: integer ;: OleVariant ;: String; ComObj, Unit1, Types;

{$ R * .dfm} Traschet_wrem.Button1Click (Sender: TObject);:=CreateOleObject ( Excel.Application ) ;. Visible:=True;

//app:=CreateOleObject(laquo;Excel.Applicationraquo;);:=Excel.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:=laquo;Расчёт часу охорони raquo ;;

sheet:=book.Worksheets [1];

//Можна поміщати текст і значення в діапазон комірок

//Помістити слово тест в діапазон комірок

Excel.Range [ h2 raquo ;, h4 ]. Font.FontStyle:=laquo;Boldraquo;;.Range[laquo;A1:E1raquo;].Select;.Range[laquo;A4:K21raquo;].Borders[7].LineStyle:=1;.Range[laquo;A4:K21raquo;].Borders[7].Weight:=- 4 138; .Range [ A4: K21 ]. Borders [7] .ColorIndex:=- 4105;.Range[laquo;A4:K21raquo;].Borders[8].LineStyle:=1;.Range[laquo;A4:K21raquo;].Borders[8].Weight:=- 4 138; .Range [ A4: K21 ]. Borders [8] .ColorIndex:=- 4105;.Range[laquo;A4:K21raquo;].Borders[9].LineStyle:=1;.Range[laquo;A4:K21raquo;].Borders[9].Weight:=- 4 138; .Range [ A4: K21 ]. Borders [9] .ColorIndex:=- 4105;.Range[laquo;A4:K21raquo;].Borders[10].LineStyle:=1;.Range[laquo;A4:K21raquo;].Borders[10].Weight:=- 4 138; .Range [ A4: K21 ]. Borders [10] .ColorIndex:=- 4105; .Columns [ K: K ]. ColumnWidth:=10; .ActiveSheet.Range [ d4 ] .Value:= Таблиця розрахунку часу охорони raquo ;;

Excel.ActiveSheet.Range [ d5 ]. Value:= об'єктів, підключених на пульт централізованого спостереження raquo ;;

Excel.ActiveSheet.Range [ d6 ]. Value:= Договір № + Dogowor.DBEdit1.Text + від + Edit1.Text + Клієнт : raquo ;;

//Excel.Range [ A2 raquo ;, B7 ]. Interior.Color:=clSilver;/// Завдання зальвкі осередків

//Sheet.Columns [ B: B ]. columnWidth:=30;

//Sheet.Columns [ C: C ]. columnWidth:=60;

//Sheet.Columns [ D: D ]. columnWidth:=40;

//DateToStr (DateTimePicker1.Date)

//Excel.ActiveSheet.Range [ b8 raquo ;, B10 ]. Value:= raquo ;;. ActiveSheet.Range [ A11 ]. Value:= Робочі дні raquo ;;. ActiveSheet.Range [ A12 ]. Value:= Вихідний день - субота raquo ;;. ActiveSheet.Range [ A13 ]. Value:= Вихідний день - неділя raquo ;;. ActiveSheet.Range [ A14 ]. Value:= Святкові дні raquo ;;. ActiveSheet.Range [ A15 ]. Value: = Разом raquo ;;. ActiveSheet.Range [ d9 ]. Value:= Кількість raquo ;;. ActiveSheet.Range [ d10 ]. Value:= днів охорони raquo ;;. Range [ D11: D15 ]. Interior.Color:=clSilver; .ActiveSheet.Range [ d11 ]. Value:=Edit1.Text; .ActiveSheet.Range [ d12 ]. Value:=Edit2.Text;. ActiveSheet.Range [ d13 ]. Value:=Edit3.Text; .ActiveSheet.Range [ d14 ]. Value:=Edit4.Text; .ActiveSheet.Range [ d15 ]. Formula:= laquo ;=Sum (D11: D14) raquo ;;

Excel.ActiveSheet.Range [ e8 ]. Value:= Час охорони об'єкта протягом доби, годину. raquo ;;

Excel.ActiveSheet.Range [ e9 ]. Value:= C raquo ;;. ActiveSheet.Range [ e10 ]. Value:= Година raquo ;;. ActiveSheet. Range [ e11 ]. Value:=ComboBox1.Text; .ActiveSheet.Range [ e12 ]. Value:=ComboBox2.Text; .ActiveSheet.Range [ e13 ]. Value:=ComboBox5.Text ; .ActiveSheet.Range [ e14 ]. Value:=ComboBox7.Text; .ActiveSheet.Range [ ...