cible.pas

来自「Captor network, a small program for capt」· PAS 代码 · 共 137 行

unit cible;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls;

type
  Tciblef = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Edit1: TEdit;
    SpeedButton8: TSpeedButton;
    Panel4: TPanel;
    SpeedButton9: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  ciblef: Tciblef;

implementation

uses menu, os, listeci;

{$R *.DFM}

procedure Tciblef.SpeedButton1Click(Sender: TObject);
begin
menuf.cible.Insert;
end;

procedure Tciblef.SpeedButton2Click(Sender: TObject);
begin
case messagedlg('voulez vous supprimer?',mtconfirmation,[mbyes,mbno],0)of
 mryes:menuf.cible.delete;
 mrno:menuf.cible.Cancel;
end;

end;

procedure Tciblef.SpeedButton3Click(Sender: TObject);
begin
menuf.cible.edit;
end;

procedure Tciblef.SpeedButton5Click(Sender: TObject);
begin
menuf.cible.Post;
end;

procedure Tciblef.SpeedButton4Click(Sender: TObject);
begin
osf.caption:='Recherche';
osf.label1.caption:='Donn閑 votre code';
if osf.ShowModal=mrok then
begin
if not menuf.cible.findkey ([osf.edit1.text]) then messagedlg('capteur inixistant',mtinformation,[mbok],0);
end;
end;

procedure Tciblef.SpeedButton6Click(Sender: TObject);
begin
ciblef.close;
end;

procedure Tciblef.SpeedButton7Click(Sender: TObject);
var i:double;
begin
i:=0;
menuf.Cible.first;
while not menuf.Cible.Eof do
begin
i:=i+1;
menuf.Cible.next;
end;
edit1.text:=floattostr(i);
end;

procedure Tciblef.FormShow(Sender: TObject);
begin
ciblef.Edit1.clear;
end;

procedure Tciblef.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then dbedit2.setfocus;
end;

procedure Tciblef.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then dbedit3.setfocus;
end;

procedure Tciblef.SpeedButton8Click(Sender: TObject);
begin
menuf.cible.cancel;
end;

procedure Tciblef.SpeedButton9Click(Sender: TObject);
begin
listecif.QuickRep1.preview;
end;

end.