ser310_01.pas.svn-base

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

unit Ser310_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
  TSer310_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;
    Splitter2: TSplitter;
    Panel4: TPanel;
    lblTaskCode: TLabel;
    lblTaskName: TLabel;
    lblTaskStatus: TLabel;
    lblTaskClass: TLabel;
    qrySer520: TADOQuery;
    dsSer520: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    qrySer510: TADOQuery;
    dsSer510: 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;
    qrySer500: TADOQuery;
    dsSer500: TDataSource;
    dbgSer500: TdxDBGrid;
    lblStatus: TLabel;
    cbStatus: TComboBox;
    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;
    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;
    qrySer510S510_001: TWideStringField;
    qrySer510S510_003: TDateTimeField;
    qrySer510H150_003: TWideStringField;
    qrySer510S510_006: TWideStringField;
    qrySer510S510_007: TWideStringField;
    qrySer510S510_008: TWideStringField;
    qrySer510S510_009: TMemoField;
    qrySer510S510_010: TDateTimeField;
    qrySer510S510_011: TWideStringField;
    qrySer510S510_012: TDateTimeField;
    qrySer510S510_013: TWideStringField;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    dsSer521: TDataSource;
    dsSer522: TDataSource;
    dsSer523: TDataSource;
    dsSer524: TDataSource;
    qrySer521: TADOQuery;
    qrySer522: TADOQuery;
    qrySer523: TADOQuery;
    dbgSer524: TdxDBGrid;
    dbgSer523: TdxDBGrid;
    dbgSer521: TdxDBGrid;
    qrySer524: TADOQuery;
    dbgSer522: TdxDBGrid;
    qrySer523S523_002: TIntegerField;
    qrySer523S523_003: TDateTimeField;
    qrySer523O150_003: TWideStringField;
    qrySer523S523_005: TBCDField;
    dbgSer523S523_002: TdxDBGridMaskColumn;
    dbgSer523S523_003: TdxDBGridDateColumn;
    dbgSer523O150_003: TdxDBGridColumn;
    dbgSer523S523_005: TdxDBGridCurrencyColumn;
    qrySer524S524_002: TIntegerField;
    qrySer524S524_003: TDateTimeField;
    qrySer524S524_004: TIntegerField;
    qrySer524S524_005: TFloatField;
    qrySer524S524_006: TFloatField;
    qrySer524S524_007: TFloatField;
    dbgSer524S524_002: TdxDBGridMaskColumn;
    dbgSer524S524_003: TdxDBGridDateColumn;
    dbgSer524S524_004: TdxDBGridMaskColumn;
    dbgSer524S524_005: TdxDBGridMaskColumn;
    dbgSer524S524_006: TdxDBGridMaskColumn;
    dbgSer524S524_007: TdxDBGridMaskColumn;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    dbgSer510: TdxDBGrid;
    dbgSer510S510_001: TdxDBGridColumn;
    dbgSer510S510_003: TdxDBGridDateColumn;
    dbgSer510H150_003: TdxDBGridColumn;
    dbgSer510S510_006: TdxDBGridColumn;
    dbgSer510S510_007: TdxDBGridColumn;
    dbgSer510S510_008: TdxDBGridColumn;
    dbgSer510S510_009: TdxDBGridMemoColumn;
    dbgSer510S510_010: TdxDBGridDateColumn;
    dbgSer510S510_011: TdxDBGridColumn;
    dbgSer510S510_012: TdxDBGridDateColumn;
    dbgSer510S510_013: TdxDBGridColumn;
    TabSheet4: TTabSheet;
    ScrollBox2: TScrollBox;
    lblRepCode: TLabel;
    lblRepDays: TLabel;
    lblSupport: TLabel;
    lblRepDate: TLabel;
    lblPercent: TLabel;
    lblVendor: TLabel;
    lblSupportDays: TLabel;
    lblContinue: TLabel;
    lblDelay: TLabel;
    lblRepMemo: TLabel;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBMemo2: TDBMemo;
    ToolBar3: TToolBar;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit5: TDBEdit;
    qrySer520S520_001: TWideStringField;
    qrySer520S520_003: TSmallintField;
    qrySer520S520_004: TDateTimeField;
    qrySer520S520_005: TWideStringField;
    qrySer520S520_011: TMemoField;
    qrySer520S520_012: TDateTimeField;
    qrySer520S520_013: TWideStringField;
    qrySer520S520_014: TDateTimeField;
    qrySer520S520_015: TWideStringField;
    qrySer521S521_002: TIntegerField;
    qrySer521S521_003: TWideStringField;
    qrySer521S521_004: TWideStringField;
    qrySer521S521_005: TBCDField;
    qrySer521S521_006: TSmallintField;
    qrySer521S521_007: TDateTimeField;
    qrySer521S521_008: TDateTimeField;
    qrySer522S522_002: TIntegerField;
    qrySer522S522_003: TDateTimeField;
    qrySer522H150_003: TWideStringField;
    qrySer522S522_005: TBCDField;
    dbgSer522S522_002: TdxDBGridMaskColumn;
    dbgSer522S522_003: TdxDBGridDateColumn;
    dbgSer522H150_003: TdxDBGridColumn;
    dbgSer522S522_005: TdxDBGridCurrencyColumn;
    dbgSer521S521_002: TdxDBGridMaskColumn;
    dbgSer521S521_003: TdxDBGridColumn;
    dbgSer521S521_004: TdxDBGridColumn;
    dbgSer521S521_005: TdxDBGridCurrencyColumn;
    dbgSer521S521_006: TdxDBGridMaskColumn;
    dbgSer521S521_007: TdxDBGridDateColumn;
    dbgSer521S521_008: TdxDBGridDateColumn;
    ScrollBox1: TScrollBox;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBMemo1: TDBMemo;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    Label4: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dbgTas520BackgroundDrawEvent(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 dbgSer510CustomDrawCell(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 qryTas520T520_003GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
//    procedure qryTas520T520_004GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
//    procedure qryTas530T530_007GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
    procedure ActOpenExecute(Sender: TObject);
    procedure dbgSer510DblClick(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 dbgSer500CustomDrawCell(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 qrySer500AfterScroll(DataSet: TDataSet);
//    procedure qryTas500T500_007GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
//    procedure qryTas500T500_010GetText(Sender: TField; var Text: String;
//      DisplayText: Boolean);
    procedure dbgSer500DblClick(Sender: TObject);
    procedure qrySer521S521_006GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  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);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ser310_01Form: TSer310_01Form;

implementation

uses SYSDATA, CommFun, TasComm, HwPrint, Ser500_02, Ser510_02, Ser520_02, Ser530_02;