ord310_01.pas.svn-base

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

unit Ord310_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, Menus, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  ExtCtrls, ComCtrls, ToolWin, StdCtrls, wwdbdatetimepicker, Buttons, FR_DBSet,
  ActnList, DB, ADODB, dxDBTL, dxDBTLCl, dxGrClms, Mask, DBCtrls, FR_DSet, fr_Class;

type
  TOrd310_01Form = class(TBas100_01Form)
    Panel1: TPanel;
    Panel2: TPanel;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExit: TAction;
    Panel3: TPanel;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbRefresh: TToolButton;
    tlbLocate: TToolButton;
    tlbSearch: TToolButton;
    tlbPrint: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    Splitter1: TSplitter;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    PageControl2: TPageControl;
    TabSheet2: TTabSheet;
    Splitter2: TSplitter;
    dbgOrd510: TdxDBGrid;
    dsInv500: TDataSource;
    qryInv500: TADOQuery;
    dbgInv500: TdxDBGrid;
    Panel4: TPanel;
    lblTaskCode: TLabel;
    lblTaskName: TLabel;
    lblTaskStatus: TLabel;
    qryPur510: TADOQuery;
    dsPur510: TDataSource;
    dbgPur510: TdxDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    qryOrd510: TADOQuery;
    dsOrd510: TDataSource;
    PopupMenu1: TPopupMenu;
    ActOpen: TAction;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ActFirst2: TAction;
    ActPrior2: TAction;
    ActNext2: TAction;
    ActLast2: TAction;
    ActLocate2: TAction;
    ActFirst3: TAction;
    ActPrior3: TAction;
    ActNext3: TAction;
    ActLast3: TAction;
    ActLocate3: TAction;
    qryOrd500: TADOQuery;
    qryHrm150: TADOQuery;
    dsOrd500: TDataSource;
    Splitter3: TSplitter;
    dbgOrd500: TdxDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Label1: TLabel;
    DBEdit27: TDBEdit;
    qryOrd500O500A_001: TWideStringField;
    qryOrd500O100_002: TWideStringField;
    qryOrd500O500A_002: TIntegerField;
    qryOrd500O500A_003: TDateTimeField;
    qryOrd500O500A_004: TSmallintField;
    qryOrd500H150_002: TStringField;
    qryOrd500H150_003: TStringField;
    qryOrd500O500A_005: TIntegerField;
    qryOrd500O500A_006: TIntegerField;
    qryOrd500G100_002: TWideStringField;
    qryOrd500G100_003: TWideStringField;
    qryOrd500O500A_007: TIntegerField;
    qryOrd500O500A_008: TBCDField;
    qryOrd500G110_002: TWideStringField;
    qryOrd500O500A_009: TIntegerField;
    qryOrd500O500A_010: TSmallintField;
    qryOrd500O500A_011: TWideStringField;
    qryOrd500O500A_012: TFloatField;
    qryOrd500O500A_013: TBCDField;
    qryOrd500O500A_014: TFloatField;
    qryOrd500O500A_015: TFloatField;
    qryOrd500O500A_016: TFloatField;
    qryOrd500O150_002: TWideStringField;
    qryOrd500O150_003: TWideStringField;
    qryOrd500O150_005: TWideStringField;
    qryOrd500O150_006: TWideStringField;
    qryOrd500O150_012: TWideStringField;
    qryOrd500O500A_017: TIntegerField;
    qryOrd500O500A_018: TWideStringField;
    qryOrd500O500A_019: TSmallintField;
    qryOrd500O500A_020: TMemoField;
    qryOrd500O500A_021: TMemoField;
    qryOrd500O500A_022: TDateTimeField;
    qryOrd500O500A_023: TWideStringField;
    qryOrd500O500A_024: TDateTimeField;
    qryOrd500O500A_025: TWideStringField;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    sbSearch: TSpeedButton;
    dbgOrd500O500A_001: TdxDBGridColumn;
    dbgOrd500O100_002: TdxDBGridColumn;
    dbgOrd500O500A_003: TdxDBGridDateColumn;
    dbgOrd500O500A_004: TdxDBGridMaskColumn;
    dbgOrd500H150_002: TdxDBGridLookupColumn;
    dbgOrd500H150_003: TdxDBGridLookupColumn;
    dbgOrd500G100_002: TdxDBGridColumn;
    dbgOrd500G100_003: TdxDBGridColumn;
    dbgOrd500O500A_008: TdxDBGridCurrencyColumn;
    dbgOrd500G110_002: TdxDBGridColumn;
    dbgOrd500O500A_010: TdxDBGridMaskColumn;
    dbgOrd500O500A_012: TdxDBGridMaskColumn;
    dbgOrd500O500A_013: TdxDBGridCurrencyColumn;
    dbgOrd500O500A_014: TdxDBGridMaskColumn;
    dbgOrd500O500A_015: TdxDBGridMaskColumn;
    dbgOrd500O500A_016: TdxDBGridMaskColumn;
    dbgOrd500O150_002: TdxDBGridColumn;
    dbgOrd500O150_003: TdxDBGridColumn;
    dbgOrd500O150_005: TdxDBGridColumn;
    dbgOrd500O150_006: TdxDBGridColumn;
    dbgOrd500O150_012: TdxDBGridColumn;
    dbgOrd500O500A_018: TdxDBGridColumn;
    dbgOrd500O500A_019: TdxDBGridMaskColumn;
    dbgOrd500O500A_022: TdxDBGridDateColumn;
    dbgOrd500O500A_023: TdxDBGridColumn;
    dbgOrd500O500A_024: TdxDBGridDateColumn;
    dbgOrd500O500A_025: TdxDBGridColumn;
    qryOrd510O510A_001: TWideStringField;
    qryOrd510O100_002: TWideStringField;
    qryOrd510O510A_002: TIntegerField;
    qryOrd510O510A_003: TDateTimeField;
    qryOrd510O510A_004: TSmallintField;
    qryOrd510H150_002: TStringField;
    qryOrd510H150_003: TStringField;
    qryOrd510O510A_005: TIntegerField;
    qryOrd510O510A_006: TIntegerField;
    qryOrd510G100_002: TWideStringField;
    qryOrd510G100_003: TWideStringField;
    qryOrd510O510A_007: TIntegerField;
    qryOrd510O510A_008: TBCDField;
    qryOrd510G110_002: TWideStringField;
    qryOrd510O510A_009: TIntegerField;
    qryOrd510O510A_010: TSmallintField;
    qryOrd510O510A_011: TWideStringField;
    qryOrd510O510A_012: TFloatField;
    qryOrd510O510A_013: TBCDField;
    qryOrd510O510A_014: TFloatField;
    qryOrd510O510A_015: TFloatField;
    qryOrd510O510A_016: TFloatField;
    qryOrd510O150_002: TWideStringField;
    qryOrd510O150_003: TWideStringField;
    qryOrd510O150_005: TWideStringField;
    qryOrd510O150_006: TWideStringField;
    qryOrd510O150_012: TWideStringField;
    qryOrd510O510A_017: TIntegerField;
    qryOrd510O510A_018: TWideStringField;
    qryOrd510O510A_019: TSmallintField;
    qryOrd510O510A_020: TMemoField;
    qryOrd510O510A_021: TMemoField;
    qryOrd510O510A_022: TDateTimeField;
    qryOrd510O510A_023: TWideStringField;
    qryOrd510O510A_024: TDateTimeField;
    qryOrd510O510A_025: TWideStringField;
    dbgOrd510O510A_001: TdxDBGridColumn;
    dbgOrd510O100_002: TdxDBGridColumn;
    dbgOrd510O510A_003: TdxDBGridDateColumn;
    dbgOrd510O510A_004: TdxDBGridMaskColumn;
    dbgOrd510H150_002: TdxDBGridLookupColumn;
    dbgOrd510H150_003: TdxDBGridLookupColumn;
    dbgOrd510G100_002: TdxDBGridColumn;
    dbgOrd510G100_003: TdxDBGridColumn;
    dbgOrd510O510A_008: TdxDBGridCurrencyColumn;
    dbgOrd510G110_002: TdxDBGridColumn;
    dbgOrd510O510A_010: TdxDBGridMaskColumn;
    dbgOrd510O510A_012: TdxDBGridMaskColumn;
    dbgOrd510O510A_013: TdxDBGridCurrencyColumn;
    dbgOrd510O510A_014: TdxDBGridMaskColumn;
    dbgOrd510O510A_015: TdxDBGridMaskColumn;
    dbgOrd510O510A_016: TdxDBGridMaskColumn;
    dbgOrd510O150_002: TdxDBGridColumn;
    dbgOrd510O150_003: TdxDBGridColumn;
    dbgOrd510O150_005: TdxDBGridColumn;
    dbgOrd510O150_006: TdxDBGridColumn;
    dbgOrd510O150_012: TdxDBGridColumn;
    dbgOrd510O510A_018: TdxDBGridColumn;
    dbgOrd510O510A_019: TdxDBGridMaskColumn;
    dbgOrd510O510A_022: TdxDBGridDateColumn;
    dbgOrd510O510A_023: TdxDBGridColumn;
    dbgOrd510O510A_024: TdxDBGridDateColumn;
    dbgOrd510O510A_025: TdxDBGridColumn;
    qryPur510P510A_001: TWideStringField;
    qryPur510P510A_003: TDateTimeField;
    qryPur510I150_002: TWideStringField;
    qryPur510I150_003: TWideStringField;
    qryPur510I150_004: TWideStringField;
    qryPur510I140_002: TWideStringField;
    qryPur510I140_003: TWideStringField;
    qryPur510P510B_005: TFloatField;
    qryPur510P510B_016: TFloatField;
    dbgPur510P510A_001: TdxDBGridColumn;
    dbgPur510P510A_003: TdxDBGridDateColumn;
    dbgPur510I150_002: TdxDBGridColumn;
    dbgPur510I150_003: TdxDBGridColumn;
    dbgPur510I150_004: TdxDBGridColumn;
    dbgPur510I140_003: TdxDBGridColumn;
    dbgPur510P510B_005: TdxDBGridMaskColumn;
    dbgPur510P510B_016: TdxDBGridMaskColumn;
    qryInv500I500A_001: TWideStringField;
    qryInv500I500A_004: TDateTimeField;
    qryInv500I150_002: TWideStringField;
    qryInv500I150_003: TWideStringField;
    qryInv500I150_004: TWideStringField;
    qryInv500I140_002: TWideStringField;
    qryInv500I140_003: TWideStringField;
    qryInv500I500B_005: TFloatField;
    dbgInv500I500A_001: TdxDBGridColumn;
    dbgInv500I500A_004: TdxDBGridDateColumn;
    dbgInv500I150_002: TdxDBGridColumn;
    dbgInv500I150_003: TdxDBGridColumn;
    dbgInv500I150_004: TdxDBGridColumn;
    dbgInv500I140_003: TdxDBGridColumn;
    dbgInv500I500B_005: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dbgPur510BackgroundDrawEvent(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect);
    procedure sbSearchClick(Sender: TObject);
    procedure dbgOrd510CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure cbClassChange(Sender: TObject);
    procedure ActFirstExecute(Sender: TObject);
    procedure ActPriorExecute(Sender: TObject);
    procedure ActNextExecute(Sender: TObject);
    procedure ActLastExecute(Sender: TObject);
    procedure ActRefreshExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure ActOpenExecute(Sender: TObject);
    procedure dbgOrd510DblClick(Sender: TObject);
    procedure dbgOrd500CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure qryOrd500AfterScroll(DataSet: TDataSet);
    procedure dbgOrd500DblClick(Sender: TObject);
    procedure qryOrd500O500A_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryOrd500O500A_010GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryOrd500O500A_019GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryOrd510O510A_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryOrd510O510A_010GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryOrd510O510A_019GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AQuoteStatus:array[0..4] of string;