ordw01_01.pas.svn-base

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

unit OrdW01_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, HwWork, dxExEdtr, ADODB, DB, Menus, ActnList, ImgList, dxDBCtrl,
  dxDBGrid, dxTL, dxDBTLCl, dxGrClms, StdCtrls, Buttons,
  wwdbdatetimepicker, ExtCtrls, dxCntner, ComCtrls, dxtree, dxdbtree,
  ToolWin;

type
  TOrdW01_01Form = class(THwWorkForm)
    ActOrdS00: TAction;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryMasterO510A_001: TWideStringField;
    qryMasterO100_002: TWideStringField;
    qryMasterO510A_002: TIntegerField;
    qryMasterO510A_003: TDateTimeField;
    qryMasterO510A_004: TSmallintField;
    qryMasterH150_002: TStringField;
    qryMasterH150_003: TStringField;
    qryMasterO510A_005: TIntegerField;
    qryMasterO510A_006: TIntegerField;
    qryMasterG100_002: TWideStringField;
    qryMasterG100_003: TWideStringField;
    qryMasterO510A_007: TIntegerField;
    qryMasterO510A_008: TBCDField;
    qryMasterG110_002: TWideStringField;
    qryMasterO510A_009: TIntegerField;
    qryMasterO510A_010: TSmallintField;
    qryMasterO510A_011: TWideStringField;
    qryMasterO510A_012: TFloatField;
    qryMasterO510A_013: TBCDField;
    qryMasterO510A_014: TFloatField;
    qryMasterO510A_015: TFloatField;
    qryMasterO510A_016: TFloatField;
    qryMasterO150_002: TWideStringField;
    qryMasterO150_003: TWideStringField;
    qryMasterO150_005: TWideStringField;
    qryMasterO150_006: TWideStringField;
    qryMasterO150_012: TWideStringField;
    qryMasterO510A_017: TIntegerField;
    qryMasterO510A_018: TWideStringField;
    qryMasterO510A_020: TMemoField;
    qryMasterO510A_021: TMemoField;
    qryMasterO510A_022: TDateTimeField;
    qryMasterO510A_023: TWideStringField;
    qryMasterO510A_024: TDateTimeField;
    qryMasterO510A_025: TWideStringField;
    dbgMasterO510A_001: TdxDBGridColumn;
    dbgMasterO100_002: TdxDBGridColumn;
    dbgMasterO510A_003: TdxDBGridDateColumn;
    dbgMasterO510A_004: TdxDBGridMaskColumn;
    dbgMasterH150_002: TdxDBGridLookupColumn;
    dbgMasterH150_003: TdxDBGridLookupColumn;
    dbgMasterG100_002: TdxDBGridColumn;
    dbgMasterG100_003: TdxDBGridColumn;
    dbgMasterO510A_008: TdxDBGridCurrencyColumn;
    dbgMasterG110_002: TdxDBGridColumn;
    dbgMasterO510A_010: TdxDBGridMaskColumn;
    dbgMasterO510A_011: TdxDBGridColumn;
    dbgMasterO510A_013: TdxDBGridCurrencyColumn;
    dbgMasterO150_002: TdxDBGridColumn;
    dbgMasterO150_003: TdxDBGridColumn;
    dbgMasterO150_005: TdxDBGridColumn;
    dbgMasterO150_006: TdxDBGridColumn;
    dbgMasterO150_012: TdxDBGridColumn;
    dbgMasterO510A_018: TdxDBGridColumn;
    dbgMasterO510A_019: TdxDBGridMaskColumn;
    dbgMasterO510A_022: TdxDBGridDateColumn;
    dbgMasterO510A_023: TdxDBGridColumn;
    dbgMasterO510A_024: TdxDBGridDateColumn;
    dbgMasterO510A_025: TdxDBGridColumn;
    tlbOrd100: TToolButton;
    tlbOrd120: TToolButton;
    ActGld100: TAction;
    ActGld110: TAction;
    ActHrm100: TAction;
    ActHrm120: TAction;
    ActHrm130: TAction;
    ActHrm150: TAction;
    ActInv120: TAction;
    ActInv140: TAction;
    ActInv150: TAction;
    ActOrd100: TAction;
    ActOrd120: TAction;
    ActOrd130: TAction;
    ActOrd140: TAction;
    ActOrd150: TAction;
    ActOrd160: TAction;
    ActOrd500: TAction;
    ActOrd510: TAction;
    ActOrd310: TAction;
    ActOrd320: TAction;
    ActOrd400: TAction;
    ActOrd410: TAction;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    tlbOrd130: TToolButton;
    tlbOrd140: TToolButton;
    tlbOrd150: TToolButton;
    tlbOrd160: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    tlbOrd500: TToolButton;
    tlbOrd510: TToolButton;
    ToolButton14: TToolButton;
    tlbExit: TToolButton;
    qryMasterO510A_019: TSmallintField;
    dbgMasterO510A_012: TdxDBGridCurrencyColumn;
    dbgMasterO510A_014: TdxDBGridCurrencyColumn;
    dbgMasterO510A_015: TdxDBGridCurrencyColumn;
    dbgMasterO510A_016: TdxDBGridCurrencyColumn;
    ActOrd300: TAction;
    ActOrd420: TAction;
    N30: TMenuItem;
    N31: TMenuItem;
    ActAcr500: TAction;
    ActAcr510: TAction;
    ActAcr300: TAction;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActOrdS00Execute(Sender: TObject);
    procedure dbgMasterO510A_001DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure qryMasterO510A_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryMasterO510A_010GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryMasterO510A_019GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AStatus:array[0..5] of string;
    APick:array[0..4] of string;
    AFrom:array[0..2] of string;
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure SearchEvent; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    procedure SetModuleName; override;
    procedure SetProgramRights; override;
    procedure GetAllClass(ADataSet:TADODataSet;AcbClass:TComboBox); override;
    { Public declarations }
  end;

