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

Caption:= більш raquo ;;

QRLabel5.Caption:=ComboBox2.Text;

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

end;

ADOQuery8.Close;

ADOQuery8.Open;

FormOtchMass.QuickRep1.Preview ;;. UnitViborIzd;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DB, ADODB, StdCtrls;

TFormViborIzd=class (TForm)

Panel1: TPanel;

ComboBox1: TComboBox;

Label1: TLabel;

ComboBox2: TComboBox;

Label2: TLabel;

ADOTable1: TADOTable;

Panel2: TPanel;

Panel3: TPanel;

ADOQuery1: TADOQuery;

Label3: TLabel;

ADOQuery2: TADOQuery;

procedure FormActivate (Sender: TObject);

procedure Panel3Click (Sender: TObject);

procedure ComboBox1Click (Sender: TObject);

procedure Panel2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

FormViborIzd: TFormViborIzd;

Podrazd: String; UnitJournal, UnitOtchIZdelie;

{$ R * .dfm} TFormViborIzd.FormActivate (Sender: TObject) ;. Open; .First; ADOTable1.Eof=false do.Items.Add(ADOTable1.FieldByName(laquo;SHIP_ZAV_NOMraquo;).AsString);.Next;;:=FormJournal.ComboBoxPodrazd.Text;.Caption:=Podrazd;;TFormViborIzd.Panel3Click(Sender: TObject) ;. Close ;; TFormViborIzd.ComboBox1Click (Sender: TObject);.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox1.Text;.Close;.Open;.First;ADOQuery1.Eof=false do.Items.Add(ADOQuery1.FieldByName(laquo;IZD_OBOZNraquo;).AsString);.Next;;;TFormViborIzd.Panel2Click(Sender: TObject);.Close;.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox1.Text;.Parameters.ParamByName(laquo;qraquo;).Value:=ComboBox2.Text;.QRLabel2.Caption:=Podrazd;.QRLabel4.Caption:=ComboBox2.Text;.QRLabel6.Caption:=ComboBox1.Text;.Open;.QuickRep1.Preview;

end;.