gld100_01.pas.svn-base

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

unit Gld100_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
  TGld100_01Form = class(TBas200_10Form)
    ADOQuery1G100_001: TAutoIncField;
    ADOQuery1G100_002: TStringField;
    ADOQuery1G100_003: TStringField;
    ADOQuery1G100_004: TBooleanField;
    ADOQuery1G100_005: TFloatField;
    ADOQuery1G100_006: TStringField;
    dxDBGrid1G100_002: TdxDBGridMaskColumn;
    dxDBGrid1G100_003: TdxDBGridMaskColumn;
    dxDBGrid1G100_004: TdxDBGridCheckColumn;
    dxDBGrid1G100_006: TdxDBGridMaskColumn;
    dxDBGrid1G100_005: TdxDBGridCurrencyColumn;
    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;
    procedure FilterDialogSelectField(Sender: TObject;
      FieldName: String; var PictureMask: String; ComboList: TStrings); override;
    { Public declarations }
  end;

var
  Gld100_01Form: TGld100_01Form;

implementation

uses CommFun, SYSDATA, Gld100_02;

{$R *.dfm}

procedure TGld100_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('GLD10001001');  //币别资料维护
  ADOQuery1G100_002.DisplayLabel:=GetDBString('GLD10001002');  //币别编号
  ADOQuery1G100_003.DisplayLabel:=GetDBString('GLD10001003');  //币别名称
  ADOQuery1G100_004.DisplayLabel:=GetDBString('GLD10001006');  //本位币否
  ADOQuery1G100_005.DisplayLabel:=GetDBString('GLD10001004');  //缺省汇率
  ADOQuery1G100_006.DisplayLabel:=GetDBString('GLD10001005');  //币别符号
end;

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

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

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

procedure TGld100_01Form.DeleteEvent;
begin
  inherited;
  if ADOQuery1G100_004.AsBoolean then
  begin
    ShowMsg('UMS10000597');  //不能删除本位币的币别资料
    Abort;
  end;
  if IsExists('select 1 from ORD150 where O150_002='+ADOQuery1G100_001.AsString) then
  begin
    ShowMsg('UMS10000596');  //该币别资料已被客户资料表引用，不可删除
    Abort;
  end;
  DeleteTableRecord(ADOQuery1,'GLD100','G100_001='+ADOQuery1G100_001.AsString);
end;

procedure TGld100_01Form.FilterDialogSelectField(Sender: TObject;
  FieldName: String; var PictureMask: String; ComboList: TStrings);
begin
  inherited;
end;

procedure TGld100_01Form.InsertEvent;
begin
  inherited;
  Gld100_02Form:=TGld100_02Form.Create(Application);
  Gld100_02Form.OpenData('');
  Gld100_02Form.ShowModal;
end;

procedure TGld100_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='G100_002' then ParValue:=GetDBString('GLD10001002')  //币别编号
  else if ParName='G100_003' then ParValue:=GetDBString('GLD10001003')  //币别名称
  else if ParName='G100_004' then ParValue:=GetDBString('GLD10001006')  //本位币否
  else if ParName='G100_005' then ParValue:=GetDBString('GLD10001004')  //缺省汇率
  else if ParName='G100_006' then ParValue:=GetDBString('GLD10001005')  //币别符号
end;

procedure TGld100_01Form.UpdateEvent;
begin
  inherited;
  Gld100_02Form:=TGld100_02Form.Create(Application);
  Gld100_02Form.OpenData(ADOQuery1G100_002.AsString);
  Gld100_02Form.ShowModal;
end;

initialization
  RegisterClass(TGld100_01Form);

finalization
  UnRegisterClass(TGld100_01Form);

end.