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

p align="justify"> ADOQuery3.Parameters [0] .Value:=ComboBox2.Items [ComboBox2.ItemIndex];

ADOQuery3.Close;

ADOQuery3.Open;

ADOQuery3.First;

while ADOQuery3.Eof=false do

begin

ComboBox3.Items.Add (ADOQuery3.Fields [0] .AsString);

ADOQuery3.Next;

end ;; TFormSprav.ComboBox3Click (Sender: TObject);

ComboBox4.Clear;

ADOTable2.Active:=true;

ADOTable2.Locate(laquo;IZD_OBOZNraquo;,ComboBox3.Items[ComboBox3.ItemIndex],[]);

Edit3.Text:=ADOTable2.Fields [1] .AsString;

ADOQuery4.Active:=true;

ADOQuery4.Parameters [0] .Value:=ComboBox3.Items [ComboBox3.ItemIndex];

ADOQuery4.Close;

ADOQuery4.Open;

ADOQuery4.First;

while ADOQuery4.Eof=false do

begin

ComboBox4.Items.Add (ADOQuery4.Fields [0] .AsString);

ADOQuery4.Next;

end ;; TFormSprav.ComboBox4Click (Sender: TObject) ;. Clear; .Active:=true;

ADOQuery5.Parameters [0] .Value:=ComboBox4.Items [ComboBox4.ItemIndex];

ADOQuery5.Close;

ADOQuery5.Open;

ADOQuery5.First;

while ADOQuery5.Eof=false do

begin

ListBox1.Items.Add (ADOQuery5.Fields [0] .AsString + + ADOQuery5.Fields [1] .AsString);

ADOQuery5.Next;

end ;; TFormSprav.ListBox1Click (Sender: TObject);

ADOQuery5.RecNo:=ListBox1.ItemIndex + 1;

ADOQuery6.Active:=true;

ADOQuery6.Parameters [0] .Value:=ADOQuery5.Fields [2] .AsInteger;

ADOQuery6.Close;

ADOQuery6.Open;

Edit4.Text:=ADOQuery6.Fields [0] .AsString;

Edit5.Text:=ADOQuery6.Fields [1] .AsString;

Edit6.Text:=ADOQuery6.Fields [3] .AsString;

Edit7.Text:=ADOQuery6.Fields [4] .AsString;

Edit8.Text:=ADOQuery6.Fields [2] .AsString ;; TFormSprav.N502Click (Sender: TObject);

ADOQuery7.Active:=true;

ADOQuery7.Parameters [0] .Value:=ComboBox2.Text;

with FormOtchMass do

begin

QuickRep1.DataSet:=ADOQuery7;

QRDBText1.DataSet:=ADOQuery7;

QRDBText1.DataField:= IZD_OBOZN raquo ;;

QRDBText2.DataSet:=ADOQuery7;

QRDBText2.DataField:= SHEMA_NAIM raquo ;;

QRDBText3.DataSet:=ADOQuery7;

QRDBText3.DataField:= TYPE_DEVICE raquo ;;

QRDBText4.DataSet:=ADOQuery7;

QRDBText4.DataField:= DEV_NAME raquo ;;

QRDBText5.DataSet:=ADOQuery7;

QRDBText5.DataField:= SHEM_NOM raquo ;;

QRDBText6.DataSet:=ADOQuery7;

QRDBText6.DataField:= MASS raquo ;;

QRLabel2.Caption:= менш raquo ;;

QRLabel5.Caption:=ComboBox2.Text;

QRExpr2.Expression:= SUM (MASS) raquo ;;

end;

ADOQuery7.Close;

ADOQuery7.Open;

FormOtchMass.QuickRep1.Preview ;; TFormSprav.N501Click (Sender: TObject) ;. Active:=true;

ADOQuery8.Parameters [0] .Value:=ComboBox2.Text;

with FormOtchMass do

begin

QuickRep1.DataSet:=ADOQuery8;

QRDBText1.DataSet:=ADOQuery8;

QRDBText1.DataField:= IZD_OBOZN raquo ;;

QRDBText2.DataSet:=ADOQuery8;

QRDBText2.DataField:= SHEMA_NAIM raquo ;;

QRDBText3.DataSet:=ADOQuery8;

QRDBText3.DataField:= TYPE_DEVICE raquo ;;

QRDBText4.DataSet:=ADOQuery8;

QRDBText4.DataField:= DEV_NAME raquo ;;

QRDBText5.DataSet:=ADOQuery8;

QRDBText5.DataField:= SHEM_NOM raquo ;;

QRDBText6.DataSet:=ADOQuery8;

QRDBText6.DataField:= MASS raquo ;;

QRLabel2....