Перейти к содержимому

ZMan

ZMan

Регистрация: 01.11.2005, 15:58
Offline Активность: 04.01.2006, 19:44
-----

В теме: кому в А С Т А Н Е жить хорошо?

04.01.2006, 19:39:22


7-е и 10-е, рождество и Курбан айт соответственно, в эти дни отдыхаем, поскольку эти дни не государственные праздники а просто выходные, 7-е число не переноситься на 9-е...
11 отдыхаем, поскольку будет инаугурация Президента РК...
итого мы отдыхаем 7-е, 8-е, 10-е, 11-е... 9 января рабочий день...
хотя в других организациях этот день могут сделать тоже выходным, но с выходом на работу в воскресенье или в субботу...

Ари, мне в кадрах сказали, что 9-ое официально объявили выходным днем


http://www.almaty.kz...9&lang=1&page=2
"Астана. 4 января. Президент Казахстана Нурсултан Назарбаев подписал закон о внесении дополнений в закон "О труде"..."

В теме: Ряд вопросо в по Delphi & DataBaseDesktop

08.11.2005, 11:02:35

1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.



...
Params[n].LoadFromFile(OpenPictureDialog.FileName, ftBlob);
...
ExecSQL;
...
где n - номер параметра по порядку.

3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.

Пример:

Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...


Объявляешь класс
TLabelLink = class(TLabel)
   public
     ID: integer;
     constructor Create(AOwner: TComponent); override;
     procedure _Click(Sender: TObject);
   end;

Заполнение панели (TPanel) ссылками на сотрудников
procedure TForm1.btnEmployeeClick(Sender: TObject);
var
  i: integer;
begin
  for i := ComponentCount-1 downto 0 do
   if (Components[i] is TLabelLink) then Components[i].Free;

  i := 16;
  QEmployee.First;
  while not QEmployee.EOF do
   begin
     with TLabelLink.Create(nil) do
      begin
        Parent := pnReport;  //создать объекта ссылки на панели (TPanel)
        Left := 8;
        Top := i;
        Caption := QEmployee.Fields[1].AsString+' '+QEmployee.Fields[2].AsString+' '+QEmployee.Fields[3].AsString;  //ФИО
        ID := QEmployee.Fields[0].AsInteger;  //ID сотрудника
      end;
     QEmployee.Next;
     Inc(i, 16);  //сдвиг топа  
   end;

Создание объекта ссылки и обработчика события OnClick
constructor TLabelLink.Create(AOwner: TComponent);
begin
  inherited;
  OnClick := _Click;
  Cursor := crHandPoint;
  Font.Style := [fsUnderline];
  Font.Size := 9;
end;

procedure TLabelLink._Click(Sender: TObject);
begin
  //отобразить данные сотрудника на отдельной форме
  with Form1.QFind do
   begin
     Active := False;
     Params[0].AsInteger := ID; //параметр юникальный код сотрудника
     Active := True;
     with TForm2.Create(nil) do
      try
        edFamily.Text := Fields[1].AsString;
        edName.Text := Fields[2].AsString;
        edPatronymic.Text := Fields[3].AsString;
        dtBirthday.Date := Fields[4].AsDateTime;
        mAddress.Text := Fields[5].AsString;
        mEducation.Text := Fields[6].AsString;
        TBlobField(Fields[7]).SaveToFile('c:\1.bmp');
        imFoto.Picture.LoadFromFile('c:\1.bmp');
        DeleteFile('c:\1.bmp');

        ShowModal;
      finally
        Free;
      end;
   end;
end;

Если что, спрашивай. Удачи!

В теме: Программирование в свободное время

07.11.2005, 19:04:23

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

В теме: Ряд вопросо в по Delphi & DataBaseDesktop

07.11.2005, 18:36:27

Приветствую!!
К делу:

1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.

2. У меня в проге есть 3 вида просмотра данных: в форме заполнения, в таблице, а также хочу сделать в виде простого листа, типа Word документа. Пытался в Мемо засунуть, но гемороя много, да и сами мемо поля не выводятся, только простые текстовые.

3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.

Пример:

Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...

4. Кто может дайте ссылки или скиньте на мыло туториалы по delphi и т.д.


Благодарю за внимание.


На первый и третий вопросы накидал пример с использование БД Firebird1.5. Прикрепить файл с исходниками не могу, нет такой функции, так что обращайся в личку с указанием мыла, скину и исходники, и БД.

В теме: Нужны драва на модемы Zyxel & Acorp

07.11.2005, 16:40:47

Дарова "тяжеловесы"!
Подсобите, ищу драва на модемы Zyxel & Acorp - all in 1. Может быть есть такие универсальные пакеты, чтобы в них входили все (ну хотя бы самые последние) драва на многие модели модемов.

Заранее спс!


Ой, какой модем прикупил?
я тут хачу внутренний зиксель:rolleyes:))
Но, не знаю, какой модели, чтобы недорого вышло:D


Ну не знаю... Зайди на какой-нить сайт: ww.kz, line.kz, alser,kz и т.п., найди интересующий тебя, поищи описание на него и... вперед в магазин.
А я, вообщем, ищу на все модели данных производителей.

Размещение рекламы на сайте     Предложения о сотрудничестве     Служба поддержки пользователей

© 2011-2022 vse.kz. При любом использовании материалов Форума ссылка на vse.kz обязательна.