База данных в дельфи

unit Kurstik jumis;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, Grids, DBGrids, Menus, StdCtrls, ExtCtrls, Mask,
  DBCtrls,xpman;
type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Query1: TQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    N7: TMenuItem;
    Label3: TLabel;
    Label4: TLabel;
 
 
    N8: TMenuItem;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Shape1: TShape;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Timer1: TTimer;
    N9: TMenuItem;
    Label11: TLabel;
    Label12: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
var
  Form1: TForm1;
implementation
 uses unit2,unit3;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
form2.Show;
table1.Insert;
end;
procedure TForm1.N3Click(Sender: TObject);
var ButtonSelected: Word;
begin
ButtonSelected := MessageDlg('???? ?????? ????? ???', mtInformation,
    [mbOk, mbNo], 0);
if ButtonSelected = mrok then  table1.Delete;
end;
procedure TForm1.N4Click(Sender: TObject);
var st:string;
begin   label10.Caption:=n4.Caption;
datasource1.DataSet:=query1;
query1.Active:=false;
  query1.SQL.Clear;
Query1.SQL.Add('SELECT fio,tip,baga,kun');
Query1.SQL.Add('FROM "C:\Kurstikjumis\baza.db"'); st:=label1.Caption+datetostr(form2.MonthCalendar1.Date)+label2.Caption ;
Query1.SQL.Add(st);
Query1.SQL.Add('ORDER by fio,tip,baga,kun');
 
memo1.Lines.AddStrings(query1.SQL);
   query1.Active:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin   label10.Caption:='';
datasource1.DataSet:=table1;
end;
procedure TForm1.N7Click(Sender: TObject);
var sd,st:string;
begin label10.Caption:=n7.Caption;
datasource1.DataSet:=query1;
query1.Active:=false;
Query1.SQL.Add('SELECT fio,tip,baga,kun');
Query1.SQL.Add('FROM "C:\DiplomJumus\baza.db"');
sd:=copy(datetostr(form2.MonthCalendar1.Date),1,2);
st:=label3.Caption+datetostr(form2.MonthCalendar1.Date)+label2.Caption ;
Query1.SQL.Add(st);
Query1.SQL.Add('ORDER by fio,tip,baga,kun');
memo1.Lines.AddStrings(query1.SQL);
query1.Active:=true;
end;
procedure TForm1.N8Click(Sender: TObject);
var sd,st:string;
begin
label10.Caption:=n8.Caption;