umove.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 78 行

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.