boms.pas

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

unit BOMs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ComCtrls, ToolWin, Grids, Buttons,inifiles,
  DB, DBClient, ADODB, ExtCtrls,StrUtils,ComObj,
  Menus, DBGrids, DBTables, Mask, wwdbedit, Wwdotdot;

type
  TBOM = class(TForm)
    ToolBar1: TToolBar;
    TBtoexcel: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ImageList1: TImageList;
    TBclose: TToolButton;
    ToolButton16: TToolButton;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    StxtName: TStaticText;
    ADOQuery1: TADOQuery;
    Animate1: TAnimate;
    cdstmp: TClientDataSet;
    cdstmpLC: TIntegerField;
    cdstmpMD010: TStringField;
    cdstmpMD003: TStringField;
    cdstmpMB002: TStringField;
    cdstmpMB003: TStringField;
    cdstmpMD005: TStringField;
    cdstmpMD006: TFloatField;
    cdstmpSUMQTY: TFloatField;
    cdstmpMD007: TFloatField;
    cdstmpSUMDS: TFloatField;
    cdstmpMB046: TCurrencyField;
    cdstmpMB050: TCurrencyField;
    cdstmpSUMPRICE: TCurrencyField;
    cdstmpMAXPRICE: TCurrencyField;
    cdstmpMINPRICE: TCurrencyField;
    cdstmpMD015: TStringField;
    cdstmpTline: TIntegerField;
    cdstmpTEAM: TIntegerField;
    StxtSPEC: TStaticText;
    StxtUnit: TStaticText;
    CmbClass: TComboBox;
    cdstmpSUMPRICE2: TCurrencyField;
    cdstmpSONSUMPRICE: TCurrencyField;
    MainMenu1: TMainMenu;
    numOutput: TMenuItem;
    numClose: TMenuItem;
    LblLang: TLabel;
    LblPartno: TLabel;
    LblName: TLabel;
    cdstmpMODIREN: TStringField;
    cdstmpSURETIME: TStringField;
    cdstmpleadertime: TFloatField;
    LblCountName: TLabel;
    LblCount: TLabel;
    stxtLeadertime: TStaticText;
    GbStocks: TGroupBox;
    List1: TListBox;
    List2: TListBox;
    BtnCount: TBitBtn;
    BtnRight: TBitBtn;
    BtnLeft: TBitBtn;
    ADOConnRead: TADOConnection;
    LblCompany: TLabel;
    StxtModiRen: TStaticText;
    cdstmppercent: TIntegerField;
    LblCurrency: TLabel;
    LblCurr: TLabel;
    cdstmpminorder: TFloatField;
    cdstmppack: TFloatField;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    ADOStoredProc1: TADOStoredProc;
    ADOTable1: TADOTable;
    Table1: TTable;
    CDS1: TClientDataSet;
    CDS1line: TIntegerField;
    CDS1tlevel: TIntegerField;
    CDS1item: TStringField;
    CDS1name: TStringField;
    CDS1spec: TStringField;
    CDS1unit: TStringField;
    CDS1mp: TStringField;
    CDS1useqty: TFloatField;
    CDS1team1: TIntegerField;
    CDS1team2: TIntegerField;
    CDS1remark: TStringField;
    CDS1modidate: TStringField;
    CDS1begindate: TStringField;
    CDS1percent1: TStringField;
    CDS1leadtime: TFloatField;
    CDS1minorder: TFloatField;
    CDS1pack: TFloatField;
    CDS1lf: TStringField;
    CDS1stocks: TFloatField;
    CDS1price: TStringField;
    CDS1cost: TStringField;
    CDS1lowsumcost: TStringField;
    CDS1highsumcost: TStringField;
    CDS1lowcost: TStringField;
    CDS1highcost: TStringField;
    ADOQuery2: TADOQuery;
    CDS2IntegerField5: TIntegerField;
    CDS2IntegerField6: TIntegerField;
    CDS2StringField19: TStringField;
    CDS2StringField20: TStringField;
    CDS2StringField21: TStringField;
    CDS2StringField22: TStringField;
    CDS2StringField23: TStringField;
    CDS2FloatField2: TFloatField;
    CDS2IntegerField7: TIntegerField;
    CDS2IntegerField8: TIntegerField;
    CDS2StringField24: TStringField;
    CDS2StringField25: TStringField;
    CDS2StringField26: TStringField;
    CDS2StringField27: TStringField;
    CDS2FloatField3: TFloatField;
    CDS2FloatField4: TFloatField;
    CDS2FloatField5: TFloatField;
    CDS2StringField28: TStringField;
    CDS2FloatField6: TFloatField;
    CDS2StringField29: TStringField;
    CDS2StringField30: TStringField;
    CDS2StringField31: TStringField;
    CDS2StringField32: TStringField;
    CDS2StringField33: TStringField;
    CDS2StringField34: TStringField;
    CDS2: TClientDataSet;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    CDS1mark: TStringField;
    CDS2mark: TStringField;
    CDS1unit2: TStringField;
    CDS2unit2: TStringField;
    PBar1: TProgressBar;
    wwDBComboDlg1: TwwDBComboDlg;
    CDS1mp2: TStringField;
    LblVer: TLabel;
    LblVer2: TLabel;
    CDS1weight: TFloatField;
    CDS2weight: TFloatField;
    CDS1security: TStringField;
    CDS2security: TStringField;
    CDS1fzqty: TFloatField;
    CDS1ds: TIntegerField;
    procedure TBfirstClick(Sender: TObject);
    procedure TBprevClick(Sender: TObject);
    procedure TBnextClick(Sender: TObject);
    procedure TBlastClick(Sender: TObject);
    procedure TBokClick(Sender: TObject);
    procedure TBcloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CmbClassChange(Sender: TObject);
    procedure CmbClassClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EdtMaterysnKeyPress(Sender: TObject; var Key: Char);
    procedure numCloseClick(Sender: TObject);
    procedure numPrintClick(Sender: TObject);
    procedure numPrintViewClick(Sender: TObject);
    procedure BtnRightClick(Sender: TObject);
    procedure BtnLeftClick(Sender: TObject);
    procedure List1DblClick(Sender: TObject);
    procedure List2DblClick(Sender: TObject);
    procedure BtnCountClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure TBtoexcelClick(Sender: TObject);
    procedure numOutputClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormShow(Sender: TObject);
    procedure wwDBComboDlg1CustomDlg(Sender: TObject);
    procedure wwDBComboDlg1Change(Sender: TObject);
    
  private
     bCount:boolean;
     iRows:integer;
     strReplaced,strSubstifuted,strconnection,strconnectionver,strcurrency,tmpsql:string;
     Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
     procedure Display_List1();
     procedure Display_CmbClass;
     procedure Set_Lang;
     procedure ToExcel;
     procedure ADDCDS2;
     procedure ToExcel2;
     procedure ADS2ADDNOALL(team:integer);
     procedure ADS2ADDALL(team:integer);
     procedure ADS2ADDLOW(team:integer);
     procedure ADS2ADDHIGH(team:integer);
  public

  end;
Type
  TMyItem = record
    TEAM:integer;
    CLASSNO:integer;
end;
var
  BOM: TBOM;

implementation
uses
  BOMLISTs, dlgToExcels;
{$R *.dfm}
procedure TBOM.Display_List1();
var
  i,n:integer;
  rsq:TADOQuery;
begin
  list1.Items.Clear ;
  rsq:=TADOQuery.Create(self);
  try
    //セ