ord140_03.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Ord140_03;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, Menus, StdCtrls, Buttons, ActnList, DB, ADODB;

type
  TOrd140_03Form = class(TBas100_01Form)
    gbSpec: TGroupBox;
    gbSum: TGroupBox;
    lbSpec: TListBox;
    lbSum: TListBox;
    sbFirst1: TSpeedButton;
    sbPrior1: TSpeedButton;
    sbNext1: TSpeedButton;
    sbLast1: TSpeedButton;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    ActionList1: TActionList;
    ActFirst1: TAction;
    ActPrior1: TAction;
    ActNext1: TAction;
    ActLast1: TAction;
    ActFirst2: TAction;
    ActPrior2: TAction;
    ActNext2: TAction;
    ActLast2: TAction;
    sbFirst2: TSpeedButton;
    sbPrior2: TSpeedButton;
    sbNext2: TSpeedButton;
    sbLast2: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure ActFirst1Execute(Sender: TObject);
    procedure ActPrior1Execute(Sender: TObject);
    procedure ActNext1Execute(Sender: TObject);
    procedure ActLast1Execute(Sender: TObject);
    procedure ActFirst2Execute(Sender: TObject);
    procedure ActPrior2Execute(Sender: TObject);
    procedure ActNext2Execute(Sender: TObject);
    procedure ActLast2Execute(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ord140_03Form: TOrd140_03Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TOrd140_03Form.SetInterface;
begin
  Caption:=GetDBString('ORD14003001');  //设置
  gbSpec.Caption:=GetDBString('ORD14003002');  //特价折扣
  gbSum.Caption:=GetDBString('ORD14003003');  //总额折扣
  bbtnOk.Caption:=GetDBString('ORD14003004');  //确定(&O)
  bbtnExit.Caption:=GetDBString('ORD14003005');  //退出(&X)

  lbSpec.Clear;
  lbSum.Clear;
end;

procedure TOrd140_03Form.FormCreate(Sender: TObject);
var
  S:String;
begin
  inherited;
  SetInterface;
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    S:='['+ADOQuery1.FieldByName('O140A_002').AsString+']'+ADOQuery1.FieldByName('O140A_003').AsString;
    if not ADOQuery1.FieldByName('O140A_022').AsBoolean then
      lbSpec.Items.Add(S)
    else
      lbSum.Items.Add(S);
    ADOQuery1.Next;
  end;
end;

procedure TOrd140_03Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ADOQuery1.Close;
end;

procedure TOrd140_03Form.bbtnOkClick(Sender: TObject);
var
  I,J:Integer;
  S:String;
begin
  inherited;
//确定
  J:=0;
  for I:=0 to lbSpec.Count-1 do
  begin
    S:=lbSpec.Items.Strings[I];
    Delete(S,1,1);
    Delete(S,Length(S),1);
    J:=J+1;
    if ADOQuery1.Locate('O140A_002',S,[]) then
    begin
      ADOQuery1.Edit;
      ADOQuery1.FieldByName('O140A_009').Value:=J;
      ADOQuery1.Post;
    end;
  end;
  for I:=0 to lbSum.Count-1 do
  begin
    S:=lbSum.Items.Strings[I];
    Delete(S,1,1);
    Delete(S,Length(S),1);
    J:=J+1;
    if ADOQuery1.Locate('O140A_002',S,[]) then
    begin
      ADOQuery1.Edit;
      ADOQuery1.FieldByName('O140A_009').Value:=J;
      ADOQuery1.Post;
    end;
  end;
  ShowMsg('UMS10000593');  //特价折扣取值顺序设置成功
  ModalResult:=1;
end;

procedure TOrd140_03Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//退出
  Close;
end;

procedure TOrd140_03Form.ActFirst1Execute(Sender: TObject);
begin
  inherited;
//最前
  if lbSpec.Count=0 then Exit;
  lbSpec.Items.Move(lbSpec.ItemIndex,0);
end;

procedure TOrd140_03Form.ActPrior1Execute(Sender: TObject);
begin
  inherited;
//上移
  if lbSpec.Count=0 then Exit;
  if lbSpec.ItemIndex=0 then Exit;
  lbSpec.Items.Move(lbSpec.ItemIndex,lbSpec.ItemIndex-1);
end;

procedure TOrd140_03Form.ActNext1Execute(Sender: TObject);
begin
  inherited;
//下移
  if lbSpec.Count=0 then Exit;
  if lbSpec.ItemIndex=lbSpec.Count-1 then Exit;
  lbSpec.Items.Move(lbSpec.ItemIndex,lbSpec.ItemIndex+1);
end;

procedure TOrd140_03Form.ActLast1Execute(Sender: TObject);
begin
  inherited;
//最后
  if lbSpec.Count=0 then Exit;
  lbSpec.Items.Move(lbSpec.ItemIndex,lbSpec.Count-1);
end;

procedure TOrd140_03Form.ActFirst2Execute(Sender: TObject);
begin
  inherited;
//最前
  if lbSum.Count=0 then Exit;
  lbSum.Items.Move(lbSum.ItemIndex,0);
end;

procedure TOrd140_03Form.ActPrior2Execute(Sender: TObject);
begin
  inherited;
//上移
  if lbSum.Count=0 then Exit;
  if lbSum.ItemIndex=0 then Exit;
  lbSum.Items.Move(lbSum.ItemIndex,lbSum.ItemIndex-1);
end;

procedure TOrd140_03Form.ActNext2Execute(Sender: TObject);
begin
  inherited;
//下移
  if lbSum.Count=0 then Exit;
  if lbSum.ItemIndex=lbSum.Count-1 then Exit;
  lbSum.Items.Move(lbSum.ItemIndex,lbSum.ItemIndex+1);
end;

procedure TOrd140_03Form.ActLast2Execute(Sender: TObject);
begin
  inherited;
//最后
  if lbSum.Count=0 then Exit;
  lbSum.Items.Move(lbSum.ItemIndex,lbSum.Count-1);
end;

end.