Search options (Page 3 of 4)

2015-09-05 06:33:52

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

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
   Form1.ed1.Text:= Form1.TableGrid1.Cells[1,0];
   Form1.ed2.Text:= Form1.TableGrid1.Cells[2,0];
   Form1.ed3.Text:= Form1.TableGrid1.Cells[1,1];
   Form1.ed4.Text:= Form1.TableGrid1.Cells[2,1];
   Form1.ed5.Text:= Form1.TableGrid1.Cells[1,2];
   Form1.ed6.Text:= Form1.TableGrid1.Cells[2,2];
   Form1.ed7.Text:= Form1.TableGrid1.Cells[1,3];
   Form1.ed8.Text:= Form1.TableGrid1.Cells[2,3];
   Form1.ed9.Text:= Form1.TableGrid1.Cells[1,4];
   Form1.ed10.Text:= Form1.TableGrid1.Cells[2,4];
   Form1.ed11.Text:= Form1.TableGrid1.Cells[1,5];
   Form1.ed12.Text:= Form1.TableGrid1.Cells[2,5];
   Form1.ed13.Text:= Form1.TableGrid1.Cells[1,6];
   Form1.ed14.Text:= Form1.TableGrid1.Cells[2,6];
   Form1.ed15.Text:= Form1.TableGrid1.Cells[1,7];
   Form1.ed16.Text:= Form1.TableGrid1.Cells[2,7];
   Form1.ed17.Text:= Form1.TableGrid1.Cells[1,8];
   Form1.ed18.Text:= Form1.TableGrid1.Cells[2,8];
   Form1.ed19.Text:= Form1.TableGrid1.Cells[1,9];
   Form1.ed20.Text:= Form1.TableGrid1.Cells[2,9];

   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed1.sqlValue+','+Form1.ed2.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed3.sqlValue+','+Form1.ed4.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed5.sqlValue+','+Form1.ed6.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed7.sqlValue+','+Form1.ed8.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed9.sqlValue+','+Form1.ed10.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed11.sqlValue+','+Form1.ed12.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed13.sqlValue+','+Form1.ed14.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed15.sqlValue+','+Form1.ed16.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed17.sqlValue+','+Form1.ed18.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed19.sqlValue+','+Form1.ed20.sqlValue+')');
end;

begin
    SQLExecute('ATTACH DATABASE ''\\CCTV\MrBingo\Mr.Bingo_Fixed\Avto\sqlite.db'' as ''Shop''');

end.

2015-09-04 14:25:23

Спасибо

2015-09-04 12:31:04

Дмитрий подскажите пожалуйста, как вместо ("Ivan", "Ivanov") вставить Edit1 и Edit2. Что бы значения брались именно из Edit?

SQLExecute('INSERT INTO tablename (firstname, lastname) VALUES ("Ivan", "Ivanov")');

2015-09-04 10:43:16

Дмитрий, а можно пример скрипта вставки данных?

2015-09-04 09:54:38

Спасибо. Еще один вопрос. Есть две базы. Можно ли сделать что бы при вводе данных в первую базу, данные дублировались во вторую?

2015-09-04 09:07:24

Приветствую.

SQLExecute(('INSERT INTO ShopAvto(Ball,name) VALUES ("Баллы","Имя")'));

Почему при использовании данной процедуры в базу сохраняются только названия колонок Grid?

2015-09-03 01:45:20

Спасибо за помощь

2015-09-02 10:58:16

Как в данном запросе заметь выводимый ID номер на записанное имя по этим ID?

SELECT
strftime('%m.%Y', operator.datetime),
operator.id_operatorAdd,   
operator.id_adminAdd,  
operator.incident,
operator.pinalty
FROM operator
WHERE strftime('%m.%Y', {DateTimePicker9}) = strftime('%m.%Y', operator.datetime);

2015-09-01 11:43:56

Жаль.Спасибо.

2015-08-31 16:32:13

Здравствуйте. Подскажите пожалуйста. Возможно на Form1 разместить диаграмму? которая обновлялась бы автоматически с каждым внесением данных в базу?

2015-08-29 22:48:38

Разобрался Дмитрий. Вопрос снят.

2015-08-29 20:14:42

Доброй ночи Дмитрий. Не могли бы более подробно показать как присоединить одну базу к другой?

2015-08-26 10:35:12

Спасибо Дмитрий

2015-08-26 09:00:37

Приветствую Дмитрий. Допустим есть две разные базы. Необходимо в первой базе на какой либо форме выводить информацию со второй базы? Возможно организовать такую связь?

2015-08-26 06:25:32

Вопрос снят. Разобрался.Спасибо

2015-08-26 05:43:05

Дмитрий приветствую. Скажите пожалуйста, что необходимо изменить в данном скрипте
,что бы на PageControl в трех вкладках , изображение по таймеру срабатывали независимо от выбранной вкладки?

var
   Timer: TTimer;
   idImage: integer = 2;


procedure OnTimer;
begin
    Form1.Image19.Visible := idImage = 1;
    Form1.Image20.Visible := idImage = 2;
    Form1.Image21.Visible := idImage = 3;
    Form1.Image22.Visible := idImage = 4;
    Form1.Image23.Visible := idImage = 5;
    Form1.Image24.Visible := idImage = 6;
    Form1.Image25.Visible := idImage = 7;
    Form1.Image26.Visible := idImage = 8;
    Form1.Image27.Visible := idImage = 9;
    Form1.Image28.Visible := idImage = 10;
    Form1.Image29.Visible := idImage = 11;
    Form1.Image30.Visible := idImage = 12;
    Form1.Image31.Visible := idImage = 13;
    Form1.Image32.Visible := idImage = 14;
    Form1.Image33.Visible := idImage = 15;
    Form1.Image34.Visible := idImage = 16;
    Form1.Image35.Visible := idImage = 17;
    Form1.Image36.Visible := idImage = 18;

    Inc(idImage);
    if idImage > 18 then idImage := 1;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Timer := TTimer.Create(Form1);
    Timer.Interval := 2000;
    Timer.OnTimer := @OnTimer;
    Timer.Enabled := True;
    
     Form1.BorderStyle := bsNone;
     if Form1.WindowState=wsNormal then
       begin
        Form1.WindowState:=wsMaximized;
       end;
end;

2015-08-25 17:56:48

Спасибо за помощь Дмитрий.

2015-08-25 08:38:46

Приветствую Дмитрий. Возможно ли на форме создать показ слайдов?

2015-08-22 02:47:39

Получилось сделать через утилиту LiveWebCam , но результат не совсем такой, как хотелось бы(

2015-08-22 02:29:45

Ошибка осталась. Пробовал запустить на 3-х машинах.

2015-08-21 20:49:26

К сожалению ошибка не устранена.

2015-08-21 19:45:02

Дмитрий, при нажатии на кнопку выдает ошибку.В чем может быть причина?

2015-08-21 18:33:35

Спасибо .

2015-08-21 17:26:49

Здравствуйте Дмитрий. Есть ли возможность у компонента DBImage захвата изображения непосредственно с Web камеры и сохранения в базу и папку?

2015-08-19 11:15:48

Спасибо за оперативный ответ.

Search options (Page 3 of 4)

Posts found: 51 to 75 of 88

51 Topic by maxkyl 2015-09-05 06:33:52

Topic: Исключить из сохранения дублирующие записи (6 replies, posted in Russian)

52 Reply by maxkyl 2015-09-04 14:25:23

Re: Импорт/экспорт данных (14 replies, posted in Russian)

53 Reply by maxkyl 2015-09-04 12:31:04

Re: Импорт/экспорт данных (14 replies, posted in Russian)

54 Reply by maxkyl 2015-09-04 10:43:16

Re: Импорт/экспорт данных (14 replies, posted in Russian)

55 Reply by maxkyl 2015-09-04 09:54:38

Re: Импорт/экспорт данных (14 replies, posted in Russian)

56 Reply by maxkyl 2015-09-04 09:07:24

Re: Импорт/экспорт данных (14 replies, posted in Russian)

57 Reply by maxkyl 2015-09-03 01:45:20

Re: Помогите SQL запросом пожалуйста (2 replies, posted in Russian)

58 Topic by maxkyl 2015-09-02 10:58:16

Topic: Помогите SQL запросом пожалуйста (2 replies, posted in Russian)

59 Reply by maxkyl 2015-09-01 11:43:56

Re: Диаграмма (4 replies, posted in Russian)

60 Topic by maxkyl 2015-08-31 16:32:13

Topic: Диаграмма (4 replies, posted in Russian)

61 Reply by maxkyl 2015-08-29 22:48:38

Re: Связь между двумя и более базами (4 replies, posted in Russian)

62 Reply by maxkyl 2015-08-29 20:14:42

Re: Связь между двумя и более базами (4 replies, posted in Russian)

63 Reply by maxkyl 2015-08-26 10:35:12

Re: Связь между двумя и более базами (4 replies, posted in Russian)

64 Topic by maxkyl 2015-08-26 09:00:37

Topic: Связь между двумя и более базами (4 replies, posted in Russian)

65 Reply by maxkyl 2015-08-26 06:25:32

Re: Изображение по таймеру (4 replies, posted in Russian)

66 Reply by maxkyl 2015-08-26 05:43:05

Re: Изображение по таймеру (4 replies, posted in Russian)

67 Reply by maxkyl 2015-08-25 17:56:48

Re: Изображение по таймеру (4 replies, posted in Russian)

68 Topic by maxkyl 2015-08-25 08:38:46

Topic: Изображение по таймеру (4 replies, posted in Russian)

69 Reply by maxkyl 2015-08-22 02:47:39

Re: Web камера (10 replies, posted in Russian)

70 Reply by maxkyl 2015-08-22 02:29:45

Re: Web камера (10 replies, posted in Russian)

71 Reply by maxkyl 2015-08-21 20:49:26

Re: Web камера (10 replies, posted in Russian)

72 Reply by maxkyl 2015-08-21 19:45:02

Re: Web камера (10 replies, posted in Russian)

73 Reply by maxkyl 2015-08-21 18:33:35

Re: Web камера (10 replies, posted in Russian)

74 Topic by maxkyl 2015-08-21 17:26:49

Topic: Web камера (10 replies, posted in Russian)

75 Reply by maxkyl 2015-08-19 11:15:48

Re: Вопрос по Button и Edit (14 replies, posted in Russian)

Posts found: 51 to 75 of 88