ufpwlqr.pas

工廠倉庫管理系統

unit ufpwlqr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, ComCtrls, RzDTP, DB, ADODB;

type
  Tfrmfpwlqr = class(TForm)
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    ADOQuery1: TADOQuery;
    procedure csh();
    procedure dtp1Change(Sender: TObject);
    procedure dtp2Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure ListBox1Enter(Sender: TObject);
    procedure ListBox2Enter(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    j:integer;
    b:boolean;                      //用来区别当前焦点所在位置,listbox1时为false,listbox2时为true
  public
    { Public declarations }
  end;

var
  frmfpwlqr: Tfrmfpwlqr;

implementation
uses uconst,ufunction;
{$R *.dfm}
procedure tfrmfpwlqr.csh();
begin
listbox1.Items.Clear;
strsql:='select distinct gdhm from ddk where ycgd=1 and yfpwl<>1'+
        ' and ldrq>='+''''+datetostr(dtp1.Date)+''''+' and ldrq<='+
        ''''+datetostr(dtp2.Date)+''''+' order by gdhm asc';
adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.bof) then
   begin
   adoquery1.First;
   while not adoquery1.Eof do
         begin
         listbox1.Items.Add(trim(adoquery1.fieldbyname('gdhm').asstring));
         adoquery1.Next;
         end;
   end;
end;
procedure Tfrmfpwlqr.dtp1Change(Sender: TObject);
begin
csh;
end;

procedure Tfrmfpwlqr.dtp2Change(Sender: TObject);
begin
csh;
end;

procedure Tfrmfpwlqr.RzBitBtn1Click(Sender: TObject);
begin
j:=listbox1.ItemIndex+1;
if b  then
   begin
   listbox2.Items.Add(listbox1.Items[j-1]);
   listbox1.Items.Delete(j-1);
   end;
end;

procedure Tfrmfpwlqr.ListBox1Enter(Sender: TObject);
begin
b:=true;
end;

procedure Tfrmfpwlqr.ListBox2Enter(Sender: TObject);
begin
b:=false;
end;

procedure Tfrmfpwlqr.ListBox1Click(Sender: TObject);
begin
j:=listbox1.ItemIndex+1;
end;

procedure Tfrmfpwlqr.ListBox2Click(Sender: TObject);
begin
j:=listbox1.ItemIndex+1;
end;

procedure Tfrmfpwlqr.RzBitBtn3Click(Sender: TObject);
begin
j:=listbox2.ItemIndex+1;
if not b  then
   begin
   listbox1.Items.Add(listbox2.Items[j-1]);
   listbox2.Items.Delete(j-1);
   end;
end;

procedure Tfrmfpwlqr.RzBitBtn2Click(Sender: TObject);
var
k:integer;
begin
for k:=0 to listbox1.Items.Count-1 do
    begin
    listbox2.Items.Add(listbox1.Items[k]);
    listbox1.Items.Delete(k);
    end;
end;

procedure Tfrmfpwlqr.RzBitBtn4Click(Sender: TObject);
var
k:integer;
begin
for k:=0 to listbox2.Items.Count-1 do
    begin
    listbox1.Items.Add(listbox2.Items[k]);
    listbox2.Items.Delete(k);
    end;
end;

procedure Tfrmfpwlqr.RzBitBtn5Click(Sender: TObject);
var
k:integer;
begin
for k:=0 to listbox2.Items.Count-1 do
    begin
    strsql:='update ddk set yfpwl=1 where gdhm='+''''+trim(listbox2.Items[k])+'''';
    adodel(adoquery1,strsql);
    end;
close;
end;

procedure Tfrmfpwlqr.RzBitBtn6Click(Sender: TObject);
begin
close;
end;

procedure Tfrmfpwlqr.FormCreate(Sender: TObject);
begin
dtp1.Date:=date;
dtp2.Date:=date+30;
csh;
end;

end.