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

="justify"> Panel1: TPanel;

Panel2: TPanel;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

GroupBox1: TGroupBox;

Label3: TLabel;

ComboBox1: TComboBox;

Label4: TLabel;

ComboBox2: TComboBox;

Label5: TLabel;

ComboBox3: TComboBox;

Panel3: TPanel;

ADOQuery1: TADOQuery;

Label7: TLabel;

ComboBox5: TComboBox;

ADOTableIzd: TADOTable;

ADOTableShip: TADOTable;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

CheckListBox1: TCheckListBox;

Panel4: TPanel;

procedure FormActivate (Sender: TObject);

procedure Panel3Click (Sender: TObject);

procedure ComboBox5Click (Sender: TObject);

procedure ComboBox3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

FormNakl: TFormNakl; UnitJournal;

{$ R * .dfm} TFormNakl.FormActivate (Sender: TObject) ;. ADOTablePodrazd.Open; .ADOTablePodrazd.First; FormJournal.ADOTablePodrazd.Eof=false do.Items.Add(FormJournal.ADOTablePodrazd.FieldByName(laquo;PODRAZD_NAMEraquo;).AsString);.Items.Add(FormJournal.ADOTablePodrazd.FieldByName(laquo;PODRAZD_NAMEraquo;).AsString);.ADOTablePodrazd.Next;;.Open;.First;ADOTableShip.Eof=false do.Items.Add(ADOTableShip.FieldByName(laquo;SHIP_ZAV_NOMraquo;).AsString);.Next;;;TFormNakl.Panel3Click(Sender: TObject) ;. Show; .Close ;; TFormNakl.ComboBox5Click (Sender: TObject);

;.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox5.Items.Strings[ComboBox5.ItemIndex];.Close;.Open;.First;ADOQuery2.Eof=false do.Items.Add(ADOQuery2.FieldByName(laquo;IZD_OBOZNraquo;).AsString);.Next;;;TFormNakl.ComboBox3Click(Sender: TObject);.Parameters.ParamByName(laquo;qraquo;).Value:=ComboBox5.Items.Strings[ComboBox5.ItemIndex];.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox3.Items.Strings[ComboBox5.ItemIndex];.Close;.Open;.First;ADOQuery3.Eof=false do.Items.Add (ADOQuery3.FieldByName ( DEV_NAME ). AsString + + ADOQuery3.FieldByName ( SHEM_NOM ). AsString + + ADOQuery3.FieldByName ( SHEMA_NAIM ). AsString) ;. Next ;;;. UnitPeriod;

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

Dialogs, ComCtrls, ExtCtrls, StdCtrls, ADODB, DB, RpDefine, RpCon,

RpConDS;

TFormPeriod=class (TForm)

Panel1: TPanel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Label5: TLabel;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOQuery1: TADOQuery;

Panel2: TPanel;

Panel3: TPanel;

procedure Panel3Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure Panel2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

FormPeriod: TFormPeriod;

Podrazd: String; UnitJournal, UnitAutor, UnitOtchPeriod;

{$ R * .dfm} TFormPeriod.Panel3Click (Sender: TObject) ;. Close ;; TFormPeriod.FormActivate (Sender: TObject) ;. Open; .First; ADOTable1.Eof=false do.Items.Add(ADOTable1.FieldByName(laquo;PODRAZD_NAMEraquo;).AsString);.Next;;.Open;.First;ADOTable2.Eof=false do.Items.Add(ADOTable2.FieldByName(laquo;SHIP_ZAV_NOMraquo;).AsString);.Next;;:=FormJournal.ComboBoxPodrazd.Text;;TFormPeriod.Panel2Click(Sender: TObject);.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox1.Text;.Parameters.ParamByName(laquo;qraquo;).Value:=ComboBox2.Text;.Parameters.ParamByName(laquo;sraquo;).Value:=DateTimePicker1.DateTime;.Paramet...