smssg_collect.pas

家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用統計,加上可調節的利潤設定,將其成本核算出來,同時將報價單作出來

unit SmsSg_Collect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base01, DB, DBTables, RxCalc, DBActns, ActnList, ImgList, Menus,
  ComCtrls, ToolWin, Grids, DBGridEh, ExtCtrls, StdCtrls, Mask, DBCtrls,
  DBxEdit, XPMenu, DBxMemo, jpeg, Buttons, ExtDlgs, ppPrnabl, ppClass,
  ppCtrls, ppDB, ppBands, ppCache, ppProd, ppReport, ppComm, ppRelatv,
  ppDBPipe, ppVar, ppStrtch, ppMemo, clipbrd, ktMBevel,math, ToolEdit,
  RXDBCtrl, lgmPanel,iecontroller, DBCtrlsEh, DBLookupEh, RxRichEd,
  DBRichEd, DBxCombo, MenBtn, RXSpin, DBGrids, ppSubRpt, CheckLst, ADODB;

type
  TFrmSmsSg_Collect = class(Tfmbase01)
    UpdateSQL1: TUpdateSQL;
    Label1: TLabel;
    Label2: TLabel;
    DBxEdit1: TDBxEdit;
    DBxEdit2: TDBxEdit;
    Label6: TLabel;
    Edit1: TEdit;
    v_mainfsgcode: TStringField;
    v_mainfsgname: TStringField;
    v_mainfsgename: TStringField;
    v_mainfflag: TStringField;
    v_mainfdate_s: TDateTimeField;
    v_mainfusrid_s: TStringField;
    v_mainfremark: TMemoField;
    v_mainfusrid_r: TStringField;
    v_mainfdate_r: TDateTimeField;
    v_mainfpict0: TStringField;
    v_mainfusrname_r: TStringField;
    v_mainfusrname_s: TStringField;
    DBxEdit3: TDBxEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBxEdit4: TDBxEdit;
    v_mainfsource: TStringField;
    Label5: TLabel;
    DBxMemo1: TDBxMemo;
    sppicsolid: TBitBtn;
    Image1: TImage;
    OpenPictureDialog: TOpenPictureDialog;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel5: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppDBText1: TppDBText;
    ppShape1: TppShape;
    v_rep: TQuery;
    ds_rep: TDataSource;
    ppImage1: TppImage;
    ppLabel9: TppLabel;
    ppDBText2: TppDBText;
    ppDBText4: TppDBText;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppLabel13: TppLabel;
    ppDBText7: TppDBText;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppShape2: TppShape;
    ppDBMemo1: TppDBMemo;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine1: TppLine;
    BitBtn1: TBitBtn;
    ktMultiBevel3: TktMultiBevel;
    v_repfsgcode: TStringField;
    v_repfsgname: TStringField;
    v_repfsgename: TStringField;
    v_repfsource: TStringField;
    v_repfflag: TStringField;
    v_repfdate_s: TDateTimeField;
    v_repfusrid_s: TStringField;
    v_repfremark: TMemoField;
    v_repfusrid_r: TStringField;
    v_repfdate_r: TDateTimeField;
    v_repfpict0: TStringField;
    v_repfusrname_r: TStringField;
    v_repfusrname_s: TStringField;
    v_mainftype: TStringField;
    ACT_IE: TAction;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    Panel1: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    Label50: TLabel;
    RxDBComboEdit2: TRxDBComboEdit;
    DBText1: TDBText;
    Label7: TLabel;
    v_mainftypname: TStringField;
    lgmPanel1: TlgmPanel;
    Label71: TLabel;
    Edit2: TEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Edit3: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    CheckBox1: TCheckBox;
    TabSheet1: TTabSheet;
    Panel4: TPanel;
    Image2: TImage;
    ktMultiBevel2: TktMultiBevel;
    Label10: TLabel;
    ktMultiBevel1: TktMultiBevel;
    Image3: TImage;
    Panel5: TPanel;
    ScrollBar: TScrollBar;
    pmain: TPanel;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    Label11: TLabel;
    DBxEdit5: TDBxEdit;
    Label12: TLabel;
    DBxEdit6: TDBxEdit;
    Label13: TLabel;
    DBxMemo2: TDBxMemo;
    ktMultiBevel4: TktMultiBevel;
    SavePictureDialog1: TSavePictureDialog;
    Query1: TQuery;
    Query1fsgcode: TStringField;
    Query1fsgname: TStringField;
    Query1fsgename: TStringField;
    Query1fsource: TStringField;
    Query1fflag: TStringField;
    Query1fdate_s: TDateTimeField;
    Query1fusrid_s: TStringField;
    Query1fremark: TMemoField;
    Query1fusrid_r: TStringField;
    Query1fdate_r: TDateTimeField;
    Query1fpict0: TStringField;
    Query1ftype: TStringField;
    Query1fdate1: TDateTimeField;
    Query1freason: TMemoField;
    Query1fper1: TStringField;
    Query1fpict1: TStringField;
    Query1fdate2: TDateTimeField;
    Query1fper2: TStringField;
    Query1fpict2: TStringField;
    Query1fdate3: TDateTimeField;
    Query1fper3: TStringField;
    Query1fpict3: TStringField;
    Query1fdate4: TDateTimeField;
    Query1fper4: TStringField;
    Query1fpict4: TStringField;
    Query1fpict_s1: TStringField;
    Query1fpict_s2: TStringField;
    Query1fpict_s3: TStringField;
    Query1fpict_s4: TStringField;
    ProgressBar1: TProgressBar;
    v_mainfnocheck: TMemoField;
    v_mainftype_fg: TStringField;
    Label14: TLabel;
    RxDBComboEdit1: TRxDBComboEdit;
    Notebook1: TNotebook;
    Splitter1: TSplitter;
    TreeView: TTreeView;
    TreeView1: TTreeView;
    Splitter2: TSplitter;
    act_fg: TAction;
    t_typefg: TTable;
    t_typefgffgcode: TStringField;
    ds_fg: TDataSource;
    PopupMenu2: TPopupMenu;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    t_custTYPE: TTable;
    t_custTYPEftypcode: TStringField;
    t_custTYPEftypname: TStringField;
    t_custTYPEftypename: TStringField;
    ds_type: TDataSource;
    lgmPanel3: TlgmPanel;
    Label28: TLabel;
    Label29: TLabel;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    DBEdit1: TDBxEdit;
    DBEdit2: TDBxEdit;
    v_mainftypname_fg: TStringField;
    DBText2: TDBText;
    v_repftypename_fg: TStringField;
    ppLabel6: TppLabel;
    ppDBText3: TppDBText;
    Editor: TRxDBRichEdit;
    TabSheet2: TTabSheet;
    ktMultiBevel5: TktMultiBevel;
    PageControl1: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Panel6: TPanel;
    Label15: TLabel;
    Label16: TLabel;
    DBText3: TDBText;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label27: TLabel;
    Label30: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    DBxEdit7: TDBxEdit;
    RxDBComboEdit3: TRxDBComboEdit;
    DBxEdit14: TDBxEdit;
    DBxEdit15: TDBxEdit;
    DBxEdit16: TDBxEdit;
    DBxEdit17: TDBxEdit;
    DBxEdit19: TDBxEdit;
    DBxEdit22: TDBxEdit;
    DBxEdit23: TDBxEdit;
    DBxEdit25: TDBxEdit;
    DBxEdit26: TDBxEdit;
    Splitter3: TSplitter;
    Panel7: TPanel;
    v_samitem: TQuery;
    v_samitemfsno: TStringField;
    v_samitemfsgcode: TStringField;
    v_samitemffirstcost: TFloatField;
    v_samitemfmkcode: TStringField;
    v_samitemfup: TFloatField;
    v_samitemfmkname: TStringField;
    v_samitemffgname: TStringField;
    v_samitemfda: TFloatField;
    v_samitemfnet: TFloatField;
    v_samitembork: TFloatField;
    v_samitemroyalty: TFloatField;
    v_samitemest: TFloatField;
    v_samitemreserve: TFloatField;
    v_samiteminland: TFloatField;
    v_samitemallowance: TFloatField;
    v_samitemclubcost: TFloatField;
    v_samitemprice: TFloatField;
    v_samitemcost: TFloatField;
    v_samitemcbm: TFloatField;
    v_samitemagent: TFloatField;
    v_samitemfup1: TFloatField;
    v_samitemffggsa: TFloatField;
    v_samitemffirstcost_s: TFloatField;
    v_samitemfnet_s: TFloatField;
    v_samitemest_s: TFloatField;
    v_samitemallowance_s: TFloatField;
    v_samitemclubcost_s: TFloatField;
    v_samitemprice_s: TFloatField;
    v_samitemffggsa_s: TFloatField;
    v_samitemfno: TIntegerField;
    v_samitemffgpackpcs: TStringField;
    v_samitemfpcs: TIntegerField;
    v_samitemfremark: TStringField;
    v_samitemduty: TFloatField;
    v_samitemfduty: TFloatField;
    samitemSource: TDataSource;
    ds_sub: TUpdateSQL;
    subGrid: TDBGridEh;
    samSource: TDataSource;
    v_samelc: TQuery;
    up_main: TUpdateSQL;
    v_samelcfsno: TStringField;
    v_samelcfccode: TStringField;
    v_samelcfdate: TDateTimeField;
    v_samelceffective: TStringField;
    v_samelcftype: TStringField;
    v_samelcbork: TFloatField;
    v_samelcagent1: TFloatField;
    v_samelcagent2: TFloatField;
    v_samelcroyalty1: TFloatField;
    v_samelcroyalty2: TFloatField;
    v_samelcreserve: TFloatField;
    v_samelcinland: TFloatField;
    v_samelcallowance: TFloatField;
    v_samelcclubcost: TFloatField;
    v_samelcmarkup: TFloatField;
    v_samelcSALESUP: TFloatField;
    v_samelcfsetcode: TStringField;
    v_samelcftypecode: TStringField;
    v_samelcfcn: TFloatField;
    v_samelcfctn: TFloatField;
    v_samelcfea: TFloatField;
    v_samelcfpacking: TStringField;
    v_samelcfpkg: TStringField;
    v_samelcupc: TStringField;
    v_samelcfcnname: TStringField;
    act_add1: TBitBtn;
    Label25: TLabel;
    DBxEdit18: TDBxEdit;
    Label26: TLabel;
    Label43: TLabel;
    MaskEdit1: TMaskEdit;
    BitBtn8: TBitBtn;
    act_edit1: TBitBtn;
    act_save1: TBitBtn;
    act_cancel1: TBitBtn;
    Panel8: TPanel;
    Panel9: TPanel;
    act_add2: TBitBtn;
    act_edit2: TBitBtn;
    act_save2: TBitBtn;
    act_cancel2: TBitBtn;
    Panel10: TPanel;
    jcpSource: TDataSource;
    v_jcpelc: TQuery;
    UpdateSQL2: TUpdateSQL;
    v_jcpitem: TQuery;
    v_jcpitemfsno: TStringField;
    v_jcpitemfsgcode: TStringField;
    v_jcpitemffirstcost: TFloatField;
    v_jcpitemfup: TFloatField;
    v_jcpitemfjcpsales: TFloatField;
    v_jcpitemdeduct: TFloatField;
    v_jcpitemfduty: TFloatField;
    v_jcpitemfrgt: TFloatField;
    v_jcpitemfinsfee: TFloatField;
    v_jcpitemfharbor: TFloatField;
    v_jcpitemfsubttl: TFloatField;
    v_jcpitemfadmin: TFloatField;
    v_jcpitemfcoop: TFloatField;
    v_jcpitemfelc: TFloatField;
    v_jcpitemfmkcode: TStringField;
    v_jcpitemfmkname: TStringField;
    v_jcpitemffgname: TStringField;
    v_jcpitemcbm: TFloatField;
    v_jcpitemfjcpsalesmu_c: TFloatField;
    v_jcpitemgross_c: TFloatField;
    v_jcpitemffgsa: TFloatField;
    v_jcpitemfup1: TFloatField;
    v_jcpitemffirstcost_s: TFloatField;
    v_jcpitemfjcpsales_s: TFloatField;
    v_jcpitemfelc_s: TFloatField;
    v_jcpitemffggsa_s: TFloatField;
    v_jcpitemfsetqty: TFloatField;
    v_jcpitemffgpackpcs: TStringField;
    v_jcpitemfpcs: TIntegerField;
    v_jcpitemfremark: TStringField;
    v_jcpitemfno: TIntegerField;
    v_jcpitemfup_s: TFloatField;
    v_jcpitemduty: TFloatField;
    v_jcpitemfprnno: TIntegerField;
    v_jcpitemfgroup: TStringField;
    jcpitemSource: TDataSource;
    UpdateSQL3: TUpdateSQL;
    Panel11: TPanel;
    Label31: TLabel;
    Label32: TLabel;
    DBText4: TDBText;
    Label45: TLabel;
    Label46: TLabel;
    Label49: TLabel;
    Label51: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    DBxEdit20: TDBxEdit;
    RxDBComboEdit4: TRxDBComboEdit;
    DBxEdit33: TDBxEdit;
    DBxEdit36: TDBxEdit;
    DBxEdit37: TDBxEdit;
    DBxEdit38: TDBxEdit;
    DBxEdit39: TDBxEdit;
    DBxEdit41: TDBxEdit;
    DBxEdit42: TDBxEdit;
    BitBtn7: TBitBtn;
    DBxEdit44: TDBxEdit;
    Splitter4: TSplitter;
    jcpGrid: TDBGridEh;
    v_jcpelcfsno: TStringField;
    v_jcpelcfccode: TStringField;
    v_jcpelcfdate: TDateTimeField;
    v_jcpelceffective: TStringField;
    v_jcpelcftype: TStringField;
    v_jcpelcinsfee: TFloatField;
    v_jcpelcharbor: TFloatField;
    v_jcpelcadmin: TFloatField;
    v_jcpelccoop: TFloatField;
    v_jcpelcMARKUP: TFloatField;
    v_jcpelcSALESUP: TFloatField;
    v_jcpelcfsetcode: TStringField;
    v_jcpelcftypecode: TStringField;
    v_jcpelcfbuyer: TStringField;
    v_jcpelcdeduct: TFloatField;
    v_jcpelcduty: TFloatField;
    v_jcpelcfflag: TStringField;
    v_jcpelcfsub: TStringField;
    v_jcpelcfremark: TMemoField;
    v_jcpelcfcnname: TStringField;
    MaskEdit2: TMaskEdit;
    Edit4: TEdit;
    UpdateSQL4: TUpdateSQL;
    v_othelc: TQuery;
    othSource: TDataSource;
    v_othelcfsno: TStringField;
    v_othelcfccode: TStringField;
    v_othelcfdate: TDateTimeField;
    v_othelceffective: TStringField;
    v_othelcftype: TStringField;
    v_othelcinsfee: TFloatField;
    v_othelcharbor: TFloatField;
    v_othelcadmin: TFloatField;
    v_othelccoop: TFloatField;
    v_othelcMARKUP: TFloatField;
    v_othelcSALESUP: TFloatField;
    v_othelcfsetcode: TStringField;
    v_othelcftypecode: TStringField;
    v_othelcfbuyer: TStringField;
    v_othelcdeduct: TFloatField;
    v_othelcduty: TFloatField;
    v_othelcfflag: TStringField;
    v_othelcfsub: TStringField;
    v_othelcfremark: TMemoField;
    v_othelcfcnname: TStringField;
    Panel12: TPanel;
    act_add3: TBitBtn;