inv145_01.pas

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

unit Inv145_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;

type
  TInv145_01Form = class(TBas200_10Form)
    ADOQuery1I145_001: TIntegerField;
    ADOQuery1I145_002: TIntegerField;
    ADOQuery1I145_003: TIntegerField;
    ADOQuery1I145_004: TIntegerField;
    ADOQuery1I145_005: TFloatField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1FFromUnitID: TWideStringField;
    ADOQuery1FFromUnitName: TWideStringField;
    ADOQuery1FToUnitID: TWideStringField;
    ADOQuery1FToUnitName: TWideStringField;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1FFromUnitID: TdxDBGridColumn;
    dxDBGrid1FFromUnitName: TdxDBGridColumn;
    dxDBGrid1FToUnitID: TdxDBGridColumn;
    dxDBGrid1FToUnitName: TdxDBGridColumn;
    dxDBGrid1I145_005: TdxDBGridMaskColumn;
    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
  Inv145_01Form: TInv145_01Form;

implementation

uses SYSDATA, CommFun, Inv145_02;

{$R *.dfm}

procedure TInv145_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('INV14501001');  //单位转换维护
  ADOQuery1O150_002.DisplayLabel:=GetDBString('INV14501002');  //客户编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('INV14501003');  //客户名称
  ADOQuery1I150_002.DisplayLabel:=GetDBString('INV14501004');  //料品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('INV14501005');  //料品名称
  ADOQuery1FFromUnitID.DisplayLabel:=GetDBString('INV14501006');  //自单位号
  ADOQuery1FFromUnitName.DisplayLabel:=GetDBString('INV14501007');  //自单位名
  ADOQuery1FToUnitID.DisplayLabel:=GetDBString('INV14501008');  //至单位号
  ADOQuery1FToUnitName.DisplayLabel:=GetDBString('INV14501009');  //至单位名
  ADOQuery1I145_005.DisplayLabel:=GetDBString('INV14501010');  //转换系数
end;

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

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

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

procedure TInv145_01Form.DeleteEvent;
begin
  inherited;
  DeleteTableRecord(ADOQuery1,'INV145','I145_001='+ADOQuery1I145_001.AsString+' and I145_002='+ADOQuery1I145_002.AsString+' and I145_003='+ADOQuery1I145_003.AsString+' and I145_004='+ADOQuery1I145_004.AsString);
end;

procedure TInv145_01Form.InsertEvent;
begin
  inherited;
  Inv145_02Form:=TInv145_02Form.Create(Application);
  Inv145_02Form.OpenData(0,0,0,0);
  Inv145_02Form.ShowModal;
end;

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

end;

procedure TInv145_01Form.UpdateEvent;
begin
  inherited;
  Inv145_02Form:=TInv145_02Form.Create(Application);
  Inv145_02Form.OpenData(ADOQuery1I145_001.AsInteger,ADOQuery1I145_002.AsInteger,ADOQuery1I145_003.AsInteger,ADOQuery1I145_004.AsInteger);
  Inv145_02Form.ShowModal;
end;

initialization
  RegisterClass(TInv145_01Form);

finalization
  UnRegisterClass(TInv145_01Form);

end.