var
  OrdW01_01Form: TOrdW01_01Form;

implementation

uses SYSDATA, CommFun, OrdComm, Ord510_02;

{$R *.dfm}

procedure TOrdW01_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORDW0101001');  //销售管理平台
  TabSheet1.Caption:=GetDBString('ORDW0101002');  //销售定单
  ActOrdS00.Caption:=GetDBString('ORDW0101003');  //销售管理参数
  ActGld100.Caption:=GetDBString('ORDW0101004');  //币别资料维护
  ActGld110.Caption:=GetDBString('ORDW0101005');  //付款方式维护
  ActHrm100.Caption:=GetDBString('ORDW0101006');  //部门资料维护
  ActHrm120.Caption:=GetDBString('ORDW0101007');  //岗位资料维护
  ActHrm130.Caption:=GetDBString('ORDW0101008');  //员工状态维护
  ActHrm150.Caption:=GetDBString('ORDW0101009');  //员工资料维护
  ActInv120.Caption:=GetDBString('ORDW0101010');  //料品分类维护
  ActInv140.Caption:=GetDBString('ORDW0101011');  //计量单位维护
  ActInv150.Caption:=GetDBString('ORDW0101012');  //料品资料维护
  ActOrd100.Caption:=GetDBString('ORDW0101013');  //销售类型维护
  ActOrd120.Caption:=GetDBString('ORDW0101014');  //地区资料维护
  ActOrd130.Caption:=GetDBString('ORDW0101015');  //销售价格维护
  ActOrd140.Caption:=GetDBString('ORDW0101016');  //特殊价格维护
  ActOrd150.Caption:=GetDBString('ORDW0101017');  //客户资料维护
  ActOrd160.Caption:=GetDBString('ORDW0101018');  //条款资料维护
  ActOrd500.Caption:=GetDBString('ORDW0101019');  //销售报价维护
  ActOrd510.Caption:=GetDBString('ORDW0101020');  //销售定单维护

  ActOrd300.Caption:=GetDBString('ORDW0101079');  //销售产品查询
  ActOrd310.Caption:=GetDBString('ORDW0101021');  //销售报价跟踪
  ActOrd320.Caption:=GetDBString('ORDW0101022');  //销售定单跟踪
  ActOrd400.Caption:=GetDBString('ORDW0101023');  //销售数量分析
  ActOrd410.Caption:=GetDBString('ORDW0101024');  //月销售量分析
  ActOrd420.Caption:=GetDBString('ORDW0101080');  //报价成交分析

  tlbOrd100.Caption:=GetDBString('ORDW0101025');  //销售类型
  tlbOrd120.Caption:=GetDBString('ORDW0101026');  //地区资料
  tlbOrd130.Caption:=GetDBString('ORDW0101027');  //销售价格
  tlbOrd140.Caption:=GetDBString('ORDW0101028');  //特殊价格
  tlbOrd150.Caption:=GetDBString('ORDW0101029');  //客户资料
  tlbOrd500.Caption:=GetDBString('ORDW0101030');  //销售报价