bom500_01.pas

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

unit Bom500_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_18, dxExEdtr, DB, ADODB, ActnList, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ComCtrls, dxtree, dxdbtree, ToolWin, ExtCtrls,
  StdCtrls;

type
  TBom500_01Form = class(TBas200_18Form)
    Panel4: TPanel;
    ADOQuery1B500_001: TAutoIncField;
    ADOQuery1B500_002: TIntegerField;
    ADOQuery1B500_003: TIntegerField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1FItem: TWideStringField;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label6: TLabel;
    Edit7: TEdit;
    Label7: TLabel;
    ADOQuery1B500_004: TSmallintField;
    ADOQuery1B500_005: TSmallintField;
    ADOQuery1B500_006: TDateTimeField;
    ADOQuery1B500_007: TDateTimeField;
    ADOQuery1B500_008: TFloatField;
    ADOQuery1B500_009: TFloatField;
    ADOQuery1B500_010: TIntegerField;
    ADOQuery1B500_011: TFloatField;
    ADOQuery1B500_012: TSmallintField;
    ADOQuery1B500_013: TWideStringField;
    ADOQuery1B500_014: TDateTimeField;
    ADOQuery1B500_015: TWideStringField;
    ADOQuery1B500_016: TDateTimeField;
    ADOQuery1B500_017: TWideStringField;
    ADOQuery1B500_018: TDateTimeField;
    ADOQuery1I150_004: TWideStringField;
    ADOQuery1I140_003: TWideStringField;
    ADOQuery2B500_001: TAutoIncField;
    ADOQuery2B500_002: TIntegerField;
    ADOQuery2B500_003: TIntegerField;
    ADOQuery2B500_004: TSmallintField;
    ADOQuery2B500_005: TSmallintField;
    ADOQuery2B500_006: TDateTimeField;
    ADOQuery2B500_007: TDateTimeField;
    ADOQuery2B500_008: TFloatField;
    ADOQuery2B500_009: TFloatField;
    ADOQuery2B500_010: TIntegerField;
    ADOQuery2B500_011: TFloatField;
    ADOQuery2B500_012: TSmallintField;
    ADOQuery2B500_013: TWideStringField;
    ADOQuery2B500_014: TDateTimeField;
    ADOQuery2B500_015: TWideStringField;
    ADOQuery2B500_016: TDateTimeField;
    ADOQuery2B500_017: TWideStringField;
    ADOQuery2B500_018: TDateTimeField;
    ADOQuery2I150_002: TWideStringField;
    ADOQuery2I150_003: TWideStringField;
    ADOQuery2I150_004: TWideStringField;
    ADOQuery2I140_003: TWideStringField;
    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 ClassAfterScroll; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Bom500_01Form: TBom500_01Form;

implementation

uses SYSDATA, CommFun, Bom500_02;

{$R *.dfm}

procedure TBom500_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('BOM50001001');  //产品结构维护
end;

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

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

procedure TBom500_01Form.BrowseEvent;
begin
  inherited;

end;

procedure TBom500_01Form.ClassAfterScroll;
begin
  inherited;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select A.*,B.I150_002,B.I150_003,B.I150_004,C.I140_003');
  ADOQuery2.SQL.Add('from BOM500 A,INV150 B,INV140 C');
  ADOQuery2.SQL.Add('where A.B500_002=B.I150_001 and B.I150_011=C.I140_003 and A.B500_003='+ADOQuery1.FieldByName('B500_001').AsString);
  ADOQuery2.SQL.Add('order by B.I150_002');
  ADOQuery2.Open;
end;

procedure TBom500_01Form.DeleteEvent;
begin
  inherited;
  if tvLists.Selected.HasChildren then
  begin
    ShowMsg('');  //包含有子件的料品不能被删除，请先删除其下的所有子件
    Abort;
  end;
  DeleteTableRecord(ADOQuery1,'BOM500','B500_001='+ADOQuery1B500_001.AsString);
end;

procedure TBom500_01Form.InsertEvent;
begin
  inherited;
  Bom500_02Form:=TBom500_02Form.Create(Application);
  Bom500_02Form.OpenData(0);
  Bom500_02Form.ShowModal;
end;

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

end;

procedure TBom500_01Form.UpdateEvent;
begin
  inherited;
  Bom500_02Form:=TBom500_02Form.Create(Application);
  Bom500_02Form.OpenData(ADOQuery1B500_001.AsInteger);
  Bom500_02Form.ShowModal;
end;

initialization
  RegisterClass(TBom500_01Form);

finalization
  UnRegisterClass(TBom500_01Form);

end.