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

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

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

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

Тема: Статьи

ers.ParamByName(laquo;rraquo;).Value:=DateTimePicker2.DateTime;.QRLabel3.Caption:=ComboBox1.Text;.QRLabel14.Caption:=ComboBox2.Text;.QRLabel5.Caption:=DateToStr(DateTimePicker1.DateTime);.QRLabel7.Caption:=DateToStr(DateTimePicker2.DateTime);.QRLabel17.Caption:=Podrazd;.Close;.Open;.QuickRep1.Preview;;.UnitRepair;

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

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

TFormRepair=class (TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Label1: TLabel;

Label2: TLabel;

ComboBox1: TComboBox;

Label3: TLabel;

ComboBox2: TComboBox;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

Panel4: TPanel;

ADOQuery2: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery2DEV_NAME: TStringField;

ADOQuery2TYPE_DEVICE: TStringField;

ADOQuery2SHEMA_NAIM: TStringField;

ADOQuery2SHEM_NOM: TStringField;

ADOQuery2ZAV_NOM: TStringField;

ADOQuery2STATUS: TStringField;

ADOQuery2RASPOLOG: TStringField;

ADOQuery2MASS: TFloatField;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

ADOQuery3: TADOQuery;

ADOQuery4: TADOQuery;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

procedure FormActivate (Sender: TObject);

procedure ComboBox1Click (Sender: TObject);

procedure Panel4Click (Sender: TObject);

procedure ComboBox2Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N10Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

UserSrlect: integer;

end;

FormRepair: TFormRepair; UnitSelect, UnitRepSTat, UnitOtchMass, UnitApp;

{$ R * .dfm} TFormRepair.FormActivate (Sender: TObject) ;. Open; .Clear; .First; ADOTable1.Eof=false do.Items.Add(ADOTable1.FieldByName(laquo;SHIP_ZAV_NOMraquo;).AsString);.Next;;;TFormRepair.ComboBox1Click(Sender: TObject);.Clear;.Close;.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];.Open;.First;ADOQuery1.Eof=false do.Items.Add(ADOQuery1.FieldByName(laquo;IZD_OBOZNraquo;).AsString);.Next;;;TFormRepair.Panel4Click(Sender: TObject) ;. Show; .Close ;; TFormRepair.ComboBox2Click (Sender: TObject);.Close;.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox1.Text;.Parameters.ParamByName(laquo;qraquo;).Value:=ComboBox2.Items.Strings[ComboBox2.ItemIndex];.Open;;TFormRepair.N2Click(Sender: TObject);

ADOQuery3.Active:=true;

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

with FormRepStat do

begin

QuickRep1.DataSet:=ADOQuery3;

QRDBText1.DataSet:=ADOQuery3;

QRDBText1.DataField:= IZD_OBOZN raquo ;;

QRDBText2.DataSet:=ADOQuery3;

QRDBText2.DataField:= SHEMA_NAIM raquo ;;

QRDBText3.DataSet:=ADOQuery3;

QRDBText3.DataField:= TYPE_DEVICE raquo ;;

QRDBText4.DataSet:=ADOQuery3;