unit1.pas

a small application in Mysql and Delphi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DBXpress, FMTBcd, DB, SqlExpr, ComCtrls, StdCtrls,
  Buttons, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Quitter1: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    suivant1: TBitBtn;
    precedant1: TBitBtn;
    premier1: TBitBtn;
    dernier1: TBitBtn;
    suivant2: TBitBtn;
    suivant3: TBitBtn;
    suivant4: TBitBtn;
    suivant5: TBitBtn;
    suivant6: TBitBtn;
    suivant7: TBitBtn;
    suivant8: TBitBtn;
    precedant2: TBitBtn;
    precedant3: TBitBtn;
    precedant4: TBitBtn;
    precedant5: TBitBtn;
    precedant6: TBitBtn;
    precedant7: TBitBtn;
    precedant8: TBitBtn;
    premier2: TBitBtn;
    premier3: TBitBtn;
    premier4: TBitBtn;
    premier5: TBitBtn;
    premier6: TBitBtn;
    premier7: TBitBtn;
    premier8: TBitBtn;
    dernier2: TBitBtn;
    dernier3: TBitBtn;
    dernier4: TBitBtn;
    dernier5: TBitBtn;
    dernier6: TBitBtn;
    dernier7: TBitBtn;
    dernier8: TBitBtn;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    Table5: TTable;
    Table6: TTable;
    Table7: TTable;
    Table8: TTable;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn26: TBitBtn;
    BitBtn27: TBitBtn;
    BitBtn28: TBitBtn;
    BitBtn29: TBitBtn;
    BitBtn30: TBitBtn;
    BitBtn31: TBitBtn;
    BitBtn32: TBitBtn;
    BitBtn33: TBitBtn;
    GroupBox2: TGroupBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn11: TBitBtn;
    GroupBox6: TGroupBox;
    BitBtn12: TBitBtn;
    BitBtn34: TBitBtn;
    BitBtn35: TBitBtn;
    GroupBox5: TGroupBox;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn36: TBitBtn;
    GroupBox3: TGroupBox;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn37: TBitBtn;
    GroupBox7: TGroupBox;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn38: TBitBtn;
    GroupBox4: TGroupBox;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn39: TBitBtn;
    GroupBox8: TGroupBox;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn40: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Edit25: TEdit;
    Label25: TLabel;
    Edit26: TEdit;
    Label26: TLabel;
    Edit27: TEdit;
    Label27: TLabel;
    Edit28: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    BitBtn41: TBitBtn;
    ComboBox1: TComboBox;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    BitBtn42: TBitBtn;
    BitBtn43: TBitBtn;
    BitBtn44: TBitBtn;
    BitBtn45: TBitBtn;
    BitBtn46: TBitBtn;
    BitBtn47: TBitBtn;
    BitBtn48: TBitBtn;
    Label37: TLabel;
    Edit29: TEdit;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    Edit35: TEdit;
    Edit36: TEdit;
    Apropos1: TMenuItem;
    procedure Quitter1Click(Sender: TObject);
    procedure suivant1Click(Sender: TObject);
    procedure suivant2Click(Sender: TObject);
    procedure suivant3Click(Sender: TObject);
    procedure suivant4Click(Sender: TObject);
    procedure suivant5Click(Sender: TObject);
    procedure suivant6Click(Sender: TObject);
    procedure suivant7Click(Sender: TObject);
    procedure suivant8Click(Sender: TObject);
    procedure precedant1Click(Sender: TObject);
    procedure precedant2Click(Sender: TObject);
    procedure precedant3Click(Sender: TObject);
    procedure precedant4Click(Sender: TObject);
    procedure precedant5Click(Sender: TObject);
    procedure precedant6Click(Sender: TObject);
    procedure precedant7Click(Sender: TObject);
    procedure precedant8Click(Sender: TObject);
    procedure premier1Click(Sender: TObject);
    procedure premier2Click(Sender: TObject);
    procedure premier3Click(Sender: TObject);
    procedure premier4Click(Sender: TObject);
    procedure premier5Click(Sender: TObject);
    procedure premier6Click(Sender: TObject);
    procedure premier7Click(Sender: TObject);
    procedure premier8Click(Sender: TObject);
    procedure dernier1Click(Sender: TObject);
    procedure dernier2Click(Sender: TObject);
    procedure dernier3Click(Sender: TObject);
    procedure dernier4Click(Sender: TObject);
    procedure dernier5Click(Sender: TObject);
    procedure dernier6Click(Sender: TObject);
    procedure dernier7Click(Sender: TObject);
    procedure dernier8Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure BitBtn27Click(Sender: TObject);
    procedure BitBtn28Click(Sender: TObject);
    procedure BitBtn29Click(Sender: TObject);
    procedure BitBtn30Click(Sender: TObject);
    procedure BitBtn31Click(Sender: TObject);
    procedure BitBtn32Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
    procedure BitBtn33Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn35Click(Sender: TObject);
    procedure BitBtn36Click(Sender: TObject);
    procedure BitBtn37Click(Sender: TObject);
    procedure BitBtn38Click(Sender: TObject);
    procedure BitBtn39Click(Sender: TObject);
    procedure BitBtn40Click(Sender: TObject);
    procedure BitBtn41Click(Sender: TObject);
    procedure BitBtn42Click(Sender: TObject);
    procedure BitBtn43Click(Sender: TObject);
    procedure BitBtn44Click(Sender: TObject);
    procedure BitBtn45Click(Sender: TObject);
    procedure BitBtn46Click(Sender: TObject);
    procedure BitBtn47Click(Sender: TObject);
    procedure BitBtn48Click(Sender: TObject);
    procedure Apropos1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Quitter1Click(Sender: TObject);
