Пример базы данных на Delphi 2.0 — страница 2

procedure TForm2.DBEdit1Change(Sender: TObject); begin Form3.Button6.Visible:=True; Form3.Show; Form3.Dbgrid1.SetFocus; end; procedure TForm2.BitBtn1Click(Sender: TObject); begin Form10.ShowModal; end; procedure TForm2.Edit1Change(Sender: TObject); var Pole:ShortString;sd:real; begin if Edit1.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<=2 then DM.Table4.FindNearest([Edit1.text]) else if Edit1.text <> '' then begin try sd:=StrToFloat(Edit1.Text); DM.Table4.FindNearest([sd]); except on EConvertError do begin ShowMessage('эхяЁртшы№э√щ ттюф !'); Form2.Label2.Caption:=''; end end; end; { try sd:=StrToFloat(Edit1.text); except raise Exception.create(Edit1.text+' ¤Єю эх ўшёыютющ ЇюЁьрЄ !'); end else DM.Table4.FindNearest([StrToFloat(Edit1.text)]); DM.Table4.FindNearest([Edit1.Text]); then Form2.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 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.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; 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; if RadioGroup2.ItemIndex<=2 then 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+'