pur100_01.pas.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 122 行

unit Pur100_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
  TPur100_01Form = class(TBas200_10Form)
    ADOQuery1P100_001: TAutoIncField;
    ADOQuery1P100_002: TWideStringField;
    ADOQuery1P100_003: TBooleanField;
    ADOQuery1P100_004: TBooleanField;
    ADOQuery1P100_005: TBooleanField;
    ADOQuery1P100_006: TBooleanField;
    ADOQuery1P100_007: TBooleanField;
    ADOQuery1P100_008: TBooleanField;
    ADOQuery1P100_009: TWideStringField;
    dxDBGrid1P100_002: TdxDBGridColumn;
    dxDBGrid1P100_003: TdxDBGridCheckColumn;
    dxDBGrid1P100_004: TdxDBGridCheckColumn;
    dxDBGrid1P100_005: TdxDBGridCheckColumn;
    dxDBGrid1P100_006: TdxDBGridCheckColumn;
    dxDBGrid1P100_007: TdxDBGridCheckColumn;
    dxDBGrid1P100_008: 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
  Pur100_01Form: TPur100_01Form;

implementation

uses SYSDATA, CommFun, Pur100_02;

{$R *.dfm}

procedure TPur100_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('PUR10001001');  //采购类型维护
  ADOQuery1P100_002.DisplayLabel:=GetDBString('PUR10001002');  //类型名称
  ADOQuery1P100_003.DisplayLabel:=GetDBString('PUR10001003');  //影响库存
  ADOQuery1P100_004.DisplayLabel:=GetDBString('PUR10001004');  //影响销售
  ADOQuery1P100_005.DisplayLabel:=GetDBString('PUR10001005');  //影响应收
  ADOQuery1P100_006.DisplayLabel:=GetDBString('PUR10001006');  //退回旧货
  ADOQuery1P100_007.DisplayLabel:=GetDBString('PUR10001007');  //委外加工
  ADOQuery1P100_008.DisplayLabel:=GetDBString('PUR10001008');  //受托销售
  ADOQuery1P100_009.DisplayLabel:=GetDBString('PUR10001009');  //备注说明
end;

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

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

procedure TPur100_01Form.BrowseEvent;
begin
  inherited;
  UpdateEvent;
end;

procedure TPur100_01Form.DeleteEvent;
begin
  inherited;
  DeleteTableRecord(ADOQuery1,'PUR100','P100_001='+ADOQuery1P100_001.AsString);
end;

procedure TPur100_01Form.InsertEvent;
begin
  inherited;
//新增
  Pur100_02Form:=TPur100_02Form.Create(Application);
  Pur100_02Form.OpenData(0);
  Pur100_02Form.ShowModal;
end;

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

end;

procedure TPur100_01Form.UpdateEvent;
begin
  inherited;
//修改
  Pur100_02Form:=TPur100_02Form.Create(Application);
  Pur100_02Form.OpenData(ADOQuery1P100_001.Value);
  Pur100_02Form.ShowModal;
end;

initialization
  RegisterClass(TPur100_01Form);

finalization
  UnRegisterClass(TPur100_01Form);

end.