begin
if messagedlg('Etes vous s鹯 de vouloir quiter l"application ?',mtconfirmation,[mbyes,mbno],0)=mryes then  close;
end;

procedure TForm1.suivant1Click(Sender: TObject);
begin
table1.Next;
end;

procedure TForm1.suivant2Click(Sender: TObject);
begin
table2.Next;
end;

procedure TForm1.suivant3Click(Sender: TObject);
begin
table3.Next;
end;

procedure TForm1.suivant4Click(Sender: TObject);
begin
table4.Next;
end;

procedure TForm1.suivant5Click(Sender: TObject);
begin
table5.Next;
end;

procedure TForm1.suivant6Click(Sender: TObject);
begin
table6.Next;
end;

procedure TForm1.suivant7Click(Sender: TObject);
begin
table7.Next;
end;

procedure TForm1.suivant8Click(Sender: TObject);
begin
table8.Next;
end;

procedure TForm1.precedant1Click(Sender: TObject);
begin
table1.Prior;
end;

procedure TForm1.precedant2Click(Sender: TObject);
begin
table2.Prior;
end;

procedure TForm1.precedant3Click(Sender: TObject);
begin
table3.Prior;
end;

procedure TForm1.precedant4Click(Sender: TObject);
begin
table4.Prior;
end;

procedure TForm1.precedant5Click(Sender: TObject);
begin
table5.Prior;
end;

procedure TForm1.precedant6Click(Sender: TObject);
begin
table6.Prior;
end;

procedure TForm1.precedant7Click(Sender: TObject);
begin
table7.Prior;
end;

procedure TForm1.precedant8Click(Sender: TObject);
begin
table8.Prior;
end;

procedure TForm1.premier1Click(Sender: TObject);
begin
table1.First;
end;

procedure TForm1.premier2Click(Sender: TObject);
begin
table2.First;
end;

procedure TForm1.premier3Click(Sender: TObject);
begin
table3.First;
end;

procedure TForm1.premier4Click(Sender: TObject);
begin
table4.First;
end;

procedure TForm1.premier5Click(Sender: TObject);
begin
table5.First;
end;

procedure TForm1.premier6Click(Sender: TObject);
begin
table6.First;
end;

procedure TForm1.premier7Click(Sender: TObject);
begin
table7.First;
end;

procedure TForm1.premier8Click(Sender: TObject);
begin
table8.First;
end;

procedure TForm1.dernier1Click(Sender: TObject);
begin
table1.Last;
end;

procedure TForm1.dernier2Click(Sender: TObject);
begin
table2.Last;
end;

procedure TForm1.dernier3Click(Sender: TObject);
begin
table3.Last;
end;

procedure TForm1.dernier4Click(Sender: TObject);