Delphi .: [все вопросы] :.

[кастелянша]

Ни одного файла связанного с базой, я там не заметил!Только если в *.txt что то хранится! Либо база где - нибудь на сервере! »

Вы правы, я напутал, база (*.mdb) в другом месте хранится, но в ней нет таких данных.

В папке есть исходники, в них нужно посмотреть откуда берется список людей, и его уже менять! »

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


;
if StrToInt(d)>kd then
datcamp:=False;
end;

procedure TForm5.Button1Click(Sender: TObject);
var dat, tim, dat1, tim1: string;
begin
if (ComboBox1.Text='') or (ComboBox2.Text='') then
begin
ShowMessage('Не введены фамилии контролёров!');
exit;
end;

Label3.Caption:=('Дежурный ХХ '+ComboBox1.text+' /____________________________');
Label8.Caption:=('Дежурный ХХ '+ComboBox2.text+' /____________________________');
Button1.Visible:=False;
BitBtn1.Visible:=False;
ComboBox1.Visible:=False;
ComboBox2.Visible:=False;
if PrinterSetupDialog1.Execute=True then
begin
Print;
dat1:=DateToStr(Now);
tim1:=TimeToStr(Now);
AssignFile(time,'Y:\timd.txt');
{$I-}
reset(time);
{$I+}
readln(time,st);
CloseFile(time);
dat:=Copy(st,1,10);
Delete(st,1,11);
tim:=st;
if (dat1=dat) and (tim<tim1) and (tim1<'7:50:00') then
begin
if (FileExists('Y:\timd.txt')) then
begin
DeleteFile('Y:\timd.txt');
end;
AssignFile(time,'Y:\timd.txt');
{$I-}
Rewrite(time);

[LilLoco]

Если я правильно понял из этого кода, то фамилии отображаются в ComboBox1 и ComboBox2(в каком то из них, или в обоих). При нажатии кнопки(Button1), они уже должны содержать значения. Они заполняются во время показа формы, скорее всего. Поищите процедуру TForm5.FormShow, и посмотрите, есть ли в ней что!

[кастелянша]

Поищите процедуру TForm5.FormShow »

нет ее нигде...во я попал блин :o :o :o :help:

[LilLoco]

кастелянша, Если исходники не - секретные разработки, выложите их, посмотрим что там)

[кастелянша]

Если исходники не - секретные разработки, выложите их, посмотрим что там) »
добрый день, подскажите с каким расширением файлы (исходники) нужны? :unsure:

[LilLoco]

Кидайте все, кроме тех которые Вы затирали, да и рисунки не нужны!

Не бойтесь, никакой информации оттуда никто не извлечет)

[LilLoco]

кастелянша, Все фамилии сотрудников хранятся непосредственно в элементах ComboBox`a. Для наглядности приложу скрин.

[кастелянша]

LilLoco, спасибо ОГРОМНОЕ!!!!!!!!!!1111 :up
:oszone: :oszone: :oszone: :oszone:
Вопрос закрыт.

[R3Pa4eK]

Выручайте. При использовании модуля DMWAPI кнопки на форме не хотят нормально отображаться. Как исправить?
Изображения (http://i32.fastpic.ru/big/2011/0911/9e/85bf6fbc540a35aacc4208b12845789e.png)

library isAero;

uses
Windows,Composition,DWMAPI;

var
ISAeroGlassSourceM: TMargins;
Blur: PDWMBlurBehind;
ISAeroGlassSourceE: longbool;

function isAeroAddGlass(Handle: HWND; Top, Left, Right, Bottom: Integer): Boolean; stdcall;
begin with ISAeroGlassSourceM do begin
cxRightWidth := Top;
cxLeftWidth := Left;
cyTopHeight := Right;
cyBottomHeight := Bottom;
end;
CompositionServices.ExtendFrameIntoClientArea(Handle, @ISAeroGlassSourceM);
DwmEnableBlurBehindWindow(Handle, Blur);
UpdateWindow(Handle);
end;

function isAeroGlassEnabled: Boolean; stdcall;
begin
DwmIsCompositionEnabled(@ISAeroGlassSourceE);
result:= ISAeroGlassSourceE;
end;

exports isAeroAddGlass;
exports isAeroGlassEnabled;

begin
end.

[Malfatto]

R3Pa4eK, поставь свойство DoubleBuffered = True для всех кнопок.

[plechov.a]

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

[Gnom_aka_Lexander]

Добрый день. Заранее прошу прощения за нубскую просьбу, но вот не делал никогда, и примеров не нашел.
Нужно сделать компоненту, производную от TPageControl, которая на своих TTabSheet содержит TRichEdit с включеным свойством align := alclient;.
То-есть, создаешь TTabSheet а там уже свой TRichEdit во весь TTabSheet. Может кто-нибудь сделать и откоментировать, пожалуйста?
P.S. Заготовка:

unit Unit1;

interface

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

type
TTabRichEdit = class(TTabSheet)
private
RichEdit: TRichEdit;
end;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
Button1: TButton;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure CreatePage();
public
{ Public declarations }
end;

var
Form1: TForm1;
TabRichEdit1: TTabRichEdit;

implementation

{$R *.dfm}


procedure TForm1.CreatePage();
begin
TabRichEdit1 := TTabRichEdit.Create(PageControl1);
TabRichEdit1.PageControl:= PageControl1;
TabRichEdit1.RichEdit := TRichEdit.Create(TabRichEdit1);
PageControl1.ActivePage := TabRichEdit1;
TabRichEdit1.Caption := 'Tab RichEdit ('+IntToStr(PageControl1.ActivePageIndex+1)+')';
TabRichEdit1.RichEdit.Align:= alClient;
TWinControl(TabRichEdit1.RichEdit).Parent := TabRichEdit1;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
CreatePage();
end;

end.

[cibin]

Честно скажу в программировании меня интересует, создание программы которые пригодятся в работе, а именно связка, в данном случаи Delphi+MySQL.
А так честно признаюсь что по книгам я мало что пойму, да и найти про это для чайника оооооочень сложно, но я попробовал изучить php по видео урокам, а так же поглядывая книги и мануалы.
В связи с этим вопрос, серьёзный есть грамотное видео обучение по программированию где связывают Delphi и MySQL, желательно на примерах на подобии типа программы справочник телефонов, или учёт там чего-то.

Заранее спасибо!

[ferget]

посмотрите тут (http://delphiexpert.ru/view_lesson.php?id=76)

[nemo_the_capitain@vk]

Подскажите, пожалуйста сетевые библиотеки для pascalabc.net и хороший гайд по модулю system