ord510_02.pas.svn-base

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

unit Ord510_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_13, DB, ADODB, ActnList, Menus, ComCtrls, ToolWin,
  StdCtrls, wwdbdatetimepicker, Buttons, Mask, wwdbedit, Wwdotdot, Grids,
  Wwdbigrd, Wwdbgrid, CommFun;

type
  TOrd510_02Form = class(TBas200_13Form)
    lblAmount: TLabel;
    lblNetAmt: TLabel;
    lblCurr: TLabel;
    lblDiscount: TLabel;
    lblType: TLabel;
    lblDate: TLabel;
    lblPerson: TLabel;
    lblPayment: TLabel;
    lblCharge: TLabel;
    sbPerson: TSpeedButton;
    lblStatues: TLabel;
    lblFrom: TLabel;
    lblDisRate: TLabel;
    lblPick: TLabel;
    lblRate: TLabel;
    edtNetAmt: TEdit;
    edtAmount: TEdit;
    edtDiscount: TEdit;
    cbType: TComboBox;
    edtDate: TwwDBDateTimePicker;
    edtPerson: TEdit;
    edtSumCharge: TEdit;
    cbCurr: TComboBox;
    cbPayment: TComboBox;
    edtStatus: TEdit;
    cbFrom: TComboBox;
    edtDisRate: TEdit;
    cbPick: TComboBox;
    edtRate: TEdit;
    PageControl2: TPageControl;
    tsCust: TTabSheet;
    gbCust: TGroupBox;
    lblCust: TLabel;
    sbCust: TSpeedButton;
    lblPhone: TLabel;
    lblContact: TLabel;
    lblAddress: TLabel;
    lblPosit: TLabel;
    lblFax: TLabel;
    lblDept: TLabel;
    edtCust: TEdit;
    edtCustName: TEdit;
    edtPhone: TEdit;
    edtContact: TEdit;
    edtAddress: TEdit;
    edtPosit: TEdit;
    edtFax: TEdit;
    edtDept: TEdit;
    tsPlace: TTabSheet;
    GroupBox2: TGroupBox;
    lblPlace: TLabel;
    sbPlace: TSpeedButton;
    lblPlacePhone: TLabel;
    lblPlaceAddress: TLabel;
    lblRegion: TLabel;
    lblPlaceFax: TLabel;
    lblPlacePosit: TLabel;
    lblPlaceDept: TLabel;
    edtPlace: TEdit;
    edtRegion: TEdit;
    edtPlacePhone: TEdit;
    edtPlaceAddress: TEdit;
    edtPlaceFax: TEdit;
    edtPlacePosit: TEdit;
    edtPlaceDept: TEdit;
    tsTerm: TTabSheet;
    memTerm: TMemo;
    tsRemark: TTabSheet;
    memRemark: TMemo;
    PageControl1: TPageControl;
    tsItem: TTabSheet;
    wwDBGrid1: TwwDBGrid;
    edtItem: TwwDBComboDlg;
    edtUnit: TwwDBComboDlg;
    tsCharge: TTabSheet;
    wwDBGrid2: TwwDBGrid;
    edtCharge: TwwDBComboDlg;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryGld100: TADOQuery;
    qryGld110: TADOQuery;
    qryOrd150: TADOQuery;
    qryOrd152: TADOQuery;
    adsOrd510B: TADODataSet;
    dsOrd510B: TDataSource;
    qryOrd510B: TADOQuery;
    qryInv140: TADOQuery;
    adsOrd510BFNo: TIntegerField;
    adsOrd510BFItemNo: TIntegerField;
    adsOrd510BFItemID: TStringField;
    adsOrd510BFItemName: TStringField;
    adsOrd510BFItemSpec: TStringField;
    adsOrd510BFUnitNo: TIntegerField;
    adsOrd510BFUnitID: TStringField;
    adsOrd510BFUnitName: TStringField;
    adsOrd510BFQty: TFloatField;
    adsOrd510BFPrice: TFloatField;
    adsOrd510BFDisRate: TFloatField;
    adsOrd510BFDisAmt: TFloatField;
    adsOrd510BFAmount: TFloatField;
    adsOrd510BFTax: TFloatField;
    adsOrd510BFTaxAmt: TFloatField;
    adsOrd510BFNetAmt: TFloatField;
    adsOrd510BFDate: TDateTimeField;
    adsOrd510BFFactDate: TDateTimeField;
    adsOrd510BFReceQty: TFloatField;
    adsOrd510BFPlace: TStringField;
    adsOrd510BFRemark: TStringField;
    qryOrd100: TADOQuery;
    qryOrd160: TADOQuery;
    dsOrd510: TDataSource;
    adsOrd510: TADODataSet;
    ADODataSet1: TADODataSet;
    ADOQuery1O510A_001: TWideStringField;
    ADOQuery1O510A_002: TIntegerField;
    ADOQuery1O510A_003: TDateTimeField;
    ADOQuery1O510A_004: TSmallintField;
    ADOQuery1O510A_005: TIntegerField;
    ADOQuery1O510A_006: TIntegerField;
    ADOQuery1O510A_007: TIntegerField;
    ADOQuery1O510A_008: TBCDField;
    ADOQuery1O510A_009: TIntegerField;
    ADOQuery1O510A_010: TSmallintField;
    ADOQuery1O510A_011: TWideStringField;
    ADOQuery1O510A_012: TFloatField;
    ADOQuery1O510A_013: TBCDField;
    ADOQuery1O510A_014: TFloatField;
    ADOQuery1O510A_015: TFloatField;
    ADOQuery1O510A_016: TFloatField;
    ADOQuery1O510A_017: TIntegerField;
    ADOQuery1O510A_018: TWideStringField;
    ADOQuery1O510A_020: TMemoField;
    ADOQuery1O510A_021: TMemoField;
    ADOQuery1O510A_022: TDateTimeField;
    ADOQuery1O510A_023: TWideStringField;
    ADOQuery1O510A_024: TDateTimeField;
    ADOQuery1O510A_025: TWideStringField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1O150_005: TWideStringField;
    ADOQuery1O150_006: TWideStringField;
    ADOQuery1O150_012: TWideStringField;
    ADOQuery1G100_002: TWideStringField;
    ADOQuery1G100_003: TWideStringField;
    qryOrd150O150_001: TAutoIncField;
    qryOrd150O150_002: TWideStringField;
    qryOrd150O150_003: TWideStringField;
    qryOrd150O150_004: TWideStringField;
    qryOrd150O150_005: TWideStringField;
    qryOrd150O150_006: TWideStringField;
    qryOrd150O150_012: TWideStringField;
    qryOrd150O151_002: TWideStringField;
    qryOrd150O151_003: TWideStringField;
    qryOrd150O151_004: TWideStringField;
    qryOrd150O120_002: TWideStringField;
    qryOrd150O150_011: TIntegerField;
    qryOrd152O152_001: TIntegerField;
    qryOrd152O152_002: TWideStringField;
    qryOrd152O152_003: TIntegerField;
    qryOrd152O152_004: TWideStringField;
    qryOrd152O152_005: TWideStringField;
    qryOrd152O152_006: TWideStringField;
    qryOrd152O152_007: TWideStringField;
    qryOrd152O152_008: TWideStringField;
    qryOrd152O152_009: TMemoField;
    qryOrd152O152_010: TBooleanField;
    qryOrd152O120_002: TWideStringField;
    qryOrd152O151_002: TWideStringField;
    qryOrd152O151_003: TWideStringField;
    qryOrd152O151_004: TWideStringField;
    qryInv140I140_001: TAutoIncField;
    qryInv140I140_002: TWideStringField;
    qryInv140I140_003: TWideStringField;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1O100_002: TWideStringField;
    adsOrd510FItemID: TStringField;
    adsOrd510FItemName: TStringField;
    adsOrd510FItemSpec: TStringField;
    adsOrd510FUnitID: TStringField;
    adsOrd510FUnitName: TStringField;
    adsOrd510FQty: TFloatField;
    adsOrd510FPrice: TFloatField;
    adsOrd510FDisRate: TFloatField;
    adsOrd510FDisAmt: TFloatField;
    adsOrd510FAmount: TFloatField;
    adsOrd510FTax: TFloatField;
    adsOrd510FTaxAmt: TFloatField;
    adsOrd510FNetAmt: TFloatField;
    adsOrd510FDate: TDateTimeField;
    adsOrd510FFactDate: TDateTimeField;
    adsOrd510FReceQty: TFloatField;
    adsOrd510FPlace: TStringField;
    adsOrd510FRemark: TStringField;
    adsOrd510FNo: TIntegerField;
    adsOrd510FItemNo: TIntegerField;
    adsOrd510FUnitNo: TIntegerField;
    ADOQuery1G110_002: TWideStringField;
    qryOrd160O160_001: TAutoIncField;
    qryOrd160O160_002: TWideStringField;
    qryOrd160O160_003: TWideStringField;
    qryOrd160O160_004: TMemoField;
    pmOrd510B: TPopupMenu;
    mmiAdd: TMenuItem;
    mmiEdit: TMenuItem;
    mmiDel: TMenuItem;
    adsOrd510BFFromID: TStringField;
    adsOrd510BFLineNo: TIntegerField;
    adsOrd510FLineNo: TIntegerField;
    adsOrd510FFromID: TStringField;
    adsOrd510BFAcrAmt: TFloatField;
    adsOrd510FAcrAmt: TFloatField;
    ADOQuery1O151_002: TWideStringField;
    ADOQuery1O151_003: TWideStringField;
    ADOQuery1O151_004: TWideStringField;
    ADOQuery1O120_002: TWideStringField;
    adsOrd510BFReturn: TFloatField;
    adsOrd510FReturn: TFloatField;
    ADOQuery1O510A_019: TSmallintField;
    adsOrd510FIsBySum: TBooleanField;
    adsOrd510BFIsBySum: TBooleanField;
    qryItems: TADOQuery;
    qryItemsI150_001: TAutoIncField;
    qryItemsI150_002: TWideStringField;
    qryItemsI150_003: TWideStringField;
    qryItemsI150_004: TWideStringField;
    qryItemsI140_002: TWideStringField;
    qryItemsI140_003: TWideStringField;
    qryItemsI140_001: TAutoIncField;
    qryCharge: TADOQuery;
    qryChargeI150_001: TAutoIncField;
    qryChargeI150_002: TWideStringField;
    qryChargeI150_003: TWideStringField;
    qryChargeI150_004: TWideStringField;
    qryChargeI140_002: TWideStringField;
    qryChargeI140_003: TWideStringField;
    qryChargeI140_001: TAutoIncField;
    tsProduct: TTabSheet;
    gbProduct: TGroupBox;
    lblItem: TLabel;
    lblItemClass: TLabel;
    lblModel: TLabel;
    lblMacNo: TLabel;
    lblMaker: TLabel;
    lblMakerName: TLabel;
    sbItem: TSpeedButton;
    sbMacNo: TSpeedButton;
    edtItemID: TEdit;
    edtItemName: TEdit;
    edtModel: TEdit;
    edtMaker: TEdit;
    edtMacNo: TEdit;
    edtMakerName: TEdit;
    edtItemClass: TEdit;
    qryOrd153: TADOQuery;
    qryOrd153I150_002: TWideStringField;
    qryOrd153O153_003: TWideStringField;
    qryOrd153I150_003: TWideStringField;
    qryOrd153I150_004: TWideStringField;
    qryOrd153I120_003: TWideStringField;
    qryOrd153O150_002: TWideStringField;
    qryOrd153O150_003: TWideStringField;
    qryOrd153I150_001: TAutoIncField;
    adsOrd510BFUnitRate: TFloatField;
    adsOrd510FUnitRate: TFloatField;
    qryOrd153O153_012: TSmallintField;
    lblPlaceContact: TLabel;
    edtPlaceContact: TEdit;
    sbPlaceContact: TSpeedButton;
    qryOrd151: TADOQuery;
    qryOrd151O151_001: TIntegerField;
    qryOrd151O151_002: TWideStringField;
    qryOrd151O151_003: TWideStringField;
    qryOrd151O151_004: TWideStringField;
    qryOrd151O151_005: TWideStringField;
    qryOrd151O151_006: TWideStringField;
    qryOrd151O151_007: TWideStringField;
    qryOrd151O151_008: TWideStringField;
    qryOrd151O151_009: TWideStringField;
    qryOrd151O151_010: TWideStringField;
    qryOrd151O151_011: TBooleanField;
    ADOQuery1O510A_026: TWideStringField;
    ADOQuery1O510A_027: TSmallintField;
    qryOrd152O120_001: TAutoIncField;
    ADOQuery1O152_002: TStringField;
    ADOQuery1O152_003: TStringField;
    ADOQuery1O152_004: TStringField;
    ADOQuery1O152_005: TStringField;
    ADOQuery1O152_006: TStringField;
    ADOQuery1O152_007: TStringField;
    ADOQuery1O152_008: TStringField;