inv100_01.pas.svn-base

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

unit Inv100_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_10, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, dxDBTLCl, dxGrClms;

type
  TInv100_01Form = class(TBas200_10Form)
    ADOQuery1I100_001: TAutoIncField;
    ADOQuery1I100_002: TWideStringField;
    ADOQuery1I100_003: TWideStringField;
    ADOQuery1I100_004: TWideStringField;
    ADOQuery1I100_005: TIntegerField;
    ADOQuery1I100_006: TWideStringField;
    ADOQuery1I100_007: TWideStringField;
    ADOQuery1I100_008: TWideStringField;
    ADOQuery1I100_009: TIntegerField;
    ADOQuery1I100_010: TBooleanField;
    ADOQuery1I100_011: TBooleanField;
    ADOQuery1O120_002: TWideStringField;
    ADOQuery1H150_002: TWideStringField;
    ADOQuery1H150_003: TWideStringField;
    dxDBGrid1I100_002: TdxDBGridColumn;
    dxDBGrid1I100_003: TdxDBGridColumn;
    dxDBGrid1I100_004: TdxDBGridColumn;
    dxDBGrid1O120_002: TdxDBGridColumn;
    dxDBGrid1I100_006: TdxDBGridColumn;
    dxDBGrid1I100_007: TdxDBGridColumn;
    dxDBGrid1I100_008: TdxDBGridColumn;
    dxDBGrid1H150_002: TdxDBGridColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid1I100_010: TdxDBGridCheckColumn;
    dxDBGrid1I100_011: TdxDBGridCheckColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Inv100_01Form: TInv100_01Form;

implementation

uses SYSDATA, CommFun, Inv100_02;

{$R *.dfm}

procedure TInv100_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('INV10001001');  //仓库资料维护
  ADOQuery1I100_002.DisplayLabel:=GetDBString('INV10001002');  //仓库编号
  ADOQuery1I100_003.DisplayLabel:=GetDBString('INV10001003');  //仓库名称
  ADOQuery1I100_004.DisplayLabel:=GetDBString('INV10001004');  //仓库地址
  ADOQuery1O120_002.DisplayLabel:=GetDBString('INV10001005');  //所属地区
  ADOQuery1I100_006.DisplayLabel:=GetDBString('INV10001006');  //电话号码
  ADOQuery1I100_007.DisplayLabel:=GetDBString('INV10001007');  //传真号码
  ADOQuery1I100_008.DisplayLabel:=GetDBString('INV10001008');  //邮政编码
  ADOQuery1H150_002.DisplayLabel:=GetDBString('INV10001009');  //联系人号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('INV10001010');  //联系人名
  ADOQuery1I100_010.DisplayLabel:=GetDBString('INV10001011');  //可否分配
  ADOQuery1I100_011.DisplayLabel:=GetDBString('INV10001012');  //计算 MRP
end;

procedure TInv100_01Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure TInv100_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TInv100_01Form.BrowseEvent;
begin
  inherited;
  ActUpdate.Execute;
end;

procedure TInv100_01Form.DeleteEvent;
begin
  inherited;
  if IsExists('select 1 from INV110 where I110_002='+ADOQuery1I100_001.AsString) then
  begin
    ShowMsg('UMS10000483');  //该仓库资料已被库位资料表引用，不可删除
    Abort;
  end;
  if IsExists('select 1 from INV150 where I150_024='+ADOQuery1I100_001.AsString) then
  begin
    ShowMsg('UMS10000484');  //该仓库资料已被料品资料表引用，不可删除
    Abort;
  end;
  if IsExists('select 1 from INV501 where I501_001='+ADOQuery1I100_001.AsString) then
  begin
    ShowMsg('UMS10000485');  //该仓库存在相关的进出仓单记录，不可删除
    Abort;
  end;
  //删除相关的权限记录
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from SYS500C where S500C_003=''WHS'' and S500C_002=-'+ADOQuery1I100_001.AsString);
  SYSDM.qryQuery.ExecSQL;
  DeleteTableRecord(ADOQuery1,'INV100','I100_001='+ADOQuery1I100_001.AsString);
end;

procedure TInv100_01Form.InsertEvent;
begin
  inherited;
  Inv100_02Form:=TInv100_02Form.Create(Application);
  Inv100_02Form.OpenData('');
  Inv100_02Form.ShowModal;
  //插入权限表
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('insert into SYS500C(S500C_001,S500C_002,S500C_003,S500C_004)');
  SYSDM.qryQuery.SQL.Add('select S500A_001,I100_001,''WHS'',0 from SYS500A A,');
  SYSDM.qryQuery.SQL.Add(' (select I100_001*-1 as I100_001,I100_002,I100_003,0 as FParent from INV100');
  SYSDM.qryQuery.SQL.Add('  union');
  SYSDM.qryQuery.SQL.Add('  select I110_001,I110_003,I110_004,I110_002*-1 from INV110) B');
  SYSDM.qryQuery.SQL.Add('where not exists(select 1 from SYS500C where S500C_001=A.S500A_001 and S500C_003=''WHS'' and S500C_002=B.I100_001)');
  SYSDM.qryQuery.ExecSQL;
end;

procedure TInv100_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

procedure TInv100_01Form.UpdateEvent;
begin
  inherited;
  Inv100_02Form:=TInv100_02Form.Create(Application);
  Inv100_02Form.OpenData(ADOQuery1I100_002.AsString);
  Inv100_02Form.ShowModal;
end;

initialization
  RegisterClass(TInv100_01Form);

finalization
  UnRegisterClass(TInv100_01Form);

end.