Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Из StringGrid1 в StringGrid2, Скопировать сведения по рабочим 
:(
    Опции темы
ABUTAEV
  Дата 2.7.2010, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



. Здравствуйте!  Помогите, пожалуйста. У меня на форме StringGrid1 c данними по всем рабочим на целый год. В первой колонке- даты, во второй фамилии рабочих, в остальных разные сведения, ежедневные начисления за работу каждому  и т.д.  Как мне скопировать все сведения в  StringGrid2,  например только Иванова  за период  указанный между  DateTimePicker1  и DateTimePicker2, для того чтобы вывести на принтер. 

Цитата
 Хочу все знать, но чувствую что не успею!


PM MAIL   Вверх
Keeper89
Дата 2.7.2010, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



ABUTAEV, это все хранится в БД или просто в файле?


--------------------
PM MAIL WWW   Вверх
ABUTAEV
Дата 2.7.2010, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



Я этот файл и пополняю ежедневными новыми сведениями по всем рабочим. Но как мне оттуда вытащить Иванова, чтобы сформировать его расчетку за пол месяца его работы, отправив эти сведения на принтер, и не внося никаких изменений в файл закрыть его. Я ничего не придумал,  как  вытаскиваю целиком  StringGridом 1 хочу скопировать с него только сведения Иванова за пол месяца в StringGrbd2. Затем StringGrid1 отпускаю с миром и файл отправляется на свое место без изменений. А со StringGrid2 работаю дальше. 
PM MAIL   Вверх
Rennigth
Дата 2.7.2010, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76



ABUTAEV, 
я уверен на 95% что тут ты найдешь ответы на все свои вопросы.  smile

Добавлено через 1 минуту и 51 секунду
ABUTAEV,  а вообще файлик тогда бы приложил, что бы видели формат. 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
ABUTAEV
Дата 2.7.2010, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



Не знаю где он находится но сохраняется и открывается  вот этими кодами:

Код

procedure TOtchForm.FormClose(Sender: TObject; var Action: TCloseAction);
 var
  f: textfile;
  x, y: integer;
begin
  Action := caFree;
   assignfile(f, 'OtchFilename');
  rewrite(f);
  with OtchForm.OtchStringGrid do
  begin
  writeln(f, colcount);
  writeln(f, rowcount);
  for X := 0 to colcount - 1 do
    for y := 0 to rowcount - 1 do
      writeln(F, cells[x, y]);
  closefile(f);

end;
procedure TOtchForm.FormShow(Sender: TObject);
  var
  f: textfile;
  temp, x, y: integer;
  tempstr: string;
begin
 assignfile(f, 'OtchFilename');
  reset(f);
   with OtchStringGrid do
   begin
  readln(f, temp);
  colcount := temp;
  readln(f, temp);
  rowcount := temp;
  for X := 0 to colcount - 1 do
    for y := 0 to rowcount - 1 do
    begin
      readln(F, tempstr);
      cells[x, y] := tempstr;
    end;
    end;
  closefile(f);
end;
 
А рисунок колонок и строк вот такой:

OtchForm:=TOtchForm.Create(Owner);
     OtchForm.OtchStringGrid.ColWidths[0]:=60;
       OtchForm.OtchStringGrid.ColWidths[1]:=260;
       OtchForm.OtchStringGrid.ColWidths[2]:=300;
       OtchForm.OtchStringGrid.ColWidths[3]:=300;
       OtchForm.OtchStringGrid.ColWidths[4]:=60;
       OtchForm.OtchStringGrid.ColWidths[5]:=60;
       OtchForm.OtchStringGrid.ColWidths[6]:=60;
OtchForm.OtchStringGrid.Cells[0,0]:='    Дата';
OtchForm.OtchStringGrid.Cells[1,0]:='                              Ф.И.О.';
OtchForm.OtchStringGrid.Cells[2,0]:='                    Вид работы, или удержания.';
OtchForm.OtchStringGrid.Cells[3,0]:='                               Коментарий.';
OtchForm.OtchStringGrid.Cells[4,0]:='Начисленно';
OtchForm.OtchStringGrid.Cells[5,0]:='Получено';
OtchForm.OtchStringGrid.Cells[6,0]:='Состояние счета';



M
THandle
Модератор: используйте подсветку кода!


Это сообщение отредактировал(а) THandle - 3.7.2010, 16:11
PM MAIL   Вверх
ABUTAEV
Дата 4.7.2010, 13:38 (ссылка)    | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



Дорогие Мои ВИНОГРАДОВЦЫ, Вы что, совсем опупели что - ли от своих знаний. Что, заподло помочь мне в моей программке? У меня - то всего пять рабочих. Я фермер, и земли то у меня немного всего полторы тысячи гектар. Хлебушек то, наверное, кушаете мной выращенный, а помочь не хотите. Если бы мне сбросить годков хотя бы сорок я бы хрен к Вам обратился, сам бы дошел своим умом. Что я так и должен всю оставшуюся жизнь на калькуляторе зарплату своим щелкать. Ваши - то программы нехрена не годятся. У меня сегодня на ремонте люди, значит почасовой, а завтра в поле гектары мочат, на сдельщине,  а так как деньги я могу получить только после продажи урожая, то всем надо терпеть, вот и приходится придумывать свою программу. Люди то на хлеб попросят, то на сигареты,  выдаю под запись. Хотелось, чтобы все в программу вносилось и считала все сама, потому что времени на калькулятор не хватает, а знаний маловато по компьютеру, да и подарили мне его в прошлом году на день рождения, я еще на клавиши то боялся нажать. Так что подсобите, я не так уж и много прошу.  
PM MAIL   Вверх
Keeper89
Дата 4.7.2010, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(ABUTAEV @  4.7.2010,  13:38 Найти цитируемый пост)
Дорогие Мои ВИНОГРАДОВЦЫ, Вы что, совсем опупели что - ли от своих знаний. Что, заподло помочь мне в моей программке?

Если Вы вдруг не заметили, именно этим мы тут все и занимаемся - В СВОБОДНОЕ от основной деятельности время.
Цитата(ABUTAEV @  4.7.2010,  13:38 Найти цитируемый пост)
Ваши - то программы нехрена не годятся. У меня сегодня на ремонте люди, значит почасовой, а завтра в поле гектары мочат, на сдельщине,  а так как деньги я могу получить только после продажи урожая, то всем надо терпеть, вот и приходится придумывать свою программу

Бывают и такие случаи.
Для того, чтобы разобраться в том, что Вы уже сотворили нужно время. Если Вы предпочли работать с файлами - здесь нужно будет постараться побольше, чем с БД (это ИМХО).
Цитата(ABUTAEV @  4.7.2010,  13:38 Найти цитируемый пост)
Хотелось, чтобы все в программу вносилось и считала все сама, потому что времени на калькулятор не хватает, а знаний маловато по компьютеру, да и подарили мне его в прошлом году на день рождения, я еще на клавиши то боялся нажать. Так что подсобите, я не так уж и много прошу.   

Исходя из этого я советую Вам прислать мне проект на почту или прикрепить его здесь.

Добавлено через 4 минуты и 58 секунд
Цитата(ABUTAEV @  2.7.2010,  11:03 Найти цитируемый пост)
Как мне скопировать все сведения в  StringGrid2,  например только Иванова  за период  указанный между  DateTimePicker1  и DateTimePicker2, для того чтобы вывести на принтер. 

Что касается именно этого вопроса (если Вы по каким-либо причинам не можете прикрепить проект), вот алгоритм действий:
1) Считываем все данные о работах из файла
2) В цикле проходим по всей записи (в момент вывода в грид) и ставим условие на поле даты (Вы так и не дали формата файла/записи - все считывается)


