перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
LoadFromFile(ExtractFilePath(Application
then pole2_2:=copy(pole2,1,t-1);
st2:='';
q2:='';
for u:=length(pic2) downto 1 do
if pic2[u]<>'.' then insert(pic2[u],q2,0) else break;
st2:=ExtractFilePath(Application.Exename);
ForceDirectories(st2+'FOTO');
if dm1.avto.FieldByName('foto_2').AsString<>'' then
DeleteFile(st2+'FOTO\'+dm1.avto.FieldByName('foto_2').AsString);
Продолжение приложения А
if copyfileto(pchar(pic2),pchar(st2+'FOTO\'+pole2_2+ '.'+q2)) then
else begin
MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);
exit;
end;
dm1.avto.FieldByName('foto_2').AsString:=pole2_2 + '.'+q2;
end;
dm1.avto.Post;
// dm1.komplect.Post;
end;
procedure TFedit.LMDSpeedButton8Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
pic1:=OpenPictureDialog1.FileName;
if pic1<>'' then Image4.Picture.LoadFromFile(pic1)
else begin
MessageBox(Handle,'Фотография кузова не выбрана!','',MB_OK);
exit;
end;
end;
procedure TFedit.LMDSpeedButton9Click(Sender: TObject);
begin
OpenPictureDialog2.Execute;
pic2:=OpenPictureDialog2.FileName;
if pic2<>'' then Image5.Picture.LoadFromFile(pic2)
else begin
MessageBox(Handle,'Фотография салона не выбрана!','',MB_OK);
exit;
end;
end;
procedure TFedit.FormActivate(Sender: TObject);
begin
if (dm1.avto.fieldbyname('FOTO_1').Value<>'') then
Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString)
else MessageBox(Handle,'Фотографии кузова НЕТ!','',MB_OK);
if (dm1.avto.fieldbyname('FOTO_2').Value<>'') then
Image5.
скачать бесплатно АРМ менеджера в автосалоне A Motors
Содержание дипломной работы
Время на регистрацию автомобиля и поиск нужного бланка в куче папок на столе и полках очень обременяет, это неудобство побудило меня автоматизировать данный процесс
Основным элементом любого приложения является форма — контейнер, в котором размещаются другие визуальные и невизуальные компоненты
Когда вы создаете новую форму или размещаете на ней компоненты, Delphi автоматически при сваивает им цвета в соответствии со схемой цветов, установлен ной в Windows
Если вы не знаете, как назвать какой-то раздел, не изоб ретайте свое имя, а попытайтесь найти аналогичный раздел в ка кой-нибудь русифицированной программе Microsoft для Win dows
Недопустимо, чтобы сходные по функциям органы управления в разных окнах назывались по-разному или разме щались в разных местах окон
Программист должен принять все мыслимые меры, чтобы ни при каких ошибках пользователя и ни при каких сочетаниях данных приложение не за канчивалось бы аварийно
5 Таблица идентификаторов
Таблица 2
SQL
Теперь, если вы пишете программу для совместимых с IBM PC компьютеров, то вы пишете для Windows95, Windows NT, Windows 98,Windows 2000
Служебная информация о формах хранится в файлах с расширением DFM
Как результат, ориентация программы на номера записей DBF-файла имеет недостатки - номера записей никак не связаны с содержимым записей, и могут меняться после упаковки файла
По нажатии на кнопку «Сформировать запрос» - Открывается окно формирования запросов
По нажатию на кнопку «Сортировать» - Происходит сортировка записей в таблице БД в алфавитном порядке (для числовых полей – в порядке возрастания)
Для разработки программы принимается один программист:
Инженер-программист 12 разряда, с трудоемкостью работ
5
Право граждан на труд реализуется путем заключения рабочими и служащими трудового договора о роботе на соответствующем предприятии, в учреждении и организации
Наилучший обмен воздуха осуществляется при сквозном проветривании, Другой путь обеспечения воздухообмена, может, быть, достигнут установлением в оконных проемах автономных кондиционеров
Освещенность КВТ в учебных аудиториях
Освещенность КВТ также имеет большое значение при работе на ПЭВМ
Главная причина пожара неэлектрического характера является неосторожное обращение с огнем, а также взрывы газо-воздушных и паро-воздушных смесей
Основные - обладают изоляцией, способной длительно выдерживать рабочее напряжение электроустановки и поэтому ими разрешается касаться токоведущих частей, находящихся под напряжением
Степень очистки сточных вод устанавливается в зависимости от местных условий с учетом возможного использования очищенных сточных вод - для промышленных и сельскохозяйственных нужд
Delphi 6 Учебный курс (электронный вариант в формате CHM)
Иллюстрированный самоучитель по Delphi 6 (электронный вариант в формате HTML) 18
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
FieldByName('sot')
avto
Value:='false';
Продолжение приложения А
if CheckBox3
FieldByName('kondic')
Value:=DateEdit1
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
LMDSpeedButton3Click(Sender: TObject);
begin
AppProgID := 'Excel
Cells[i,4]
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
asinteger:=id;
end;
end
+q1)) then
else begin
MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);
exit;
end;
dm1
LoadFromFile(ExtractFilePath(Application
FieldByName(name)
showmodal;
end;
procedure TFmain
showmodal;
end;
procedure TFmain
avto_out
avto
Enabled:=not Label8
, нами было разработано и проведено 6 занятий по 3D моделированию, позволяющих изучить основы 3D моделирования
tip_kuz, a
Checked)+' and ');
if checkBox6
asinteger;
while not table
Value;
Edit5
Text;
dm1
Text:='';
edit3
А
vlad
value;
edit4
Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'
Право граждан на труд реализуется путем заключения рабочими и служащими трудового договора о роботе на соответствующем предприятии, в учреждении и организации
