Читать курсовая по информационному обеспечению, программированию: "Разработка программного обеспечения для быстрого и удобного нахождения принтеров, находящихся в колледже" Страница 6

(Назад) (Cкачать работу)

do[j,i]:=cells [j,i+1];:=RowCount - 1;showmessage ('Нет такого инвентарного номера');;;TForm2.FormCreate(Sender: TObject);.Color:=rgb(255, 214, 155);;TForm2.SG1Click(Sender: TObject);;TForm2.SG1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;: TGridDrawState);:string;: integer;Sender as TStringGrid do.FillRect(Rect);(Canvas.Handle,(Cells[ACol, ARow]),(Cells[ACol, ARow]),, DT_WORDBREAK or_EXPANDTABS);;;TForm3.Button1Click(Sender: TObject);.Hide;;TForm3.FormCreate(Sender: TObject);.Color:=rgb(255, 214, 155);;TForm4.Button1Click(Sender: TObject);Form2 do begin.rowcount:=SG1.RowCount+1;.Cells [0, SG1.rowcount-1]:= Form4.edit1.Text;.Cells [1, SG1.rowcount-1]:= Form4.edit2.Text;.Cells [2, SG1.rowcount-1]:= Form4.edit3.Text;.Cells [3, SG1.rowcount-1]:= Form4.edit4.Text;.Cells [4, SG1.rowcount-1]:= Form4.edit5.Text; ('Строка была добавлена в таблицу');

end;;TForm4.Button2Click(Sender: TObject);.Hide;;TForm4.FormCreate(Sender: TObject);.Color:=rgb(255, 214, 155);;_programmeTForm1.Button1Click(Sender: TObject);.Hide;;TForm1.FormCreate(Sender: TObject);.Color:=rgb(255, 214, 155);;.