Без заголовка

Программа Формодел делает курсовые по программированию на Delphi
срочно помогите пожылуйста
привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!
сумма столбца
первая база с данными по фио, воторая содержит приход расход остаток. необходимо досчитать сумму по расходу в подчиненной таблице.
пытался сделать так
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 руб
собственно вопрос как подсчитать сумму по фамили.
Delphi.генератор случайных чисел Random(100).Методом Шелли отсор
важно!!!
Баннер(винлокер, блокиратор Windows)
+Вылазиет на весь экран
+Блокирует диспетчер задач
+блокирует безопасный режим
+добавляется в автозагрузку
+Убираеться кодом
+Могу сделать любой дизайн и код
+Его очень сложно будет убрать
Цена 200-250( в зависимости от сложности дизайна)
Программные фейки
Фейк на mail.ru agent пароли приходят на e-mail цена 100 рублей
Фейк на yandex пароли приходят на e-mail цена 100 рублей
Фейк на Vkontakte пароли приходят на e-mail цена 100 рублей
Могу сделать программный фейк на любой сайт
Продажа сайта
Сайт на тему программирование и хакинг в общем все самое интересное в личку посещаемость 150-200 человек
Создание сайтов
При покупке какой нибудь программы в подарок вы получите много дополнительных
программ которые очень сложно найти в интернете
Писать на ha_cker@mail.ru
Требуется аналитик,разработчик, проектировщик
В крупную страховую компанию (ТОР 10) требуются Ведущий специалист отдела разработки отчетности, ведущий специалист отдела анализа и внедрения, ведущий специалист отдела проектирования.
Требования
Знание и опыт работы с БД Oracle от 2х лет.
Гражданство РФ, проживание Москва/Моксовская область
Образование высшее, техническое.
По всем вопросам обращайтесь 89151776635, 418673421
panferova@maxy-c.ru
maxy@mail.ru
настроение: боевое
хочется: найти специалиста
слушаю: коллег
Метки: аналитик, разработчик, проектировщик, oracle, работа. специалист, sql, delfi, СУБД
Как реализовать?
Объединение таблиц
Создаю табличную переменную, засовываю туда данные, которые нужно переместить (+колонка с identity для индексации). Делаю ALTER TABLE Users ADD <нужные столбцы>. В цикле загоняю из временной таблицы в новые столбцы. Затем уже создаю форейн кейсы.
В чем проблема:
Дело в том что компилироваться не хочет. Если столбцы еще не созданы, а в коде в начале есть добавление в таблицу новых столбцов, то компилятор все равно сообщает, что таких полей нет. Если в начале отдельно создать поля, а затем запустить код с добавлением, то работает отлично. Как решить проблему7 Нужно все сделать в одном запросе в виде скрипта для апдейта базы, без использования и создания stored procedures.
Подключаю код, то что нахимичил:
--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
блокератор винды
Выбор БД
Порекомендуйте, какую БД в сочетании с Delphi можно использовть для локального телефонного справочника,
удовлетворяющим условиям:
- необходимость шифрования БД (чтоб доступ к БД имела только моя программа, и данные с базы никому больше не были доступны);
- хорошая скорость для применения команды `like` при том, что в БД строк примерно 400000;
- желательно без дополнительных dll и настроек типа BDE (хотя это не обязательно);
Хотелось бы чтоб кри каждом вводе символа в поле Фамилии сразу проиходила выборка и отображение подходящих данных.
Выслушаю рекомендации.
Заранее благодарю.
Помогите!!!
настроение: Благодарное
оператор is
if Object is TEdit then TEdit(Object).Text:='lalala';
Вопрос. Как мне проверить переменную, а не объект? Нечто вроде:
if x is integer then x:=x+1;
Помогите пожалуйста!!!!!!!!!!!!!!
Нужна помощь ... в проектировании БД
Люди помогите ... нужно спроектировать релятивистическую (по-моему так пишиться) БД (на выходе не менее 4-5 таблиц в БД),
тема свободная (но не распрастраненая .. типа библиотека, магазин),
Нужно представить (вместе с разработкой по шагам) инфологическую модель данных, и вариант с ER-диаграмами (связями)
затем зделать нормолизацию таблиц по пяти формам.
До этого опыт небольшой был .. програмирования ГОТОВЫХ БД в дельфях .. но здесь .. темный лес,
даже электроную книгу про проектированию БД прочитал на раз 15 ... в голове тока каша ... а эфекта ноль.
настроение: Безнадёжное
хочется: Застрелиться ... утопиться ... и т.п.
Проблема со вставкой новой записи в таблицу.
Прошу помочь в данном вопросе программистов БД. Заранее спасибо!
настроение: Обеспокоенное
хочется: сна
слушаю: DJ TONIC - Night Non Stop
TCP
Connection timed out. Пробовал tcp порты менять, ничего не помогает...(((
настроение: Сонное
слушаю: Metallica - Nothing else matters
Без заголовка

Здарово! Меня зовут Random! В своем блоге я расскажу вам о том как я делаю крупнейший в России компьютерный фестиваль CHAOS CONSTRUCTIONS, объединивший тысячи людей интересующихся искусством, создаваемым на компьютере - от админов и блогеров до мызыкантов и дизайнеров, от программистов и геймеров до изобретателей и инженеров. Присоединяйся! Мы должны держаться вместе!
http://blogs.mail.ru/mail/compfest/
ЛЮДИ ДОБРЫЕ, ПОМОГИТЕ!
Мне нужно создать клавишный тренажер. Может у кого завалялась такая прога? (на базе DELPHI6)
А что тут такое???
Хотелось бы увидеть/услышать/прочитать мнения людей, занимающихся созданием программ, использующих базы данных.
Интересно знать область задач, возникающие проблемы (при создании баз данных, при использовании), способы их решения..
Пишите :)
настроение: Радостное
Соединение с MSSQL 2000
использую ADO подключение, к локальной базе данных производит, а вот к расположенной на другой машине, в локалке не подключает, причем логины и пароли все сходятся.
Кто-нить сталкивался с такой проблемой, или может что настроить надо, у кого всё работает, расскажите как настраивали, спасибо
Кристал репортс
Кто с ним работал ответьте на парувопросов.
1 Можно в процесе вызова из программы менять фонты и размеры областей?
2 Можно ли менять SQL запросы?
Или оно как построил шаблон так и юзаешь?
Если такое возможно то плиз урлы или примеры киньте.
настроение: Бодрое
хочется: Динамического управления отчетом Кристал Репортс
слушаю: Ретро ФМ
Чтобы их читать, Вам нужно вступить в группу