--------------------
PM MAIL WWW   Вверх
ABUTAEV
Дата 4.7.2010, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



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

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  ________________.rar 360,11 Kb
PM MAIL   Вверх
Keeper89
Дата 4.7.2010, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



На какой форме:
Цитата(ABUTAEV @  2.7.2010,  11:03 Найти цитируемый пост)
У меня на форме StringGrid1 c данними по всем рабочим на целый год. В первой колонке- даты, во второй фамилии рабочих, в остальных разные сведения, ежедневные начисления за работу каждому  и т.д.  Как мне скопировать все сведения в  StringGrid2,  например только Иванова  за период  указанный между  DateTimePicker1  и DateTimePicker2, для того чтобы вывести на принтер. 

?


--------------------
PM MAIL WWW   Вверх
Данкинг
Дата 4.7.2010, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(ABUTAEV @  2.7.2010,  12:03 Найти цитируемый пост)
Как мне скопировать все сведения в  StringGrid2,  например только Иванова  за период  указанный между  DateTimePicker1  и DateTimePicker2, для того чтобы вывести на принтер. 

Как наиболее опупевший, отвечаю: это вообще-то через отчёты делается, зачем тут вообще второй StingGrid? Выводим во временный датасет, формируем отчёт в, к примеру, FastReport'е, и печатаем. И данные хранить в таком случае следует не в текстовом файле, а в БД.

