ser300_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Ser300_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,
  ActnList, DB, ADODB, dxDBTL, dxDBTLCl, dxGrClms, Mask, DBCtrls;

type
  TSer300_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;
    sbSearch: TSpeedButton;
    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;
    TabSheet2: TTabSheet;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Splitter2: TSplitter;
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    lblWorkCode: TLabel;
    edtDays: TEdit;
    lblDays: TLabel;
    lblFactDays: TLabel;
    lblFromDate: TLabel;
    lblFactFromDate: TLabel;
    lblToDate: TLabel;
    lblFactToDate: TLabel;
    lblPerson: TLabel;
    lblResolvent: TLabel;
    lblRepCode: TLabel;
    lblRepDays: TLabel;
    lblSupport: TLabel;
    lblRepDate: TLabel;
    lblPercent: TLabel;
    lblVendor: TLabel;
    lblSupportDays: TLabel;
    lblContinue: TLabel;
    lblDelay: TLabel;
    lblRepMemo: TLabel;
    Panel4: TPanel;
    qrySer530: TADOQuery;
    dsSer530: TDataSource;
    dbgSer530: TdxDBGrid;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBMemo2: TDBMemo;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolBar3: TToolBar;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ActOpen: TAction;
    ActFirst2: TAction;
    ActPrior2: TAction;
    ActNext2: TAction;
    ActLast2: TAction;
    ActLocate2: TAction;
    ActFirst3: TAction;
    ActPrior3: TAction;
    ActNext3: TAction;
    ActLast3: TAction;
    ActLocate3: TAction;
    lblStatus: TLabel;
    cbStatus: TComboBox;
    qrySer500: TADOQuery;
    qrySer500S500_001: TWideStringField;
    qrySer500S500_002: TWideStringField;
    qrySer500S110_003: TWideStringField;
    qrySer500S100_002: TWideStringField;
    qrySer500S500_005: TSmallintField;
    qrySer500S500_006: TSmallintField;
    qrySer500S500_007: TDateTimeField;
    qrySer500S500_008: TIntegerField;
    qrySer500S500_009: TBCDField;
    qrySer500H150_003: TWideStringField;
    qrySer500S500_011: TWideStringField;
    qrySer500S500_012: TWideStringField;
    qrySer500S500_013: TWideStringField;
    qrySer500S500_014: TWideStringField;
    qrySer500S500_015: TSmallintField;
    qrySer500S500_016: TWideStringField;
    qrySer500O150_003: TWideStringField;
    qrySer500S500_018: TIntegerField;
    qrySer500S500_019: TWideStringField;
    qrySer500S500_020: TBooleanField;
    qrySer500S500_025: TDateTimeField;
    qrySer500S500_026: TDateTimeField;
    qrySer500S500_027: TBooleanField;
    qrySer500S500_028: TDateTimeField;
    qrySer500S500_029: TDateTimeField;
    qrySer500S500_030: TDateTimeField;
    qrySer500S500_031: TDateTimeField;
    qrySer500S500_033: TMemoField;
    qrySer500S500_034: TDateTimeField;
    qrySer500S500_035: TWideStringField;
    qrySer500S500_036: TDateTimeField;
    qrySer500S500_037: TWideStringField;
    dsSer500: TDataSource;
    dbgSer500: TdxDBGrid;
    dbgSer500S500_001: TdxDBGridColumn;
    dbgSer500S500_002: TdxDBGridColumn;
    dbgSer500S110_003: TdxDBGridColumn;
    dbgSer500S100_002: TdxDBGridColumn;
    dbgSer500S500_005: TdxDBGridMaskColumn;
    dbgSer500S500_006: TdxDBGridMaskColumn;
    dbgSer500S500_007: TdxDBGridDateColumn;
    dbgSer500S500_008: TdxDBGridMaskColumn;
    dbgSer500S500_009: TdxDBGridCurrencyColumn;
    dbgSer500H150_003: TdxDBGridColumn;
    dbgSer500S500_011: TdxDBGridColumn;
    dbgSer500S500_012: TdxDBGridColumn;
    dbgSer500S500_013: TdxDBGridColumn;
    dbgSer500S500_014: TdxDBGridColumn;
    dbgSer500S500_015: TdxDBGridMaskColumn;
    dbgSer500S500_016: TdxDBGridColumn;
    dbgSer500O150_003: TdxDBGridColumn;
    dbgSer500S500_018: TdxDBGridMaskColumn;
    dbgSer500S500_019: TdxDBGridColumn;
    dbgSer500S500_020: TdxDBGridCheckColumn;
    dbgSer500S500_025: TdxDBGridDateColumn;
    dbgSer500S500_026: TdxDBGridDateColumn;
    dbgSer500S500_027: TdxDBGridCheckColumn;
    dbgSer500S500_028: TdxDBGridDateColumn;
    dbgSer500S500_029: TdxDBGridDateColumn;
    dbgSer500S500_030: TdxDBGridDateColumn;
    dbgSer500S500_031: TdxDBGridDateColumn;
    dbgSer500S500_033: TdxDBGridMemoColumn;
    dbgSer500S500_034: TdxDBGridDateColumn;
    dbgSer500S500_035: TdxDBGridColumn;
    dbgSer500S500_036: TdxDBGridDateColumn;
    dbgSer500S500_037: TdxDBGridColumn;
    DBEdit4: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    lblPhoStatus: TLabel;
    Label3: TLabel;
    lblPhoClass: TLabel;
    qrySer530S530_001: TWideStringField;
    qrySer530S530_002: TWideStringField;
    qrySer530S530_003: TWideStringField;
    qrySer530S530_004: TDateTimeField;
    qrySer530S530_005: TMemoField;
    qrySer530S530_006: TIntegerField;
    qrySer530S530_007: TDateTimeField;
    qrySer530S530_008: TWideStringField;
    qrySer530S530_009: TDateTimeField;
    qrySer530S530_010: TWideStringField;
    dbgSer530S530_001: TdxDBGridColumn;
    dbgSer530S530_002: TdxDBGridColumn;
    dbgSer530S530_003: TdxDBGridColumn;
    dbgSer530S530_004: TdxDBGridDateColumn;
    dbgSer530S530_005: TdxDBGridMemoColumn;
    dbgSer530S530_006: TdxDBGridMaskColumn;
    dbgSer530S530_007: TdxDBGridDateColumn;
    dbgSer530S530_008: TdxDBGridColumn;
    dbgSer530S530_009: TdxDBGridDateColumn;
    dbgSer530S530_010: TdxDBGridColumn;
    qryOrd151: TADOQuery;
    qryTas510: TADOQuery;
    qryTas510T510_001: TWideStringField;
    qryTas510T510_002: TWideStringField;
    qryTas510T120_003: TWideStringField;
    qryTas510T100_002: TWideStringField;
    qryTas510T510_005: TSmallintField;
    qryTas510T510_006: TDateTimeField;
    qryTas510T510_007: TDateTimeField;
    qryTas510T510_008: TSmallintField;
    qryTas510T510_009: TWideStringField;
    qryTas510T510_011: TWideStringField;
    qryTas510T510_012: TBCDField;
    qryTas510T510_025: TDateTimeField;
    qryTas510T510_026: TDateTimeField;
    qryTas510T510_013: TBCDField;
    qryTas510T510_027: TDateTimeField;
    qryTas510T510_028: TDateTimeField;
    qryTas510T510_014: TBCDField;
    qryTas510T510_015: TIntegerField;
    qryTas510O150_002: TWideStringField;
    qryTas510O150_003: TWideStringField;
    qryTas510O150_005: TWideStringField;
    qryTas510O150_012: TWideStringField;
    qryTas510O151_002: TWideStringField;
    qryTas510O151_004: TWideStringField;
    qryTas510O150_007: TWideStringField;
    qryTas510I150_002: TWideStringField;
    qryTas510I150_003: TWideStringField;
    qryTas510I150_004: TWideStringField;
    qryTas510I120_003: TWideStringField;
    qryTas510M150_002: TWideStringField;
    qryTas510M150_003: TWideStringField;
    qryTas510T510_018: TWideStringField;
    qryTas510T510_019: TMemoField;
    qryTas510T510_020: TDateTimeField;
    qryTas510T510_021: TWideStringField;
    qryTas510T510_022: TDateTimeField;
    qryTas510T510_023: TWideStringField;
    qryTas510T510_003: TIntegerField;
    qryTas510T510_004: TIntegerField;
    qryTas510T510_010: TIntegerField;
    qryTas510T510_016: TIntegerField;
    qryTas510T510_017: TIntegerField;
    qryTas510T510_024: TIntegerField;
    qryTas510H150_002: TStringField;
    qryTas510H150_003: TStringField;
    qryTas510T120_005: TIntegerField;
    dsTas510: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    dbgTas510: TdxDBGrid;
    dbgTas510T510_001: TdxDBGridColumn;
    dbgTas510T510_002: TdxDBGridColumn;
    dbgTas510T120_003: TdxDBGridColumn;
    dbgTas510T100_002: TdxDBGridColumn;
    dbgTas510T510_005: TdxDBGridMaskColumn;
    dbgTas510T510_006: TdxDBGridDateColumn;
    dbgTas510T510_007: TdxDBGridDateColumn;
    dbgTas510T510_008: TdxDBGridMaskColumn;
    dbgTas510T510_009: TdxDBGridColumn;
    dbgTas510T510_011: TdxDBGridColumn;
    dbgTas510T510_012: TdxDBGridCurrencyColumn;
    dbgTas510T510_025: TdxDBGridDateColumn;
    dbgTas510T510_026: TdxDBGridDateColumn;
    dbgTas510T510_013: TdxDBGridCurrencyColumn;
    dbgTas510T510_027: TdxDBGridDateColumn;
    dbgTas510T510_028: TdxDBGridDateColumn;
    dbgTas510T510_014: TdxDBGridCurrencyColumn;
    dbgTas510T510_015: TdxDBGridMaskColumn;
    dbgTas510O150_002: TdxDBGridColumn;
    dbgTas510O150_003: TdxDBGridColumn;
    dbgTas510O150_005: TdxDBGridColumn;
    dbgTas510O150_012: TdxDBGridColumn;
    dbgTas510O151_002: TdxDBGridColumn;
    dbgTas510O151_004: TdxDBGridColumn;
    dbgTas510O150_007: TdxDBGridColumn;
    dbgTas510I150_002: TdxDBGridColumn;
    dbgTas510I150_003: TdxDBGridColumn;
    dbgTas510I150_004: TdxDBGridColumn;
    dbgTas510I120_003: TdxDBGridColumn;
    dbgTas510M150_002: TdxDBGridColumn;
    dbgTas510M150_003: TdxDBGridColumn;
    dbgTas510T510_018: TdxDBGridColumn;
    dbgTas510T510_020: TdxDBGridDateColumn;
    dbgTas510T510_021: TdxDBGridColumn;
    dbgTas510T510_022: TdxDBGridDateColumn;
    dbgTas510T510_023: TdxDBGridColumn;
    dbgTas510T120_005: TdxDBGridMaskColumn;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit8: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit19: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dbgSer530BackgroundDrawEvent(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect);
    procedure sbSearchClick(Sender: TObject);
    procedure qryTas510T510_008GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryTas510T510_011GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure dbgTas510CustomDrawCell(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 cT520_003GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
//    procedure cT520_004GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
//    procedure qryTas530T530_007GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
    procedure ActOpenExecute(Sender: TObject);
    procedure dbgTas510DblClick(Sender: TObject);
    procedure ActFirst2Execute(Sender: TObject);
    procedure ActPrior2Execute(Sender: TObject);
    procedure ActNext2Execute(Sender: TObject);
    procedure ActLast2Execute(Sender: TObject);
    procedure ActLocate2Execute(Sender: TObject);
    procedure ActFirst3Execute(Sender: TObject);
    procedure ActPrior3Execute(Sender: TObject);
    procedure ActNext3Execute(Sender: TObject);
    procedure ActLast3Execute(Sender: TObject);
    procedure ActLocate3Execute(Sender: TObject);
    procedure dbgTas500CustomDrawCell(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 qryTas500AfterScroll(DataSet: TDataSet);
//    procedure qryTas500T500_007GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
//    procedure qryTas500T500_010GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
    procedure dbgTas500DblClick(Sender: TObject);
  private
    AType:array[0..3] of string;
    AUnit:array[0..3] of string;
    procedure SetButtonState(AInsUpd:Boolean);
    procedure SetInterface;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant);
    procedure FilterDialogSelectField1(Sender: TObject;
      FieldName: String; var PictureMask: String; ComboList: TStrings);
    procedure FilterDialogSelectField2(Sender: TObject;
      FieldName: String; var PictureMask: String; ComboList: TStrings);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ser300_01Form: TSer300_01Form;