pur510_02.pas.svn-base

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

unit Pur510_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,IniFiles;

type
  TPur510_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;
    edtPersonName: TEdit;
    PageControl1: TPageControl;
    tsItem: TTabSheet;
    wwDBGrid1: TwwDBGrid;
    edtItem: TwwDBComboDlg;
    edtUnit: TwwDBComboDlg;
    tsCharge: TTabSheet;
    wwDBGrid2: TwwDBGrid;
    edtCharge: TwwDBComboDlg;
    lblCheckDate: TLabel;
    edtCheckDate: TEdit;
    lblChecker: TLabel;
    edtChecker: TEdit;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryInv150: TADOQuery;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    qryInv150I150_004: TWideStringField;
    qryInv150I140_002: TWideStringField;
    qryInv150I140_003: TWideStringField;
    qryInv150I140_001: TAutoIncField;
    dsPur510B: TDataSource;
    adsPur510B: TADODataSet;
    adsPur510BFItemID: TStringField;
    adsPur510BFItemName: TStringField;
    adsPur510BFItemSpec: TStringField;
    adsPur510BFUnitID: TStringField;
    adsPur510BFUnitName: TStringField;
    adsPur510BFQty: TFloatField;
    adsPur510BFPrice: TFloatField;
    adsPur510BFAmount: TFloatField;
    adsPur510BFDisRate: TFloatField;
    adsPur510BFDisAmt: TFloatField;
    adsPur510BFNetAmt: TFloatField;
    adsPur510BFTax: TFloatField;
    adsPur510BFTaxAmt: TFloatField;
    adsPur510BFAcrAmt: TFloatField;
    adsPur510BFDate: TDateTimeField;
    adsPur510BFFactDate: TDateTimeField;
    adsPur510BFReceQty: TFloatField;
    adsPur510BFPlace: TStringField;
    adsPur510BFRemark: TStringField;
    adsPur510BFNo: TIntegerField;
    adsPur510BFItemNo: TIntegerField;
    adsPur510BFUnitNo: TIntegerField;
    adsPur510BFLineNo: TIntegerField;
    adsPur510BFFromID: TStringField;
    adsPur510BFReturn: TFloatField;
    qryPur510B: TADOQuery;
    dsPur510: TDataSource;
    adsPur510: TADODataSet;
    adsPur510FItemID: TStringField;
    adsPur510FItemName: TStringField;
    adsPur510FAmount: TFloatField;
    adsPur510FRemark: TStringField;
    adsPur510FItemSpec: TStringField;
    adsPur510FPrice: TFloatField;
    adsPur510FUnitID: TStringField;
    adsPur510FUnitName: TStringField;
    adsPur510FQty: TFloatField;
    adsPur510FDisRate: TFloatField;
    adsPur510FDisAmt: TFloatField;
    adsPur510FTax: TFloatField;
    adsPur510FTaxAmt: TFloatField;
    adsPur510FNetAmt: TFloatField;
    adsPur510FAcrAmt: TFloatField;
    adsPur510FDate: TDateTimeField;
    adsPur510FFactDate: TDateTimeField;
    adsPur510FReceQty: TFloatField;
    adsPur510FPlace: TStringField;
    adsPur510FNo: TIntegerField;
    adsPur510FItemNo: TIntegerField;
    adsPur510FUnitNo: TIntegerField;
    adsPur510FFromID: TStringField;
    adsPur510FLineNo: TIntegerField;
    adsPur510FReturn: TFloatField;
    ADODataSet1: TADODataSet;
    qryInv140: TADOQuery;
    qryInv140I140_001: TAutoIncField;
    qryInv140I140_002: TWideStringField;
    qryInv140I140_003: TWideStringField;
    qryOrd160: TADOQuery;
    qryOrd160O160_001: TAutoIncField;
    qryOrd160O160_002: TWideStringField;
    qryOrd160O160_003: TWideStringField;
    qryOrd160O160_004: TMemoField;
    qryGld110: TADOQuery;
    qryPur100: TADOQuery;
    qryGld100: TADOQuery;
    ADOQuery1P510A_001: TWideStringField;
    ADOQuery1P100_002: TWideStringField;
    ADOQuery1P510A_002: TIntegerField;
    ADOQuery1P510A_003: TDateTimeField;
    ADOQuery1P510A_004: TSmallintField;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1P510A_005: TIntegerField;
    ADOQuery1G100_002: TWideStringField;
    ADOQuery1G100_003: TWideStringField;
    ADOQuery1P510A_007: TIntegerField;
    ADOQuery1P510A_008: TBCDField;
    ADOQuery1G110_002: TWideStringField;
    ADOQuery1P510A_009: TIntegerField;
    ADOQuery1P510A_010: TDateTimeField;
    ADOQuery1P510A_011: TWideStringField;
    ADOQuery1P510A_012: TFloatField;
    ADOQuery1P510A_013: TBCDField;
    ADOQuery1P510A_014: TFloatField;
    ADOQuery1P510A_015: TFloatField;
    ADOQuery1P510A_016: TFloatField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1O150_005: TWideStringField;
    ADOQuery1O150_006: TWideStringField;
    ADOQuery1O150_012: TWideStringField;
    ADOQuery1P510A_017: TIntegerField;
    ADOQuery1P510A_018: TWideStringField;
    ADOQuery1P510A_019: TIntegerField;
    ADOQuery1P510A_020: TMemoField;
    ADOQuery1P510A_021: TMemoField;
    ADOQuery1P510A_022: TDateTimeField;
    ADOQuery1P510A_023: TWideStringField;
    ADOQuery1P510A_024: TDateTimeField;
    ADOQuery1P510A_025: TWideStringField;
    qryOrd150: TADOQuery;
    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;
    qryOrd152: TADOQuery;
    qryOrd152O152_001: TIntegerField;
    qryOrd152O152_002: TWideStringField;
    qryOrd152O120_002: TWideStringField;
    qryOrd152O152_004: TWideStringField;
    qryOrd152O152_005: TWideStringField;
    qryOrd152O152_006: TWideStringField;
    qryOrd152O152_007: TWideStringField;
    qryOrd152O151_002: TWideStringField;
    qryOrd152O151_003: TWideStringField;
    qryOrd152O151_004: TWideStringField;
    qryOrd152O152_003: TIntegerField;
    qryOrd152O152_008: TWideStringField;
    qryOrd152O152_009: TMemoField;
    qryOrd152O152_010: TBooleanField;
    pmPur510B: TPopupMenu;
    mmiAdd: TMenuItem;
    mmiEdit: TMenuItem;
    mmiDel: TMenuItem;
    ADOQuery1O151_002: TWideStringField;
    ADOQuery1O151_003: TWideStringField;
    ADOQuery1O151_004: TWideStringField;
    adsPur510FUnitRate: TFloatField;
    adsPur510BFUnitRate: TFloatField;
    lblPriority: TLabel;
    edtPriority: TEdit;
    UpDown1: TUpDown;
    ADOQuery1O152_002: TStringField;
    ADOQuery1O152_003: TStringField;
    ADOQuery1O152_004: TStringField;
    ADOQuery1O152_005: TStringField;
    ADOQuery1O152_006: TStringField;
    ADOQuery1O152_007: TStringField;
    ADOQuery1O152_008: TStringField;
    ADOQuery1P510A_026: TWideStringField;
    ADOQuery1P510A_027: TSmallintField;
    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;
    adsPur510BFEngItemName: TStringField;
    qryInv150I150_008: TWideStringField;
    ADOQuery1P510A_006: TSmallintField;
    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;
    qryOrd153O153_012: TSmallintField;
    qryOrd1501: TADOQuery;
    AutoIncField1: TAutoIncField;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    WideStringField3: TWideStringField;
    WideStringField4: TWideStringField;
    WideStringField5: TWideStringField;
    WideStringField6: TWideStringField;
    WideStringField7: TWideStringField;
    WideStringField8: TWideStringField;
    WideStringField9: TWideStringField;
    WideStringField10: TWideStringField;
    IntegerField1: TIntegerField;
    ADOQuery1P510A_028: TSmallintField;
    ADOQuery1P510A_029: TSmallintField;
    ADOQuery1P510A_030: TWideStringField;
    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;
    lblPlaceContact: TLabel;
    sbPlaceContact: TSpeedButton;
    edtPlace: TEdit;
    edtRegion: TEdit;
    edtPlacePhone: TEdit;
    edtPlaceAddress: TEdit;
    edtPlaceFax: TEdit;
    edtPlacePosit: TEdit;
    edtPlaceDept: TEdit;
    edtPlaceContact: TEdit;
    tsTerm: TTabSheet;
    memTerm: TMemo;
    tsRemark: TTabSheet;
    memRemark: TMemo;