ord140_01.pas.svn-base

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

unit Ord140_01;

interface

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

type
  TOrd140_01Form = class(TBas200_10Form)
    qryGld100: TADOQuery;
    qryGld100G100_001: TAutoIncField;
    qryGld100G100_002: TWideStringField;
    qryGld100G100_003: TWideStringField;
    ADOQuery1O140A_002: TWideStringField;
    ADOQuery1O140A_003: TWideStringField;
    ADOQuery1O140A_004: TSmallintField;
    ADOQuery1O140A_005: TDateTimeField;
    ADOQuery1O140A_006: TDateTimeField;
    ADOQuery1G100_002: TStringField;
    ADOQuery1O140A_008: TBooleanField;
    ADOQuery1O140A_001: TAutoIncField;
    ADOQuery1O140A_007: TIntegerField;
    ADOQuery1O140A_009: TIntegerField;
    ADOQuery1O140A_010: TMemoField;
    dxDBGrid1O140A_002: TdxDBGridColumn;
    dxDBGrid1O140A_003: TdxDBGridColumn;
    dxDBGrid1O140A_004: TdxDBGridMaskColumn;
    dxDBGrid1O140A_005: TdxDBGridDateColumn;
    dxDBGrid1O140A_006: TdxDBGridDateColumn;
    dxDBGrid1G100_002: TdxDBGridLookupColumn;
    dxDBGrid1O140A_008: TdxDBGridCheckColumn;
    dxDBGrid1O140A_009: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Action1Execute(Sender: TObject);
    procedure ADOQuery1O140A_004GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AType:array[0..3] of string;
    { 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
  Ord140_01Form: TOrd140_01Form;

implementation

uses CommFun, SYSDATA, HwExport, Ord140_02, Ord140_03;

{$R *.dfm}

procedure TOrd140_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORD14001001');  //特殊价格维护
  Action1.Caption:=GetDBString('ORD14001002');  //设置
  ADOQuery1O140A_002.DisplayLabel:=GetDBString('ORD14001003');  //特价编号
  ADOQuery1O140A_003.DisplayLabel:=GetDBString('ORD14001004');  //特价名称
  ADOQuery1O140A_004.DisplayLabel:=GetDBString('ORD14001005');  //折扣类型
  ADOQuery1O140A_005.DisplayLabel:=GetDBString('ORD14001006');  //生效日期
  ADOQuery1O140A_006.DisplayLabel:=GetDBString('ORD14001007');  //失效日期
  ADOQuery1G100_002.DisplayLabel:=GetDBString('ORD14001008');  //币别编号
  ADOQuery1O140A_008.DisplayLabel:=GetDBString('ORD14001009');  //总额折扣
  ADOQuery1O140A_009.DisplayLabel:=GetDBString('ORD14001010');  //顺序编号
  ADOQuery1O140A_010.DisplayLabel:=GetDBString('ORD14001011');  //备注说明

  AType[0]:=GetDBString('ORD14001012');  //基于数量的折扣率
  AType[1]:=GetDBString('ORD14001013');  //基于数量的价格
  AType[2]:=GetDBString('ORD14001014');  //基于金额的折扣率
  AType[3]:=GetDBString('ORD14001015');  //基于金额的价格
end;

procedure TOrd140_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  qryGld100.Open;
end;

procedure TOrd140_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryGld100.Close;
end;

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

procedure TOrd140_01Form.DeleteEvent;
var
  ACode:Integer;
begin
  inherited;
  ACode:=ADOQuery1.FieldByName('O140A_001').AsInteger;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from ORD140B where O140B_001='+IntToStr(ACode));
  SYSDM.qryQuery.ExecSQL;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from ORD140C where O140C_001='+IntToStr(ACode));
  SYSDM.qryQuery.ExecSQL;
  DeleteTableRecord(ADOQuery1,'ORD140A','O140A_001='+IntToStr(ACode));
end;

procedure TOrd140_01Form.InsertEvent;
begin
  inherited;
  Ord140_02Form:=TOrd140_02Form.Create(Application);
  Ord140_02Form.OpenData(0);
  Ord140_02Form.ShowModal;
end;

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

end;

procedure TOrd140_01Form.UpdateEvent;
var
  ACode:Integer;
begin
  inherited;
  ACode:=ADOQuery1.FieldByName('O140A_001').AsInteger;
  Ord140_02Form:=TOrd140_02Form.Create(Application);
  Ord140_02Form.OpenData(ACode);
  Ord140_02Form.ShowModal;
end;

procedure TOrd140_01Form.Action1Execute(Sender: TObject);
begin
  inherited;
//设置
  if ADOQuery1.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  Ord140_03Form:=TOrd140_03Form.Create(Application);
  Ord140_03Form.ShowModal;
  ActRefresh.Execute;
end;

procedure TOrd140_01Form.ADOQuery1O140A_004GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AType[Sender.AsInteger];
end;

initialization
  RegisterClass(TOrd140_01Form);

finalization
  UnRegisterClass(TOrd140_01Form);

end.