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

Ни одного файла связанного с базой, я там не заметил!Только если в *.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 »

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

[LilLoco]

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

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

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

добрый день, подскажите с каким расширением файлы (исходники) нужны?

[LilLoco]

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

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

[LilLoco]

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

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

LilLoco, спасибо ОГРОМНОЕ!!!!!!!!!!1111

Вопрос закрыт.

[R3Pa4eK]

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

читать дальше »

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 для всех кнопок.