bom110_01.pas.svn-base

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

unit Bom110_01;

interface

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

type
  TBom110_01Form = class(TBas200_01Form)
    ADOQuery1B110_001: TIntegerField;
    ADOQuery1B110_002: TIntegerField;
    ADOQuery1B110_003: TFloatField;
    ADOQuery1B110_004: TFloatField;
    ADOQuery1B110_005: TStringField;
    qryInv150: TADOQuery;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TStringField;
    qryInv150I150_003: TStringField;
    qryBom100: TADOQuery;
    qryBom100B100_001: TAutoIncField;
    qryBom100B100_002: TStringField;
    qryBom100B100_003: TStringField;
    ADOQuery1I150_002: TStringField;
    ADOQuery1I150_003: TStringField;
    ADOQuery1B100_002: TStringField;
    ADOQuery1B100_003: TStringField;
    dxDBGrid1I150_002: TdxDBGridLookupColumn;
    dxDBGrid1I150_003: TdxDBGridLookupColumn;
    dxDBGrid1B100_002: TdxDBGridLookupColumn;
    dxDBGrid1B100_003: TdxDBGridLookupColumn;
    dxDBGrid1B110_003: TdxDBGridMaskColumn;
    dxDBGrid1B110_004: TdxDBGridMaskColumn;
    dxDBGrid1B110_005: TdxDBGridMaskColumn;
    lblItemID: TLabel;
    lblItemName: TLabel;
    lblRountID: TLabel;
    lblRountName: TLabel;
    lblLost: TLabel;
    DBEdit1: TDBEdit;
    lblPrice: TLabel;
    DBEdit2: TDBEdit;
    lblRemark: TLabel;
    DBEdit3: TDBEdit;
    edtItem: TEdit;
    edtRount: TEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    sbItem: TSpeedButton;
    sbRount: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbItemClick(Sender: TObject);
    procedure sbRountClick(Sender: TObject);
    procedure edtItemExit(Sender: TObject);
    procedure edtRountExit(Sender: TObject);
    procedure ActSaveExecute(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Bom110_01Form: TBom110_01Form;

implementation

uses CommFun, SYSDATA, HwSelData, Inv150_02, Bom100_01;

{$R *.dfm}

procedure TBom110_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('BOM11001001');  //工艺流程维护
  ADOQuery1I150_002.DisplayLabel:=GetDBString('BOM11001002');  //料品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('BOM11001003');  //料品名称
  ADOQuery1B100_002.DisplayLabel:=GetDBString('BOM11001004');  //工序编号
  ADOQuery1B100_003.DisplayLabel:=GetDBString('BOM11001005');  //工序名称
  ADOQuery1B110_003.DisplayLabel:=GetDBString('BOM11001006');  //损坏扣款
  ADOQuery1B110_004.DisplayLabel:=GetDBString('BOM11001007');  //单价
  ADOQuery1B110_005.DisplayLabel:=GetDBString('BOM11001008');  //备注
  lblItemID.Caption:=GetDBString('BOM11001009');  //料品编号
  lblItemName.Caption:=GetDBString('BOM11001010');  //料品名称
  lblRountID.Caption:=GetDBString('BOM11001011');  //工序编号
  lblRountName.Caption:=GetDBString('BOM11001012');  //工序名称
  lblPrice.Caption:=GetDBString('BOM11001013');  //单价
  lblLost.Caption:=GetDBString('BOM11001014');  //损坏扣款
  lblRemark.Caption:=GetDBString('BOM11001015');  //备注
end;

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

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

procedure TBom110_01Form.sbItemClick(Sender: TObject);
begin
  inherited;
//料品编号
  if not edtItem.Focused then edtItem.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryInv150,TInv150_02Form);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtItem.Text:=qryInv150.FieldByName('I150_002').AsString;
    ADOQuery1.FieldByName('B110_001').AsString:=qryInv150.FieldByName('I150_001').AsString;
  end;
end;

procedure TBom110_01Form.sbRountClick(Sender: TObject);
begin
  inherited;
//工序编号
  if not edtRount.Focused then edtRount.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryBom100,TBom100_01Form);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtRount.Text:=qryBom100.FieldByName('B100_002').AsString;
    ADOQuery1.FieldByName('B110_002').AsString:=qryBom100.FieldByName('B100_001').AsString;
  end;
end;

procedure TBom110_01Form.edtItemExit(Sender: TObject);
begin
  inherited;
//料品编号
  if not ActSave.Enabled then Exit;
  if trim(edtItem.Text)='' then Exit;
  if qryInv150.Locate('I150_002',edtItem.Text,[]) then
  begin
    edtItem.Text:=qryInv150.FieldByName('I150_002').AsString;
    ADOQuery1.FieldByName('B110_001').AsString:=qryInv150.FieldByName('I150_001').AsString;
  end else
  begin
    ADOQuery1.FieldByName('B110_001').AsString:='';
    ShowMsg('UMS10000055');  //无效的料品编号
    edtItem.SetFocus;
    Abort;
  end;
end;

procedure TBom110_01Form.edtRountExit(Sender: TObject);
begin
  inherited;
//工序编号
  if not ActSave.Enabled then Exit;
  if trim(edtRount.Text)='' then Exit;
  if qryBom100.Locate('B100_002',edtRount.Text,[]) then
  begin
    edtRount.Text:=qryBom100.FieldByName('B100_002').AsString;
    ADOQuery1.FieldByName('B110_002').AsString:=qryBom100.FieldByName('B100_001').AsString;
  end else
  begin
    ADOQuery1.FieldByName('B110_002').AsString:='';
    ShowMsg('UMS10000229');  //无效的工序编号
    edtRount.SetFocus;
    Abort;
  end;
end;

procedure TBom110_01Form.ActSaveExecute(Sender: TObject);
begin
//保存
//料品编号
  if trim(edtItem.Text)='' then
  begin
    ShowMsg('UMS10000230');  //料品编号不能为空
    edtItem.SetFocus;
    Abort;
  end;
  if trim(edtRount.Text)='' then
  begin
    ShowMsg('UMS10000231');  //工序编号不能为空
    edtRount.SetFocus;
    Abort;
  end;
  inherited;
end;

procedure TBom110_01Form.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  inherited;
  edtItem.Text:=ADOQuery1.FieldByName('I150_002').AsString;
  edtRount.Text:=ADOQuery1.FieldByName('B100_002').AsString;
end;

procedure TBom110_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='I150_002' then ParValue:=GetDBString('BOM11001002')  //料品编号
  else if ParName='I150_003' then ParValue:=GetDBString('BOM11001003')  //料品名称
  else if ParName='B100_002' then ParValue:=GetDBString('BOM11001004')  //工序编号
  else if ParName='B100_003' then ParValue:=GetDBString('BOM11001005')  //工序名称
  else if ParName='B110_003' then ParValue:=GetDBString('BOM11001006')  //损坏扣款
  else if ParName='B110_004' then ParValue:=GetDBString('BOM11001007')  //单价
  else if ParName='B110_005' then ParValue:=GetDBString('BOM11001008')  //备注
end;

initialization
  RegisterClass(TBom110_01Form);

finalization
  UnRegisterClass(TBom110_01Form);

end.