Пример базы данных на Delphi 2.0

unitredakt;
interface
uses
Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,Mask, Buttons, DBCGrids;
type
TForm2 = class(TForm)
    Panel1: TPanel;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    Button7: TButton;
    Button5: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    RadioGroup2: TRadioGroup;
    CheckBox3: TCheckBox;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure RadioGroup1Click(Sender:TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure RadioGroup2Click(Sender:TObject);
    procedure DBEdit1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
   procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender:TObject);
    procedure SpeedButton4Click(Sender:TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
{    procedure FormCreate(Sender: TObject);}
private
    { Private declarations }
public
    { Public declarations }
end;
var
Form2: TForm2;
implementation
usesdata, Enter, categor, Vopros2;
{$R*.DFM}
procedureTForm2.ComboBox1Change(Sender: TObject);
begin
{Form2.ComboBox1:=}
end;
procedureTForm2.Button3Click(Sender: TObject);
begin
DM.Table4.First;
Form2.DBGrid1.SetFocus;
end;
procedureTForm2.Button4Click(Sender: TObject);
begin
DM.Table4.Next;
Form2.DBGrid1.SetFocus;
end;
procedureTForm2.Button6Click(Sender: TObject);
begin
DM.Table4.Prior;
Form2.DBGrid1.SetFocus;
end;
procedureTForm2.Button5Click(Sender: TObject);
begin
DM.Table4.Last;
Form2.DBGrid1.SetFocus;
end;
procedureTForm2.Button7Click(Sender: TObject);
begin
DM.Table4.Edit;
Form2.DBGrid1.SetFocus;
end;
procedureTForm2.Button8Click(Sender: TObject);
begin
DM.Table4.Insert;
Form2.DBGrid1.SetFocus;
end;
procedureTForm2.Button9Click(Sender: TObject);
begin
DM.Table4.Edit;
DM.Table4.Post;
DM.Table1.Refresh;
DM.Table2.Refresh;
DM.Table3.Refresh;
DM.Table4.Refresh;
Form2.DBGrid1.Setfocus;
end;
procedureTForm2.Button10Click(Sender: TObject);
begin
if notDM.Table4.EOF then
begin
withDM.Table4 do
begin
DisableControls;
Delete;
{MessageDlg('╙фрышЄ№ърЄхуюЁш■?',mtCustom,(mbYes),(mbNo));}
EnableControls;
Form2.DbGrid1.SetFocus;
end;
end;
end;
procedureTForm2.RadioGroup1Click(Sender: TObject);
varPole:shortstring;
begin
CaseForm2.RadioGroup1.ItemIndex of
0:Pole:='ърЄхуюЁшш';
1:Pole:='ЇшЁьх-шчуюЄютшЄхых';
2:Pole:='ьюфхыш';
3:Pole:='Ўхэх';
4:Pole:='╩юышўхёЄтєэрёъырфх';
end;
ifForm2.RadioGroup1.ItemIndex=0 then
DM.Table4.IndexFieldNames:='Categorija';
ifForm2.RadioGroup1.ItemIndex=1 then
DM.Table4.IndexFieldNames:='Firma';
ifForm2.RadioGroup1.ItemIndex=2 then
DM.Table4.IndexFieldNames:='Model';
ifForm2.RadioGroup1.ItemIndex=3 then
DM.Table4.IndexFieldNames:='CENAD';
ifForm2.RadioGroup1.ItemIndex=4 then
DM.Table4.IndexFieldNames:='SKLAD';
DM.Table4.Refresh;
DM.Table4.Close;
DM.Table4.Open;
Form2.DbGrid1.SetFocus;
end;
procedureTForm2.CheckBox1Click(Sender: TObject);
begin
ifForm2.CheckBox1.Checked then
   begin
      Form2.RadioGroup1.Visible:=True;
      Form2.RadioGroup1.ItemIndex:=0;
     end
else
begin
DM.Table4.IndexFieldNames:='';
Form2.RadioGroup1.Visible:=False;
end;
end;
procedureTForm2.DBEdit1Change(Sender: TObject);
begin
Form3.Button6.Visible:=True;
Form3.Show;
Form3.Dbgrid1.SetFocus;
end;
procedureTForm2.BitBtn1Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedureTForm2.Edit1Change(Sender: TObject);
varPole:ShortString;sd:real;
begin
ifEdit1.Modified then
begin
CASE RadioGroup2.ItemIndex OF
   0:
   begin
   DM.Table4.IndexFieldNames := 'CATEGORIJA';
   DM.Table4CATEGORIJA.Index := 0;
   Pole:='CATEGORIJA';
   end;
   1:
   begin
   DM.Table4.IndexFieldNames := 'FIRMA';
   DM.Table4FIRMA.Index := 0;
   Pole:='FIRMA';
   end;
   2:
   begin
   DM.Table4.IndexFieldNames := 'MODEL';
   DM.Table4MODEL.Index := 0;
   Pole:='MODEL';
   end;
   3:
   begin
  DM.Table4.IndexFieldNames := 'CENAD';
  DM.Table4CENAR.Index := 0;
   Pole:='CENAD'
   end;
   4:
    begin
  DM.Table4.IndexFieldNames := 'SKLAD';
  DM.Table4SKLAD.Index := 0;
   Pole:='SKLAD';
end;
end;
{  DM.Table4.FindNearest([Edit1.Text]);}
if RadioGroup2.ItemIndex
  DM.Table4.FindNearest([Edit1.text])
   else
     if Edit1.text '' then
    begin
    try
   sd:=StrToFloat(Edit1.Text);
   DM.Table4.FindNearest([sd]);
    except
    onEConvertError do
    begin
    ShowMessage('эхяЁртшы№э√щттюф !');
   Form2.Label2.Caption:='';
    end
    end;
    end;
{   try
     sd:=StrToFloat(Edit1.text);
           except
        raiseException.create(Edit1.text+' ¤Єю эх ўшёыютющ ЇюЁьрЄ !');
      end
   else
    DM.Table4.FindNearest([StrToFloat(Edit1.text)]);
DM.Table4.FindNearest([Edit1.Text]);
thenForm2.Label1.Caption('╟эрўхэшх'+Edit1.Text+'эх эрщфхэю');}
end;
Form2.Label2.caption:=('╩рЄхуюЁш :'+DM.Table4CATEGORIJA.Value+' '+'╘шЁьр:'+DM.Table4Firma.Value+''+'╠юфхы№:'+DM.Table4MODEL.Value);
end;
procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if Form2.CheckBox3.Checked then
begin
    Form2.Label2.Visible:=True;
    Form2.Edit1.Visible:=True;
    Form2.CheckBox2.Checked:=False;
    Form2.RadioGroup2.Visible:=True;
    RadioGroup2.ItemIndex:=0;
    RadioGroup1.ItemIndex:=RadioGroup2.ItemIndex;
    Form2.CheckBox1.Checked:=True;
end
    else
begin
     Form2.RadioGroup2.Visible:=False;
     Form2.Edit1.Visible:=False;
     Form2.Label2.Visible:=False;
end;
     end;
procedure TForm2.RadioGroup2Click(Sender: TObject);
begin
  RadioGroup1.ItemIndex:=RadioGroup2.ItemIndex;
end;
procedure TForm2.DBEdit1Click(Sender: TObject);
begin
Form3.Button6.Visible:=True;
Form3.ShowModal;
end;
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if Form2.CheckBox2.Checked then
begin
Form2.Label2.Visible:=True;
Form2.BitBtn2.Visible:=True;
Form2.Edit2.Visible:=True;
Form2.CheckBox3.Checked:=False;
Form2.RadioGroup2.Visible:=True;
Form2.Checkbox1.Checked:=True;
end
else
begin
   Form2.Label2.Visible:=False;
   Form2.BitBtn2.Visible:=False;
   Form2.Edit2.Visible:=False;
   Form2.RadioGroup2.Visible:=False;
end;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
var pole:shortstring;
begin
CASERadioGroup2.ItemIndex OF
   0:
   begin
  DM.Table4.IndexFieldNames := 'CATEGORIJA';
  DM.Table4CATEGORIJA.Index := 0;
  Pole:='CATEGORIJA';
   end;
   1:
   begin
  DM.Table4.IndexFieldNames := 'FIRMA';
   DM.Table4FIRMA.Index:= 0;
   Pole:='FIRMA';
   end;
   2:
   begin
  DM.Table4.IndexFieldNames := 'MODEL';
  DM.Table4MODEL.Index := 0;
   Pole:='MODEL';
   end;
   3:
   begin
  DM.Table4.IndexFieldNames := 'CENAD';
  DM.Table4CENAD.Index := 0;
   Pole:='CENAD'
   end;
   4:
    begin
  DM.Table2.IndexFieldNames := 'SKLAD';
  DM.Table2SKLAD.Index := 0;
   Pole:='SKLAD';
end;
end;
DM.Table4.locate(pole,Edit2.Text,[loCaseInsensitive,
lopartialKey]);
end;
procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
DM.Table4.First;
Form2.Dbgrid1.SetFocus;
end;
procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
DM.Table4.FindLast;
Form2.Dbgrid1.SetFocus;
end;
procedure TForm2.Edit2Change(Sender: TObject);
var Pole:shortString;sd:real;
begin
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
var Pole:shortstring;sd:real;
begin
Form2.Label2.Visible:=True;
CASERadioGroup2.ItemIndex OF
   0:
   begin
  DM.Table4.IndexFieldNames := 'CATEGORIJA';
  DM.Table4CATEGORIJA.Index := 0;
  Pole:='CATEGORIJA';
   end;
   1:
   begin
  DM.Table4.IndexFieldNames := 'FIRMA';
  DM.Table4FIRMA.Index := 0;
   Pole:='FIRMA';
   end;
   2:
   begin
  DM.Table4.IndexFieldNames := 'MODEL';
  DM.Table4MODEL.Index := 0;
   Pole:='MODEL';
   end;
   3:
   begin
   DM.Table4.IndexFieldNames:= 'CENAD';
  DM.Table4CENAR.Index := 0;
   Pole:='CENAD'
   end;
   4:
    begin
  DM.Table4.IndexFieldNames := 'SKLAD';
  DM.Table4SKLAD.Index := 0;
   Pole:='SKLAD';
end;
end;
ifRadioGroup2.ItemIndex
begin
      if not
  DM.Table4.Locate(Pole,Edit2.text,[LoCaseInsensitive,LoPartialKey])
then
begin
ShowMessage('╟эрўхэшх'+ ' '+Edit2.text+''+'эх эрщфхэю');
Form2.Label2.Caption:='';
end
else
Form2.Label2.caption:=('╩рЄхуюЁш :'+DM.Table4CATEGORIJA.Value+' '+'╘шЁьр:'+DM.Table4Firma.Value+''+'╠юфхы№:'+DM.Table4MODEL.Value);
end
   else
     if Edit1.text '' then
    begin
    try
sd:=STRToFloat(Edit1.Text);
if notDM.Table4.Locate(Pole,sd,[LoCaseInsensitive,LoPartialKey])
then
begin
ShowMessage('╟эрўхэшх'+ ' '+Edit2.text+' '+'эх эрщфхэю');
  Form2.Label2.Caption:='';
end
else
Form2.Label2.caption:=('╩рЄхуюЁш :'+DM.Table4CATEGORIJA.Value+' '+'╘шЁьр:'+DM.Table4Firma.Value+''+'╠юфхы№:'+DM.Table4MODEL.Value);
    except
    onEConvertError do
    begin
   ShowMessage('эхяЁртшы№э√щ ттюф !');
   Form2.Label2.Caption:='';
    end
  end;
{  DM.Table4.FindFirst;}
    end;end;
end.

Не сдавайте скачаную работу преподавателю!

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

Доработать Узнать цену написания по вашей теме

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Заказать работу:

!	Курсовая работа
!	Дипломная работа
!	Реферат
!	Решение задач
!	Отчет по практике
!	Контрольная работа

Пишем реферат самостоятельно:

!	Как писать рефераты Практические рекомендации по написанию студенческих рефератов.
!	План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
!	Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
!	Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
!	Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:

→	Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Другие популярные рефераты:

Реферат	Механические волны
Реферат	Обратная матрица
Реферат	Инверсия и ее применение
Реферат	Социокультурная динамика межпоколенных взаимодействий
Реферат	Расследование преступлений в сфере компьютерной информации
Реферат	Туристско-краеведческая характеристика Калининградской области
Реферат	Организация административно-хозяйственной службы гостиницы
Реферат	Диагностика психологической готовности ребенка к школе 2
Реферат	Модель современного менеджера
Реферат	Условия формирования военно-административной системы Южного Зауралья в XVII - первой половине XIX века

Сейчас смотрят :

Реферат	Республика Бурятия в древние века
Реферат	Взаємодія національних правових систем як принцип міжнародного приватного права
Реферат	Применение статистических методов в экономических исследованиях
Реферат	Nativism Essay Research Paper US NativismIn 1854
Реферат	Урегулирование конфликтов
Реферат	Gothic Architecture Essay Research Paper Gothic ArchitectureThe
Реферат	Расчёт экономической эффективности
Реферат	Проблемы и возможности развития рефлексии при подготовке психолога.
Реферат	Корпоративная стратегия
Реферат	Акцизный сбор 28. Понятие акцизного сбора
Реферат	Оценка финансовой устойчивости (на примере ЗАО "Тихоокеанская страховая компания")
Реферат	Прийоми і правила стрільби з малокаліберної гвинтівки 2
Реферат	Реклама на специализированных телеканалах
Реферат	Анализ результатов хозяйственной деятельности ООО Домовой 27
Реферат	Исполнение федерального бюджета в РФ

Реферат по предмету "Программирование, Базы данных"

Пример базы данных на Delphi 2.0

Другие популярные рефераты:

Сейчас смотрят :