uform_edit_d1.pas

电话防伪系统

unit Uform_edit_d1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Spin, ExtCtrls;

type
  Tform_edit_d1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image2: TImage;
    Label1: TLabel;
    StaticText3: TStaticText;
    SpinEdit2: TSpinEdit;
    SpinEdit1: TSpinEdit;
    StaticText2: TStaticText;
    StaticText1: TStaticText;
    SpinEdit3: TSpinEdit;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Bevel4: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure CheckBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yesno:bool;
    k_code:integer;
    s_code:integer;
    e_code:integer;
    c_code:integer;
  end;

var
  form_edit_d1: Tform_edit_d1;

implementation

{$R *.dfm}

procedure Tform_edit_d1.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked =true then
    begin
      radiobutton1.Enabled :=true;
      radiobutton2.Enabled :=true;
    end
    else
    begin
      radiobutton1.Enabled :=false;
      radiobutton2.Enabled :=false;
    end;
end;

procedure Tform_edit_d1.FormShow(Sender: TObject);
begin
   yesno:=false;
end;

procedure Tform_edit_d1.BitBtn1Click(Sender: TObject);
begin
   if spinedit2.Value >=spinedit1.Value then
   begin
      yesno:=true;
      
      k_code:=spinedit3.Value ;

      s_code:=spinedit1.Value ;
      e_code:=spinedit2.Value ;
      if checkbox1.Checked =true then
      begin
         if radiobutton1.Checked =true then
         begin
            c_code:=1;
         end
         else
         begin
            c_code:=2;
         end;
      end
      else
      begin
         c_code:=0;
      end;
      close;
   end
   else
   begin
      showmessage('开始号比终止号还大');
      spinedit1.SetFocus;
   end;
end;
procedure Tform_edit_d1.BitBtn2Click(Sender: TObject);
begin
   close;
end;

end.