Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

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

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

Тема: Статьи

ign="justify"> ADOQuery3.Open;

FormRepStat.QuickRep1.Preview ;; TFormRepair.N3Click (Sender: TObject);

ADOQuery4.Active:=true;

ADOQuery4.Parameters [0] .Value:=ComboBox1.Text;

with FormRepStat do

begin

QuickRep1.DataSet:=ADOQuery4;

QRDBText1.DataSet:=ADOQuery4;

QRDBText1.DataField:= IZD_OBOZN raquo ;;

QRDBText2.DataSet:=ADOQuery4;

QRDBText2.DataField:= SHEMA_NAIM raquo ;;

QRDBText3.DataSet:=ADOQuery4;

QRDBText3.DataField:= TYPE_DEVICE raquo ;;

QRDBText4.DataSet:=ADOQuery4;

QRDBText4.DataField:= DEV_NAME raquo ;;

QRDBText5.DataSet:=ADOQuery4;

QRDBText5.DataField:= SHEM_NOM raquo ;;

QRLabel2.Caption:= ремонту raquo ;;

QRLabel4.Caption:=ComboBox1.Text;

end;

ADOQuery4.Close;

ADOQuery4.Open;

FormRepStat.QuickRep1.Preview ;; TFormRepair.N5Click (Sender: TObject);

UserSrlect:=1;

FormAPP.Show;

FormRepair.Hide ;; TFormRepair.N10Click (Sender: TObject);

FormAPP.Show;

FormRepair.Hide ;;. UnitSearchDate;

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

Dialogs, DB, Grids, DBGrids, ADODB, ComCtrls, StdCtrls, ExtCtrls;

TFormSearchData=class (TForm)

Panel1: TPanel;

Label1: TLabel;

DateTimePicker1: TDateTimePicker;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1NUMBER: TStringField;

ADOQuery1DATE_CREATE: TDateTimeField;

ADOQuery1PODRAZD_NAME: TStringField;

ADOQuery1IZD_NAIM: TStringField;

ADOQuery1DEV_NAME: TStringField;

ADOQuery1SHEM_NOM: TStringField;

ADOQuery1SHIP_ZAV_NOM: TStringField;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Label2: TLabel;

procedure Panel3Click (Sender: TObject);

procedure Panel4Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

FormSearchData: TFormSearchData; UnitJournal;

{$ R * .dfm} TFormSearchData.Panel3Click (Sender: TObject) ;. Show; .Close ;; TFormSearchData.Panel4Click (Sender: TObject);.Close;.Parameters.ParamByName(laquo;praquo;).Value:=DateTimePicker1.DateTime;.Open;;TFormSearchData.FormActivate(Sender: TObject) ;. Caption:=FormJournal.ComboBoxPodrazd.Text ;;. UnitSearchPodrazd;