inv150_01.pas.svn-base

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

unit Inv150_01;

interface

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

type
  TInv150_01Form = class(TBas200_05Form)
    ADOQuery2I150_001: TAutoIncField;
    ADOQuery2I150_002: TWideStringField;
    ADOQuery2I150_003: TWideStringField;
    ADOQuery2I150_004: TWideStringField;
    ADOQuery2I120_002: TWideStringField;
    ADOQuery2I120_003: TWideStringField;
    ADOQuery2I140_003: TWideStringField;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1I150_004: TdxDBGridColumn;
    dxDBGrid1I120_002: TdxDBGridColumn;
    dxDBGrid1I120_003: TdxDBGridColumn;
    dxDBGrid1I140_003: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxDBGrid1I150_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertClassEvent; override;
    procedure UpdateClassEvent; override;
    procedure DeleteClassEvent; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ClassAfterScroll; override;
    procedure DetailAfterScroll; override;
    procedure GetAllClass; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Inv150_01Form: TInv150_01Form;

implementation

uses SYSDATA, CommFun, Inv150_02, Inv120_02;

{$R *.dfm}

procedure TInv150_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('INV15001001');  //料品资料维护
  TabSheet1.Caption:=GetDBString('INV15001002');  //料品资料
  ADOQuery2.FieldByName('I150_002').DisplayLabel:=GetDBString('INV15001003');  //料品编号
  ADOQuery2.FieldByName('I150_003').DisplayLabel:=GetDBString('INV15001004');  //料品名称
  ADOQuery2.FieldByName('I150_004').DisplayLabel:=GetDBString('INV15001005');  //规格型号
  ADOQuery2.FieldByName('I120_002').DisplayLabel:=GetDBString('INV15001006');  //分类编号
  ADOQuery2.FieldByName('I120_003').DisplayLabel:=GetDBString('INV15001007');  //分类名称
  ADOQuery2.FieldByName('I140_003').DisplayLabel:=GetDBString('INV15001009');  //库存单位
end;

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

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

procedure TInv150_01Form.BrowseEvent;
begin
  inherited;
  Inv150_02Form:=TInv150_02Form.Create(Application);
  Inv150_02Form.OpenData(ADOQuery2.FieldByName('I150_001').Value);
  Inv150_02Form.ShowModal;
end;

procedure TInv150_01Form.ClassAfterScroll;
var
  AClass:String;
begin
  inherited;
  if adsLists.IsEmpty then AClass:='0' else AClass:=adsLists.FieldByName('FNo').AsString;
  if AClass='' then AClass:='0';
  ADOQuery2.DisableControls;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select I150_001,I150_002,I150_003,I150_004,I120_002,I120_003,I140_003');
  ADOQuery2.SQL.Add('from (INV150 A left join INV120 B on A.I150_005=B.I120_001)');
  ADOQuery2.SQL.Add('      left join INV140 D on A.I150_011=D.I140_001');
  if AClass<>'0' then ADOQuery2.SQL.Add(' where I150_005='+AClass);
  ADOQuery2.SQL.Add('order by I150_002');
  ADOQuery2.Open;
  ADOQuery2.EnableControls
end;

procedure TInv150_01Form.DeleteClassEvent;
begin
  inherited;
  try
    Screen.Cursor:=crHourGlass;
    try
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from INV120 where I120_001='+adsListsFNo.AsString);
      SYSDM.qryQuery.ExecSQL;
      adsLists.Delete;
    except
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TInv150_01Form.DeleteEvent;
begin
  inherited;
//删除
  DeleteTableRecord(ADOQuery2,'INV150','I150_001='+ADOQuery2.FieldByName('I150_001').AsString);
end;

procedure TInv150_01Form.DetailAfterScroll;
begin
  inherited;

end;

procedure TInv150_01Form.InsertClassEvent;
begin
  inherited;
//增类别
  Inv120_02Form:=TInv120_02Form.Create(Application);
  Inv120_02Form.OpenData(0);
  Inv120_02Form.ShowModal;
end;

procedure TInv150_01Form.InsertEvent;
begin
  inherited;
//新增
  Inv150_02Form:=TInv150_02Form.Create(Application);
  Inv150_02Form.OpenData(0);
  Inv150_02Form.ActInsert.Execute;
  Inv150_02Form.ShowModal;
end;

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

end;

procedure TInv150_01Form.UpdateClassEvent;
begin
  inherited;
//改类别
  Inv120_02Form:=TInv120_02Form.Create(Application);
  Inv120_02Form.OpenData(adsListsFNo.Value);
  Inv120_02Form.ShowModal;
end;

procedure TInv150_01Form.UpdateEvent;
begin
  inherited;
//修改
  Inv150_02Form:=TInv150_02Form.Create(Application);
  Inv150_02Form.OpenData(ADOQuery2.FieldByName('I150_001').Value);
  Inv150_02Form.ActUpdate.Execute;
  Inv150_02Form.ShowModal;
end;

procedure TInv150_01Form.GetAllClass;
begin
  inherited;
  adsLists.DisableControls;
  adsLists.Close;
  adsLists.CreateDataSet;
  adsLists.Append;
  adsLists.FieldByName('FNo').Value:=0;
  adsLists.FieldByName('FName').Value:=GetDBString('COM00008021');  //所有类别
  adsLists.FieldByName('FParent').Value:=-1;
  adsLists.Post;

  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select I120_001 as FNo,I120_003 as FName,I120_004 as FParent from INV120 order by I120_002');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    adsLists.Append;
    adsLists.FieldByName('FNo').Value:=SYSDM.qryQuery.FieldByName('FNo').Value;
    adsLists.FieldByName('FName').Value:=SYSDM.qryQuery.FieldByName('FName').Value;
    adsLists.FieldByName('FParent').Value:=SYSDM.qryQuery.FieldByName('FParent').Value;
    adsLists.Post;
    SYSDM.qryQuery.Next;
  end;
  adsLists.First;
  adsLists.EnableControls;
end;

procedure TInv150_01Form.dxDBGrid1I150_002DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AColor:=clWhite;
  AText:=GetDBString('COM00004002')+IntToStr(ARecordCount);  //记录总数：
end;

initialization
  RegisterClass(TInv150_01Form);

finalization
  UnRegisterClass(TInv150_01Form);

end.