sal_enter_saleplanofsaler_d.pas

一个MRPII系统源代码版本

unit Sal_Enter_SalePlanOfSaler_D;

Interface

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

Type
  TFrm_Sal_Enter_SalePlanOfSaler_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label7: TLabel;
    edt_Plansum_Year: TEdit;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    medt_Createdate: TMaskEdit;
    edt_DeptName: TEdit;
    edt_CreateEmployeeName: TEdit;
    edt_DeptCode: TLinkEdit;
    edt_CreateEmployeeCode: TLinkEdit;
    medt_Year: TMaskEdit;
    Label2: TLabel;
    edt_rationsum_Year: TEdit;
    Label5: TLabel;
    edt_Plansum1: TEdit;
    Label6: TLabel;
    edt_rationsum1: TEdit;
    Label3: TLabel;
    edt_Plansum2: TEdit;
    Label8: TLabel;
    edt_rationsum2: TEdit;
    Label9: TLabel;
    edt_Plansum3: TEdit;
    Label10: TLabel;
    edt_rationsum3: TEdit;
    Label11: TLabel;
    edt_Plansum4: TEdit;
    Label17: TLabel;
    edt_rationsum4: TEdit;
    Label18: TLabel;
    edt_Plansum5: TEdit;
    Label19: TLabel;
    edt_rationsum5: TEdit;
    Label20: TLabel;
    edt_Plansum6: TEdit;
    Label21: TLabel;
    edt_rationsum6: TEdit;
    Label22: TLabel;
    edt_Plansum7: TEdit;
    Label23: TLabel;
    edt_rationsum7: TEdit;
    Label24: TLabel;
    edt_Plansum8: TEdit;
    Label25: TLabel;
    edt_rationsum8: TEdit;
    Label26: TLabel;
    edt_Plansum9: TEdit;
    Label27: TLabel;
    edt_rationsum9: TEdit;
    Label28: TLabel;
    edt_Plansum10: TEdit;
    Label29: TLabel;
    edt_rationsum10: TEdit;
    Label30: TLabel;
    edt_Plansum11: TEdit;
    Label31: TLabel;
    edt_rationsum11: TEdit;
    Label32: TLabel;
    edt_Plansum12: TEdit;
    Label33: TLabel;
    edt_rationsum12: TEdit;
    Label13: TLabel;
    Label34: TLabel;
    medt_edittime: TMaskEdit;
    edt_usereditName: TEdit;
    edt_usereditCode: TLinkEdit;
    procedure edt_BtCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edt_CreateEmployeeCodeExit(Sender: TObject);
    procedure edt_DeptCodeExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure edt_Plansum_YearExit(Sender: TObject);
    procedure edt_rationsum_YearExit(Sender: TObject);
    procedure edt_Plansum1Exit(Sender: TObject);
    procedure edt_rationsum1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData;Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String); Override;
    { Public declarations }
  end;

var
  Frm_Sal_Enter_SalePlanOfSaler_D: TFrm_Sal_Enter_SalePlanOfSaler_D;

implementation
uses Sys_Global;
{$R *.DFM}

