u_set_jjr.pas

企业安防管理系统

unit U_Set_JJR;
interface

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

type
  TFrm_Set_JJR = class(TForm)
    Panel1: TPanel;
    Lvw_lb: TListView;
    Label1: TLabel;
    DTP: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    Sp_SC: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Lvw_lbSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure Sp_SCClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Set_JJR: TFrm_Set_JJR;

implementation

uses Datamodal;

{$R *.dfm}

procedure TFrm_Set_JJR.FormShow(Sender: TObject);
var
   A,B,C:String;
begin
   lvw_lb.Items.Clear;
   data.G_Con.Open();
   data.G_Rst.SQL.Clear;
   data.G_Rst.SQL.Add('select * from SP_jjb order by name_id');
   data.G_Rst.ExecSQL;
   data.G_Rst.Open;
   while not data.G_Rst.Eof do
      begin
        A:=Data.G_Rst.FieldValues['name'];
        B:=data.G_Rst.FieldValues['name_id'];
         with lvw_lb.Items.Add do
            begin
             caption:=A;
             subitems.Add(b);
            end;
        data.G_Rst.Next;
      end;
      data.G_Rst.Close;
      data.G_Con.Close;
end;

procedure TFrm_Set_JJR.SpeedButton1Click(Sender: TObject);

begin
   data.G_Con.Open();
   data.G_Rst.SQL.Clear;
   data.G_Rst.SQL.Add('insert into sp_jjb(name) values('+quotedstr(datetostr(dtp.Date))+')');
   data.G_Rst.ExecSQL;
   data.G_Con.Close;
   FormShow(Sender);
end;

procedure TFrm_Set_JJR.Lvw_lbSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if selected then
     sp_sc.Enabled:=true;
end;

procedure TFrm_Set_JJR.Sp_SCClick(Sender: TObject);
begin
  data.G_Con.Open();
   data.G_Rst.SQL.Clear;
   data.G_Rst.SQL.Add('delete sp_jjb where name_id='+lvw_lb.Selected.SubItems[0]);
   data.G_Rst.ExecSQL;
   data.G_Con.Close;
   FormShow(Sender);
 sp_sc.Enabled:=false;
end;

procedure TFrm_Set_JJR.SpeedButton2Click(Sender: TObject);
begin
data.G_Con.Open();
   data.G_Rst.SQL.Clear;
   data.G_Rst.SQL.Add('delete sp_jjb');
   data.G_Rst.ExecSQL;
   data.G_Con.Close;
   FormShow(Sender);
end;

procedure TFrm_Set_JJR.SpeedButton3Click(Sender: TObject);
begin
  close;
end;

end.