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.