ar_enter_expoarttradetype_d.pas

一个MRPII系统源代码版本

unit Ar_Enter_ExpoArtTrAdeType_D;

Interface

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

Type
  TFrm_Ar_Enter_ExpoArtTrAdeType_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    LnkEdt_GenerallyInvoiceArKmCode: TLinkEdit;
    Edt_ExportTradeTypeCode: TEdit;
    Edt_ExportTradeTypeName: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edt_KmName: TEdit;
    procedure LnkEdt_GenerallyInvoiceArKmCodeButtonClick(Sender: TObject);
    procedure LnkEdt_GenerallyInvoiceArKmCodeExit(Sender: TObject);
    procedure LnkEdt_GenerallyInvoiceArKmCodeChange(Sender: TObject);
    procedure LnkEdt_GenerallyInvoiceArKmCodeKeyDown(Sender: TObject;
      var Key: Word; Shift: TShiftState);
    procedure Edt_ExportTradeTypeCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitControls; Override;
    procedure SaveData; Override;
  end;

var
  Frm_Ar_Enter_ExpoArtTrAdeType_D: TFrm_Ar_Enter_ExpoArtTrAdeType_D;

implementation

uses Sys_Global;

{$R *.DFM}

{ TFrm_Ar_Enter_ExpoArtTrAdeType_D }

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.InitControls;
begin
  inherited;
  if Add then
    begin  
      Edt_ExportTradeTypeCode.Enabled:=True;
      Edt_ExportTradeTypeCode.SetFocus;
    end
  else
    begin
      Edt_ExportTradeTypeCode.Enabled:=False;
      Edt_ExportTradeTypeName.SetFocus;  
    end;
       
  with AdoQry_Maintain do
  begin
    Edt_ExportTradeTypeCode.Text:=fieldbyname('ExportTradeTypeCode').AsString;
    Edt_ExportTradeTypeName.Text:=fieldbyname('ExportTradeTypeName').AsString;
    LnkEdt_GenerallyInvoiceArKmCode.Text:=fieldbyname('GenerallyInvoiceArKmCode').AsString;
    Edt_KmName.Text:=fieldbyname('KmName').AsString;
  end;
end;

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.LnkEdt_GenerallyInvoiceArKmCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode',
             '科目代码',' Gl_AccountSubject ',' endKm=1 and kmfreeze=0');
end;

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.SaveData;
var
   ChgType:String;
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    if(Add)then
    begin
      SQL.Text:='Insert into Sa_ExportTradeType(ExportTradeTypeCode,ExportTradeTypeName,GenerallyInvoiceArKmCode)'
        +' Values('
        +' '''+Edt_ExportTradeTypeCode.Text+''''
        +','''+Edt_ExportTradeTypeName.Text+''''
        +','+iifstring(Trim(LnkEdt_GenerallyInvoiceArKmCode.Text)='','null',Trim(LnkEdt_GenerallyInvoiceArKmCode.Text))
        +')';
      ChgType:='增加';
    end else
    begin
      SQL.Text:='Update Sa_ExportTradeType'
        +' Set ExportTradeTypeCode='''+Edt_ExportTradeTypeCode.Text+''''
        +',ExportTradeTypeName='''+Edt_ExportTradeTypeName.Text+''''
        +',GenerallyInvoiceArKmCode='+iifstring(Trim(LnkEdt_GenerallyInvoiceArKmCode.Text)='','null',Trim(LnkEdt_GenerallyInvoiceArKmCode.Text))
        +' Where ExportTradeTypeCode='''+AdoQry_Maintain.fieldbyname('ExportTradeTypeCode').AsString+'''';
      ChgType:='修改';
    end;
    ExecSQL;
  end;
  //SaveHistoryChangeType(ChgType);
  with AdoQry_Maintain do
  begin
    fieldbyname('ExportTradeTypeCode').Asstring:=Edt_ExportTradeTypeCode.text;
    fieldbyname('ExportTradeTypeName').AsString:=Edt_ExportTradeTypeName.Text;
    fieldbyname('GenerallyInvoiceArKmCode').AsString:=LnkEdt_GenerallyInvoiceArKmCode.Text;
    fieldbyname('KmName').AsString:=Edt_KmName.Text;
    Post;

  end;
end;

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.LnkEdt_GenerallyInvoiceArKmCodeExit(
  Sender: TObject);
begin
  inherited;
  {if ActiveControl.Name ='btn_Cancel' then exit;
  if Trim(LnkEdt_GenerallyInvoiceArKmCode.Text)='' then
  begin
    Edt_KmName.Text := '';
    exit;
  end;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.text := 'Select KmName from Gl_AccountSubject Where endKm=1 and  kmfreeze=0 and KmCode='''+LnkEdt_GenerallyInvoiceArKmCode.Text +'''';
  AdoQry_Tmp.Open;
  if AdoQry_Tmp.Eof then
  begin
    DispInfo('科目代码输入错误！',1);
    LnkEdt_GenerallyInvoiceArKmCode.SetFocus;
    Abort;
  end
  else
    Edt_KmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;}
end;

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.LnkEdt_GenerallyInvoiceArKmCodeChange(
  Sender: TObject);
begin
  inherited;
  btn_ok.Enabled:=True;
  if ActiveControl.Name ='btn_Cancel' then exit;
  if Trim(LnkEdt_GenerallyInvoiceArKmCode.Text)='' then
  begin
    Edt_KmName.Text := '';
    exit;
  end;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.text := 'Select KmName from Gl_AccountSubject Where endKm=1 and  kmfreeze=0 and KmCode='''+LnkEdt_GenerallyInvoiceArKmCode.Text +'''';
  AdoQry_Tmp.Open;
  if AdoQry_Tmp.Eof then
  begin
    DispInfo('科目代码输入错误！',1);
    LnkEdt_GenerallyInvoiceArKmCode.SetFocus;
    Abort;
  end
  else
    Edt_KmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
end;

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.LnkEdt_GenerallyInvoiceArKmCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
    CommOnHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode',
             '科目代码',' Gl_AccountSubject ',' endKm=1 and kmfreeze=0');
end;

procedure TFrm_Ar_Enter_ExpoArtTrAdeType_D.Edt_ExportTradeTypeCodeExit(
  Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if (not BlankInStrCheck(Edt_ExportTradeTypeCode.Text,'出口贸易类型代码')) or
   (not BlankCheck(Edt_ExportTradeTypeCode.text,'出口贸易类型代码')) then
  begin
    TWinControl(Sender).SetFocus;
    abort;
  end;

  if (Add)or((not Add) and
    (TEdit(Sender).Text<>AdoQry_Maintain.fieldbyname('ExportTradeTypeCode').AsString)) then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select ExportTradeTypeCode From Sa_ExportTradeType Where ExportTradeTypeCode='''+TEdit(Sender).Text+'''');
      Open;
      if fieldbyname('ExportTradeTypeCode').AsString<>'' then
      begin
        DispInfo('该代码已存在！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
end;

end.