Разработка автоматизированного рабочего места диспетчера и инженера сервисной службы интегрированной информационной системы

  //UDM.ADOTableGeneral.Open;

  UDM.ADOTableGeneral.Sort:= 'nkvit DESC'; 

end; 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Insert;

  Form2.BitBtn3.Visible:= false;

  Form2.BitBtn4.Visible:=false;

  Form2.Label13.Visible:=false;

  Form2.DBEdit15.Enabled:= false;

  Form2.DBEdit15.Visible:=false;

  Form2.BitBtn3.Visible:= false;

  Form2.BitBtn4.Visible:= false;

  Form2.BitBtn1.Visible:= true;

  Form2.ShowModal; 

end; 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Insert;

  Form3.ShowModal;

end; 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

  Form2.BitBtn1.Visible:= false;

  Form2.BitBtn3.Visible:= true;

  Form2.BitBtn4.Visible:= true; 

  Form2.Label13.Visible:=true;

  Form2.DBEdit15.Enabled:= true;

  Form2.DBEdit15.Visible:=true;

  Form2.BitBtn3.Visible:= true;

  Form2.BitBtn4.Visible:= true;

  Form2.ShowModal;

end; 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

  Form4.ShowModal;

  Form4.DBEdit1.Text:= DateToStr(Now);

end; 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

  Form5.ShowModal;

end; 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if gdSelected in State then

    begin

      Form1.DBGrid1.Canvas.Brush.Color:= clBlack;

      Form1.DBGrid1.Canvas.Font.Color:= clHighlightText;

      Form1.DBGrid1.Canvas.Font.Style:= [fsBold];

    end

  else

  if UDM.ADOTableGeneral.FieldByName('status').AsString = 'выдан' then

    Form1.DBGrid1.Canvas.Brush.Color:= RGB(152,150,254)

  else if UDM.ADOTableGeneral.FieldByName('status').AsString = 'готов' then

    Form1.DBGrid1.Canvas.Brush.Color:= RGB(109,233,103)

  else if UDM.ADOTableGeneral.FieldByName('status').AsString = 'в ремонт' then

    Form1.DBGrid1.Canvas.Brush.Color:= RGB(254,182,169)

  else

    Form1.DBGrid1.Canvas.Brush.Color:= RGB(249,255,132);

  Form1.DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State); 

end; 

procedure TForm1.FormShow(Sender: TObject);

begin

  {UDM.ADOConnection1.Connected:= false;

  UDM.ADOConnection1.Connected:= true;

  UDM.ADOTableGeneral.Active:=true;

  UDM.ADOKartwork.Active:=true;

  UDM.ADOTypework.Active:=true;

  UDM.ADOtypetech.Active:= true;

  UDM.ADOdisp.Active:=true;

  UDM.ADOstatus.Active:=true;

  UDM.ADOpoint.Active:=true;} 

  UDM.ADOTableGeneral.Requery();

  //UDM.ADOTableGeneral.Close;

  //UDM.ADOTableGeneral.Open;

  UDM.ADOTableGeneral.Sort:= 'nkvit DESC';

end; 

procedure TForm1.N10Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Мядзюта И. П.''';

end; 

procedure TForm1.N11Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Подъяблонский Ю. М.''';

end; 

procedure TForm1.N12Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='typetech=''ноутбук''';

end; 

procedure TForm1.N13Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='typetech=''Сотовый_телефон''';

end; 

procedure TForm1.N14Click(Sender: TObject);

begin

   UDM.ADOTableGeneral.Filter:='typetech=''Компьютерная_техника'''

end; 

procedure TForm1.N15Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='typetech=''Цифровая_техника''';

end; 

procedure TForm1.N16Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:= 'typetech =''Оргтехника_Лазерный'' or typetech =''Оргтехника_Струйный''';

end; 

procedure TForm1.N17Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:= 'typetech =''Картридж_Лазерный'' or typetech =''Картридж_Струйный''';

end; 

procedure TForm1.N18Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Швецов В. Б.''';

end; 

procedure TForm1.N19Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Литвинов А. С.''';

end; 

procedure TForm1.N20Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Гурин А. А.''';

end; 

procedure TForm1.N21Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Фетисов Р. Ю.''';

end; 

procedure TForm1.N22Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Коломин А. В.''';

end; 

procedure TForm1.N23Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Евсеев А. Ю.''';

end; 

procedure TForm1.N24Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='';

end; 

procedure TForm1.N5Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='status=''в ремонт''';

end; 

procedure TForm1.N6Click(Sender: TObject);

begin

   UDM.ADOTableGeneral.Filter:='status=''готов''';

end; 

procedure TForm1.N7Click(Sender: TObject);

begin

   UDM.ADOTableGeneral.Filter:='status=''ожидание з/ч''';

end; 

procedure TForm1.N8Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='status=''выдан''';

end; 

procedure TForm1.N9Click(Sender: TObject);

begin

  UDM.ADOTableGeneral.Filter:='fammast=''Бородулин В. В.''';

end; 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

  if UDM.ADOTableGeneral.Locate('nkvit',Form1.Edit1.Text,[]) then

    Form1.DBGrid1.SetFocus;

    Form1.Edit1.Text:='';

end; 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

  if UDM.ADOTableGeneral.Locate('kartkvit',Form1.Edit2.Text,[]) then

    Form1.DBGrid1.SetFocus;

    Form1.Edit2.Text:='';

end; 

end. 
 

unit Unit2; 

interface 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ComObj; 

type

  TForm2 = class(TForm)

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    Label7: TLabel;

    DBEdit7: TDBEdit;

    Label8: TLabel;

    DBEdit8: TDBEdit;

    Label9: TLabel;

    DBEdit9: TDBEdit;

    Label10: TLabel;

    DBEdit10: TDBEdit;

    Label11: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    Label12: TLabel;

    DBEdit11: TDBEdit;

    DBLookupComboBox2: TDBLookupComboBox;

    DBLookupComboBox3: TDBLookupComboBox;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    DBEdit13: TDBEdit;

    DBEdit12: TDBEdit;

    BitBtn1: TBitBtn;

    OpenDialog1: TOpenDialog;

    DBEdit14: TDBEdit;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    Label13: TLabel;

    DBEdit15: TDBEdit;

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses UnitDM; 

{$R *.dfm} 

procedure TForm2.BitBtn1Click(Sender: TObject);

var

  E: variant;

begin

  Form2.DBEdit12.Text:= 'в ремонт';

  if UDM.ADOTableGeneral.Modified then

    UDM.ADOTableGeneral.Post;

  Form2.Close;

  E:= CreateOleObject('Excel.Application');

  if not Opendialog1.Execute then exit;

  E.WorkBooks.Open(OpenDialog1.FileName);

  E.Visible:= true; 

  //--------------------------------

    E.Range['c2']:= '';

    E.Range['g29']:= '';