ord150_02.pas.svn-base

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

unit Ord150_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, Menus, ActnList, DB, ADODB, ComCtrls, ExtCtrls, ToolWin,
  StdCtrls, Buttons, wwdbdatetimepicker, Mask, DBCtrls, Grids, DBGrids,
  dxdbtrel, dxCntner, dxEditor, dxExEdtr, dxEdLib, dxDBELib, dxTL, dxDBCtrl,
  dxDBGrid, dxDBTLCl, dxGrClms;

type
  TOrd150_02Form = class(TBas100_01Form)
    pmPrint: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbInsert: TToolButton;
    tlbUpdate: TToolButton;
    tlbDelete: TToolButton;
    ToolButton2: TToolButton;
    tlbSave: TToolButton;
    tlbCancel: TToolButton;
    ToolButton3: TToolButton;
    tlbRefresh: TToolButton;
    tlbLocate: TToolButton;
    tlbSearch: TToolButton;
    tlbPrint: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    Panel1: TPanel;
    Image1: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ScrollBox1: TScrollBox;
    TabSheet2: TTabSheet;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActSave: TAction;
    ActCancel: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExport: TAction;
    ActExit: TAction;
    TabSheet3: TTabSheet;
    Panel: TPanel;
    Panel3: TPanel;
    Panel2: TPanel;
    bbtnInsert: TBitBtn;
    bbtnUpdate: TBitBtn;
    bbtnDelete: TBitBtn;
    bbtnSave: TBitBtn;
    bbtnCancel: TBitBtn;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    bbtnInsert1: TBitBtn;
    bbtnUpdate1: TBitBtn;
    bbtnDelete1: TBitBtn;
    bbtnSave1: TBitBtn;
    bbtnCancel1: TBitBtn;
    GroupBox1: TGroupBox;
    lblCustNo: TLabel;
    edtCustNo: TDBEdit;
    lblName: TLabel;
    edtName: TDBEdit;
    lblShort: TLabel;
    edtShort: TDBEdit;
    lblPhone: TLabel;
    edtPhone: TDBEdit;
    lblFax: TLabel;
    edtFax: TDBEdit;
    lblEmail: TLabel;
    edtEmail: TDBEdit;
    lblSite: TLabel;
    edtSite: TDBEdit;
    lblType: TLabel;
    lblClass: TLabel;
    lblRegion: TLabel;
    lblAddress: TLabel;
    edtAddress: TDBEdit;
    lblPostalcode: TLabel;
    edtPostalcode: TDBEdit;
    lblStatus: TLabel;
    cbStatus: TComboBox;
    sbRegion: TSpeedButton;
    cbType: TComboBox;
    cbClass: TdxDBLookupTreeView;
    cbRegion: TdxDBLookupTreeView;
    sbClass: TSpeedButton;
    qryGld100: TADOQuery;
    dsGld100: TDataSource;
    dsOrd110: TDataSource;
    qryOrd110: TADOQuery;
    dsOrd120: TDataSource;
    qryOrd120: TADOQuery;
    qryGld150: TADOQuery;
    dsGld150: TDataSource;
    lblContact: TLabel;
    edtContact: TDBEdit;
    lblDept: TLabel;
    edtDept: TDBEdit;
    lblPost: TLabel;
    edtPost: TDBEdit;
    lblTel: TLabel;
    edtTel: TDBEdit;
    lblFaxNo: TLabel;
    edtFaxNo: TDBEdit;
    lblConEmail: TLabel;
    edtConEmail: TDBEdit;
    lblMobile: TLabel;
    edtMobile: TDBEdit;
    lblAdd: TLabel;
    edtAdd: TDBEdit;
    lblZip: TLabel;
    edtZip: TDBEdit;
    ScrollBox2: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    ScrollBox3: TScrollBox;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid1O151_002: TdxDBGridMaskColumn;
    dxDBGrid1O151_003: TdxDBGridMaskColumn;
    dxDBGrid1O151_004: TdxDBGridMaskColumn;
    dxDBGrid1O151_005: TdxDBGridMaskColumn;
    dxDBGrid1O151_006: TdxDBGridMaskColumn;
    dxDBGrid1O151_007: TdxDBGridMaskColumn;
    dxDBGrid1O151_008: TdxDBGridMaskColumn;
    dxDBGrid1O151_009: TdxDBGridMaskColumn;
    dxDBGrid1O151_010: TdxDBGridMaskColumn;
    lblPlace: TLabel;
    edtPlace: TDBEdit;
    lblCity: TLabel;
    lblPlaceAdd: TLabel;
    edtPlaceAdd: TDBEdit;
    lblPlaceZip: TLabel;
    edtPlaceZip: TDBEdit;
    lblPlaceTel: TLabel;
    edtPlaceTel: TDBEdit;
    lblPlaceFax: TLabel;
    edtPlaceFax: TDBEdit;
    lblCon: TLabel;
    edtCon: TDBEdit;
    cbCity: TdxDBLookupTreeView;
    dxDBGrid2O152_002: TdxDBGridMaskColumn;
    dxDBGrid2O120_002: TdxDBGridLookupColumn;
    dxDBGrid2O152_004: TdxDBGridMaskColumn;
    dxDBGrid2O152_005: TdxDBGridMaskColumn;
    dxDBGrid2O152_006: TdxDBGridMaskColumn;
    dxDBGrid2O152_007: TdxDBGridMaskColumn;
    dxDBGrid2O152_008: TdxDBGridMaskColumn;
    SpeedButton1: TSpeedButton;
    TabSheet4: TTabSheet;
    Panel7: TPanel;
    Panel8: TPanel;
    lblItem: TLabel;
    lblFromDate1: TLabel;
    lblMacNo: TLabel;
    ScrollBox4: TScrollBox;
    dxDBGrid3: TdxDBGrid;
    Panel9: TPanel;
    bbtnInsert2: TBitBtn;
    bbtnUpdate2: TBitBtn;
    bbtnDelete2: TBitBtn;
    bbtnSave2: TBitBtn;
    bbtnCancel2: TBitBtn;
    sbItem: TSpeedButton;
    edtInstallDate: TwwDBDateTimePicker;
    edtFromDate1: TwwDBDateTimePicker;
    edtToDate1: TwwDBDateTimePicker;
    lblInstallDate: TLabel;
    cbPrimary: TDBCheckBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    lblCust3: TLabel;
    lblCustName3: TLabel;
    edtCust3: TDBEdit;
    edtCustName3: TDBEdit;
    edtCustName2: TDBEdit;
    lblCustName2: TLabel;
    edtCust2: TDBEdit;
    lblCust2: TLabel;
    edtCustName1: TDBEdit;
    lblCustName1: TLabel;
    edtCust1: TDBEdit;
    lblCust1: TLabel;
    dxDBGrid3I150_002: TdxDBGridLookupColumn;
    dxDBGrid3I150_003: TdxDBGridLookupColumn;
    dxDBGrid3O153_003: TdxDBGridColumn;
    dxDBGrid3O153_004: TdxDBGridColumn;
    dxDBGrid3O153_005: TdxDBGridColumn;
    dxDBGrid3O153_006: TdxDBGridDateColumn;
    dxDBGrid3O153_007: TdxDBGridDateColumn;
    dxDBGrid3O153_008: TdxDBGridDateColumn;
    dxDBGrid3O153_009: TdxDBGridDateColumn;
    dxDBGrid3O153_012: TdxDBGridMaskColumn;
    lblControlNo: TLabel;
    lblSoftware: TLabel;
    edtFromDate2: TwwDBDateTimePicker;
    edtToDate2: TwwDBDateTimePicker;
    lblFromDate2: TLabel;
    lblFrom: TLabel;
    cbFrom: TComboBox;
    edtItem: TEdit;
    edtItemName: TEdit;
    lblToDate1: TLabel;
    lblToDate2: TLabel;
    qryInv150: TADOQuery;
    qryOrd150: TADOQuery;
    qryOrd151: TADOQuery;
    qryOrd151O151_001: TIntegerField;
    qryOrd151O151_002: TStringField;
    qryOrd151O151_003: TStringField;
    qryOrd151O151_004: TStringField;
    qryOrd151O151_005: TStringField;
    qryOrd151O151_006: TStringField;
    qryOrd151O151_007: TStringField;
    qryOrd151O151_008: TStringField;
    qryOrd151O151_009: TStringField;
    qryOrd151O151_010: TStringField;
    qryOrd151O151_011: TBooleanField;
    dsOrd151: TDataSource;
    qryOrd152: TADOQuery;
    qryOrd152O152_001: TIntegerField;
    qryOrd152O152_002: TStringField;
    qryOrd152O152_003: TIntegerField;
    qryOrd152O120_002: TStringField;
    qryOrd152O152_004: TStringField;
    qryOrd152O152_005: TStringField;
    qryOrd152O152_006: TStringField;
    qryOrd152O152_007: TStringField;
    qryOrd152O152_008: TStringField;
    dsOrd152: TDataSource;
    dsOrd153: TDataSource;
    qryOrd153: TADOQuery;
    qryOrd153I150_002: TStringField;
    qryOrd153I150_003: TStringField;
    qryOrd153O153_003: TWideStringField;
    qryOrd153O153_004: TWideStringField;
    qryOrd153O153_005: TWideStringField;
    qryOrd153O153_006: TDateTimeField;
    qryOrd153O153_007: TDateTimeField;
    qryOrd153O153_008: TDateTimeField;
    qryOrd153O153_009: TDateTimeField;
    qryOrd153O153_012: TSmallintField;
    qryOrd153O153_001: TIntegerField;
    qryOrd153O153_002: TIntegerField;
    dsOrd150: TDataSource;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    edtMacNo: TDBEdit;
    edtControlNo: TDBEdit;
    edtSoftware: TDBEdit;
    lblInstallAdd: TLabel;
    qryOrd153O153_010: TDateTimeField;
    dxDBGrid3O153_010: TdxDBGridDateColumn;
    qryOrd150O150_001: TAutoIncField;
    qryOrd150O150_002: TWideStringField;
    qryOrd150O150_003: TWideStringField;
    qryOrd150O150_004: TWideStringField;
    qryOrd150O150_005: TWideStringField;
    qryOrd150O150_006: TWideStringField;
    qryOrd150O150_007: TWideStringField;
    qryOrd150O150_008: TWideStringField;
    qryOrd150O150_009: TSmallintField;
    qryOrd150O150_010: TIntegerField;
    qryOrd150O150_011: TIntegerField;
    qryOrd150O150_012: TWideStringField;
    qryOrd150O150_013: TWideStringField;
    qryOrd150O150_014: TSmallintField;
    qryOrd150O150_015: TMemoField;
    qryOrd150O150_016: TIntegerField;
    qryOrd150O150_017: TIntegerField;
    qryOrd150O150_018: TIntegerField;
    qryOrd150O150_019: TIntegerField;
    qryOrd150O150_020: TIntegerField;
    qryOrd150O150_021: TIntegerField;
    qryOrd150O150_022: TIntegerField;
    qryOrd150O150_023: TIntegerField;
    qryOrd150O150_024: TWideStringField;
    qryOrd150O150_025: TWideStringField;
    qryOrd150O150_026: TWideStringField;
    qryOrd150O150_027: TIntegerField;
    qryOrd150O150_028: TIntegerField;
    qryOrd150O150_029: TIntegerField;
    qryOrd150O150_030: TFloatField;
    qryOrd150O150_031: TIntegerField;
    qryOrd150O150_032: TFloatField;
    qryOrd150O150_033: TSmallintField;
    lblEngNm: TLabel;
    edtEngNm: TDBEdit;
    lblEngAd: TLabel;
    edtEngAd: TDBEdit;
    qryOrd150O150_034: TWideStringField;
    qryOrd150O150_035: TWideStringField;
    cbPrimaryPlace: TDBCheckBox;
    qryOrd152O152_010: TBooleanField;
    edtInstallAddName: TEdit;
    edtInstallAdd: TEdit;
    sbInstallAdd: TSpeedButton;
    qryOrd153O153_011: TWideStringField;
    sbCon: TSpeedButton;
    PageControl2: TPageControl;
    tsAccount: TTabSheet;
    tsBanks: TTabSheet;
    tsRemark: TTabSheet;
    GroupBox2: TGroupBox;
    lblRecNote: TLabel;
    lblReceive: TLabel;
    lblRecAdv: TLabel;
    lblRecEst: TLabel;
    lblPayNote: TLabel;
    lblPayable: TLabel;
    lblPayAdv: TLabel;
    lblPayEst: TLabel;
    sbRecNote: TSpeedButton;
    sbReceive: TSpeedButton;
    sbRecAdv: TSpeedButton;
    sbRecEst: TSpeedButton;
    sbPayNote: TSpeedButton;
    sbPayable: TSpeedButton;
    sbPayAdv: TSpeedButton;
    sbPayEst: TSpeedButton;
    edtRecNote: TEdit;
    edtReceive: TEdit;
    edtRecAdv: TEdit;
    edtRecEst: TEdit;
    edtPayNote: TEdit;
    edtPayable: TEdit;
    edtPayAdv: TEdit;
    edtPayEst: TEdit;
    GroupBox3: TGroupBox;
    lblBank: TLabel;
    lblAccount: TLabel;
    lblTaxCode: TLabel;
    lblCurrency: TLabel;
    lblCredit: TLabel;