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

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

2. Дмитрий Осипов Базы данных и Delphi. Теория и практика.

. Рубанцев Валерий. Описание книги Delphi в примерах, играх и программах.

. Сергей Бобровский. Технологии Delphi 2006. Новые возможности.

. Михаил Голованов, Евгений Веселов. Создание компонентов в среде Delphi. Руководство разработчика.

. Иван Хладни. Внутренний мир Borland Delphi.

. А. Я. Архангельский. Программирование в Delphi для Windows.

. А. Чиртик, В. Борисок, Ю. Корвель. Трюки и эффекты.

9. М. Е. Фленов. Delphi глазами хакера .

. Д. Тейлор, Дж. Мишель, Дж. Пенман. Delphi, библиотека программиста .

procedure TForm2.BitBtn1Click(Sender: TObject); //закрыть.close;;

TForm2.Button1Click(Sender: TObject); //открытьOpenDialog1.Execute then:=OpenDialog1.FileNames:='primer.txt';(f,s);(f);:=0;not eof(f) do(f);(f);(f);(f);(f);(k);(f);;(f);(f,s);(f);.ColCount:=5;.rowCount:=k;.cells[0,0]:='Наименование';.cells[1,0]:='Зоомагазин';.cells[2,0]:='Цена';.cells[3,0]:='Дата продажи';.cells[4,0]:='Дата поставки';i:= 1 to SG1.RowCount-1 doj:= 0 to SG1.ColCount-1 do begin(f,x);.Cells[j,i]:=x;;(f,x);;(f);;TForm2.Button2Click(Sender: TObject); //сохранитьs '' then begin

(f,s);(f);i:=1 to SG1.RowCount-1 doj:=0 to SG1.ColCount-1 do(f,SG1.cells[j,i]);(f,'');;(f) else

showmessage ('Вы не выбрали файл.'+#10#13+'Нужно открыть файл или создать новый и нажать кнопку "Сохранить как"'); end;

TForm2.Button3Click(Sender: TObject); //сохранить какSaveDialog1.Execute then begin:=SaveDialog1.FileName+'.txt';(f,s);(f);i:=1 to SG1.RowCount-1 doj:=0 to SG1.ColCount-1 do(f,SG1.cells[j,i]);(f,'');;(f)('Вы не выбрали файл');

;

TForm2.Button4Click(Sender: TObject); //о программе.show;;

TForm2.Button5Click(Sender: TObject); //добавитьSG1.RowCount>1 then.RowCount:=SG1.RowCount+1;;

TForm2.Button6Click(Sender: TObject); //удалить: string;: integer;,j:integer;:=-1;SG1 do begini := 1 to RowCount - 1 docells[1,i]=a then b:=i;

b -1 then beginRowCount>=2 theni := b to RowCount - 1 doj := 0 to ColCount - 1 do[j,i]:=cells[j,i+1];:=RowCount-1;ShowMessage('Такого поля нет');;

;TForm2.Button7Click(Sender: TObject); //об авторе.show;;

TForm2.FormCreate(Sender: TObject); //цвет формы.color:=rgb(98,99,155);;

TForm2.FormShow(Sender: TObject);.ColWidths[0]:=250;;

TForm2.N2Click(Sender: TObject);OpenDialog1.Execute then:=OpenDialog1.FileNames:='primer.txt';(f,s);(f);:=0;not eof(f) do(f);(f);(f);(f);(f);(k);(f);;(f);(f,s);(f);.ColCount:=5;.rowCount:=k;.cells[0,0]:='Наименование';.cells[1,0]:='Зоомагазин';.cells[2,0]:='Цена';.cells[3,0]:='Дата продажи';.cells[4,0]:='Дата поставки';i:= 1 to SG1.RowCount-1 doj:= 0 to SG1.ColCount-1 do begin(f,x);.Cells[j,i]:=x;;(f,x);;(f);;

TForm2.N3Click(Sender: TObject);s '' then begin

(f,s);(f);i:=1 to SG1.RowCount-1 doj:=0 to SG1.ColCount-1 do(f,SG1.cells[j,i]);(f,'');;(f) else

showmessage ('Вы не выбрали файл.'+#10#13+'Нужно открыть файл или создать новый и нажать кнопку "Сохранить как"'); end;

TForm2.N4Click(Sender: TObject);SaveDialog1.Execute then begin:=SaveDialog1.FileName+'.txt';(f,s);(f);i:=1 to SG1.RowCount-1 doj:=0 to SG1.ColCount-1 do(f,SG1.cells[j,i]);(f,'');;(f)('Вы не выбрали файл');

;

TForm2.N5Click(Sender: TObject);.close;;

TForm2.N7Click(Sender: TObject);.show;;

TForm2.N8Click(Sender: TObject);.show;;

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);;;

.

Похожие работы