bomlists.pas

计算产品成本 计算出最低成本和最高成本（持鼎新的ERP）

unit BOMLISTs;

interface

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

type
  TBOMLIST = class(TForm)
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Edit1: TEdit;
    BtnOK: TButton;
    BtnTrans: TButton;
    CmbClass: TComboBox;
    ADOQuery1: TADOQuery;
    EdtLang: TEdit;
    procedure BtnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnTransClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure EdtLangChange(Sender: TObject);
  private
    procedure Set_Lang;
    procedure Display_CmbClass;

  public
    strconnection:string;
  end;

var
  BOMLIST: TBOMLIST;

implementation
uses
   BOMs;
{$R *.dfm}

procedure TBOMLIST.BtnOKClick(Sender: TObject);
var
  i,n:integer;
  tstr:string;
  ListItem:TListItem;
begin
  //showmessage(strconnection);
  //adoconnread.Close ;
  //adoconnread.ConnectionString:=strconnection;
  //adoconnread.Open ;
  //showmessage('ok');
  listview1.Items.Clear ;
  if trim(edit1.Text )='' then
  begin
     messagedlg('not null!',mtinformation,[mbok],0);
     exit;
  end;
  IF cmbclass.ItemIndex=0 then  tstr:='where MB001 like '''+trim(edit1.Text)+'%''';
  IF cmbclass.ItemIndex=1 then  tstr:='where MB002 like '''+trim(edit1.Text)+'%''';
  IF cmbclass.ItemIndex=2 then  tstr:='where MB003 like '''+trim(edit1.Text)+'%''';
  IF cmbclass.ItemIndex=3 then  tstr:='where MB004 like '''+trim(edit1.Text)+'%''';


  adoquery1.Close ;
  adoquery1.ConnectionString:=strconnection;
  adoquery1.SQL.Clear ;
  adoquery1.SQL.Add('select MB001,MB002,MB003,MB004 from INVMB '+tstr+' order by MB001');
  adoquery1.Prepared ;
  adoquery1.Open ;
  n:=adoquery1.RecordCount;
  if n>0 then
  begin
     adoquery1.First;
     with listview1 do
     begin
       for i:=1 to n do
       begin
         listItem:=Items.Add ;
         listItem.Caption :=trim(adoquery1.fieldbyname('MB001').AsString);
         listitem.SubItems.Add(trim(adoquery1.fieldbyname('MB002').AsString));
         listitem.SubItems.Add(trim(adoquery1.fieldbyname('MB003').AsString));
         listitem.SubItems.Add(trim(adoquery1.fieldbyname('MB004').AsString));
         adoquery1.Next ;
       end;//for i:=1 to n do
     end;
  end;
end;
procedure TBOMLIST.Set_Lang;
begin
 if (trim(edtlang.Text)='CHT') OR (trim(edtlang.Text)='ZHH') THEN
 begin
    self.Caption :='珇腹琩т';
    btnok.Caption:='絋﹚';
    btntrans.Caption:='肚