Реферат Розробка та впровадження системи аналізу та статистики даних

Font. Color:=clBlue;. Range [«A» + IntToStr (1), «A» + IntToStr (R)]. HorizontalAlignment:=xlHAlignLeft;. Range [«A» + IntToStr (1), «A» + IntToStr (R)]. ColumnWidth:=31;. Visible [0]:=True;. Disconnect;:=Unassigned;; i:=0 to Query1. RecordCount doj:=0 to Query1. FieldCount - 1 do. Cells [j, i]:=«»;; TForm2. BitBtn7Click (Sender: TObject);: _WorkBook;: _WorkSheet;, J, K, R, C: Integer;: OleVariant;: Variant;. First;. RowCount:=Query2. RecordCount; i:=0 to Query2. RecordCount doj:=0 to Query2. FieldCount - 1 do. Cells [j, i]:=Query2. Fields. Fields [j]. AsVariant;. Next;; StringGrid1. Cells [0,1] <> «» then:=1;:=StringGrid1. RowCount;:=StringGrid1. ColCount;:=VarArrayCreate ([0, (R - 1), 0, (C - 1)], VarOleStr);:=0; J:=0 to (C - 1) do [I, J]:=StringGrid1 . Cells [J, I];

Продовження додатка Б (I, 1); I> (R - 1);. Connect;. WorkBooks. Add (xlWBatWorkSheet, 0);:=XLApp. WorkBooks. Item [IIndex];:=WorkBk. WorkSheets. Get_Item (1) as _WorkSheet;. Range [«A1», Worksheet. Cells. Item [R, C]]. Value2:=TabGrid;. Name:=«rambutya lld»;. Columns. Font. Bold:=True;. Columns. HorizontalAlignment:=xlRight;. Columns. ColumnWidth:=14;. Range [«A» + IntToStr (1), «A» + IntToStr (R)]. Font. Color:=clBlue;. Range [«A» + IntToStr (1), «A» + IntToStr (R)]. HorizontalAlignment:=xlHAlignLeft;. Range [«A» + IntToStr (1), «A» + IntToStr (R)]. ColumnWidth:=31;. Visible [0]:=True;. Disconnect;:=Unassigned;; i:=0 to Query2. RecordCount doj:=0 to Query2. FieldCount - 1 do. Cells [j, i]:=«»;; TForm2. BitBtn8Click (Sender: TObject);:=false;. Show;; TForm2. BitBtn9Click (Sender: TObject);:=false;. Show;;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Mask, XPMan;=class (TForm)

Продовження додатка Б: TMaskEdit;: TMaskEdit;: TMaskEdit;: TLabel;: TLabel;: TLabel;: TBitBtn;: TBitBtn;: TXPManifest; BitBtn2Click (Sender: TObject); BitBtn1Click (Sender: TObject );

{Private declarations}

{Public declarations};: TForm3; Unit2;

{$ R *. dfm} TForm3. BitBtn2Click (Sender: TObject);. Enabled:=true;;; TForm3. BitBtn1Click (Sender: TObject);, p, p1, st1, st2: string;: TextFile;, a, i: byte;. Enabled:=true;:=«»; (e, path);:=path + « jill. txt »; (f, path);

{$ I +} (f);

{$ I +} IOresult=0 then

Продовження додатка Б:=«»;:=«»; (f, p);

/ / ====================================:=« »;: =« »;:=length (p) div 2; length (p) mod 2 <> 0 then a:=a +1; i:=1 to a do st1:=st1 + p [i]; i:=a +1 to length (p) do st2:=st2 + p [i]; a mod 2=0 theni:=1 to a do:=p1 + st1 [i];:=p1 + st2 [i] i:=1 to a do:=p1 + st1 [i];:=p1 + st2 [i]; i=a then p1:=p1 + st1 [i +1];;:=Trim (p1);

/ / ==================================== MaskEdit1. Text=p thenMaskEdit2. Text=MaskEdit3. Text then (length (MaskEdit2. Text)=0) or (length (MaskEdit2. Text)=1) then («Занадто маленький пароль» + # 13 +

« Пароль повинен бути не менше 2 символів »+ # 13 + # 13 +

« Змініть пароль »);. Text:=«»;. Text:=«»;. SetFocus;

/ / ======================================== ====:=«»;:=«»;:=«»;

Продовження додатка Бi:=1 to length (MaskEdit2. Text) do (i mod ...