Сообщений в теме: 16

[biryukovm]

Подскажите господа программисты где взять Полный пакет Компонентов KSDev на Delphi7,Весь Google пошарил тока платные сборки а где открытый доступ так ссылки битые

[vfvtnjd]

а зачем вам? KSdev сейчась как FireMonkey брэндуеться под Embarcadero. Вместо него пользуйтесь GlScene

[Waleriya]

СРОЧНО!!!!
Помогите найти свойства TDBAdvGDIPChart View и как сделать подпись к нему????

[bomba22]

Здравствуйте, не смог создать тему новую. Напишу тут.
1. Мне нужно в делфи реализовать поиск. есть таблица tab. и поле fio. Поиск нужен такой, чтобы в надписи "Пупкин Василий Иванович" Могло найти любое из слов, например вводишь в поле Василий и он найдет это поле.
2. Надо чтобы по нажатию на поле DBGRid в нем сортировалось строка по фамилии. еще раз нажал с зада наперд отсортировалась.
3. И еще если такое есть, то нажал на кнопку и все записи в эксель вывелись.
Спасибо. Если ктото сможет помоч.

[gromdel]

 

Здравствуйте, не смог создать тему новую. Напишу тут.
1. Мне нужно в делфи реализовать поиск. есть таблица tab. и поле fio. Поиск нужен такой, чтобы в надписи "Пупкин Василий Иванович" Могло найти любое из слов, например вводишь в поле Василий и он найдет это поле.
2. Надо чтобы по нажатию на поле DBGRid в нем сортировалось строка по фамилии. еще раз нажал с зада наперд отсортировалась.
3. И еще если такое есть, то нажал на кнопку и все записи в эксель вывелись.
Спасибо. Если ктото сможет помоч.

 
Здравствуйте, если вы используете sql запросы, то вот такой метод, можно считать идеальным.
with form1.adoquery do
begin
close;
sql.Clear;
sql.Add('select * from tab');
sql.add('where fio LIKE'+quotedstr('%'+edit1.Text+'%'));
sql.Add('order by fio');
open;
end;

2. В DBGrid есть событие OnTitleClick вот в него вставьте такой код:
if form1.adoquery1.Sort = '['+ Column.FieldName + '] ASC' then
form1.adoquery1.Sort := '['+ Column.FieldName + '] DESC' else
form1.adoquery1.Sort := '['+ Column.FieldName + '] ASC';
end

[gromdel]

 

3. И еще если такое есть, то нажал на кнопку и все записи в эксель вывелись.
.

 
Извиняюсь за еще одно сообщение, но могу предположить, что оно не влезет в предыдущее.
В uses добавьте ComObj
и далее обработчик например на баттон:

var
XLApp,Sheet,Colum: variant;
index,i: integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='index';
Colum:=XLApp.Workbooks[1].WorkSheets['index'].Columns;
Colum.Columns[1].ColumnWidth:=3; // ТУТ РАЗМЕРЫ СТОЛБЦОВ, Т.Е. ИХ ШИРИНА
Colum.Columns[2].ColumnWidth:=33;

Colum:=XLApp.Workbooks[1].WorkSheets['index'].Rows;
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=12;

Sheet:=XLApp.Workbooks[1].WorkSheets['index'];
Sheet.Cells[1,3]:='ТУТ МОЖЕТЕ НАПИСАТЬ ЗАГОЛОВОК ТАБЛИЦЫ';
Sheet.Cells[3,1]:='№';
Sheet.Cells[3,2]:='ФИО'; // ЭТО ЗАГОЛОВКИ СТОЛБЦОВ

index:=4;
adoquery.First;
for i:=0 to a.RecordCount-1 do
begin
Sheet.Cells[index,1]:=IntToStr(i+1);
Sheet.Cells[index,2]:= adoquery.FieldByName('fio').AsString; // ЭТО НАЗВАНИЯ ПОЛЕЙ В БД

Inc(index);
adoquery.Next;
end;

[bomba22]

Привет. тут такое дело. надо добавлять фотки в программу. хранится будет в папке с прогой, это сама фотка , картинка, но и бд надо использовать. например ссылку на него. и надо чтобюы удалять можно было и файл сразу и в бд запись точбы не лопнула от переполнения)))))))) спасибо

[gromdel]

Привет. тут такое дело. надо добавлять фотки в программу. хранится будет в папке с прогой, это сама фотка , картинка, но и бд надо использовать. например ссылку на него. и надо чтобюы удалять можно было и файл сразу и в бд запись точбы не лопнула от переполнения)))))))) спасибо

Итак. Кинь на форму image, openpicturedialog. 

Грузим фотку. 

