purw00_01.pas.svn-base

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

unit PurW00_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, ToolWin,
  wwdbdatetimepicker, ExtCtrls, dxCntner, ComCtrls, dxtree, dxdbtree;

type
  TPurW00_01Form = class(THwWorkForm)
    tlbOrd150: TToolButton;
    tlbPur100: TToolButton;
    ActPurS00: TAction;
    qryMasterP510A_001: TWideStringField;
    qryMasterP510A_002: TIntegerField;
    qryMasterP510A_003: TDateTimeField;
    qryMasterP510A_004: TSmallintField;
    qryMasterP510A_005: TIntegerField;
    qryMasterP510A_007: TIntegerField;
    qryMasterP510A_008: TBCDField;
    qryMasterP510A_009: TIntegerField;
    qryMasterP510A_010: TDateTimeField;
    qryMasterP510A_011: TWideStringField;
    qryMasterP510A_012: TFloatField;
    qryMasterP510A_013: TBCDField;
    qryMasterP510A_014: TFloatField;
    qryMasterP510A_015: TFloatField;
    qryMasterP510A_016: TFloatField;
    qryMasterP510A_017: TIntegerField;
    qryMasterP510A_020: TMemoField;
    qryMasterP510A_021: TMemoField;
    qryMasterP510A_022: TDateTimeField;
    qryMasterP510A_023: TWideStringField;
    qryMasterP510A_024: TDateTimeField;
    qryMasterP510A_025: TWideStringField;
    qryMasterP100_002: TWideStringField;
    qryMasterO150_002: TWideStringField;
    qryMasterO150_003: TWideStringField;
    qryMasterO150_005: TWideStringField;
    qryMasterO150_006: TWideStringField;
    qryMasterO150_012: TWideStringField;
    qryMasterG100_002: TWideStringField;
    qryMasterG100_003: TWideStringField;
    qryMasterG110_002: TWideStringField;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryMasterH150_002: TStringField;
    qryMasterH150_003: TStringField;
    qryMasterP510A_018: TWideStringField;
    dbgMasterP510A_001: TdxDBGridColumn;
    dbgMasterP100_002: TdxDBGridColumn;
    dbgMasterP510A_003: TdxDBGridDateColumn;
    dbgMasterP510A_004: TdxDBGridMaskColumn;
    dbgMasterH150_002: TdxDBGridLookupColumn;
    dbgMasterH150_003: TdxDBGridLookupColumn;
    dbgMasterP510A_006: TdxDBGridMaskColumn;
    dbgMasterG100_002: TdxDBGridColumn;
    dbgMasterG100_003: TdxDBGridColumn;
    dbgMasterP510A_008: TdxDBGridCurrencyColumn;
    dbgMasterG110_002: TdxDBGridColumn;
    dbgMasterP510A_010: TdxDBGridDateColumn;
    dbgMasterP510A_011: TdxDBGridColumn;
    dbgMasterP510A_012: TdxDBGridMaskColumn;
    dbgMasterP510A_013: TdxDBGridCurrencyColumn;
    dbgMasterP510A_014: TdxDBGridMaskColumn;
    dbgMasterP510A_015: TdxDBGridMaskColumn;
    dbgMasterP510A_016: TdxDBGridMaskColumn;
    dbgMasterO150_002: TdxDBGridColumn;
    dbgMasterO150_003: TdxDBGridColumn;
    dbgMasterO150_005: TdxDBGridColumn;
    dbgMasterO150_006: TdxDBGridColumn;
    dbgMasterO150_012: TdxDBGridColumn;
    dbgMasterP510A_018: TdxDBGridColumn;
    dbgMasterP510A_019: TdxDBGridMaskColumn;
    dbgMasterP510A_022: TdxDBGridDateColumn;
    dbgMasterP510A_023: TdxDBGridColumn;
    dbgMasterP510A_024: TdxDBGridDateColumn;
    dbgMasterP510A_025: TdxDBGridColumn;
    ActGld100: TAction;
    ActGld110: TAction;
    ActHrm100: TAction;
    ActHrm120: TAction;
    ActHrm130: TAction;
    ActHrm150: TAction;
    ActInv120: TAction;
    ActOrd150: TAction;
    ActInv140: TAction;
    ActInv150: TAction;
    ActPur100: TAction;
    ActPur120: TAction;
    ActOrd120: TAction;
    ActOrd160: TAction;
    ActPur500: TAction;
    ActPur510: TAction;
    ActPur400: TAction;
    ActPur410: TAction;
    ToolButton5: TToolButton;
    tlbPur120: TToolButton;
    ToolButton7: TToolButton;
    tlbPur500: TToolButton;
    tlbPur510: TToolButton;
    ToolButton10: TToolButton;
    tlbExit: TToolButton;
    A1: TMenuItem;
    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;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    qryMasterP510A_006: TSmallintField;
    qryMasterP510A_019: TSmallintField;
    ActPur200: TAction;
    ActPur300: TAction;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    ActAcp500: TAction;
    ActAcp510: TAction;
    ActAcp300: TAction;
    N24: TMenuItem;
    N25: TMenuItem;
    N29: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActPurS00Execute(Sender: TObject);
    procedure dbgMasterP510A_001DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure qryMasterP510A_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryMasterP510A_006GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryMasterP510A_019GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AStatus:array[0..5] of string;
    APick:array[0..4] of string;
    AFrom:array[0..3] 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
  PurW00_01Form: TPurW00_01Form;

implementation

uses SYSDATA, CommFun, OrdComm, PurComm, Pur510_02;

{$R *.dfm}

procedure TPurW00_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('PURW0001001');  //采购管理平台
  TabSheet1.Caption:=GetDBString('PURW0001002');  //采购定单
  ActPurS00.Caption:=GetDBString('PURW0001003');  //采购管理参数
  ActGld100.Caption:=GetDBString('PURW0001004');  //币别资料维护
  ActGld110.Caption:=GetDBString('PURW0001005');  //付款方式维护
  ActHrm100.Caption:=GetDBString('PURW0001006');  //部门资料维护
  ActHrm120.Caption:=GetDBString('PURW0001007');  //岗位资料维护
  ActHrm130.Caption:=GetDBString('PURW0001008');  //员工状态维护
  ActHrm150.Caption:=GetDBString('PURW0001009');  //员工资料维护
  ActInv120.Caption:=GetDBString('PURW0001010');  //料品分类维护
  ActInv140.Caption:=GetDBString('PURW0001011');  //计量单位维护
  ActInv150.Caption:=GetDBString('PURW0001012');  //料品资料维护
  ActOrd120.Caption:=GetDBString('PURW0001013');  //地区资料维护
  ActOrd150.Caption:=GetDBString('PURW0001014');  //客户资料维护
  ActOrd160.Caption:=GetDBString('PURW0001015');  //条款资料维护
  ActPur100.Caption:=GetDBString('PURW0001016');  //采购类型维护
  ActPur120.Caption:=GetDBString('PURW0001017');  //采购价格维护
  ActPur500.Caption:=GetDBString('PURW0001018');  //采购申请维护
  ActPur510.Caption:=GetDBString('PURW0001019');  //采购定单维护

  ActPur200.Caption:=GetDBString('PURW0001020');  //延迟到货报告
  ActPur300.Caption:=GetDBString('PURW0001025');  //采购产品查询
//  ActPur310.Caption:=GetDBString('PURW0001021');  //采购申请跟踪
//  ActPur320.Caption:=GetDBString('PURW0001022');  //采购定单跟踪
  ActPur400.Caption:=GetDBString('PURW0001023');  //采购数量分析
  ActPur410.Caption:=GetDBString('PURW0001024');  //月采购量分析

  tlbOrd150.Caption:=GetDBString('PURW0001026');  //客户资料
  tlbPur100.Caption:=GetDBString('PURW0001027');  //采购类型
  tlbPur120.Caption:=GetDBString('PURW0001028');  //采购价格
  tlbPur500.Caption:=GetDBString('PURW0001029');  //采购申请
  tlbPur510.Caption:=GetDBString('PURW0001030');  //采购定单
  tlbExit.Caption:=GetDBString('PURW0001031');  //退出

  lblClass.Caption:=GetDBString('PURW0001032');  //厂商类别
  pnLists.Caption:=GetDBString('PURW0001033');  //厂商类别