{ TFrm_Ar_Enter_Gathering_D }

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.InitControls;
var i:integer;
begin
  if (Add) then
    begin
      medt_Year.Enabled:=True;
      edt_DeptCode.Enabled:=True;
      SetFocus_Control:=medt_Year;
      medt_Year.Text:=formatdatetime('yyyy',strtodatetime(GetServerDateTime(dbconnect)));
      medt_Createdate.Text:=formatdatetime('yyyy.mm.dd',strtodatetime(GetServerDateTime(dbconnect)));
      medt_edittime.Text:=medt_Createdate.Text;
      edt_DeptCode.Enabled:=True;
      edt_CreateEmployeeCode.Text:=userCode;
      edt_usereditCode.Text:=userCode;
      with AdoQry_Tmp do
      begin
        Close;
        SQL.clear;
        SQL.Add('Select EmployeeCode,EmployeeName From Employee Where EmployeeCode='''+userCode+'''');
        Open;
        edt_CreateEmployeeName.Text:=fieldbyname('EmployeeName').asstring;
        edt_usereditName.Text:=fieldbyname('EmployeeName').asstring;
      end;
      edt_Plansum_Year.Text:='0';
      edt_Plansum_Year.Enabled:=True;
      edt_rationsum_Year.Text:='0';
      edt_rationsum_Year.Enabled:=True;
    end
  else
    SetFocus_Control:=edt_Plansum1;
     for i:=1 to  12 do
     begin
       if  findComponent('edt_Plansum'+IntToStr(i)) is Tedit then
         begin
           TEdit(findComponent('edt_Plansum'+IntToStr(i))).enabled:=True;
           if Add then TEdit(findComponent('edt_Plansum'+IntToStr(i))).text:='0';
         end;
       if  findComponent('edt_rationsum'+IntToStr(i)) is Tedit then
         begin
           TEdit(findComponent('edt_rationsum'+IntToStr(i))).enabled:=True;
           if Add then TEdit(findComponent('edt_rationsum'+IntToStr(i))).text:='0';
         end;
     end;
  inherited;
  with AdoQry_Maintain do
    begin
      if not Add then
      begin
        medt_Year.Text:=fieldbyname('PlanYear').asstring;
        edt_Plansum_Year.Text:=fieldbyname('Plansum_Year').asstring;
        if edt_Plansum_Year.Text<>'0' then edt_Plansum_Year.Enabled:=False
        else edt_Plansum_Year.Enabled:=True;
        edt_rationsum_Year.Text:=fieldbyname('rationsum_Year').asstring;
        if edt_rationsum_Year.Text<>'0' then edt_rationsum_Year.Enabled:=False
        else edt_rationsum_Year.Enabled:=True;
        edt_DeptCode.Text:=fieldbyname('SaleEmployeeCode').asstring;
        edt_DeptName.Text:=fieldbyname('EmployeeName').asstring;
        edt_Plansum1.Text:=fieldbyname('Plansum_1').asstring;
        edt_rationsum1.Text:=fieldbyname('rationsum_1').asstring;
        edt_Plansum2.Text:=fieldbyname('Plansum_2').asstring;
        edt_rationsum2.Text:=fieldbyname('rationsum_2').asstring;
        edt_Plansum3.Text:=fieldbyname('Plansum_3').asstring;
        edt_rationsum3.Text:=fieldbyname('rationsum_3').asstring;
        edt_Plansum4.Text:=fieldbyname('Plansum_4').asstring;
        edt_rationsum4.Text:=fieldbyname('rationsum_4').asstring;
        edt_Plansum5.Text:=fieldbyname('Plansum_5').asstring;
        edt_rationsum5.Text:=fieldbyname('rationsum_5').asstring;
        edt_Plansum6.Text:=fieldbyname('Plansum_6').asstring;
        edt_rationsum6.Text:=fieldbyname('rationsum_6').asstring;
        edt_Plansum7.Text:=fieldbyname('Plansum_7').asstring;
        edt_rationsum7.Text:=fieldbyname('rationsum_7').asstring;
        edt_Plansum8.Text:=fieldbyname('Plansum_8').asstring;
        edt_rationsum8.Text:=fieldbyname('rationsum_8').asstring;
        edt_Plansum9.Text:=fieldbyname('Plansum_9').asstring;
        edt_rationsum9.Text:=fieldbyname('rationsum_9').asstring;
        edt_Plansum10.Text:=fieldbyname('Plansum_10').asstring;
        edt_rationsum10.Text:=fieldbyname('rationsum_10').asstring;
        edt_Plansum11.Text:=fieldbyname('Plansum_11').asstring;
        edt_rationsum11.Text:=fieldbyname('rationsum_11').asstring;
        edt_Plansum12.Text:=fieldbyname('Plansum_12').asstring;
        edt_rationsum12.Text:=fieldbyname('rationsum_12').asstring;
      end;
      if status<>'Add' then 
        begin
          edt_CreateEmployeeCode.Text:=fieldbyname('user_Create').asstring;
          edt_CreateEmployeeName.text:=fieldbyname('user_CreateName').asstring;
          edt_usereditCode.Text:=fieldbyname('user_edit').asstring;
          edt_usereditName.text:=fieldbyname('user_editName').asstring;
          medt_Createdate.Text:=AdoQry_Maintain.fieldbyname('datetime_Create').asstring;
          medt_edittime.Text:=AdoQry_Maintain.fieldbyname('datetime_edit').asstring;
        end;
        
      if not Add then
      begin
        medt_Year.Enabled:=False;
        edt_DeptCode.Enabled:=False;
      end;
      medt_Createdate.Enabled:=False;
      edt_CreateEmployeeCode.Enabled:=False;
      medt_edittime.Enabled:=False;
      edt_usereditCode.Enabled:=False;
    end;

end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.SaveData;
var sqltext:string;
begin
  inherited;
  try
    dbconnect.beginTrans;
    if Add then
    //新增
      sqltext:='insert into Sal_SalePlan_Saler(PlanYear,SaleEmployeeCode,Plansum_Year,rationsum_Year,'
              +' Plansum_1,rationsum_1,Plansum_2,rationsum_2,Plansum_3,rationsum_3,'
              +' Plansum_4,rationsum_4,Plansum_5,rationsum_5,Plansum_6,rationsum_6,'
              +' Plansum_7,rationsum_7,Plansum_8,rationsum_8,Plansum_9,rationsum_9,'
              +' Plansum_10,rationsum_10,Plansum_11,rationsum_11,Plansum_12,rationsum_12,'
              +' user_Create,datetime_Create,user_edit,datetime_edit )'
              +' Values('+Trim(medt_Year.text)+','
                      +quotedstr(Trim(edt_DeptCode.text))+','
                      +Trim(edt_Plansum_Year.text)+','
                      +Trim(edt_rationsum_Year.text)+','
                      +Trim(edt_Plansum1.text)+','
                      +Trim(edt_rationsum1.text)+','
                      +Trim(edt_Plansum2.text)+','
                      +Trim(edt_rationsum2.text)+','
                      +Trim(edt_Plansum3.text)+','
                      +Trim(edt_rationsum3.text)+','
                      +Trim(edt_Plansum4.text)+','
                      +Trim(edt_rationsum4.text)+','
                      +Trim(edt_Plansum5.text)+','
                      +Trim(edt_rationsum5.text)+','
                      +Trim(edt_Plansum6.text)+','
                      +Trim(edt_rationsum6.text)+','
                      +Trim(edt_Plansum7.text)+','
                      +Trim(edt_rationsum7.text)+','
                      +Trim(edt_Plansum8.text)+','
                      +Trim(edt_rationsum8.text)+','
                      +Trim(edt_Plansum9.text)+','
                      +Trim(edt_rationsum9.text)+','
                      +Trim(edt_Plansum10.text)+','
                      +Trim(edt_rationsum10.text)+','
                      +Trim(edt_Plansum11.text)+','
                      +Trim(edt_rationsum11.text)+','
                      +Trim(edt_Plansum12.text)+','
                      +Trim(edt_rationsum12.text)+','
                      +quotedstr(Trim(edt_CreateEmployeeCode.text))+','
                      +quotedstr(medt_Createdate.text)+','
                      +quotedstr(Trim(edt_usereditCode.text))+','
                      +quotedstr(medt_edittime.text)+')'
    else
      sqltext:='update Sal_SalePlan_Saler'
             +' set Plansum_Year='+Trim(edt_Plansum_Year.text)+','
             +'     rationsum_Year='+Trim(edt_rationsum_Year.Text)+','
             +'     Plansum_1='+Trim(edt_Plansum1.text)+','
             +'     rationsum_1='+Trim(edt_rationsum1.text)+','
             +'     Plansum_2='+Trim(edt_Plansum2.text)+','
             +'     rationsum_2='+Trim(edt_rationsum1.text)+','
             +'     Plansum_3='+Trim(edt_Plansum3.text)+','
             +'     rationsum_3='+Trim(edt_rationsum3.text)+','
             +'     Plansum_4='+Trim(edt_Plansum4.text)+','