Владимир Коробицин,
15-04-2016 08:23
(ссылка)
Без заголовка
Коллеги, хотел бы узнать ваше мнение о сайте http://bigcamagan.ru/

Программа Формодел делает курсовые по программированию на Delphi
Формодел — программное обеспечение для быстрого создания самостоятельных приложений для работы с базами данных. Курсовые и дипломные по программированию на Delphi могут быть выполнены с «Формоделом» за считаные минуты.
срочно помогите пожылуйста
привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!
сумма столбца
Есть две связные таблица в Access
первая база с данными по фио, воторая содержит приход расход остаток. необходимо досчитать сумму по расходу в подчиненной таблице.
пытался сделать так
form3.ADOQuery1.Close;
form3.ADOQuery1.SQL.Clear;
form3.ADOQuery1.SQL.Add('select sum(Сумма) from Телефоны;');
form3.ADOQuery1.Open;
form5.Label21.Caption := form3.FindQuery.Fields[0].AsString;
результат считает сумму по всему столбцу сумма по всем фамилиям.
например иванов - 200 руб, петров - 200 руб, а она мне сразу 400 руб
собственно вопрос как подсчитать сумму по фамили.
первая база с данными по фио, воторая содержит приход расход остаток. необходимо досчитать сумму по расходу в подчиненной таблице.
пытался сделать так
form3.ADOQuery1.Close;
form3.ADOQuery1.SQL.Clear;
form3.ADOQuery1.SQL.Add('select sum(Сумма) from Телефоны;');
form3.ADOQuery1.Open;
form5.Label21.Caption := form3.FindQuery.Fields[0].AsString;
результат считает сумму по всему столбцу сумма по всем фамилиям.
например иванов - 200 руб, петров - 200 руб, а она мне сразу 400 руб
собственно вопрос как подсчитать сумму по фамили.
Farida Dosbolova,
01-06-2011 17:34
(ссылка)
Delphi.генератор случайных чисел Random(100).Методом Шелли отсор
Delphi.генератор случайных чисел Random(100).Методом Шелли отсортировать по возрастанию эти 100 чисел.Должны быть графики чисел до и после отсортировки.
важно!!!
Здраствуйте, предлагаю вам свое ПО и услуги
Баннер(винлокер, блокиратор Windows)
+Вылазиет на весь экран
+Блокирует диспетчер задач
+блокирует безопасный режим
+добавляется в автозагрузку
+Убираеться кодом
+Могу сделать любой дизайн и код
+Его очень сложно будет убрать
Цена 200-250( в зависимости от сложности дизайна)
Программные фейки
Фейк на mail.ru agent пароли приходят на e-mail цена 100 рублей
Фейк на yandex пароли приходят на e-mail цена 100 рублей
Фейк на Vkontakte пароли приходят на e-mail цена 100 рублей
Могу сделать программный фейк на любой сайт
Продажа сайта
Сайт на тему программирование и хакинг в общем все самое интересное в личку посещаемость 150-200 человек
Создание сайтов
При покупке какой нибудь программы в подарок вы получите много дополнительных
программ которые очень сложно найти в интернете
Писать на ha_cker@mail.ru
Баннер(винлокер, блокиратор Windows)
+Вылазиет на весь экран
+Блокирует диспетчер задач
+блокирует безопасный режим
+добавляется в автозагрузку
+Убираеться кодом
+Могу сделать любой дизайн и код
+Его очень сложно будет убрать
Цена 200-250( в зависимости от сложности дизайна)
Программные фейки
Фейк на mail.ru agent пароли приходят на e-mail цена 100 рублей
Фейк на yandex пароли приходят на e-mail цена 100 рублей
Фейк на Vkontakte пароли приходят на e-mail цена 100 рублей
Могу сделать программный фейк на любой сайт
Продажа сайта
Сайт на тему программирование и хакинг в общем все самое интересное в личку посещаемость 150-200 человек
Создание сайтов
При покупке какой нибудь программы в подарок вы получите много дополнительных
программ которые очень сложно найти в интернете
Писать на ha_cker@mail.ru
сашка нескажу,
02-10-2010 16:11
(ссылка)
Как реализовать?
Можно ли сделать чтобы радиогрупп потихоньку угасал. Допустим я хочу сделать тест, появляется первый вопрос радиогрупп1(рг1), выбираю ответ рг1 исчезает и медленно появляется рг2, что-то вроде прозрачности.
***адиль ***,
18-07-2010 08:38
(ссылка)
блокератор винды
продаю хороший блокератор винды сделан в делфи =)стоимость 300 руб
Требуется аналитик,разработчик, проектировщик
В крупную страховую компанию (ТОР 10) требуются Ведущий специалист отдела разработки отчетности, ведущий специалист отдела анализа и внедрения, ведущий специалист отдела проектирования.
Требования
Знание и опыт работы с БД Oracle от 2х лет.
Гражданство РФ, проживание Москва/Моксовская область
Образование высшее, техническое.
По всем вопросам обращайтесь 89151776635, 418673421
panferova@maxy-c.ru
maxy@mail.ru
настроение: боевое
хочется: найти специалиста
слушаю: коллег
Метки: аналитик, разработчик, проектировщик, oracle, работа. специалист, sql, delfi, СУБД
Выбор БД
Здравствуйте.
Порекомендуйте, какую БД в сочетании с Delphi можно использовть для локального телефонного справочника,
удовлетворяющим условиям:
- необходимость шифрования БД (чтоб доступ к БД имела только моя программа, и данные с базы никому больше не были доступны);
- хорошая скорость для применения команды `like` при том, что в БД строк примерно 400000;
- желательно без дополнительных dll и настроек типа BDE (хотя это не обязательно);
Хотелось бы чтоб кри каждом вводе символа в поле Фамилии сразу проиходила выборка и отображение подходящих данных.
Выслушаю рекомендации.
Заранее благодарю.
Порекомендуйте, какую БД в сочетании с Delphi можно использовть для локального телефонного справочника,
удовлетворяющим условиям:
- необходимость шифрования БД (чтоб доступ к БД имела только моя программа, и данные с базы никому больше не были доступны);
- хорошая скорость для применения команды `like` при том, что в БД строк примерно 400000;
- желательно без дополнительных dll и настроек типа BDE (хотя это не обязательно);
Хотелось бы чтоб кри каждом вводе символа в поле Фамилии сразу проиходила выборка и отображение подходящих данных.
Выслушаю рекомендации.
Заранее благодарю.
Объединение таблиц
Имеются 2 таблицы Persons и Users. Нужно переместить данные из столбцов [FirstName], [LastName], [Gender], [CountryId], [CityId] int, [isNotifiedByEmail] таблицы Persons в таблицу Users (в Users нужно создать такие столбцы). Как я делаю:
Создаю табличную переменную, засовываю туда данные, которые нужно переместить (+колонка с identity для индексации). Делаю ALTER TABLE Users ADD <нужные столбцы>. В цикле загоняю из временной таблицы в новые столбцы. Затем уже создаю форейн кейсы.
В чем проблема:
Дело в том что компилироваться не хочет. Если столбцы еще не созданы, а в коде в начале есть добавление в таблицу новых столбцов, то компилятор все равно сообщает, что таких полей нет. Если в начале отдельно создать поля, а затем запустить код с добавлением, то работает отлично. Как решить проблему7 Нужно все сделать в одном запросе в виде скрипта для апдейта базы, без использования и создания stored procedures.
Подключаю код, то что нахимичил:
Создаю табличную переменную, засовываю туда данные, которые нужно переместить (+колонка с identity для индексации). Делаю ALTER TABLE Users ADD <нужные столбцы>. В цикле загоняю из временной таблицы в новые столбцы. Затем уже создаю форейн кейсы.
В чем проблема:
Дело в том что компилироваться не хочет. Если столбцы еще не созданы, а в коде в начале есть добавление в таблицу новых столбцов, то компилятор все равно сообщает, что таких полей нет. Если в начале отдельно создать поля, а затем запустить код с добавлением, то работает отлично. Как решить проблему7 Нужно все сделать в одном запросе в виде скрипта для апдейта базы, без использования и создания stored procedures.
Подключаю код, то что нахимичил:
begin transaction
--Adding data from Persons table to @table
declare @table table(
ind int identity(1,1), UserId int,
FirstName nvarchar(50), LastName nvarchar(50),
Gender bit, CountryId int, CityId int, isNotifiedByEmail bit);
insert into @table
select UserId, FirstName, LastName,
Gender, CountryId, CityId, isNotifiedByEmail
from Persons;
--Adding new columns to Users table
alter table [dbo].[Users]
add [FirstName] nvarchar(50) COLLATE Cyrillic_General_CI_AS NULL,
[LastName] nvarchar(50) COLLATE Cyrillic_General_CI_AS NULL,
[Gender] bit NOT NULL DEFAULT ((0)),
[CountryId] int NOT NULL DEFAULT ((0)),
[CityId] int NOT NULL DEFAULT ((0)),
[isNotifiedByEmail] bit NULL DEFAULT ((1));
--Adding data to altered Users table from @table
--Update working by cycle
declare @from int, @to int, @userId int
declare @alterTable nvarchar(max);
declare @FirstName nvarchar(50),
@LastName nvarchar(50),
@Gender bit,
@CountryId int,
@CityId int,
@isNotifiedByEmail bit;
set @to = (select COUNT(*) from @table);
set @from=1;
declare @command nvarchar(max)
while (@from<=@to)
begin
set @UserId=(select UserId from @table as t where t.ind=@from)
set @FirstName=(select FirstName from @table as t where t.ind=@from)
set @LastName=(select LastName from @table as t where t.ind=@from)
set @Gender=(select Gender from @table as t where t.ind=@from)
set @CountryId=(select CountryId from @table as t where t.ind=@from)
set @CityId=(select CityId from @table as t where t.ind=@from)
set @isNotifiedByEmail=(select isNotifiedByEmail from @table as t where t.ind=@from)
--Здесь возникает ошибка! Говорит, что таких столбцов не существует. Пробовал через sp_executesql передать строку - все равно.
update [dbo].[Users]
set FirstName=@FirstName,
LastName=@LastName,
Gender=@Gender,
CountryId=@CountryId,
CityId=@CityId,
isNotifiedByEmail=@isNotifiedByEmail
where @UserId=Users.UserId
set @from=@from+1;
end
--Adding foreign keys to new columns
alter table [dbo].[Users] with check add constraint [FK_Users_Cities] foreign key([CityId])
references [dbo].[Cities] ([CityId])
alter table [dbo].[Users] check constraint [FK_Users_Cities]
alter table [dbo].[Users] with check add constraint [FK_Users_Countries] foreign key([CountryId])
references [dbo].[Countries] ([CountryId])
alter table [dbo].[Users] check constraint [FK_Users_Countries]
--deleting constraints and columns from Persons table
alter table [dbo].[Persons] drop constraint [FK_Persons_Cities]
alter table [dbo].[Persons] drop constraint [FK_Persons_Countries]
alter table [dbo].[Persons]
drop column FirstName, LastName, Gender, CountryId, CityId, isNotifiedByEmail
if @@trancount>0 commit transaction
else
rollback
--Checking =)
select * from Users
--Adding data from Persons table to @table
declare @table table(
ind int identity(1,1), UserId int,
FirstName nvarchar(50), LastName nvarchar(50),
Gender bit, CountryId int, CityId int, isNotifiedByEmail bit);
insert into @table
select UserId, FirstName, LastName,
Gender, CountryId, CityId, isNotifiedByEmail
from Persons;
--Adding new columns to Users table
alter table [dbo].[Users]
add [FirstName] nvarchar(50) COLLATE Cyrillic_General_CI_AS NULL,
[LastName] nvarchar(50) COLLATE Cyrillic_General_CI_AS NULL,
[Gender] bit NOT NULL DEFAULT ((0)),
[CountryId] int NOT NULL DEFAULT ((0)),
[CityId] int NOT NULL DEFAULT ((0)),
[isNotifiedByEmail] bit NULL DEFAULT ((1));
--Adding data to altered Users table from @table
--Update working by cycle
declare @from int, @to int, @userId int
declare @alterTable nvarchar(max);
declare @FirstName nvarchar(50),
@LastName nvarchar(50),
@Gender bit,
@CountryId int,
@CityId int,
@isNotifiedByEmail bit;
set @to = (select COUNT(*) from @table);
set @from=1;
declare @command nvarchar(max)
while (@from<=@to)
begin
set @UserId=(select UserId from @table as t where t.ind=@from)
set @FirstName=(select FirstName from @table as t where t.ind=@from)
set @LastName=(select LastName from @table as t where t.ind=@from)
set @Gender=(select Gender from @table as t where t.ind=@from)
set @CountryId=(select CountryId from @table as t where t.ind=@from)
set @CityId=(select CityId from @table as t where t.ind=@from)
set @isNotifiedByEmail=(select isNotifiedByEmail from @table as t where t.ind=@from)
--Здесь возникает ошибка! Говорит, что таких столбцов не существует. Пробовал через sp_executesql передать строку - все равно.
update [dbo].[Users]
set FirstName=@FirstName,
LastName=@LastName,
Gender=@Gender,
CountryId=@CountryId,
CityId=@CityId,
isNotifiedByEmail=@isNotifiedByEmail
where @UserId=Users.UserId
set @from=@from+1;
end
--Adding foreign keys to new columns
alter table [dbo].[Users] with check add constraint [FK_Users_Cities] foreign key([CityId])
references [dbo].[Cities] ([CityId])
alter table [dbo].[Users] check constraint [FK_Users_Cities]
alter table [dbo].[Users] with check add constraint [FK_Users_Countries] foreign key([CountryId])
references [dbo].[Countries] ([CountryId])
alter table [dbo].[Users] check constraint [FK_Users_Countries]
--deleting constraints and columns from Persons table
alter table [dbo].[Persons] drop constraint [FK_Persons_Cities]
alter table [dbo].[Persons] drop constraint [FK_Persons_Countries]
alter table [dbo].[Persons]
drop column FirstName, LastName, Gender, CountryId, CityId, isNotifiedByEmail
if @@trancount>0 commit transaction
else
rollback
--Checking =)
select * from Users
Алексей Статюха,
08-01-2009 04:16
(ссылка)
Есть кто живой? )))
И что, есть кто живой или слово "оплата" всех распугало? )))
Анастасия ~*~,
23-03-2008 22:04
(ссылка)
Помогите пожалуйста!!!!!!!!!!!!!!
Мне нужно написать программу в Delphi для расчета координат и построения бифуркационного дерева. Может кто - нибудь знает как это сделать. В принципе алгоритм построения я знаю, но ничего не получается.
Сложная для меня задача
Добрый день друзья, вот пишу работу «АРМ библиотекаря», причём задано, что база данных может быть разработана на основе любой СУБД(InterBase, Access), а клиентская часть должна быть выполнена с помощью Delphi. Сталкивался ли кто-нибудь с подобной довольно сложной для меня задачей?
настроение: Озадаченное
Йанчег Strynevski,
03-01-2008 01:16
(ссылка)
прозьба
кто нибудь мне может кинул Delphi или дал ссылку?Пожалуйста
настроение: В спешке
Проблема со вставкой новой записи в таблицу.
Имеем, БД Interbase 7.5 таблица имеет 1 поле - тип integer, 2 поле тип - blob, 1е поле - автоинкремент по процедуре, триггеру и генератору, проверял из под IBExpert, работает великолепно, есть BDS 2006, с помощью DbNavigator пробую nbInsert говорит, что нужно значение 1го поля.
Прошу помочь в данном вопросе программистов БД. Заранее спасибо!
Прошу помочь в данном вопросе программистов БД. Заранее спасибо!
настроение: Обеспокоенное
хочется: сна
слушаю: DJ TONIC - Night Non Stop
Артем Artem,
22-08-2007 11:12
(ссылка)
Подскажите новичку( работа с базой Access через ADO)
Народ вот суть проблемы: есть база Access и программа которая должна автоматически заносить данные по ходу выполнения.Как заносить данные в базу не прибегая к таймерам и кнопкам?Данные поступают через Com порт.
Без заголовка

