Электронды оқу құралдарын дайындау мәселелері

procedure Button1Click(Sender: TObject);   

procedure N1Click(Sender: TObject);   

procedure I1Click(Sender: TObject);   

procedure i2Click(Sender: TObject);   

procedure N2Click(Sender: TObject);   

procedure Button2Click(Sender: TObject);   

procedure Button3Click(Sender: TObject);   

procedure Button4Click(Sender: TObject);   

procedure Button5Click(Sender: TObject);   

procedure Button6Click(Sender: TObject);   

procedure Button7Click(Sender: TObject); 

private   

{ Private declarations } 

public   

{ Public declarations } 

end;

var 

Form6: TForm6;

implementation

uses Marc8, Marc7, Marc9;

{Хuses Unit8, Unit7, Unit9;}

{$R *.DFM}

procedure TForm6.Button1Click(Sender: TObject);

begin

Table1.Edit;

if OpenPictureDialog1.Execute then begin

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

{DBIMage1LoadPicture;}

end;

Table1.Post;

end;

procedure TForm6.N1Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm6.I1Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm6.i2Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm6.N2Click(Sender: TObject);

begin

Close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Table1.First;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Table1.Prior;

end;

procedure TForm6.Button4Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

Table1.Last;

end;

procedure TForm6.Button6Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm6.Button7Click(Sender: TObject);

begin

Table1.Delete;

end;

end. 

 

unit Marc7;

interface

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 

Menus, Mask, DBCtrls, StdCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids;

type 

TForm7 = class(TForm)   

MainMenu1: TMainMenu;   

N1: TMenuItem;   

N2: TMenuItem;   

Table1: TTable;   

DataSource1: TDataSource;   

GroupBox1: TGroupBox;   

Label1: TLabel;   

Label2: TLabel;   

Label3: TLabel;   

Label4: TLabel;   

Label5: TLabel;   

Edit1: TEdit;   

DBEdit1: TDBEdit;   

Edit2: TEdit;   

Edit3: TEdit;   

DBEdit2: TDBEdit;   

DBEdit3: TDBEdit;   

DBEdit4: TDBEdit;   

DBEdit5: TDBEdit;   

Edit4: TEdit;   

Edit5: TEdit;   

DBGrid1: TDBGrid;   

procedure N2Click(Sender: TObject);   

procedure Edit1Change(Sender: TObject);   

procedure Edit2Change(Sender: TObject);   

procedure Edit3Change(Sender: TObject);   

procedure Edit4Change(Sender: TObject);   

procedure Edit5Change(Sender: TObject); 

private   

{ Private declarations } 

public   

{ Public declarations } 

end;

var 

Form7: TForm7;

implementation

{$R *.DFM}

procedure TForm7.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm7.Edit1Change(Sender: TObject);

begin

Table1.Locate('Shigargan zavody', Edit1.text, [locaseinsensitive, loPartialkey]);

end;

procedure TForm7.Edit2Change(Sender: TObject);

begin

Table1.Locate('Marcasy', Edit2.text, [locaseinsensitive, loPartialkey]);

end;

procedure TForm7.Edit3Change(Sender: TObject);

begin

Table1.Locate('Shigargan jily', Edit3.text, [locaseinsensitive, loPartialkey]);

end;

procedure TForm7.Edit4Change(Sender: TObject);

begin

Table1.Locate('Tusy', Edit4.text, [locaseinsensitive, loPartialkey]);

end;

procedure TForm7.Edit5Change(Sender: TObject);

begin

Table1.Locate('Bagasy', Edit5.text, [locaseinsensitive, loPartialkey]);

end;

end.