add_pen_unit.~pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit add_pen_unit;

interface

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

type
  Tadd_penform = class(TForm)
    Panel1: TPanel;
    list_pen: TListView;
    Label1: TLabel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Bevel2: TBevel;
    SpeedButton4: TSpeedButton;
    Bevel3: TBevel;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
    FThrdCount:integer;
    imgenable:boolean;
  public
    { Public declarations }
  end;

var
  add_penform: Tadd_penform;

implementation

uses menu, add_pencode_unit, dm_pen_unit, edit_pen_unit;

{$R *.DFM}

procedure Tadd_penform.FormShow(Sender: TObject);
var list:tlistitem;
begin
self.Height:=306;
self.Width:=283;
if not assigned(DM_penform) then
  Application.CreateForm(TDM_penform, dm_penform);
with dm_penform.q_pen do
   begin
   close;
   sql.Clear ;
   sql.add('select * from pen');
   open;
   while not eof do
      begin
      list:=list_pen.Items.Add;
      list.Caption:=fieldbyname('pencode').asstring;
      list.SubItems.Add(fieldbyname('workercode').asstring);
      next;
      end;
   end;
end;

procedure Tadd_penform.SpeedButton1Click(Sender: TObject);
begin
add_pencodeform:=tadd_pencodeform.Create(self);
add_pencodeform.ShowModal ;
add_pencodeform.free;
end;

procedure Tadd_penform.SpeedButton4Click(Sender: TObject);
begin
self.Close ;
end;

procedure Tadd_penform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm_penform.Free;
dm_penform:=nil;
end;

procedure Tadd_penform.SpeedButton3Click(Sender: TObject);
begin
if list_pen.SelCount=0 then
  begin
  Application.MessageBox('请选择笔号！','消息',MB_ICONINFORMATION);
  exit;
  end;
with dm_penform.q_pen do
   begin
   close;
   sql.Clear ;
   sql.add('delete from pen where pencode='''+list_pen.Selected.Caption+'''');
   execsql;
   end;
list_pen.Selected.Delete ;
end;

end.