ord100_02.pas

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

unit Ord100_02;

interface

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

type
  TOrd100_02Form = class(TBas200_16Form)
    lblName: TLabel;
    edtName: TEdit;
    cbInv: TCheckBox;
    cbOrd: TCheckBox;
    cbAcr: TCheckBox;
    cbReturn: TCheckBox;
    cbConsignee: TCheckBox;
    cbConsign: TCheckBox;
    lblRemark: TLabel;
    edtRemark: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    AOldName:String;
    { Private declarations }
  public
    procedure OpenData(ACode:Integer);
    procedure SetInterface; override;
    procedure GetDataInfo; override;
    procedure SetEmptyInit; override;
    procedure InsertInit; override;
    procedure TableBeforePost; override;
    { Public declarations }
  end;

var
  Ord100_02Form: TOrd100_02Form;

implementation

uses SYSDATA, CommFun, HwSelData;

{$R *.dfm}

procedure TOrd100_02Form.OpenData(ACode:Integer);
begin
  if ACode=0 then AMode:='ADD' else AMode:='UPD';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ORD100');
  ADOQuery1.Open;
  ADOQuery1.Locate('O100_001',ACode,[]);
  ADOQuery1AfterScroll(ADOQuery1);
end;

procedure TOrd100_02Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORD10002001');  //销售类型维护
  lblName.Caption:=GetDBString('ORD10002002');  //类型名称
  cbInv.Caption:=GetDBString('ORD10002003');  //影响库存
  cbOrd.Caption:=GetDBString('ORD10002004');  //影响销售
  cbAcr.Caption:=GetDBString('ORD10002005');  //影响应收
  cbReturn.Caption:=GetDBString('ORD10002006');  //回收旧货
  cbConsignee.Caption:=GetDBString('ORD10002007');  //受委加工
  cbConsign.Caption:=GetDBString('ORD10002008');  //委托销售
  lblRemark.Caption:=GetDBString('ORD10002009');  //备注说明
end;

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

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

procedure TOrd100_02Form.GetDataInfo;
begin
  inherited;
  edtName.Text:=ADOQuery1.FieldByName('O100_002').AsString;  //类型名称
  cbInv.Checked:=ADOQuery1.FieldByName('O100_003').AsBoolean;  //
  cbOrd.Checked:=ADOQuery1.FieldByName('O100_004').AsBoolean;  //
  cbAcr.Checked:=ADOQuery1.FieldByName('O100_005').AsBoolean;  //
  cbReturn.Checked:=ADOQuery1.FieldByName('O100_006').AsBoolean;  //
  cbConsignee.Checked:=ADOQuery1.FieldByName('O100_007').AsBoolean;  //
  cbConsign.Checked:=ADOQuery1.FieldByName('O100_008').AsBoolean;  //
  edtRemark.Text:=ADOQuery1.FieldByName('O100_009').AsString;  //备注说明
  AOldName:=edtName.Text;
end;

procedure TOrd100_02Form.InsertInit;
begin
  inherited;
  SetEmptyInit;
end;

procedure TOrd100_02Form.SetEmptyInit;
begin
  inherited;
  edtName.Text:='';
  cbInv.Checked:=False;
  cbOrd.Checked:=False;
  cbAcr.Checked:=False;
  cbReturn.Checked:=False;
  cbConsignee.Checked:=False;
  cbConsign.Checked:=False;
  edtRemark.Text:='';
end;

procedure TOrd100_02Form.TableBeforePost;
begin
  inherited;
  if trim(edtName.Text)='' then
  begin
    ShowMsg('UMS10000432');  //类型名称不能为空
    edtName.SetFocus;
    Abort;
  end;
  if AOldName<>trim(edtName.Text) then
  begin
    if IsExists('select 1 from ORD100 where O100_002='+''''+trim(edtName.Text)+'''') then
    begin
      ShowMsg('UMS10000496');  //类型名称已存在，请重新输入
      edtName.SetFocus;
      Abort;
    end;
  end;

  if AMode='ADD' then ADOQuery1.Append else ADOQuery1.Edit;
  ADOQuery1.FieldByName('O100_002').AsString:=edtName.Text;
  ADOQuery1.FieldByName('O100_003').Value:=cbInv.Checked;
  ADOQuery1.FieldByName('O100_004').Value:=cbOrd.Checked;
  ADOQuery1.FieldByName('O100_005').Value:=cbAcr.Checked;
  ADOQuery1.FieldByName('O100_006').Value:=cbReturn.Checked;
  ADOQuery1.FieldByName('O100_007').Value:=cbConsignee.Checked;
  ADOQuery1.FieldByName('O100_008').Value:=cbConsign.Checked;
  ADOQuery1.FieldByName('O100_009').Value:=edtRemark.Text;
end;

end.