Это сообщение отредактировал(а) Данкинг - 4.7.2010, 19:03


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 4.7.2010, 19:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Данкинг, я уже давно это сказал, но вопрос в том, чтобы сделать кашу из того, что есть.


--------------------
PM MAIL WWW   Вверх
ABUTAEV
Дата 4.7.2010, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



При нажатии в NachZarpForm. на батон  Вытаскивается OtchForm.OtchStringGrid  и с него скопировать данные рабочего Фамилия которого в  NachZarpForm. ComboBox1 за период между двумя датами,  и передать в ZarpForm.ZarpStringGrid.  А дальше с этого Грида я отошлю  на принтер. 

Это сообщение отредактировал(а) ABUTAEV - 4.7.2010, 20:50
PM MAIL   Вверх
Keeper89
Дата 5.7.2010, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



По поводу OtchForm:
Как связан список рабочих в стрингриде со списками работ, дат и т.п.?


--------------------
PM MAIL WWW   Вверх
ABUTAEV
Дата 5.7.2010, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



Когда рабочего принимаю на работу, открываю журнал в главной форме и нажимаю на « прием на работу» открывается форма PriemForm. Где заполняю сотрудника. При нажатии на ОК сведения о сотруднике поступают в справочник по сотрудникам в SotrudForm. SStringGrid  ,где наличный счет его автоматически устанавливается на 0. (Сначала, пока у меня не было СтрингГридов, заполнялось в Memo. Но на это не обращайте внимание, я решил от них отказаться и потом их все равно уберу. Обращайте внимание, только на СтрингГриды).
Главное в SStringGrid это  «Ф.И.О»  и « НАЛИЧНЫЙ СЧЕТ» Дальше, когда рабочий отработал день, я нажимаю в главной Форме «РАСЧЕТЫ» и «НАЧИСЛЕНИЕ» и открывается NachForm ЕЖЕДНЕВНОЕ НАЧИСЛЕНИЕ ЗА РАБОТУ.  (То, что на форме слева, это опять связано со старыми наработками я от них, потом все равно избавлюсь) При открытии Формы, автоматически копируются в ComboBox5 со справочников все рабочие, а в ComboBox6 со справочников все виды работ, остается только выбрать из выпадающего списка то, что нужно и при нажатии ОК (SpeedButton2) из справочника в ComboBox7 автоматом ставится цена работы. В Edit4 Уже есть  «1» стоит ее только исправить на количество отработанных часов или гектаров.
При нажатии на «РАСЧИТАТЬ»-Button2 показывает Label8 сумма которая получилась (Это так, чтобы самому убедится, что ты сделал все правильно) и нажимаешь на «ПРОВЕСТИ» - Button3. В «СОТРУДНИКАХ» сразу изменяется наличный счет этого рабочего и в OtchForm.OtchStringGrid записывается все что ты заполнил в NachForm. И так все сведения по всем рабочим наслаиваются там изо дня в день и сохраняются в Файле. К концу месяца мне нужно показать расчетки своим рабочим. Я открываю  на главной Форме «расчеты»-«Сформировать зарплату» и открываю Nach ZarpForm, там две даты, выставляю те которые меня интересуют и ComboBox1 где выбираю сотрудника нажимаю показать. Открывается та Форма где наслоены все сведения о работе всех сразу сотредников OtchForm.OtchStringGrid и ZarpForm.ZarpStringGrid. куда должны и скопироваться все сведения выбранного рабочего, чтобы отослать на принтер.( Копирование пока не установлено в этом то у меня и проблема)  После копирования OtchForm закрывается и Файл с данными по всем рабочим ложиться на место. Ну а эти все ЛистыБоксы на них не обращайте внимание, это все в прошлом, я их все равно потом уберу.

PM MAIL   Вверх
Keeper89
Дата 5.7.2010, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Посмотрите архив, правильно ли я Вас понял.

Это сообщение отредактировал(а) Keeper89 - 6.7.2010, 00:02

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  ________________.zip 419,16 Kb


--------------------
PM MAIL WWW   Вверх
ABUTAEV
Дата 5.7.2010, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



