base.~pas

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

unit BASE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, XPMenu, ppCtrls, ppBands, ppClass,
  ppVar, ppPrnabl, ppCache, ppProd, ppReport, ppDB, ppComm, ppRelatv,
  ppDBPipe, Mask, ToolEdit, CheckLst, Buttons, ExtCtrls, lgmPanel, Menus,
  DBCtrls, MenBtn, ADODB, RXSpin, Grids, DBGridEh, ComCtrls;

type
  TFRMcost = class(TForm)
    XPMenu1: TXPMenu;
    ds_sum: TDataSource;
    DSUP: TDataSource;
    ds_rep_gj: TDataSource;
    ppDBPipeline2: TppDBPipeline;
    ptcopy: TPopupMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    Panel16: TPanel;
    act_del4: TMenuButton;
    act_copy: TMenuButton;
    act_add4: TBitBtn;
    act_edit4: TBitBtn;
    act_save4: TBitBtn;
    act_cancel4: TBitBtn;
    Panel17: TPanel;
    DBNavigator4: TDBNavigator;
    BitBtn12: TBitBtn;
    PageControl2: TPageControl;
    sm: TTabSheet;
    smgrid: TDBGridEh;
    wb: TTabSheet;
    bsgrid: TDBGridEh;
    wj: TTabSheet;
    bpgrid: TDBGridEh;
    bt: TTabSheet;
    WJGrid: TDBGridEh;
    other: TTabSheet;
    bcGrid: TDBGridEh;
    tot: TTabSheet;
    OTHerGrid: TDBGridEh;
    TabSheet7: TTabSheet;
    Panel15: TPanel;
    Label99: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Label113: TLabel;
    Label114: TLabel;
    Label115: TLabel;
    Label116: TLabel;
    Label117: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Label119: TLabel;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Label120: TLabel;
    Label121: TLabel;
    Shape16: TShape;
    Label130: TLabel;
    Label131: TLabel;
    Shape17: TShape;
    Label133: TLabel;
    Label134: TLabel;
    Label136: TLabel;
    Label137: TLabel;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Label135: TLabel;
    Label138: TLabel;
    Label139: TLabel;
    Label140: TLabel;
    Label109: TLabel;
    Label118: TLabel;
    Label122: TLabel;
    Shape15: TShape;
    Label54: TLabel;
    RxSpinEdit1: TRxSpinEdit;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    RxSpinEdit4: TRxSpinEdit;
    DBEdit8: TDBEdit;
    RxSpinEdit5: TRxSpinEdit;
    DBEdit10: TDBEdit;
    RxSpinEdit6: TRxSpinEdit;
    DBEdit12: TDBEdit;
    RxSpinEdit7: TRxSpinEdit;
    RxSpinEdit16: TRxSpinEdit;
    RxSpinEdit19: TRxSpinEdit;
    BitBtn9: TBitBtn;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit31: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    Edit35: TEdit;
    Edit38: TEdit;
    Edit39: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    DBEdit4: TDBEdit;
    RxSpinEdit2: TRxSpinEdit;
    Edit25: TEdit;
    v_ins: TADOQuery;
    v_sggj: TADOQuery;
    v_sggjfsgcode: TStringField;
    v_sggjfptname: TStringField;
    v_sggjfunit: TStringField;
    v_sggjfrmname: TStringField;
    v_sggjfrtname: TStringField;
    v_sggjfsno: TIntegerField;
    v_rep_gj: TADOQuery;
    v_sum: TADOQuery;
    lgmPanel2: TlgmPanel;
    Label52: TLabel;
    Label53: TLabel;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    ComboEdit1: TComboEdit;
    DBxEdit8: TEdit;
    lgmPanel4: TlgmPanel;
    Label56: TLabel;
    Label55: TLabel;
    Label57: TLabel;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    CheckListBox1: TCheckListBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    v_main: TADOTable;
    v_mainfsgcode: TWideStringField;
    v_mainfsgname: TWideStringField;
    ds_main: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    v_sggjfnl: TFloatField;
    v_sggjfnw: TFloatField;
    v_sggjfnh: TFloatField;
    v_sggjfsize1: TFloatField;
    v_sggjfsize2: TFloatField;
    v_sggjfqty: TFloatField;
    v_sggjfrmup: TFloatField;
    v_sggjfamt: TFloatField;
    v_sggjfowcode: TIntegerField;
    v_sggjfbl: TFloatField;
    v_sggjfbw: TFloatField;
    v_sumfsgcode: TWideStringField;
    v_sumfqty1: TFloatField;
    v_sumfqty2: TFloatField;
    v_sumfqty3: TFloatField;
    v_sumfqty4: TFloatField;
    v_sumfqty5: TFloatField;
    v_sumfqty6: TFloatField;
    v_sumfqty7: TFloatField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    v_sggjfusize: TFloatField;
    v_sggjfcsize: TFloatField;
    v_sggj_tot: TADOQuery;
    v_sggj_totfsgcode: TWideStringField;
    v_sggj_totsp1: TIntegerField;
    v_sggj_totsp2: TIntegerField;
    v_sggj_totsp3: TIntegerField;
    v_sggj_totsp4: TIntegerField;
    v_sggj_totsp5: TIntegerField;
    v_sggj_totsp6: TIntegerField;
    v_sggj_totsp7: TIntegerField;
    v_sggj_totsp8: TIntegerField;
    v_sggj_totffggsa: TFloatField;
    v_sggj_totfup_ntd: TFloatField;
    v_sggj_totfup_usd: TFloatField;
    v_sggj_totjg: TFloatField;
    v_sggj_totjggz: TFloatField;
    v_sggj_totcg: TFloatField;
    v_sggj_totcggz: TFloatField;
    v_sggj_totzl: TFloatField;
    v_sggj_totzlgz: TFloatField;
    v_sggj_totbz: TFloatField;
    v_sggj_totbzgz: TFloatField;
    v_sggj_totfb: TFloatField;
    v_sggj_totfbgz: TFloatField;
    v_mainfsize: TWideStringField;
    v_rep_gjfsgcode: TWideStringField;
    v_rep_gjfsno: TAutoIncField;
    v_rep_gjfptname: TWideStringField;
    v_rep_gjfunit: TWideStringField;
    v_rep_gjfnl: TFloatField;
    v_rep_gjfnw: TFloatField;
    v_rep_gjfnh: TFloatField;
    v_rep_gjfsize1: TFloatField;
    v_rep_gjfusize: TFloatField;
    v_rep_gjfsize2: TFloatField;
    v_rep_gjfcsize: TFloatField;
    v_rep_gjfqty: TFloatField;
    v_rep_gjfrmname: TWideStringField;
    v_rep_gjfrmup: TFloatField;
    v_rep_gjfamt: TFloatField;
    v_rep_gjfowcode: TIntegerField;
    v_rep_gjfbl: TFloatField;
    v_rep_gjfbw: TFloatField;
    v_rep_gjfsize: TWideStringField;
    v_rep_gjfsgname: TWideStringField;
    Label1: TLabel;
    v_sggjback: TADOQuery;
    v_sggjbackfsgcode: TWideStringField;
    v_sggjbackfsno: TAutoIncField;
    v_sggjbackfptname: TWideStringField;
    v_sggjbackfunit: TWideStringField;
    v_sggjbackfnl: TFloatField;
    v_sggjbackfnw: TFloatField;
    v_sggjbackfnh: TFloatField;
    v_sggjbackfsize1: TFloatField;
    v_sggjbackfusize: TFloatField;
    v_sggjbackfsize2: TFloatField;
    v_sggjbackfcsize: TFloatField;
    v_sggjbackfqty: TFloatField;
    v_sggjbackfrmname: TWideStringField;
    v_sggjbackfrmup: TFloatField;
    v_sggjbackfamt: TFloatField;
    v_sggjbackfowcode: TIntegerField;
    v_sggjbackfbl: TFloatField;
    v_sggjbackfbw: TFloatField;
    t_sggj_tot: TADOQuery;
    t_sggj_totfsgcode: TWideStringField;
    t_sggj_totsp1: TIntegerField;
    t_sggj_totsp2: TIntegerField;
    t_sggj_totsp3: TIntegerField;
    t_sggj_totsp4: TIntegerField;
    t_sggj_totsp5: TIntegerField;
    t_sggj_totsp6: TIntegerField;
    t_sggj_totsp7: TIntegerField;
    t_sggj_totsp8: TIntegerField;
    t_sggj_totffggsa: TFloatField;
    t_sggj_totfup_ntd: TFloatField;
    t_sggj_totfup_usd: TFloatField;
    t_sggj_totjg: TFloatField;
    t_sggj_totjggz: TFloatField;
    t_sggj_totcg: TFloatField;
    t_sggj_totcggz: TFloatField;
    t_sggj_totzl: TFloatField;
    t_sggj_totzlgz: TFloatField;
    t_sggj_totbz: TFloatField;
    t_sggj_totbzgz: TFloatField;
    t_sggj_totfb: TFloatField;
    t_sggj_totfbgz: TFloatField;
    ppReport3: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLabel16: TppLabel;