34.200.218.187, , 14.08.2020, Пятница
Рертер
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Virtual, IgorPaster  
Форум » Центр форума » Софт и разработка » Borland Delphi (Исходники, примеры, отрывки кода.)
Borland Delphi
sitererters - Alex Orechov
Alex OrechovДата: Четверг, 17.09.2015, 20:09 | Сообщение # 1
Подполковник
Группа: Администраторы
Сообщений: 148
Репутация: 1
Статус: Offline
Добрый день. Здесь выкладываем свои вопросы и программ написаные на этой среде разработки.

Владение информацией - владение ситуацией.

Сообщение отредактировал sitererters - Воскресенье, 20.09.2015, 11:56
 
sitererters - Alex Orechov
Alex OrechovДата: Четверг, 17.09.2015, 20:11 | Сообщение # 2
Подполковник
Группа: Администраторы
Сообщений: 148
Репутация: 1
Статус: Offline
Поиск на форме 9 через edit в дельфи 7:
Код
var
s:string;
k,q,a:integer;
begin
form1.query1.sql.clear;
form1.query1.sql.add('select *');
form1.query1.sql.add('form ''t1.db'' ');
k:=0; q:=1; a:=1;
s:=form1.label26.caption;
if form9.checked=true then begin
if k=0 then
if form9.edit1.text<>' ' then begin
form1.Query.Sql.Add('where (fam='' '+edit1.text+' '')');
form1.label26.caption:='поиск фамилия' + form9.edit1.text;
k:=1; end else begin
showmessage('Введите фамилию');a:=0; end else begin
form1.query1.sql.Add(' and (fam='''+edit1.text+''')');
s:=form1.label26.caption+', фамилия' + form9.edit1.text;
Form1.label26.caption:=s;
end;
form1.spisoks.Dataset:=form1.query1;
form1.query1.active:=true;
if form1.query1.recordcount =0 then begin
form1.spisoks .Dataset:=form1.spisokt;
form1.label26.visible:=false;
showmessage('не найдено');
q:=0;
end else q:=1;
end;


Владение информацией - владение ситуацией.

Сообщение отредактировал sitererters - Четверг, 17.09.2015, 20:13
 
Dreams - Алексей Ор.
Алексей Ор.Дата: Четверг, 24.09.2015, 20:11 | Сообщение # 3
Рядовой
Группа: Заблокированные
Сообщений: 13
Репутация: 3
Статус: Offline
Заставка с прогрессБаром:


Добавлено (24.09.2015, 17:09)
---------------------------------------------




Добавлено (24.09.2015, 17:11)
---------------------------------------------
Пароль на форме, отображение второй формы после ввода пароля:




 
sitererters - Alex Orechov
Alex OrechovДата: Четверг, 24.09.2015, 20:56 | Сообщение # 4
Подполковник
Группа: Администраторы
Сообщений: 148
Репутация: 1
Статус: Offline
Цитата Dreams ()
Пароль на форме, отображение второй формы после ввода пароля
Может пригодиться...


Владение информацией - владение ситуацией.
 
Virtual - Virtual Box
Virtual BoxДата: Воскресенье, 27.09.2015, 14:06 | Сообщение # 5
Рядовой
Группа: Администраторы
Сообщений: 16
Репутация: 1
Статус: Offline
Спасибо за исходники. Пойдём дальше.
 
sitererters - Alex Orechov
Alex OrechovДата: Пятница, 23.10.2015, 15:03 | Сообщение # 6
Подполковник
Группа: Администраторы
Сообщений: 148
Репутация: 1
Статус: Offline
http://www.delphi-manual.ru/les7end.php
Полезная информация. Работа с диалогами в Delphi.


Владение информацией - владение ситуацией.
 
Форум » Центр форума » Софт и разработка » Borland Delphi (Исходники, примеры, отрывки кода.)
  • Страница 1 из 1
  • 1
Поиск:
Новый ответ
Имя:
Текст сообщения:
Все смайлы
Опции сообщения:
Код безопасности:

Copyright Rerter Corp © 2015 - 2020
uCoz
Мнения авторов может не совпадать с позицией администрации интернет-ресурса. Воспроизведение опубликованных материалов на сайте осуществляется только с указанием ссылки rerter.ucoz.com .