umove.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit umove;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub2, dxExEdtr, ActnList, ImgList, Menus, DB, ComCtrls,
  ToolWin, Tabs, ExtCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl,
  dxGrClms, wwdbdatetimepicker, DBCtrls, StdCtrls, Mask, dxEditor, dxEdLib,
  dxDBELib;

type
  TfmMove = class(Tfmpub2)              
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label4: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    GridEnterPartNo: TdxDBGridButtonColumn;
    GridEnterPartNameC: TdxDBGridMaskColumn;
    GridEnterPartNameE: TdxDBGridMaskColumn;
    GridEnterColor: TdxDBGridMaskColumn;
    GridEnterUnitID: TdxDBGridMaskColumn;
    GridEnterUnitName: TdxDBGridMaskColumn;
    GridEnterQty: TdxDBGridCalcColumn;
    GridEnterRemark: TdxDBGridMaskColumn;
    GridSubMoveNo: TdxDBGridMaskColumn;
    GridSubPartNo: TdxDBGridMaskColumn;
    GridSubUnitID: TdxDBGridMaskColumn;
    GridSubUnitName: TdxDBGridLookupColumn;
    GridSubRemark: TdxDBGridMaskColumn;
    GridSubQty: TdxDBGridMaskColumn;
    GridSubPartNameC: TdxDBGridMaskColumn;
    GridSubPartNameE: TdxDBGridMaskColumn;
    GridSubModel: TdxDBGridMaskColumn;
    GridSubColor: TdxDBGridMaskColumn;
    GridEnterModel: TdxDBGridMaskColumn;
    Label6: TLabel;
    dxDBButtonEdit3: TdxDBButtonEdit;
    GridMasHandler: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure dxDBButtonEdit3ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMove: TfmMove;

implementation

uses udminv, SherryLib, udmbase;

{$R *.dfm}

procedure TfmMove.FormCreate(Sender: TObject);
begin
  inherited;
  DBEdit1.ReadOnly:=Exists(Format('select 1 from SysConfig where Note%dAutoNo=1 and ID=1',[8]));
end;

procedure TfmMove.dxDBButtonEdit3ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  inherited;
  If LookUp(DMBase.Cemployee) then DMINV.CMoveMas['Handler']:=DMBase.Cemployee['EmployeeC'];
end;

end.