Читайте данную работу прямо на сайте или скачайте

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

unit redakt;

interface

uses

type

{

ar

implementation

uses data, Enter, categor, Vopros2;

{$R *.DFM}

procedure TForm2.ComboBox1Change(Sender: TObject);

begin

{Form2.ComboBox1:=}

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

DM.Table4.First;

Form2.DBGrid1.SetFocus;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

DM.Table4.Next;

Form2.DBGrid1.SetFocus;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

DM.Table4.Prior;

Form2.DBGrid1.SetFocus;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

DM.Table4.Last;

Form2.DBGrid1.SetFocus;

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

DM.Table4.Edit;

Form2.DBGrid1.SetFocus;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

DM.Table4.Insert;

Form2.DBGrid1.SetFocus;

end;

procedure TForm2.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;

procedure TForm2.Button10Click(Sender: TObject);

begin

if not DM.Table4.EOF then

begin

with DM.Table4 do

{ MessageDlg('╙

end;

end;

end;

procedure TForm2.RadioGroup1Click(Sender: TObject);

ar Pole:shortstring;

begin

Case Form2.RadioGroup1.ItemIndex of

0: Pole:='

1:Pole:='

2:Pole:='

3:Pole:='

4:Pole:='╩

end;

if Form2.RadioGroup1.ItemIndex=0 then

DM.Table4.IndexFieldNames:='Categorija';

if Form2.RadioGroup1.ItemIndex=1 then

DM.Table4.IndexFieldNames:='Firma';

if Form2.RadioGroup1.ItemIndex=2 then

DM.Table4.IndexFieldNames:='Model';

if Form2.RadioGroup1.ItemIndex=3 then

DM.Table4.IndexFieldNames:='CENAD';

if Form2.RadioGroup1.ItemIndex=4 then

DM.Table4.IndexFieldNames:='SKLAD';

DM.Table4.Refresh;

DM.Table4.Close;

DM.Table4.Open;

Form2.DbGrid1.SetFocus;

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if Form2.CheckBox1.Checked then

else

begin

DM.Table4.IndexFieldNames:='';

Form2.RadioGroup1.Visible:=False;

end;

end;

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);

ar Pole:ShortString;sd:real;

begin

if Edit1.Modified then

begin

{

if RadioGroup2.ItemIndex<=2 then

{

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

procedure TForm2.RadioGroup2Click(Sender: TObject);

begin

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

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

ar pole:shortstring;

begin

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);

ar Pole:shortString;sd:real;

begin

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

ar Pole:shortstring;sd:real;

begin

Form2.Label2.Visible:=True;

{

end.