www.pudn.com > 电话产品防伪伺服系统(tw8).rar > 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.