pm_buyer_d.pas

一个MRPII系统源代码版本

unit Pm_Buyer_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Detail, StdCtrls, Db, AdODB, ExtCtrls, ExtEdit;

Type
  TFrm_Pm_Buyer_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    CmBx_IsStop: TComboBox;
    Lbl_EmployeeName: TLabel;
    Edt_EmployeeCode: TExtEdit;
    procedure FormCreate(Sender: TObject);
    procedure EmployeeCodeCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure InitControls; Override;
    procedure SaveData; Override;
  end;

var
  Frm_Pm_Buyer_D: TFrm_Pm_Buyer_D;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Pm_Buyer_D.FormCreate(Sender: TObject);
begin
  inherited;
  SetFocus_Control:=Edt_EmployeeCode;
end;

procedure TFrm_Pm_Buyer_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    Edt_EmployeeCode.Text:=fieldbyname('EmployeeCode').AsString;
    CmBx_IsStop.ItemIndex:=fieldbyname('BUYERUsable').asinteger;
    Lbl_EmployeeName.Caption:=fieldbyname('EmployeeName').asstring;
  end;
end;

procedure TFrm_Pm_Buyer_D.SaveData;
begin
  inherited;
  if(Add)then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Insert into Buyer(EmployeeCode,BUYERUsable) Values('
        +''''+Edt_EmployeeCode.text+''''+','+inttostr(CmBx_IsStop.Itemindex)+')');
      //SQL.Add('….');
      ExecSQL;
    end;
  end
  Else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add(' Update Buyer set EmployeeCode='+''''+Edt_EmployeeCode.text+''''+
      ',BUYERUsable='+inttostr(CmBx_IsStop.Itemindex)+'where EmployeeCode='+''''+AdoQry_Maintain.fieldbyname('EmployeeCode').asstring+'''');
//      SQL.Add('….');
      ExecSQL;
    end;
  end;
 with AdoQry_Maintain do
  begin
    fieldbyname('EmployeeCode').AsString:= Edt_EmployeeCode.Text;
    fieldbyname('BUYERUsable').AsInteger:=CmBx_IsStop.ItemIndex;
    fieldbyname('EmployeeName').asstring:=Lbl_EmployeeName.Caption;
    Post;
  end;
end;

procedure TFrm_Pm_Buyer_D.EmployeeCodeCheck(Sender: TObject);
begin
  inherited;
   if ActiveControl.Name='btn_Cancel' then
    exit;

  if (not BlankInStrCheck(Edt_EmployeeCode.Text,'人员代码')) or
   (not BlankCheck(Edt_EmployeeCode.text,'人员代码')) then
  begin
    TWinControl(Sender).SetFocus;
    abort;
  end;

  if(Add)or((not Add)and
    (TEdit(Sender).Text<>AdoQry_Maintain.fieldbyname('EmployeeCode').AsString))then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select EmployeeCode From Buyer Where EmployeeCode='''+TEdit(Sender).Text+'''');
      Open;
      if fieldbyname('EmployeeCode').AsString<>'' then
      begin
        DispInfo('该人员代码已经存在，不允许增加或修改！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;

end;

end.