uhtlb.pas

工廠倉庫管理系統

unit uhtlb;

interface

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

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

var
  frmhtlb: Tfrmhtlb;

implementation
uses uconst,ufunction,udm1;
{$R *.dfm}

procedure Tfrmhtlb.FormCreate(Sender: TObject);
begin
listbox1.Items.Clear;
adoquery1.Connection:=dm1.ADOConnection1;
strsql:='select gcdh from ddk where gdhm='+''''+strhthm+''''+' order by gcdh 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('gcdh').AsString));
           adoquery1.Next;
           end;
   end;
adoquery1.Close;
end;
procedure Tfrmhtlb.RzBitBtn1Click(Sender: TObject);
begin

if b then
   begin
   showmessage('没有选择工程单！');
   exit;
   end;
j:=listbox1.ItemIndex+1;
strsql:='select * from cgwl_mail where gdhm like'+''''+'%'+trim(listbox1.Items[j-1])+
        '%'+'''';
adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.BOF) then
   begin
   showmessage('该工程单号已经生成物料需求,不能重复生成需求');
   exit;
   end;
adoquery1.Close;
listbox2.Items.Add(listbox1.Items[j-1]);
listbox1.items.Delete(j-1);
end;

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

procedure Tfrmhtlb.RzBitBtn3Click(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 Tfrmhtlb.RzBitBtn2Click(Sender: TObject);
begin
if not b  then
   begin
   showmessage('没有选择工单！');
   exit;
   end;
j:=listbox2.ItemIndex+1;
listbox1.Items.Add(listbox2.Items[j-1]);
listbox2.items.Delete(j-1);
end;

procedure Tfrmhtlb.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 Tfrmhtlb.ListBox2Click(Sender: TObject);
begin
j:=listbox2.ItemIndex;
end;

procedure Tfrmhtlb.RzBitBtn5Click(Sender: TObject);
var
k:integer;
begin
gcdh:='';
for k:=0 to listbox2.Items.Count-1 do
    begin
    if gcdh<>'' then strhthm:=gcdh+',' ;
    gcdh:=gcdh+listbox2.items[k];
    end;
close;
end;

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

procedure Tfrmhtlb.ListBox1Enter(Sender: TObject);
begin
b:=false;
end;

procedure Tfrmhtlb.ListBox2Enter(Sender: TObject);
begin
b:=true;
end;

end.