ord500_02.pas.svn-base

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

unit Ord500_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
  TOrd500_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;
    gbPlace: TGroupBox;
    lblPlace: TLabel;
    sbPlace: TSpeedButton;
    lblPlacePhone: TLabel;
    lblPlaceContact: TLabel;
    lblPlaceAddress: TLabel;
    lblRegion: TLabel;
    lblPlaceFax: TLabel;
    lblPlacePosit: TLabel;
    lblPlaceDept: TLabel;
    edtPlace: TEdit;
    edtRegion: TEdit;
    edtPlacePhone: TEdit;
    edtPlaceContact: 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;
    adsOrd500B: TADODataSet;
    dsOrd500B: TDataSource;
    qryOrd500B: TADOQuery;
    qryItems: TADOQuery;
    qryInv140: TADOQuery;
    adsOrd500BFNo: TIntegerField;
    adsOrd500BFItemNo: TIntegerField;
    adsOrd500BFItemID: TStringField;
    adsOrd500BFItemName: TStringField;
    adsOrd500BFItemSpec: TStringField;
    adsOrd500BFUnitNo: TIntegerField;
    adsOrd500BFUnitID: TStringField;
    adsOrd500BFUnitName: TStringField;
    adsOrd500BFQty: TFloatField;
    adsOrd500BFPrice: TFloatField;
    adsOrd500BFDisRate: TFloatField;
    adsOrd500BFDisAmt: TFloatField;
    adsOrd500BFAmount: TFloatField;
    adsOrd500BFTax: TFloatField;
    adsOrd500BFTaxAmt: TFloatField;
    adsOrd500BFNetAmt: TFloatField;
    adsOrd500BFDate: TDateTimeField;
    adsOrd500BFFactDate: TDateTimeField;
    adsOrd500BFReceQty: TFloatField;
    adsOrd500BFPlace: TStringField;
    adsOrd500BFRemark: TStringField;
    qryOrd100: TADOQuery;
    qryOrd160: TADOQuery;
    dsOrd500: TDataSource;
    adsOrd500: TADODataSet;
    ADODataSet1: TADODataSet;
    ADOQuery1O500A_001: TWideStringField;
    ADOQuery1O500A_002: TIntegerField;
    ADOQuery1O500A_003: TDateTimeField;
    ADOQuery1O500A_004: TSmallintField;
    ADOQuery1O500A_005: TIntegerField;
    ADOQuery1O500A_006: TIntegerField;
    ADOQuery1O500A_007: TIntegerField;
    ADOQuery1O500A_008: TBCDField;
    ADOQuery1O500A_009: TIntegerField;
    ADOQuery1O500A_010: TSmallintField;
    ADOQuery1O500A_011: TWideStringField;
    ADOQuery1O500A_012: TFloatField;
    ADOQuery1O500A_013: TBCDField;
    ADOQuery1O500A_014: TFloatField;
    ADOQuery1O500A_015: TFloatField;
    ADOQuery1O500A_016: TFloatField;
    ADOQuery1O500A_017: TIntegerField;
    ADOQuery1O500A_018: TWideStringField;
    ADOQuery1O500A_020: TMemoField;
    ADOQuery1O500A_021: TMemoField;
    ADOQuery1O500A_022: TDateTimeField;
    ADOQuery1O500A_023: TWideStringField;
    ADOQuery1O500A_024: TDateTimeField;
    ADOQuery1O500A_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;
    qryItemsI150_001: TAutoIncField;
    qryItemsI150_002: TWideStringField;
    qryItemsI150_003: TWideStringField;
    qryItemsI150_004: TWideStringField;
    qryItemsI140_002: TWideStringField;
    qryItemsI140_003: TWideStringField;
    qryItemsI140_001: TAutoIncField;
    qryInv140I140_001: TAutoIncField;
    qryInv140I140_002: TWideStringField;
    qryInv140I140_003: TWideStringField;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1O100_002: TWideStringField;
    adsOrd500FItemID: TStringField;
    adsOrd500FItemName: TStringField;
    adsOrd500FItemSpec: TStringField;
    adsOrd500FUnitID: TStringField;
    adsOrd500FUnitName: TStringField;
    adsOrd500FQty: TFloatField;
    adsOrd500FPrice: TFloatField;
    adsOrd500FDisRate: TFloatField;
    adsOrd500FDisAmt: TFloatField;
    adsOrd500FAmount: TFloatField;
    adsOrd500FTax: TFloatField;
    adsOrd500FTaxAmt: TFloatField;
    adsOrd500FNetAmt: TFloatField;
    adsOrd500FDate: TDateTimeField;
    adsOrd500FFactDate: TDateTimeField;
    adsOrd500FReceQty: TFloatField;
    adsOrd500FPlace: TStringField;
    adsOrd500FRemark: TStringField;
    adsOrd500FNo: TIntegerField;
    adsOrd500FItemNo: TIntegerField;
    adsOrd500FUnitNo: TIntegerField;
    ADOQuery1G110_002: TWideStringField;
    qryOrd160O160_001: TAutoIncField;
    qryOrd160O160_002: TWideStringField;
    qryOrd160O160_003: TWideStringField;
    qryOrd160O160_004: TMemoField;
    pmOrd500B: TPopupMenu;
    mmiAdd: TMenuItem;
    mmiEdit: TMenuItem;
    mmiDel: TMenuItem;
    edtPersonName: TEdit;
    adsOrd500BFFromID: TStringField;
    adsOrd500BFLineNo: TIntegerField;
    adsOrd500FLineNo: TIntegerField;
    adsOrd500FFromID: TStringField;
    adsOrd500BFAcrAmt: TFloatField;
    adsOrd500FAcrAmt: TFloatField;
    ADOQuery1O151_002: TWideStringField;
    ADOQuery1O151_003: TWideStringField;
    ADOQuery1O151_004: TWideStringField;
    ADOQuery1O120_002: TWideStringField;
    adsOrd500BFReturn: TFloatField;
    adsOrd500FReturn: TFloatField;
    ADOQuery1O500A_019: TSmallintField;
    qryOrd152O120_001: TAutoIncField;
    adsOrd500BFIsBySum: TBooleanField;
    adsOrd500FIsBySum: TBooleanField;
    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;
    ADOQuery1O152_002: TStringField;
    ADOQuery1O152_003: TStringField;
    ADOQuery1O152_004: TStringField;
    ADOQuery1O152_005: TStringField;
    ADOQuery1O152_006: TStringField;
    ADOQuery1O152_007: TStringField;
    ADOQuery1O152_008: TStringField;
    adsOrd500BFUnitRate: TFloatField;
    adsOrd500FUnitRate: TFloatField;
    qryOrd151: TADOQuery;
    ADOQuery1O500A_026: TWideStringField;
    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;