Не получается посмотреть. Форум меня не признает. Downloads закачивает только html в 14kb с сообщением, что для гостей эта функция запрещена. Попробовал выйти и зайти под своим именем, но увы, то же самое. Наверное придется оставить до лучших времен.
PM MAIL   Вверх
Keeper89
Дата 5.7.2010, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Вот код измененного модуля:
Код

unit NachZarpUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, ComCtrls;

type
  TNachZarpForm = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NachZarpForm: TNachZarpForm;

implementation

uses OtchUnit, ZarpUnit, ZarpUnit1, ZarpUnit2, NachUnit, SotrudUnit;

{$R *.dfm}

procedure TNachZarpForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TNachZarpForm.BitBtn1Click(Sender: TObject);

begin
 OtchForm:=TOtchForm.Create(Owner);
 ZarpForm:=TZarpForm.Create(Owner);
end;

procedure TNachZarpForm.BitBtn2Click(Sender: TObject);
var
  i, j:integer;
  j1:integer;
  j2:integer;
  j3:integer;
  j4:integer;
  j5:integer;
  j6:integer;
  i1:integer;
  i2:integer;
  i3:integer;
  i4:integer;
  i5:integer;
  i6:integer;
  k:integer;

  dateStart, dateEnd, dateCur: TDate;
  sotrudnik: string;

begin
  OtchForm := TOtchForm.Create(Owner);
  OtchForm.OtchStringGrid.ColWidths[0]:=60;
  OtchForm.OtchStringGrid.ColWidths[1]:=260;
  OtchForm.OtchStringGrid.ColWidths[2]:=300;
  OtchForm.OtchStringGrid.ColWidths[3]:=300;
  OtchForm.OtchStringGrid.ColWidths[4]:=60;
  OtchForm.OtchStringGrid.ColWidths[5]:=60;
  OtchForm.OtchStringGrid.ColWidths[6]:=60;
  OtchForm.OtchStringGrid.Cells[0,0]:='    Дата';
  OtchForm.OtchStringGrid.Cells[1,0]:='                              Ф.И.О.';
  OtchForm.OtchStringGrid.Cells[2,0]:='                    Вид работы, или удержания.';
  OtchForm.OtchStringGrid.Cells[3,0]:='                               Коментарий.';
  OtchForm.OtchStringGrid.Cells[4,0]:='Стоимость';
  OtchForm.OtchStringGrid.Cells[5,0]:='Сумма';
  OtchForm.OtchStringGrid.Cells[6,0]:='Состояние счета';

  ZarpForm := TZarpForm.Create(Owner);
//  i:=NachZarpForm.ComboBox1.ItemIndex;
//  NachZarpForm.Edit1.Text:=(FloatToStr(i)+')');
//  ZarpForm.Caption:=NachZarpForm.ComboBox1.Text;
  // ZarpForm.ListBox1.Items:= OtchForm.OtchListBox1.Items;
  // ZarpForm.ListBox2.Items:= OtchForm.OtchListBox2.Items;
  // ZarpForm.ListBox3.Items:= OtchForm.OtchListBox3.Items;
  // ZarpForm.ListBox4.Items:= OtchForm.OtchListBox4.Items;
  // ZarpForm.ListBox5.Items:= OtchForm.OtchListBox5.Items;
  // ZarpForm.ListBox6.Items:= OtchForm.OtchListBox6.Items;
  ZarpForm.ZarpStringGrid.ColWidths[0]:=60;
  ZarpForm.ZarpStringGrid.ColWidths[1]:=260;
  ZarpForm.ZarpStringGrid.ColWidths[2]:=300;
  ZarpForm.ZarpStringGrid.ColWidths[3]:=300;
  ZarpForm.ZarpStringGrid.ColWidths[4]:=60;
  ZarpForm.ZarpStringGrid.ColWidths[5]:=60;
  ZarpForm.ZarpStringGrid.ColWidths[6]:=60;
  ZarpForm.ZarpStringGrid.Cells[0,0]:='    Дата';
  ZarpForm.ZarpStringGrid.Cells[1,0]:='                              Ф.И.О.';
  ZarpForm.ZarpStringGrid.Cells[2,0]:='                    Вид работы, или удержания.';
  ZarpForm.ZarpStringGrid.Cells[3,0]:='                               Коментарий.';
  ZarpForm.ZarpStringGrid.Cells[4,0]:='Стоимость';
  ZarpForm.ZarpStringGrid.Cells[5,0]:='Сумма';
  ZarpForm.ZarpStringGrid.Cells[6,0]:='Состояние счета';
