ord160_01.pas.svn-base

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

unit Ord160_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
  TOrd160_01Form = class(TBas200_10Form)
    ADOQuery1O160_001: TAutoIncField;
    ADOQuery1O160_002: TWideStringField;
    ADOQuery1O160_003: TWideStringField;
    ADOQuery1O160_004: TMemoField;
    ADOQuery1O160_005: TSmallintField;
    dxDBGrid1O160_002: TdxDBGridColumn;
    dxDBGrid1O160_003: TdxDBGridColumn;
    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
  Ord160_01Form: TOrd160_01Form;

implementation

uses SYSDATA, CommFun, Ord160_02;

{$R *.dfm}

procedure TOrd160_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORD16001001');  //条款资料维护
  ADOQuery1O160_002.DisplayLabel:=GetDBString('ORD16001002');  //条款编号
  ADOQuery1O160_003.DisplayLabel:=GetDBString('ORD16001003');  //条款名称
end;

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

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

procedure TOrd160_01Form.BrowseEvent;
begin
  inherited;
  Ord160_02Form:=TOrd160_02Form.Create(Application);
  Ord160_02Form.OpenData(ADOQuery1O160_002.AsString);
  Ord160_02Form.ShowModal;
end;

procedure TOrd160_01Form.DeleteEvent;
begin
  inherited;
  DeleteTableRecord(ADOQuery1,'ORD160','O160_001='+ADOQuery1O160_001.AsString);
end;

procedure TOrd160_01Form.InsertEvent;
begin
  inherited;
  Ord160_02Form:=TOrd160_02Form.Create(Application);
  Ord160_02Form.OpenData('');
  Ord160_02Form.ShowModal;
end;

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

end;

procedure TOrd160_01Form.UpdateEvent;
begin
  inherited;
  Ord160_02Form:=TOrd160_02Form.Create(Application);
  Ord160_02Form.OpenData(ADOQuery1O160_002.AsString);
  Ord160_02Form.ShowModal;
end;

initialization
  RegisterClass(TOrd160_01Form);

finalization
  UnRegisterClass(TOrd160_01Form);

end.