перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
А
Text:='';
edit6.Text:='';
edit7.Text:='';
close;
end;
procedure TFsotr.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
Продолжение приложения А
'A'..'Z','a'..'z','а'..'я','А'..'Я',8: key:=key
else key:=0;
end;
end;
procedure TFsotr.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z','a'..'z','а'..'я','А'..'Я',8: key:=key
else key:=0;
end;
end;
procedure TFsotr.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z','a'..'z','а'..'я','А'..'Я',8: key:=key
else key:=0;
end;
end;
procedure TFsotr.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z','a'..'z','а'..'я','А'..'Я',8: key:=key
else key:=0;
end;
end;
procedure TFsotr.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z','a'..'z','а'..'я','А'..'Я',8: key:=key
else key:=0;
end;
end;
procedure TFsotr.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z','a'..'z','а'..'я','А'..'Я',8: key:=key
else key:=0;
end;
end;
end.
А.10 Модуль формы о владельцах
unit vladel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, LMDControl, LMDBaseControl,
LMDBaseGraphicButton, LMDCustomSpeedButton, DB, LMDSpeedButton, Buttons;
Продолжение приложения А
type
TFvlad = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Panel2: TPanel;
Panel3: TPanel;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
LMDSpeedButton1: TLMDSpeedButton;
Image1: TImage;
RadioGroup2: TRadioGroup;
LMDSpeedButton2: TLMDSpeedButton;
Panel4: TPanel;
Image2: TImage;
Image3: TImage;
LMDSpeedButton4: TLMDSpeedButton;
pedit: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
LMDSpeedButton8: TLMDSpeedButton;
LMDSpeedButton9: TLMDSpeedButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Image4: TImage;
procedure FormCreate(Sender: TObject);
procedure LMDSpeedButton1Click(Sender: TObject);
procedure LMDSpeedButton2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure LMDSpeedButton8Click(Sender: TObject);
procedure LMDSpeedButton4Click(Sender: TObject);
procedure LMDSpeedButton9Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Fvlad: TFvlad;
implementation
uses dm;
Продолжение приложения А
{$R *.dfm}
procedure TFvlad.FormCreate(Sender: TObject);
begin
dm1.vlad.IndexName:='FAM';
RadioGroup1.ItemIndex:=-1;
RadioGroup2.ItemIndex:=-1;
end;
procedure TFvlad.LMDSpeedButton1Click(Sender: TObject);
begin
if edit1.Text<>'' then begin
if RadioGroup1.ItemIndex=0 then
if dm1.vlad.Locate('FAM',edit1.Text,[loCaseInsensitive]) then
else MessageBox(Handle,'Нет записи с такой фамилией...','',MB_OK);
if RadioGroup1.ItemIndex=1 then
if dm1.vlad.Locate('TEL',edit1.Text,[loCaseInsensitive]) then
else MessageBox(Handle,'Нет записи с таким телефоном.
скачать бесплатно АРМ менеджера в автосалоне 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'
Право граждан на труд реализуется путем заключения рабочими и служащими трудового договора о роботе на соответствующем предприятии, в учреждении и организации
