www.pudn.com > 电话产品防伪伺服系统(tw8).rar > Uform_add_code2.pas

unit Uform_add_code2; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, Buttons, StdCtrls, ExtCtrls, DB, ADODB; 
 
type 
  Tform_add_code2 = class(TForm) 
    Panel1: TPanel; 
    Image1: TImage; 
    Bevel2: TBevel; 
    Bevel3: TBevel; 
    Image2: TImage; 
    Label1: TLabel; 
    Panel2: TPanel; 
    Panel3: TPanel; 
    Bevel1: TBevel; 
    SpeedButton1: TSpeedButton; 
    SpeedButton2: TSpeedButton; 
    Panel4: TPanel; 
    Bevel4: TBevel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    ListView2: TListView; 
    recordset_temp: TADOQuery; 
    Label5: TLabel; 
    procedure FormShow(Sender: TObject); 
    procedure SpeedButton2Click(Sender: TObject); 
    procedure SpeedButton1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    yesno:bool; 
    kind_code:integer; 
    s_code:integer; 
    e_code:integer; 
  end; 
 
var 
  form_add_code2: Tform_add_code2; 
 
implementation 
 
{$R *.dfm} 
 
procedure Tform_add_code2.FormShow(Sender: TObject); 
var 
   i:integer; 
   ListItem: TListItem; 
begin 
   yesno:=false; 
   listview2.Clear ; 
   recordset_temp.SQL.Clear; 
   recordset_temp.SQL.Add('select * from [CODE] where [CODE_KIND]=' + inttostr(kind_code) 
     + ' and [CODE_ONE]>=' + inttostr(s_code) + ' and [CODE_ONE]<=' 
     + inttostr(e_code) ); 
   recordset_temp.Open ; 
   label2.Caption :='您选择创建的号码总共有' + inttostr(e_code-s_code+1) + '个'; 
   label3.Caption :='其中有' +inttostr(recordset_temp.RecordCount )+'个号码已经在使用中'; 
   label5.Caption :='您一共可以创建' + inttostr(e_code-s_code+1 -recordset_temp.RecordCount )+'个有效的号码'; 
   for i:=1 to recordset_temp.RecordCount do 
   begin 
      listitem:=listview2.Items.Add ; 
      listitem.Caption :=inttostr(kind_code); 
      listitem.SubItems.Add(inttostr(recordset_temp.Fields[2].asinteger)); 
      listitem.SubItems.Add (recordset_temp.Fields [3].AsString ); 
      if recordset_temp.Fields[4].AsBoolean =true then 
      begin 
         listitem.SubItems.Add('是'); 
      end 
      else 
      begin 
         listitem.SubItems.Add('否'); 
      end; 
      recordset_temp.Next ; 
   end; 
   recordset_temp.Close ;  
end; 
 
procedure Tform_add_code2.SpeedButton2Click(Sender: TObject); 
begin 
   close; 
end; 
 
procedure Tform_add_code2.SpeedButton1Click(Sender: TObject); 
begin 
   yesno:=true; 
   close; 
end; 
 
end.