Здарово! Меня зовут Random! В своем блоге я расскажу вам о том как я делаю крупнейший в России компьютерный фестиваль CHAOS CONSTRUCTIONS, объединивший тысячи людей интересующихся искусством, создаваемым на компьютере - от админов и блогеров до мызыкантов и дизайнеров, от программистов и геймеров до изобретателей и инженеров. Присоединяйся! Мы должны держаться вместе!
http://blogs.mail.ru/mail/compfest/
ЛЮДИ ДОБРЫЕ, ПОМОГИТЕ!
Мне нужно создать клавишный тренажер. Может у кого завалялась такая прога? (на базе DELPHI6)
Вычисляемое поле
У меня есть БД с 2 таблицами, главной и дополнительной.
Из второй таблицы выбирается некоторая информация, относящаяся к первой:
SELECT * FROM table1, table2 WHERE table2.id = table1.id
Может оказаться так, что во второй таблице нет данных, по конкретному id.
В DBGrid у меня выводятся все данные, из 1 и 2 таблиц, и если во второй таблице ничего не обнаружено, то в DBGrid в ячейке надо вывести надпись типа "ничего не найдено". Как это можно сделать?
Из второй таблицы выбирается некоторая информация, относящаяся к первой:
SELECT * FROM table1, table2 WHERE table2.id = table1.id
Может оказаться так, что во второй таблице нет данных, по конкретному id.
В DBGrid у меня выводятся все данные, из 1 и 2 таблиц, и если во второй таблице ничего не обнаружено, то в DBGrid в ячейке надо вывести надпись типа "ничего не найдено". Как это можно сделать?
Без заголовка
если есть кто-нить кто достаточно хорошо понимает систему управления базами данных, поведайте мне об этом, весьма нужно. плиззззззззззззззззззззззз
Габит Кудайкулов,
16-09-2006 13:50
(ссылка)
Помогите
Добрый день, Господа! Помогите найти материалы для создания приложения клиент-сервер. Заранее благодарен...
настроение: Внимательное
Помогите!!!
Люди помогите пожалуйста мне! Я хочу создать базу данных (телефонный справочник), с поиском по номеру и по Фамилии имени отчеству. Скинте пож. прогу для ее создания. Зараннее спасибо!
настроение: Благодарное
В этой группе, возможно, есть записи, доступные только её участникам.
Чтобы их читать, Вам нужно вступить в группу
Чтобы их читать, Вам нужно вступить в группу