Накидал, вручную, редактора под рукой нет. 

допустим a1 - adoquery1, a1fio - это поле fio в базе, a1foto - поле в базе где хранишь путь. сам путь до фотки это папка foto\ находящаяся там же где и прога. В базу будем писать только название фотки,а именно автоматически будет присваивать имя поля fio. Например, если есть поле с фио "Пупкин", то фотка будет создаваться так: пупкин.jpg

================

||  fio         ||  foto            ||

================

|| пупкин  || пупкин.jpg ||

================

openpicturedialog1.Execute;
try
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
except
;
end;
 if openpicturedialog1.FileName<>'' then
 begin
a1.Edit;
a1foto.AsString:=a1fio.AsString+'.jpg';
a1.Post;

image1.Picture.SaveToFile(extractfilepath(application.exeName)+'foto\'+a1foto.AsString);
end;
try
image1.Picture.LoadFromFile(extractfilepath(application.exeName)+'foto\'+a1foto.AsString);
except
  end;

 И удаление фотки. 

try
deletefile(extractfilepath(application.exeName)+'foto\'+a1foto.AsString)
except    end;
a.Delete;

 Как-то так. Если есть вопросы, в личку можешь. 

[bomba22]

спасибо. 

А можно из делфи какие-то данные из поля передать в ворд? Например, есть готовый шаблон и туда в определенные места надо вставить слова. например фамилии или даты.

Можно как-то сделать? Попроще. А то в инете копашился много чего, но не понятно. 

[Квазимодо]

спасибо. 
А можно из делфи какие-то данные из поля передать в ворд? Например, есть готовый шаблон и туда в определенные места надо вставить слова. например фамилии или даты.
Можно как-то сделать? Попроще. А то в инете копашился много чего, но не понятно.

Навскидку - в вордовском шаблоне повтыкать в нужные места закладки.

[gromdel]

спасибо. 

А можно из делфи какие-то данные из поля передать в ворд? Например, есть готовый шаблон и туда в определенные места надо вставить слова. например фамилии или даты.

Можно как-то сделать? Попроще. А то в инете копашился много чего, но не понятно. 

Все просто, создаешь документ с нужным текстом. Сохраняешь его в формате *.dotm

Далее применяешь код:

var
  word : variant;
  procedure FindAndReplace (SearchStr, ReplaceStr : string);
  begin
    word.Selection.Find.Text := SearchStr;
    word.Selection.Find.Replacement.Text := ReplaceStr;
    word.Selection.Find.Execute (Replace := 2);
  end;
begin
    try
      Word := CreateOleObject('Word.Application');
    except
      MessageBox (Handle, 'Не установлен Word.', MB_OK or MB_ICONERROR);
      exit;
    end;
  word.documents.open (ExtractFilePath(Application.ExeName) +'1.dotm');
  FindAndReplace ('111', 'cool');

  word.Visible := true;
  word := Unassigned;
    end;

111 - это текст в шаблоне. cool - текст, который нужно вставить. 

Везде где найдет 111 будет заменено на cool. 

Ну и в раздел uses не забудьте вставить Comobj

Сообщение отредактировал gromdel: 07.10.2013, 18:01:59

[ka4yp]

Помогу взломать почту! Обращайтесь ka4yp4ik@yandex.ru

[Hypc]

Через какой компонент можно делать запросы такие как INSERT\UPDATE из Delphi к MySQL?

 

Есть привязка через ODBBC + ADOConnection -> DataSource -> вывел в BDGrid , а дальше не понимаю 

 

быть может через кнопку и создать команду такую:

ADOCommand1.CommandText:='INSERT INTO statics (main, under , over) VALUES('+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')';  ?

[Верещагин]

Через какой компонент можно делать запросы такие как INSERT\UPDATE из Delphi к MySQL?
 
Есть привязка через ODBBC + ADOConnection -> DataSource -> вывел в BDGrid , а дальше не понимаю 
 
быть может через кнопку и создать команду такую:
ADOCommand1.CommandText:='INSERT INTO statics (main, under , over) VALUES('+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')';  ?

через SQL (ADO Query) не получается разве?

Сообщение отредактировал Верещагин: 16.03.2015, 21:03:48

[senn]

ADOCommand1.CommandText:='INSERT INTO statics (main, under , over) VALUES('+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')';  ?

 

Через AdoQuery обычно это делается.  В сети полно примеров.

[Programmist]

Господа программисты-дельфисты, нужен программист, имеющий опыт разработки в Delphi + MS SQL Server.

Пишите в личку или резюме на почту Talgat@dzhandosoft.kz

[Damien12]

Нужен программист в Delphi,связь в лс.