add_pencode_unit.~pas

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

unit add_pencode_unit;

interface

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

type
  Tadd_pencodeform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    list_code: TListView;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Bevel2: TBevel;
    GroupBox1: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    list_pen: TListView;
    Timer1: TTimer;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  add_pencodeform: Tadd_pencodeform;

implementation

uses dm_pen_unit, add_pen_unit;

{$R *.DFM}

procedure Tadd_pencodeform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (not (key in ['0'..'9']))  and (not (key in ['a'..'f']))and (not (key in ['A'..'F'])) then
     begin
     key:=#0;
     exit;
     end;
  if (key in ['a'..'f']) then
     begin
    key:=chr(ord(key)-32);
     end;
end;

procedure Tadd_pencodeform.FormShow(Sender: TObject);
var list:tlistitem;
begin
self.Height:=290;
self.Width:=349;
with dm_penform.q_pen do
   begin
   close;
   sql.Clear ;
   sql.Add('select code ,name from worker ');
   open;
   while not eof do
     begin
     list:=list_code.Items.Add;
     list.Caption:=fieldbyname('code').asstring;
     list.SubItems.add(fieldbyname('name').asstring);
     next;
     end;
   end;
end;

procedure Tadd_pencodeform.SpeedButton2Click(Sender: TObject);
begin
if list_pen.Items.Count>0 then
   begin
    if application.MessageBox(pchar('确实要放弃操作，并关闭窗口吗？'),'提示',36)<>6 then
       exit;
   end;
self.Close ;
end;

procedure Tadd_pencodeform.SpeedButton3Click(Sender: TObject);
var list:tlistitem;
i:integer;
begin
if length(edit1.text)<>2 then
   begin
   showmessage('请输入2位棒号！');
   exit;
   end;
if list_code.SelCount=0 then
   begin
   showmessage('请选择钮号！');
   exit;
   end;
if  edit1.Text='' then
   begin
   showmessage('请输入棒号！');
   exit;
   end;
  with dm_penform.q_pen do
     begin
     close;
     sql.clear;
     sql.add('select * from pen');
     open;
    if Locate('pencode',edit1.text,[loCaseInsensitive]) then
       begin
       showmessage('已经存在相同的笔号！');
       exit;
       end;
     end;
  for i:=0 to list_pen.Items.Count-1 do
     begin
     if edit1.Text=list_pen.Items[i].Caption then
        begin
        showmessage('已经存在相同的笔号！');
        exit;
        end;
     end;
  list:=list_pen.Items.Add;
  list.Caption:=edit1.Text ;
  list.SubItems.Add(list_code.selected.caption);
  edit1.Text:='';
  edit1.SetFocus ;
end;

procedure Tadd_pencodeform.SpeedButton4Click(Sender: TObject);
begin
if list_pen.SelCount=0 then
  begin
  showmessage('请选择笔号！');
  exit;
  end;
list_pen.Selected.Delete ;
end;

procedure Tadd_pencodeform.SpeedButton1Click(Sender: TObject);
var i:integer;
list:tlistitem;
begin
try
with dm_penform.q_pen do
  begin
  close;
  sql.clear;
  sql.add('select * from pen') ;
  open;
  for i:=0 to list_pen.Items.Count-1 do
     begin
     append;
     edit;
     fieldbyname('pencode').asstring:=list_pen.Items[i].Caption ;
     fieldbyname('workercode').asstring:=list_pen.Items[i].SubItems.Strings[0];
     end;
  post;
  end;
list_pen.Items.Clear ;
except
showmessage('数据保存出错！');
exit;
end;
with dm_penform.q_pen do
   begin
   close;
   open;
   add_penform.list_pen.Items.Clear ;
   while not eof do
      begin
      list:=add_penform.list_pen.Items.Add;
      list.Caption:=fieldbyname('pencode').asstring;
      list.SubItems.Add(fieldbyname('workercode').asstring);
      next;
      end;
   end;
self.Close;
end;

procedure Tadd_pencodeform.Timer1Timer(Sender: TObject);
begin
if list_pen.Items.Count>0 then
   begin
   SpeedButton1.Enabled:=true;
   SpeedButton4.Enabled:=true;
   end
   else
   begin
   SpeedButton1.Enabled:=false;
   SpeedButton4.enabled:=false;
   end;
end;
end.