ord160_02.pas

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

unit Ord160_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_16, DB, ADODB, Menus, StdCtrls, Buttons, ExtCtrls;

type
  TOrd160_02Form = class(TBas200_16Form)
    lblCode: TLabel;
    edtCode: TEdit;
    lblType: TLabel;
    cbType: TComboBox;
    lblName: TLabel;
    edtName: TEdit;
    lblContent: TLabel;
    memContent: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure OpenData(ACode:String);
    procedure SetInterface; override;
    procedure GetDataInfo; override;
    procedure SetEmptyInit; override;
    procedure InsertInit; override;
    procedure TableBeforePost; override;
    { Public declarations }
  end;

var
  Ord160_02Form: TOrd160_02Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TOrd160_02Form.OpenData(ACode: String);
begin
  if ACode='' then AMode:='ADD' else AMode:='UPD';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ORD160 order by O160_002');
  ADOQuery1.Open;
  ADOQuery1.Locate('O160_002',ACode,[]);
  ADOQuery1AfterScroll(ADOQuery1);
end;

procedure TOrd160_02Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORD16002001');  //条款资料维护
  lblCode.Caption:=GetDBString('ORD16002002');  //条款编号
  lblName.Caption:=GetDBString('ORD16002003');  //条款名称
  lblType.Caption:=GetDBString('ORD16002004');  //条款类型
  lblContent.Caption:=GetDBString('ORD16002005');  //条款内容
  cbType.Clear;
  cbType.Items.Add(GetDBString('ORD16002006'));  //销售条款
  cbType.Items.Add(GetDBString('ORD16002007'));  //采购条款
  cbType.ItemIndex:=0;
end;

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

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

procedure TOrd160_02Form.GetDataInfo;
begin
  inherited;
  edtCode.Text:=ADOQuery1.FieldByName('O160_002').AsString;
  edtName.Text:=ADOQuery1.FieldByName('O160_003').AsString;
  memContent.Text:=ADOQuery1.FieldByName('O160_004').AsString;
  cbType.ItemIndex:=ADOQuery1.FieldByName('O160_005').AsInteger;
  AOldCode:=edtCode.Text;
end;

procedure TOrd160_02Form.InsertInit;
begin
  inherited;
  edtCode.Text:='';
  cbType.ItemIndex:=0;
  edtName.Text:='';
  memContent.Clear;
end;

procedure TOrd160_02Form.SetEmptyInit;
begin
  inherited;
  edtCode.Text:='';
  cbType.ItemIndex:=-1;
  edtName.Text:='';
  memContent.Clear;
end;

procedure TOrd160_02Form.TableBeforePost;
begin
  inherited;
  if trim(edtCode.text)='' then
  begin
    ShowMsg('UMS10000520');  //条款编号不能为空
    edtCode.SetFocus;
    Abort;
  end;
  if AOldCode<>edtCode.Text then
  begin
    if IsExists('select 1 from ORD160 where O160_002='+''''+edtCode.Text+'''') then
    begin
      ShowMsg('UMS10000521');  //条款编号已存在，请重新输入
      edtCode.SetFocus;
      Abort;
    end;
  end;
  if trim(edtName.text)='' then
  begin
    ShowMsg('UMS10000522');  //条款名称不能为空
    edtName.SetFocus;
    Abort;
  end;
  if trim(memContent.text)='' then
  begin
    ShowMsg('UMS10000523');  //条款内容不能为空
    memContent.SetFocus;
    Abort;
  end;
  if AMode='ADD' then ADOQuery1.Append else ADOQuery1.Edit;
  ADOQuery1.FieldByName('O160_002').Value:=edtCode.Text;
  ADOQuery1.FieldByName('O160_003').Value:=edtName.Text;
  ADOQuery1.FieldByName('O160_004').Value:=memContent.Text;
  ADOQuery1.FieldByName('O160_005').Value:=cbType.ItemIndex;
end;

end.