//
//  for j1:= ZarpForm.ListBox1.Items.Count -1 downto 0 do
//begin
//  if pos(Edit1.Text,ansiuppercase( ZarpForm.ListBox1.Items.Strings[j1]))=0 then
// ZarpForm.ListBox1.Items.Delete(j1);
// end;
//   for j2:= ZarpForm.ListBox2.Items.Count -1 downto 0 do
//begin
//  if pos(Edit1.Text,ansiuppercase( ZarpForm.ListBox2.Items.Strings[j2]))=0 then
// ZarpForm.ListBox2.Items.Delete(j2);
//  end;
//   for j3:= ZarpForm.ListBox3.Items.Count -1 downto 0 do
//begin
//  if pos(Edit1.Text,ansiuppercase( ZarpForm.ListBox3.Items.Strings[j3]))=0 then
// ZarpForm.ListBox3.Items.Delete(j3);
//  end;
//   for j4:= ZarpForm.ListBox4.Items.Count -1 downto 0 do
//begin
//  if pos(Edit1.Text,ansiuppercase( ZarpForm.ListBox4.Items.Strings[j4]))=0 then
// ZarpForm.ListBox4.Items.Delete(j4);
// end;
//   for j5:= ZarpForm.ListBox5.Items.Count -1 downto 0 do
//begin
//  if pos(Edit1.Text,ansiuppercase( ZarpForm.ListBox5.Items.Strings[j5]))=0 then
// ZarpForm.ListBox5.Items.Delete(j5);
// end;
//   for j6:= ZarpForm.ListBox6.Items.Count -1 downto 0 do
//begin
//  if pos(Edit1.Text,ansiuppercase( ZarpForm.ListBox6.Items.Strings[j6]))=0 then
// ZarpForm.ListBox6.Items.Delete(j6);
// end;
//     for i1 := 0 to ZarpForm.ListBox1.Items.Count - 1 do
//   if Pos((Edit1.Text), ZarpForm.ListBox1.Items[i1])>0 then
//    begin
//      ZarpForm.ListBox1.Items[i1] := StringReplace(ZarpForm.ListBox1.Items[i1],(Edit1.Text), '', [rfReplaceAll]);
//    end;
//     for i2 := 0 to ZarpForm.ListBox2.Items.Count - 1 do
//   if Pos((Edit1.Text), ZarpForm.ListBox2.Items[i2])>0 then
//    begin
//      ZarpForm.ListBox2.Items[i2] := StringReplace(ZarpForm.ListBox2.Items[i2],(Edit1.Text), '', [rfReplaceAll]);
//    end;
//     for i3 := 0 to ZarpForm.ListBox3.Items.Count - 1 do
//   if Pos((Edit1.Text), ZarpForm.ListBox3.Items[i3])>0 then
//    begin
//      ZarpForm.ListBox3.Items[i3] := StringReplace(ZarpForm.ListBox3.Items[i3],(Edit1.Text), '', [rfReplaceAll]);
//    end;
//     for i4 := 0 to ZarpForm.ListBox4.Items.Count - 1 do
//   if Pos((Edit1.Text), ZarpForm.ListBox4.Items[i4])>0 then
//    begin
//      ZarpForm.ListBox4.Items[i4] := StringReplace(ZarpForm.ListBox4.Items[i4],(Edit1.Text), '', [rfReplaceAll]);
//    end;
//     for i5 := 0 to ZarpForm.ListBox5.Items.Count - 1 do
//   if Pos((Edit1.Text), ZarpForm.ListBox5.Items[i5])>0 then
//    begin
//      ZarpForm.ListBox5.Items[i5] := StringReplace(ZarpForm.ListBox5.Items[i5],(Edit1.Text), '', [rfReplaceAll]);
//    end;
//     for i6 := 0 to ZarpForm.ListBox6.Items.Count - 1 do
//   if Pos((Edit1.Text), ZarpForm.ListBox6.Items[i6])>0 then
//    begin
//      ZarpForm.ListBox6.Items[i6] := StringReplace(ZarpForm.ListBox6.Items[i6],(Edit1.Text), '', [rfReplaceAll]);
//    end;
//   for k:=ZarpForm.ListBox1.Count-1 downto 0 do
//  if (StrToDate(ZarpForm.ListBox1.items[k])<NachZarpForm.DateTimePicker1.Date-1) or (StrToDate(ZarpForm.ListBox1.items[k])>NachZarpForm.DateTimePicker2.Date) then
//    begin
//      ZarpForm.ListBox1.Items.Delete(k);
//      ZarpForm.ListBox2.Items.Delete(k);
//      ZarpForm.ListBox3.Items.Delete(k);
//      ZarpForm.ListBox4.Items.Delete(k);
//      ZarpForm.ListBox5.Items.Delete(k);
//      ZarpForm.ListBox6.Items.Delete(k);
//      end;
//      Begin
//    ZarpForm.ZarpStringGrid.ColCount:=OtchForm.OtchStringGrid.ColCount;
//    ZarpForm.ZarpStringGrid.RowCount:=OtchForm.OtchStringGrid.RowCount;
//     ZarpForm.ZarpStringGrid.Cols[0]:= OtchForm.OtchStringGrid.Cols[0];
//      ZarpForm.ZarpStringGrid.Cols[1]:= OtchForm.OtchStringGrid.Cols[1];
//       ZarpForm.ZarpStringGrid.Cols[2]:= OtchForm.OtchStringGrid.Cols[2];
//      ZarpForm.ZarpStringGrid.Cols[3]:= OtchForm.OtchStringGrid.Cols[3];
//     ZarpForm.ZarpStringGrid.Cols[4]:= OtchForm.OtchStringGrid.Cols[4];
//      ZarpForm.ZarpStringGrid.Cols[5]:= OtchForm.OtchStringGrid.Cols[5];
//      ZarpForm.ZarpStringGrid.Cols[6]:= OtchForm.OtchStringGrid.Cols[6];


  // -------------------------------------------
  // Выбираем

  dateStart := DateTimePicker1.Date;
  dateEnd := DateTimePicker2.Date;

  ZarpForm.ZarpStringGrid.RowCount := 0;
  ZarpForm.ZarpStringGrid.ColCount :=
    OtchForm.OtchStringGrid.ColCount;

  // Двойка ниже идет, потому что данные в
  // OtchForm.OtchStringGrid начинаются с 3 строки
  for i := 2 to OtchForm.OtchStringGrid.RowCount - 1 do
  begin

    // Получаем данные из стринггрида OtchForm.OtchStringGrid
    dateCur := StrToDate(OtchForm.OtchStringGrid.Cells[0, i]);
    sotrudnik := OtchForm.OtchStringGrid.Cells[1, i];

    if sotrudnik = ComboBox1.Text then
    begin
      if (dateCur >= dateStart) and (dateCur <= dateEnd) then
      begin

        ZarpForm.ZarpStringGrid.RowCount :=
          ZarpForm.ZarpStringGrid.RowCount + 1;

        for j := 0 to OtchForm.OtchStringGrid.ColCount - 1 do
          ZarpForm.ZarpStringGrid.Cells
            [j, ZarpForm.ZarpStringGrid.RowCount - 1] :=
              OtchForm.OtchStringGrid.Cells[j, i];

      end;
    end;

  end;

  // -------------------------------------------


  OtchForm.Close;
end;
end.


Это сообщение отредактировал(а) Keeper89 - 6.7.2010, 00:03


--------------------
PM MAIL WWW   Вверх
ABUTAEV
Дата 6.7.2010, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет



Уважаемый Keeper89, Вы просто гений. Разобраться в том что натворил я, и понять мою ситуацию не каждому под силу. Я прошу перед Вами и перед ВСЕМИ ВОНОГРАДОВЦАМИ, прощение, за то что  может быть обидел ВАС. ПРОСТИТЕ МЕНЯ ЛЮДИ ДОБРЫЕ! То, что вы делаете на ФОРУМЕ большое дело, это я убедился на своем примере. Дай Бог ВАМ ВСЕМ ЗДОРОВЬЯ! Еще раз прошу не обижаться на старика.   smile 

Это сообщение отредактировал(а) ABUTAEV - 6.7.2010, 19:38
PM MAIL   Вверх
Keeper89
Дата 6.7.2010, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



ABUTAEV, спасибо, рад помочь smile

На будущее постарайтесь перевести систему на работу с базой данных, иначе Вы сами в конце концов начнете мучиться с тем, что сделали.


--------------------
PM MAIL WWW   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0719 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.