tas530_02.pas

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

unit Tas530_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, StdCtrls, Buttons, ComCtrls, wwdbdatetimepicker,
  Menus, DB, ADODB, DBCtrls, CheckLst, wwdblook, ToolWin, ActnList, Grids,
  Wwdbigrd, Wwdbgrid, Mask, wwdbedit, Wwdotdot, Wwdbcomb, dxExEdtr,
  dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, DBGrids, Wwdatsrc,
  wwclearbuttongroup, wwradiogroup;

type
  TTas530_02Form = class(TBas100_01Form)
    gbCust: TGroupBox;
    lblCust: TLabel;
    lblAddress: TLabel;
    lblPhone: TLabel;
    lblContact: TLabel;
    lblPost: TLabel;
    lblEmail: TLabel;
    lblItem: TLabel;
    lblMacNo: TLabel;
    lblMaker: TLabel;
    lblMakerName: TLabel;
    edtCust: TEdit;
    edtCustName: TEdit;
    edtAddress: TEdit;
    edtPhone: TEdit;
    edtContact: TEdit;
    edtPost: TEdit;
    edtEmail: TEdit;
    edtItem: TEdit;
    edtItemName: TEdit;
    edtMaker: TEdit;
    edtMacNo: TEdit;
    edtMakerName: TEdit;
    gbInfo: TGroupBox;
    lblWork: TLabel;
    lblClass: TLabel;
    lblPriority: TLabel;
    lblPerson: TLabel;
    lblCode: TLabel;
    sbWork: TSpeedButton;
    lblTasks: TLabel;
    lblName: TLabel;
    lblPercent: TLabel;
    lblDays: TLabel;
    lblDate: TLabel;
    edtWork: TEdit;
    edtPriority: TEdit;
    edtPerson: TEdit;
    edtCode: TEdit;
    edtClass: TEdit;
    edtTasks: TEdit;
    edtName: TEdit;
    edtPercent: TEdit;
    edtDays: TEdit;
    cbUnit: TComboBox;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    udPercent: TUpDown;
    qryTas530: TADOQuery;
    lblVendor: TLabel;
    edtVendor: TEdit;
    sbVendor: TSpeedButton;
    edtVendorName: TEdit;
    lblSupportDays: TLabel;
    edtSupportDays: TEdit;
    lblSupport: TLabel;
    edtSupport: TEdit;
    Label5: TLabel;
    qryTas520: TADOQuery;
    qryTas520T520_001: TWideStringField;
    qryTas520T520_002: TWideStringField;
    qryTas520T510_002: TWideStringField;
    qryOrd150: TADOQuery;
    qryOrd150O150_002: TStringField;
    qryOrd150O150_003: TStringField;
    qryOrd150O150_001: TAutoIncField;
    qryTas120: TADOQuery;
    qryTas520T510_004: TIntegerField;
    qryTas520T510_016: TIntegerField;
    qryTas520T510_017: TIntegerField;
    qryTas520T510_005: TSmallintField;
    qryTas520T510_018: TWideStringField;
    dsTas110: TDataSource;
    adsTas110: TADODataSet;
    adsTas110FSelected: TBooleanField;
    adsTas110T110_001: TIntegerField;
    adsTas110T110_002: TIntegerField;
    adsTas110T110_003: TStringField;
    adsTas110T110_004: TIntegerField;
    adsTas110T110_005: TBooleanField;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActSave: TAction;
    ActCancel: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExit: TAction;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbInsert: TToolButton;
    tlbUpdate: TToolButton;
    tlbDelete: TToolButton;
    ToolButton2: TToolButton;
    tlbSave: TToolButton;
    tlbCancel: TToolButton;
    ToolButton3: TToolButton;
    tlbRefresh: TToolButton;
    tlbLocate: TToolButton;
    tlbSearch: TToolButton;
    tlbPrint: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    dsTas530: TDataSource;
    qryTas530T530_001: TWideStringField;
    qryTas530T530_002: TWideStringField;
    qryTas530T510_001: TWideStringField;
    qryTas530T510_005: TSmallintField;
    qryTas530T510_002: TWideStringField;
    qryTas530T100_002: TWideStringField;
    qryTas530T530_003: TBCDField;
    qryTas530T520_003: TWideStringField;
    qryTas530T530_004: TBCDField;
    qryTas530T530_007: TWideStringField;
    qryTas530T530_005: TDateTimeField;
    qryTas530T530_006: TDateTimeField;
    qryTas530W150_002: TWideStringField;
    qryTas530W150_003: TWideStringField;
    qryTas530T530_017: TWideStringField;
    qryTas530T530_018: TBCDField;
    qryTas530O150_002: TWideStringField;
    qryTas530O150_003: TWideStringField;
    qryTas530O150_005: TWideStringField;
    qryTas530O150_012: TWideStringField;
    qryTas530O151_002: TWideStringField;
    qryTas530O151_004: TWideStringField;
    qryTas530O150_007: TWideStringField;
    qryTas530I150_002: TWideStringField;
    qryTas530I150_003: TWideStringField;
    qryTas530T510_018: TWideStringField;
    qryTas530I150_004: TWideStringField;
    qryTas530I120_003: TWideStringField;
    qryTas530M150_002: TWideStringField;
    qryTas530M150_003: TWideStringField;
    qryTas530T530_015: TWideStringField;
    qryTas530T530_009: TWideStringField;
    qryTas530T530_010: TIntegerField;
    qryTas530T530_011: TDateTimeField;
    qryTas530T530_012: TWideStringField;
    qryTas530T530_013: TDateTimeField;
    qryTas530T530_014: TWideStringField;
    qryTas530T530_016: TIntegerField;
    qryTas530O150_001: TIntegerField;
    qryTas530T530_008: TMemoField;
    qryTas530T120_003: TWideStringField;
    qryTas530T520_005: TBCDField;
    qryTas530T520_006: TDateTimeField;
    qryTas530T520_007: TDateTimeField;
    qryTas530T510_019: TMemoField;
    qryTas530T510_016: TIntegerField;
    qryTas530T510_017: TIntegerField;
    PageControl1: TPageControl;
    tsReport: TTabSheet;
    tsHours: TTabSheet;
    tsItems: TTabSheet;
    gbDetail: TGroupBox;
    lblDetails: TLabel;
    lblDelay: TLabel;
    lblContinue: TLabel;
    lblCreateDate: TLabel;
    lblCreateBy: TLabel;
    lblUpdateDate: TLabel;
    lblUpdateBy: TLabel;
    memDetails: TMemo;
    edtDelay: TEdit;
    dbgReason: TdxDBGrid;
    dbgReasonFSelected: TdxDBGridCheckColumn;
    dbgReasonT110_003: TdxDBGridMaskColumn;
    cbContinue: TComboBox;
    edtCreateDate: TEdit;
    edtCreateBy: TEdit;
    edtUpdateDate: TEdit;
    edtUpdateBy: TEdit;
    dsTas531: TDataSource;
    qryTas532: TADOQuery;
    dsTas532: TDataSource;
    qryTas532T532_001: TWideStringField;
    qryTas532T532_002: TIntegerField;
    qryTas532T532_003: TFloatField;
    qryTas532T532_004: TSmallintField;
    qryTas532T532_005: TWideStringField;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryInv150: TADOQuery;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    qryInv150I150_004: TWideStringField;
    qryTas532I150_002: TStringField;
    qryTas532I150_003: TStringField;
    qryTas532I150_004: TStringField;
    pmTas531: TPopupMenu;
    mmiAdd1: TMenuItem;
    mmiEdit1: TMenuItem;
    mmiDel1: TMenuItem;
    pmTas532: TPopupMenu;
    mmiAdd2: TMenuItem;
    mmiEdit2: TMenuItem;
    mmiDel2: TMenuItem;
    wwDBGrid1: TwwDBGrid;
    edtEmpolyee: TwwDBComboDlg;
    adsTas531: TADODataSet;
    adsTas531FPerson: TStringField;
    adsTas531FDate: TDateTimeField;
    adsTas531FFromTime: TWideStringField;
    adsTas531FToTime: TWideStringField;
    adsTas531FHours: TBCDField;
    adsTas531FOT: TBCDField;
    adsTas531FRemark: TWideStringField;
    adsTas531FID: TWideStringField;
    qryTas531: TADOQuery;
    ADODataSet1: TADODataSet;
    wwDBGrid2: TwwDBGrid;
    edtItemID: TwwDBComboDlg;
    cbStatus: TDBLookupComboBox;
    adsStatus: TADODataSet;
    dsStatus: TDataSource;
    adsTas531FStartTime: TStringField;
    adsTas531FEndTime: TStringField;
    adsTas531FTripHour: TBCDField;
    ADOQuery1: TADOQuery;
    qryTas530T520_019: TWideStringField;
    qryTas520T520_003: TWideStringField;
    qryTas520T520_019: TWideStringField;
    tsQty: TTabSheet;
    wwDBGrid3: TwwDBGrid;
    dsTas533: TDataSource;
    qryTas533: TADOQuery;
    adsTas533: TADODataSet;
    adsTas533FOrder: TStringField;
    adsTas533FLine: TIntegerField;
    adsTas533FItemNo: TIntegerField;
    adsTas533FItemID: TStringField;
    adsTas533FItemName: TStringField;
    adsTas533FItemSpec: TStringField;
    adsTas533FUnitName: TStringField;
    adsTas533FQty: TFloatField;
    adsTas533FRemark: TStringField;
    adsTas533FItemPrice: TFloatField;
    adsTas533FTotal: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbWorkClick(Sender: TObject);
    procedure edtWorkExit(Sender: TObject);
    procedure sbVendorClick(Sender: TObject);
    procedure edtVendorExit(Sender: TObject);
    procedure dbgReasonKeyPress(Sender: TObject; var Key: Char);
    procedure dbgReasonMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtFromDateExit(Sender: TObject);
    procedure edtDaysKeyPress(Sender: TObject; var Key: Char);
    procedure ActFirstExecute(Sender: TObject);
    procedure ActPriorExecute(Sender: TObject);
    procedure ActNextExecute(Sender: TObject);
    procedure ActLastExecute(Sender: TObject);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActSaveExecute(Sender: TObject);
    procedure ActCancelExecute(Sender: TObject);
    procedure ActRefreshExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure qryTas530AfterScroll(DataSet: TDataSet);
    procedure qryTas530T530_007GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure edtDaysExit(Sender: TObject);
    procedure qryTas530CalcFields(DataSet: TDataSet);
    procedure mmiAdd1Click(Sender: TObject);
    procedure mmiEdit1Click(Sender: TObject);
    procedure mmiDel1Click(Sender: TObject);
    procedure mmiAdd2Click(Sender: TObject);
    procedure mmiEdit2Click(Sender: TObject);
    procedure mmiDel2Click(Sender: TObject);
    procedure edtEmpolyeeCustomDlg(Sender: TObject);
    procedure edtItemIDCustomDlg(Sender: TObject);
    procedure edtEmpolyeeExit(Sender: TObject);
    procedure edtEmpolyeeEnter(Sender: TObject);
    procedure wwDBGrid1Enter(Sender: TObject);
    procedure wwDBGrid1Exit(Sender: TObject);
    procedure wwDBGrid1FieldChanged(Sender: TObject; Field: TField);
    procedure wwDBGrid1UpdateFooter(Sender: TObject);
    procedure adsTas531BeforePost(DataSet: TDataSet);
    procedure adsTas531NewRecord(DataSet: TDataSet);
    procedure edtItemIDExit(Sender: TObject);
    procedure qryTas532BeforePost(DataSet: TDataSet);
    procedure qryTas532NewRecord(DataSet: TDataSet);
    procedure wwDBGrid2UpdateFooter(Sender: TObject);
    procedure qryTas532T532_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure wwDBGrid3ColExit(Sender: TObject);
  private
    AMode,AOldCode,AOldWork:string;
    AUnit:array[0..3] of string;
    ABusy,AIsHours,AIsItems:Boolean;
    AKeyEvent:TKeyEvent;
    AIsAutoCode:Boolean;
    procedure SetButtonState(AInsUpd:Boolean);
    procedure SetInterface;
    procedure SaveData;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant);
    procedure CreateTas533;
    procedure SetTotal;
    { Private declarations }
  public
    procedure OpenData(ACode:string);
    procedure GetTasksInfo(AVendNo,AClassNo,ACustNo,AItemNo:string);
    procedure SetReasonByReaID(AReasonNo:string);
    { Public declarations }
  end;

var
  Tas530_02Form: TTas530_02Form;