Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с 98 виндой. Помогите! Плиз! [D6, D7, 95/98, 2000, XP]

Страницы: < 1 2
TIF © (2006-10-27 18:25:00)
Добрый вечер!

Моя программа нормально работает с XP, 2000, но если её запустить в 98, в одном месте происходит НЕВЫПОЛНЕНИЕ части програмного кода: например, Button1 должна стать видимой, а она не становится и т. п. Возможности сменить ОС на том компе нет, патчи для 98 уже не выпускают. Кто знает, в чём тут дело? Я конечно понимаю, что 98 - очень устаревшая система, но программа должна там функционировать.

TIF (2006-10-27 19:20:00) [21]
Lab7.Font.Color:=clGray;
Lab8.Font.Color:=clGray;
Lab9.Font.Color:=clGray;
Lab10.Font.Color:=clGray;
Lab11.Font.Color:=clGray;
Lab12.Font.Color:=clGray;
Lab13.Font.Color:=clGray;
Lab14.Font.Color:=clGray;
Lab15.Font.Color:=clGray;
Lab16.Font.Color:=clGray;
Lab17.Font.Color:=clGray;
Lab18.Font.Color:=clGray;
Lab19.Font.Color:=clGray;
Lab20.Font.Color:=clGray;
Lab21.Font.Color:=clGray;
Lab22.Font.Color:=clGray;
Lab23.Font.Color:=clGray;
Lab24.Font.Color:=clGray;
Lab25.Font.Color:=clGray;
Lab26.Font.Color:=clGray;
Lab27.Font.Color:=clGray;
Lab28.Font.Color:=clGray;
end
else
begin
La1.Font.Color:=clRed;
La2.Font.Color:=clRed;
La3.Font.Color:=clRed;
La4.Font.Color:=clRed;
La5.Font.Color:=clRed;
La6.Font.Color:=clRed;
La7.Font.Color:=clRed;
Labb1.Font.Color:=clBlack;
Labb2.Font.Color:=clBlack;
Labb3.Font.Color:=clBlack;
Labb4.Font.Color:=clBlack;
Labb5.Font.Color:=clBlack;
Labb6.Font.Color:=clBlack;
Labb7.Font.Color:=clBlack;
Labb8.Font.Color:=clBlack;
Labb9.Font.Color:=clBlack;
Labb10.Font.Color:=clBlack;
Labb11.Font.Color:=clBlack;
Labb12.Font.Color:=clBlack;
Labb13.Font.Color:=clBlack;
Lab1.Font.Color:=clBlack;
Lab2.Font.Color:=clBlack;
Lab3.Font.Color:=clBlack;
Lab4.Font.Color:=clBlack;
Lab5.Font.Color:=clBlack;
Lab6.Font.Color:=clBlack;
Lab7.Font.Color:=clBlack;
Lab8.Font.Color:=clBlack;
Lab9.Font.Color:=clBlack;
Lab10.Font.Color:=clBlack;
Lab11.Font.Color:=clBlack;
Lab12.Font.Color:=clBlack;
Lab13.Font.Color:=clBlack;
Lab14.Font.Color:=clBlack;
Lab15.Font.Color:=clBlack;
Lab16.Font.Color:=clBlack;
Lab17.Font.Color:=clPurple;
Lab18.Font.Color:=clBlack;
Lab19.Font.Color:=clPurple;
Lab20.Font.Color:=clBlack;
Lab21.Font.Color:=clPurple;
Lab22.Font.Color:=clBlack;
Lab23.Font.Color:=clBlack;
Lab24.Font.Color:=clBlack;
Lab25.Font.Color:=clBlack;
Lab26.Font.Color:=clBlack;
Lab27.Font.Color:=clBlack;
Lab28.Font.Color:=clYellow;
DateTimePicker1.Enabled:=true;
Edit_InvN.Enabled:=true;
ComboBox_Avtor.Enabled:=true;
Edit_Nazvanie.Enabled:=true;
Edit_Izdat.Enabled:=true;
Edit_GodIzd.Enabled:=true;
Edit_KolStr.Enabled:=true;
Edit_Kol_Vsego.Enabled:=true;
Edit_Kol_Moment.Enabled:=true;
ComboBox_Otdel.Enabled:=true;
Edit_Cena1.Enabled:=true;
Edit_Cena2.Enabled:=true;
Edit_Prim.Enabled:=true;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var SearchRec: TSearchRec;
begin
if FindFirst('Список авторов.laa', faDirectory, SearchRec) = 0 then ComboBox_Avtor.Items.LoadFromFile('Список авторов.laa');
if FindFirst('Список отделов.lao', faDirectory, SearchRec) = 0 then ComboBox_Otdel.Items.LoadFromFile('Список отделов.lao');
if MDLG1('Вы хотите добавлять данные в уже существующий файл?'+#13#10+'Если Вы хотите создать новый список книг, нажмите кнопку "Нет"', 'Q')
then begin
if opendialog1.Execute then begin listbox1.Items.LoadFromFile(opendialog1.FileName); new:=true; s:=opendialog1.FileName; form1.Visible:=true; form1.WindowState:=wsNormal; form1.SetFocus; end else new:=false;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if listbox1.Items.Count<>0 then
begin
if not new then begin
MDLG1('Необходимо сохранить данные перед выходом!', 'i');
if (savedialog1.execute) then
begin
if copy(savedialog1.FileName, length(savedialog1.FileName)-3, 4)='.lab' then
listbox1.Items.SaveToFile(savedialog1.FileName)
else
listbox1.Items.SaveToFile(savedialog1.FileName+'.lab')
end
else action:=caNone;
end
else //не new
listbox1.Items.SaveToFile(s)
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if ColorDialog1.Execute then form1.Color:=ColorDialog1.Color;
end;

end.

извиняюсь за корявый код - делал наспех

заранее спасибо

TIF (2006-10-27 19:18:00) [22]
procedure TForm1.Edit_PrimKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
SpeedButton1.OnClick(nil);
end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i: integer;
b: boolean;
begin
if MDLG1(#9+'Вы действительно хотите занести эту книгу?'+#13#10#13#10#9+
'Дата записи:'+#9#9+DateToStr(DateTimePicker1.Date)
+#13#10#9+'Инвентарный №:'+#9+Edit_InvN.Text
+#13#10#9+'Автор:'+#9#9#9+ComboBox_Avtor.Text
+#13#10#9+'Название:'+#9#9+Edit_Nazvanie.Text
+#13#10#9+'Издательство:'+#9#9+'"'+Edit_Izdat.Text+'"'
+#13#10#9+'Год издания:'+#9#9+Edit_GodIzd.Text
+#13#10#9+'Кол-во страниц:'+#9+Edit_KolStr.Text
+#13#10#9+'Количество'
+#13#10#9+' Всего:'+#9#9+Edit_Kol_Vsego.Text
+#13#10#9+' На данный момент:'+#9+Edit_Kol_Moment.Text
+#13#10#9+'Отдел:'+#9#9#9+ComboBox_Otdel.Text
+#13#10#9+'Цена:'+#9#9#9+Edit_Cena1.Text+'.'+Edit_Cena2.Text
+#13#10#9+'Примечание:'+#9#9+Edit_Prim.Text
+#13#10#13#10+'Если Вы хотите исправить ошибку, нажмите кнопку "Нет".'
+#13#10+'В этом случае все поля станут активными.'+#13#10+'После исправления ошибки нажмите кнопку "Занести"', 'Q')
then
begin
if listbox1.items.count=0 then
begin
ListBox1.Items.Add('=== Файл .lab - Электронный список книг ===');
ListBox1.Items.Add('0');
end;
ListBox1.Items[1]:=IntToStr(StrToInt(ListBox1.Items[1])+1);
ListBox1.Items.Add(DateToStr(DateTimePicker1.Date));
ListBox1.Items.Add(Edit_InvN.Text);
ListBox1.Items.Add(ComboBox_Avtor.Text);
ListBox1.Items.Add(Edit_Nazvanie.Text);
ListBox1.Items.Add('"'+Edit_Izdat.Text+'"');
ListBox1.Items.Add(Edit_GodIzd.Text);
ListBox1.Items.Add(Edit_KolStr.Text);
ListBox1.Items.Add(Edit_Kol_Vsego.Text);
ListBox1.Items.Add(Edit_Kol_Moment.Text);
ListBox1.Items.Add(ComboBox_Otdel.Text);
ListBox1.Items.Add(Edit_Cena1.Text+'.'+Edit_Cena2.Text);
ListBox1.Items.Add(Edit_Prim.Text);

Edit_Prim.Enabled:=false;
Labb13.Font.Color:=clGray;
Lab27.Font.Color:=clGray;
Labb1.Font.Color:=clBlack;
La1.Font.Color:=clRed;
Lab1.Font.Color:=clBlack;
Lab2.Font.Color:=clBlack;
Lab3.Font.Color:=clBlack;
Lab4.Font.Color:=clBlack;
Lab5.Font.Color:=clBlack;
Lab6.Font.Color:=clBlack;
Edit_InvN.Text:='';
b:=false;
for i:=0 to ComboBox_Avtor.Items.Count do
begin
if ComboBox_Avtor.Items[i]=ComboBox_Avtor.Text then b:=true;
end;
if not b then ComboBox_Avtor.Items.Add(ComboBox_Avtor.Text);
ComboBox_Avtor.Items.SaveToFile('Список авторов.laa');
ComboBox_Avtor.Text:='';
Edit_Nazvanie.Text:='';
Edit_Izdat.Text:='';
Edit_GodIzd.Text:='';
Edit_KolStr.Text:='';
Edit_Kol_Vsego.Text:='';
Edit_Kol_Moment.Text:='';
b:=false;
for i:=0 to ComboBox_Otdel.Items.Count do
begin
if ComboBox_Otdel.Items[i]=ComboBox_Otdel.Text then b:=true;
end;
if not b then ComboBox_Otdel.Items.Add(ComboBox_Otdel.Text);
ComboBox_Otdel.Items.SaveToFile('Список отделов.lao');
ComboBox_Otdel.Text:='';
Edit_Cena1.Text:='';
Edit_Cena2.Text:='';
Edit_Prim.Text:='';

DateTimePicker1.Enabled:=true;
DateTimePicker1.SetFocus;
SpeedButton1.Enabled:=false;

La2.Font.Color:=clGray;
La3.Font.Color:=clGray;
La4.Font.Color:=clGray;
La5.Font.Color:=clGray;
La6.Font.Color:=clGray;
La7.Font.Color:=clGray;

Labb2.Font.Color:=clGray;
Labb3.Font.Color:=clGray;
Labb4.Font.Color:=clGray;
Labb5.Font.Color:=clGray;
Labb6.Font.Color:=clGray;
Labb7.Font.Color:=clGray;
Labb8.Font.Color:=clGray;
Labb9.Font.Color:=clGray;
Labb10.Font.Color:=clGray;
Labb11.Font.Color:=clGray;
Labb12.Font.Color:=clGray;
Labb13.Font.Color:=clGray;

Ketmar (2006-10-27 19:17:00) [23]
>[6] ProgRAMmer Dimonych(c) 27-Oct-2006, 18:56
>там, насколько я помню, ему не сильно помогли.
а что, есть кому? вид "дятел", подвид "упорный". птица, конечно, говорун, но вот с умом и сообразительностью у неё немножко нелады.

зыж ещё и нагадил мне в базу...

ProgRAMmer Dimonych (2006-10-27 19:16:00) [24]
Во накатал. ОК, попробуем чего-нибудь придумать.

TIF (2006-10-27 19:15:00) [25]
procedure TForm1.Edit_Cena1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
if Edit_Cena1.Text='' then
begin
Edit_Cena1.Text:='0';
Edit_Cena1.Enabled:=false;
Edit_Cena2.Enabled:=true;
Edit_Cena2.SetFocus;
end
else
begin

try
test:=StrToInt(Edit_Cena1.Text);
except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный формат цены в рублях!'+#13#10#13#10+'Повторите ввод цены', 'e');
Edit_Cena1.Text:='';
test:=0;
exit;
end;
end;
if test<0 then
begin
MDLG1('Неверный формат цены в рублях!'+#13#10#13#10+'Повторите ввод цены', 'e');
Edit_Cena1.Text:='';
end
else
begin
Edit_Cena1.Enabled:=false;
Edit_Cena2.Enabled:=true;
Edit_Cena2.SetFocus;
end;
end;
end;
end;

procedure TForm1.Edit_Cena2KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
if (Edit_Cena2.Text='') or (Edit_Cena2.Text='0') or (Edit_Cena2.Text='00')then
begin
if Edit_Cena1.Text<>'0' then
begin
Edit_Cena2.Text:='00';
La7.Font.Color:=clGray;
Labb12.Font.Color:=clGray;
Labb13.Font.Color:=clGray;
Lab25.Font.Color:=clGray;
Lab26.Font.Color:=clGray;
Edit_Cena2.Enabled:=false;
Edit_Prim.Enabled:=true;
Edit_Prim.SetFocus;

Labb14.Font.Color:=clBlack;
Lab27.Font.Color:=clBlack;
Lab28.Font.Color:=clYellow;
SpeedButton1.Enabled:=true;
end;
end
else
begin
try
test:=StrToInt(Edit_Cena2.text);
except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный формат цены в копейках!'+#13#10#13#10+'Повторите ввод цены', 'e');
Edit_Cena2.Text:='';
test:=0;
exit;
end;
end;
if length(Edit_Cena2.Text)=2 then
begin
La7.Font.Color:=clGray;
Labb12.Font.Color:=clGray;
Labb13.Font.Color:=clGray;
Lab25.Font.Color:=clGray;
Lab26.Font.Color:=clGray;
Edit_Cena2.Enabled:=false;
Edit_Prim.Enabled:=true;
Edit_Prim.SetFocus;

Labb14.Font.Color:=clBlack;
Lab27.Font.Color:=clBlack;
Lab28.Font.Color:=clYellow;
SpeedButton1.Enabled:=true;
end
else
begin
if length(Edit_Cena2.Text)=1
then
begin
Edit_Cena2.Text:='0'+Edit_Cena2.Text;
La7.Font.Color:=clGray;
Labb12.Font.Color:=clGray;
Labb13.Font.Color:=clGray;
Lab25.Font.Color:=clGray;
Lab26.Font.Color:=clGray;
Edit_Cena2.Enabled:=false;
Edit_Prim.Enabled:=true;
Edit_Prim.SetFocus;

Labb14.Font.Color:=clBlack;
Lab27.Font.Color:=clBlack;
Lab28.Font.Color:=clYellow;
SpeedButton1.Enabled:=true;
end
else
begin
MDLG1('Неверный формат цены в копейках (более 2 цифр)!'+#13#10#13#10+'Повторите ввод цены', 'e');
Edit_Cena2.Text:='';
end;
end;
end;

end;

end;

TIF (2006-10-27 19:13:00) [26]
**************************

вот где глюки

procedure TForm1.Edit_GodIzdKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
try
test:=StrToInt(Edit_GodIzd.Text);

except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный года издания!'+#13#10+'Год издания - целое положительное число'+#13#10#13#10+'Повторите ввод инвентарного номера', 'e');
Edit_GodIzd.Text:='';
test:=0;
exit;
end;
end;
if test<=0 then
begin
MDLG1('Неверный формат года издания!'+#13#10+'Год издания - число, большее нуля!'+#13#10#13#10+'Повторите ввод инвентарного номера', 'e');
Edit_GodIzd.Text:='';
end;
if test >0 then
begin
if (test>=1900) and (test<=StrToInt(copy(DateToStr(Date), 7, 4))) then begin
Labb6.Font.Color:=clGray;
La5.Font.Color:=clGray;
Edit_KolStr.Enabled:=true;
Edit_KolStr.SetFocus;
Edit_GodIzd.Enabled:=false;

Labb7.Font.Color:=clBlack;
Lab18.Font.Color:=clBlack;
Lab19.Font.Color:=clPurple;
end
else
begin
MDLG1('Год издания должен находиться в промежутке'+#13#10+'от 1900 до 2006 включительно!', 'e');
Edit_GodIzd.Text:='';
end;

end;

end;

end;

глюки кончились

******************

procedure TForm1.Edit_KolStrKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
if Edit_KolStr.Text='' then
begin
Labb7.Font.Color:=clGray;
Lab18.Font.Color:=clGray;
Lab19.Font.Color:=clGray;
Edit_Kol_Vsego.Enabled:=true;
Edit_Kol_Vsego.SetFocus;
Edit_KolStr.Enabled:=false;

Labb8.Font.Color:=clBlack;
Labb9.Font.Color:=clBlack;
Lab20.Font.Color:=clBlack;
Lab21.Font.Color:=clBlack;
end
else
begin
try
test:=StrToInt(Edit_KolStr.Text);
except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный формат количества страниц!'+#13#10+'Количество страниц - целое положительное чётное число'+#13#10#13#10+'Повторите ввод количества страниц', 'e');
Edit_KolStr.Text:='';
test:=0;
exit;
end;
end;
if test<=0 then
begin
MDLG1('Неверный формат количества страниц!'+#13#10+'Количество страниц - чётное число, большее нуля!'+#13#10#13#10+'Повторите ввод количества страниц', 'e');
Edit_KolStr.Text:='';
end
else
begin
if StrToInt(Edit_KolStr.Text) mod 2 = 0 then
begin
Labb7.Font.Color:=clGray;
Lab18.Font.Color:=clGray;
Lab19.Font.Color:=clGray;
Edit_Kol_Vsego.Enabled:=true;
Edit_Kol_Vsego.SetFocus;
Edit_KolStr.Enabled:=false;

Labb8.Font.Color:=clBlack;
Labb9.Font.Color:=clBlack;
Lab20.Font.Color:=clBlack;
Lab21.Font.Color:=clBlack;
end
else
begin
MDLG1('Неверный формат количества страниц!'+#13#10+'Количество страниц - чётное число!'+#13#10#13#10+'Повторите ввод количества страниц', 'e');
Edit_KolStr.Text:='';
end;
end;
end;
end;
end;

procedure TForm1.Edit_Kol_VsegoKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
if Edit_Kol_Vsego.Text='' then
begin
Labb9.Font.Color:=clGray;
Edit_Kol_Moment.Enabled:=true;
Edit_Kol_Moment.SetFocus;
Edit_Kol_Vsego.Enabled:=false;

Labb10.Font.Color:=clBlack;
end
else
begin
try
test:=StrToInt(Edit_Kol_Vsego.Text);
except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный формат количества книг!'+#13#10#13#10+'Повторите ввод количества книг', 'e');
Edit_Kol_Vsego.Text:='';
test:=0;
exit;
end;
end;
if test<0 then
begin
MDLG1('Неверный формат количества книг!'+#13#10+'Количество книг - число, большее нуля!'+#13#10#13#10+'Повторите ввод количества книг', 'e');
Edit_Kol_Vsego.Text:='';
end
else
begin
Labb9.Font.Color:=clGray;
Edit_Kol_Moment.Enabled:=true;
Edit_Kol_Moment.SetFocus;
Edit_Kol_Vsego.Enabled:=false;

Labb10.Font.Color:=clBlack;
end;
end;
end;
end;

procedure TForm1.Edit_Kol_MomentKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
if Edit_Kol_Moment.Text='' then
begin
Labb8.Font.Color:=clGray;
Labb10.Font.Color:=clGray;
Lab20.Font.Color:=clGray;
Lab21.Font.Color:=clGray;
ComboBox_Otdel.Enabled:=true;
ComboBox_Otdel.SetFocus;
Edit_Kol_Moment.Enabled:=false;

Labb11.Font.Color:=clBlack;
La6.Font.Color:=clRed;
Lab22.Font.Color:=clBlack;
Lab23.Font.Color:=clBlack;
Lab24.Font.Color:=clBlack;
end
else
begin
try
test:=StrToInt(Edit_Kol_Moment.Text);
except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный формат количества книг!'+#13#10#13#10+'Повторите ввод количества книг', 'e');
Edit_Kol_Moment.Text:='';
test:=0;
exit;
end;
end;
if test<0 then
begin
MDLG1('Неверный формат количества книг!'+#13#10+'Количество книг - число, большее нуля!'+#13#10#13#10+'Повторите ввод количества книг', 'e');
Edit_Kol_Moment.Text:='';
end
else
begin
Labb8.Font.Color:=clGray;
Labb10.Font.Color:=clGray;
Lab20.Font.Color:=clGray;
Lab21.Font.Color:=clGray;
ComboBox_Otdel.Enabled:=true;
ComboBox_Otdel.SetFocus;
Edit_Kol_Moment.Enabled:=false;

Labb11.Font.Color:=clBlack;
La6.Font.Color:=clRed;
Lab22.Font.Color:=clBlack;
Lab23.Font.Color:=clBlack;
Lab24.Font.Color:=clBlack;
end;
end;
end;
end;

procedure TForm1.ComboBox_OtdelKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) and (ComboBox_Otdel.Text<>'') then
begin
Labb11.Font.Color:=clGray;
La6.Font.Color:=clGray;
Lab22.Font.Color:=clGray;
Lab23.Font.Color:=clGray;
Lab24.Font.Color:=clGray;
Edit_Cena1.Enabled:=true;
Edit_Cena1.SetFocus;
ComboBox_Otdel.Enabled:=false;

Labb12.Font.Color:=clBlack;
Labb13.Font.Color:=clBlack;
Lab25.Font.Color:=clBlack;
Lab26.Font.Color:=clBlack;
La7.Font.Color:=clRed;
end;
end;

TIF (2006-10-27 19:11:00) [27]
кидаю пас файл и выхожу из инета.

процедура MDLG1 выдаёт сообщение

----

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ListBox1: TListBox;
Labb1: TLabel;
Labb2: TLabel;
Labb3: TLabel;
Labb4: TLabel;
Labb5: TLabel;
Labb6: TLabel;
Labb7: TLabel;
Labb11: TLabel;
Labb9: TLabel;
Labb10: TLabel;
Labb12: TLabel;
Labb14: TLabel;
Labb8: TLabel;
Edit_InvN: TEdit;
Edit_Nazvanie: TEdit;
Edit_Izdat: TEdit;
Edit_GodIzd: TEdit;
Edit_KolStr: TEdit;
Edit_Kol_Vsego: TEdit;
Edit_Kol_Moment: TEdit;
Edit_Cena1: TEdit;
Edit_Prim: TEdit;
DateTimePicker1: TDateTimePicker;
ComboBox_Avtor: TComboBox;
Edit_Cena2: TEdit;
Labb13: TLabel;
Lab15: TLabel;
Lab16: TLabel;
Lab1: TLabel;
Lab4: TLabel;
Lab2: TLabel;
Lab10: TLabel;
Lab9: TLabel;
Lab8: TLabel;
Lab7: TLabel;
Label25: TLabel;
Lab3: TLabel;
Lab5: TLabel;
Lab6: TLabel;
Shape1: TShape;
La1: TLabel;
Shape2: TShape;
Lab11: TLabel;
Shape3: TShape;
La2: TLabel;
La3: TLabel;
La4: TLabel;
La5: TLabel;
La6: TLabel;
La7: TLabel;
Lab12: TLabel;
Lab13: TLabel;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Lab14: TLabel;
Lab18: TLabel;
Lab20: TLabel;
Shape7: TShape;
Shape8: TShape;
Lab23: TLabel;
Lab24: TLabel;
ComboBox_Otdel: TComboBox;
Lab22: TLabel;
Lab25: TLabel;
Lab26: TLabel;
Shape9: TShape;
Lab27: TLabel;
Shape10: TShape;
SpeedButton1: TSpeedButton;
Lab28: TLabel;
Lab21: TLabel;
Lab19: TLabel;
Lab17: TLabel;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
SpeedButton2: TSpeedButton;
ColorDialog1: TColorDialog;
procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure Edit_InvNKeyPress(Sender: TObject; var Key: Char);
procedure ComboBox_AvtorKeyPress(Sender: TObject; var Key: Char);
procedure Edit_NazvanieKeyPress(Sender: TObject; var Key: Char);
procedure Edit_IzdatKeyPress(Sender: TObject; var Key: Char);
procedure Edit_GodIzdKeyPress(Sender: TObject; var Key: Char);
procedure Edit_KolStrKeyPress(Sender: TObject; var Key: Char);
procedure Edit_Kol_VsegoKeyPress(Sender: TObject; var Key: Char);
procedure Edit_Kol_MomentKeyPress(Sender: TObject; var Key: Char);
procedure ComboBox_OtdelKeyPress(Sender: TObject; var Key: Char);
procedure Edit_Cena1KeyPress(Sender: TObject; var Key: Char);
procedure Edit_Cena2KeyPress(Sender: TObject; var Key: Char);
procedure Edit_PrimKeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
test: integer;
new: boolean=false;
s: string;

implementation

{$R *.dfm}

procedure TForm1.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Labb1.Font.Color:=clGray;
La1.Font.Color:=clGray;
Lab1.Font.Color:=clGray;
Lab2.Font.Color:=clGray;
Lab3.Font.Color:=clGray;
Lab4.Font.Color:=clGray;
Lab5.Font.Color:=clGray;
Lab6.Font.Color:=clGray;
Edit_InvN.Enabled:=true;
Edit_InvN.SetFocus;
DateTimePicker1.Enabled:=false;

Labb2.Font.Color:=clBlack;
La2.Font.Color:=clRed;
Lab7.Font.Color:=clBlack;
end;

end;

procedure TForm1.Edit_InvNKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
try
test:=StrToInt(Edit_InvN.Text);

except
on EConvertError do // ошибка преобразования строки в число
begin
MDLG1('Неверный формат инвентарного номера!'+#13#10+'Инвентарный номер - целое положительное число'+#13#10#13#10+'Повторите ввод инвентарного номера', 'e');
Edit_InvN.Text:='';
test:=0;
exit;
end;
end;
if test<=0 then
begin
MDLG1('Неверный формат инвентарного номера!'+#13#10+'Инвентарный номер - число, большее нуля!'+#13#10#13#10+'Повторите ввод инвентарного номера', 'e');
Edit_InvN.Text:='';
end;
if test >0 then
begin
Labb2.Font.Color:=clGray;
La2.Font.Color:=clGray;
Lab7.Font.Color:=clGray;
ComboBox_Avtor.Enabled:=true;
ComboBox_Avtor.SetFocus;
Edit_InvN.Enabled:=false;

Labb3.Font.Color:=clBlack;
La3.Font.Color:=clRed;
Lab8.Font.Color:=clBlack;
Lab9.Font.Color:=clBlack;
Lab10.Font.Color:=clBlack;
Lab11.Font.Color:=clBlack;
end;

end;

end;

procedure TForm1.ComboBox_AvtorKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) and (ComboBox_Avtor.Text<>'') then
begin
Labb3.Font.Color:=clGray;
La3.Font.Color:=clGray;
Lab8.Font.Color:=clGray;
Lab9.Font.Color:=clGray;
Lab10.Font.Color:=clGray;
Lab11.Font.Color:=clGray;
Edit_Nazvanie.Enabled:=true;
Edit_Nazvanie.SetFocus;
ComboBox_Avtor.Enabled:=false;

Labb4.Font.Color:=clBlack;
La4.Font.Color:=clRed;
Lab12.Font.Color:=clBlack;
Lab13.Font.Color:=clBlack;
end;

end;

procedure TForm1.Edit_NazvanieKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) and (Edit_Nazvanie.Text<>'') then
begin
Labb4.Font.Color:=clGray;
La4.Font.Color:=clGray;
Lab12.Font.Color:=clGray;
Lab13.Font.Color:=clGray;
Edit_Izdat.Enabled:=true;
Edit_Izdat.SetFocus;
Edit_Nazvanie.Enabled:=false;

Labb5.Font.Color:=clBlack;
Lab14.Font.Color:=clBlack;
Lab15.Font.Color:=clBlack;
Lab16.Font.Color:=clBlack;
Lab17.Font.Color:=clPurple;
end;
end;

procedure TForm1.Edit_IzdatKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
Labb5.Font.Color:=clGray;
Lab14.Font.Color:=clGray;
Lab15.Font.Color:=clGray;
Lab16.Font.Color:=clGray;
Lab17.Font.Color:=clGray;
Edit_GodIzd.Enabled:=true;
Edit_GodIzd.SetFocus;
Edit_Izdat.Enabled:=false;

Labb6.Font.Color:=clBlack;
La5.Font.Color:=clRed;
end;
end;

ProgRAMmer Dimonych (2006-10-27 19:03:00) [28]
Программа очень секретная? Ц меня вообще-то 98, могу попробовать поискать причину.

TIF (2006-10-27 19:02:00) [29]
у меня инет кончается, так что я наверное буду сматывать удочки. завтра снова появлюсь, не теряйте

TIF (2006-10-27 19:00:00) [30]
нет, просто программа заносит в листобокс строчки, которые потом сохраняются (или не сохраняются). такая самодельная база данных

ProgRAMmer Dimonych (2006-10-27 18:59:00) [31]
Стоп! Что за год издания книги? Что-то с базами данных связано?

TIF (2006-10-27 18:57:00) [32]
в том месте, где она проверяет год издания книги (диапазон: от 1900 до текущего года) в 98 винде ошибка "Введено число, не попадпющее в диапазон от 1900 до текущегго года включительно" выдаётся при введении ЛЮБОГО числа (таже верного). в других системах такого нет.

ProgRAMmer Dimonych (2006-10-27 18:56:00) [33]
Я видел, в разделе Прочее. Только там, насколько я помню, ему не сильно помогли.

Ketmar (2006-10-27 18:53:00) [34]
>[4] ProgRAMmer Dimonych(c) 27-Oct-2006, 18:52
>> [3]
>Оценил.
полазь по форуму, полюбопытствуй. посмотри на посты автора.

ProgRAMmer Dimonych (2006-10-27 18:52:00) [35]
> [3]
Оценил.

Ketmar (2006-10-27 18:51:00) [36]
>[1] ProgRAMmer Dimonych(c) 27-Oct-2006, 18:47
>Что приблизительно делает программа?
глючит.

>Какие-то специфические действия в ней присутствуют?
ага. глюки.

TIF (2006-10-27 18:48:00) [37]
минутку, у меня телефон пиликает

ProgRAMmer Dimonych (2006-10-27 18:47:00) [38]
Что приблизительно делает программа? Какие-то специфические действия в ней присутствуют?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »