unit OrdW00_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
  TOrdW00_01Form = class(THwWorkForm)
    ActOrdS00: TAction;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryMasterO500A_001: TWideStringField;
    qryMasterO100_002: TWideStringField;
    qryMasterO500A_002: TIntegerField;
    qryMasterO500A_003: TDateTimeField;
    qryMasterO500A_004: TSmallintField;
    qryMasterH150_002: TStringField;
    qryMasterH150_003: TStringField;
    qryMasterO500A_005: TIntegerField;
    qryMasterO500A_006: TIntegerField;
    qryMasterG100_002: TWideStringField;
    qryMasterG100_003: TWideStringField;
    qryMasterO500A_007: TIntegerField;
    qryMasterO500A_008: TBCDField;
    qryMasterG110_002: TWideStringField;
    qryMasterO500A_009: TIntegerField;
    qryMasterO500A_010: TSmallintField;
    qryMasterO500A_011: TWideStringField;
    qryMasterO500A_012: TFloatField;
    qryMasterO500A_013: TBCDField;
    qryMasterO500A_014: TFloatField;
    qryMasterO500A_015: TFloatField;
    qryMasterO500A_016: TFloatField;
    qryMasterO150_002: TWideStringField;
    qryMasterO150_003: TWideStringField;
    qryMasterO150_005: TWideStringField;
    qryMasterO150_006: TWideStringField;
    qryMasterO150_012: TWideStringField;
    qryMasterO500A_017: TIntegerField;
    qryMasterO500A_018: TWideStringField;
    qryMasterO500A_020: TMemoField;
    qryMasterO500A_021: TMemoField;
    qryMasterO500A_022: TDateTimeField;
    qryMasterO500A_023: TWideStringField;
    qryMasterO500A_024: TDateTimeField;
    qryMasterO500A_025: TWideStringField;
    dbgMasterO500A_001: TdxDBGridColumn;
    dbgMasterO100_002: TdxDBGridColumn;
    dbgMasterO500A_003: TdxDBGridDateColumn;
    dbgMasterO500A_004: TdxDBGridMaskColumn;
    dbgMasterH150_002: TdxDBGridLookupColumn;
    dbgMasterH150_003: TdxDBGridLookupColumn;
    dbgMasterG100_002: TdxDBGridColumn;
    dbgMasterG100_003: TdxDBGridColumn;
    dbgMasterO500A_008: TdxDBGridCurrencyColumn;
    dbgMasterG110_002: TdxDBGridColumn;
    dbgMasterO500A_010: TdxDBGridMaskColumn;
    dbgMasterO500A_011: TdxDBGridColumn;
    dbgMasterO500A_013: TdxDBGridCurrencyColumn;
    dbgMasterO150_002: TdxDBGridColumn;
    dbgMasterO150_003: TdxDBGridColumn;
    dbgMasterO150_005: TdxDBGridColumn;
    dbgMasterO150_006: TdxDBGridColumn;
    dbgMasterO150_012: TdxDBGridColumn;
    dbgMasterO500A_018: TdxDBGridColumn;
    dbgMasterO500A_019: TdxDBGridMaskColumn;
    dbgMasterO500A_022: TdxDBGridDateColumn;
    dbgMasterO500A_023: TdxDBGridColumn;
    dbgMasterO500A_024: TdxDBGridDateColumn;
    dbgMasterO500A_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;
    dbgMasterO500A_012: TdxDBGridCurrencyColumn;
    dbgMasterO500A_014: TdxDBGridCurrencyColumn;
    dbgMasterO500A_015: TdxDBGridCurrencyColumn;
    dbgMasterO500A_016: TdxDBGridCurrencyColumn;
    qryMasterO500A_019: TSmallintField;
    ActOrd300: TAction;
    ActOrd420: TAction;
    N30: TMenuItem;
    N31: TMenuItem;
    ActAcr500: TAction;
    ActAcr510: TAction;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    ActAcr300: TAction;
    N36: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActOrdS00Execute(Sender: TObject);
    procedure dbgMasterO500A_001DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure qryMasterO500A_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryMasterO500A_010GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryMasterO500A_019GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AStatus:array[0..5] of string;
    APick:array[0..4] of string;
    AFrom:array[0..1] 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
  OrdW00_01Form: TOrdW00_01Form;

implementation

uses SYSDATA, CommFun, OrdComm, Ord500_02;

{$R *.dfm}

procedure TOrdW00_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORDW0001001');  //銷售報價平臺
  TabSheet1.Caption:=GetDBString('ORDW0001002');  //銷售報價
  ActOrdS00.Caption:=GetDBString('ORDW0001003');  //銷售管理參數(shù)
  ActGld100.Caption:=GetDBString('ORDW0001004');  //幣別資料維護
  ActGld110.Caption:=GetDBString('ORDW0001005');  //付款方式維護
  ActHrm100.Caption:=GetDBString('ORDW0001006');  //部門資料維護
  ActHrm120.Caption:=GetDBString('ORDW0001007');  //崗位資料維護
  ActHrm130.Caption:=GetDBString('ORDW0001008');  //員工狀態(tài)維護
  ActHrm150.Caption:=GetDBString('ORDW0001009');  //員工資料維護
  ActInv120.Caption:=GetDBString('ORDW0001010');  //料品分類維護
  ActInv140.Caption:=GetDBString('ORDW0001011');  //計量單位維護
  ActInv150.Caption:=GetDBString('ORDW0001012');  //料品資料維護
  ActOrd100.Caption:=GetDBString('ORDW0001013');  //銷售類型維護
  ActOrd120.Caption:=GetDBString('ORDW0001014');  //地區(qū)資料維護
  ActOrd130.Caption:=GetDBString('ORDW0001015');  //銷售價格維護
  ActOrd140.Caption:=GetDBString('ORDW0001016');  //特殊價格維護
  ActOrd150.Caption:=GetDBString('ORDW0001017');  //客戶資料維護
  ActOrd160.Caption:=GetDBString('ORDW0001018');  //條款資料維護
  ActOrd500.Caption:=GetDBString('ORDW0001019');  //銷售報價維護
  ActOrd510.Caption:=GetDBString('ORDW0001020');  //銷售定單維護

  ActOrd300.Caption:=GetDBString('ORDW0001078');  //銷售產(chǎn)品查詢
  ActOrd310.Caption:=GetDBString('ORDW0001021');  //銷售報價跟蹤
  ActOrd320.Caption:=GetDBString('ORDW0001022');  //銷售定單跟蹤
  ActOrd400.Caption:=GetDBString('ORDW0001023');  //銷售數(shù)量分析
  ActOrd410.Caption:=GetDBString('ORDW0001024');  //月銷售量分析
  ActOrd420.Caption:=GetDBString('ORDW0001079');  //報價成交分析

  tlbOrd100.Caption:=GetDBString('ORDW0001025');  //銷售類型
  tlbOrd120.Caption:=GetDBString('ORDW0001026');  //地區(qū)資料
  tlbOrd130.Caption:=GetDBString('ORDW0001027');  //銷售價格
  tlbOrd140.Caption:=GetDBString('ORDW0001028');  //特殊價格
  tlbOrd150.Caption:=GetDBString('ORDW0001029');  //客戶資料