unit U_SampleLR;

interface

uses
  Windows, Messages, SysUtils,StrUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin,
  cxButtonEdit, cxDropDownEdit, DBClient, ADODB, cxGridCustomPopupMenu,
  cxGridPopupMenu,cxTextEdit, BtnEdit, cxContainer, cxCurrencyEdit;

type
  TfrmSampleLR = class(TForm)
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    CRTime: TDateTimePicker;
    ADOQueryCmd: TADOQuery;
    ADOQueryTmp: TADOQuery;
    DataSource1: TDataSource;
    CDS_Main: TClientDataSet;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label2: TLabel;
    factoryName: TBtnEditA;
    DeliveryTime: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    defstr1: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    defstr2: TEdit;
    Label9: TLabel;
    defstr3: TEdit;
    Label10: TLabel;
    request: TMemo;
    Qty: TcxCurrencyEdit;
    P_CodeName: TBtnEditA;
    P_Code: TBtnEditA;
    note: TMemo;
    Label11: TLabel;
    Label12: TLabel;
    custName: TBtnEditA;
    P_spec: TEdit;
    Label13: TLabel;
    defstr4: TEdit;
    Label14: TLabel;
    defstr5: TEdit;
    Label15: TLabel;
    defdate1: TDateTimePicker;
    Label24: TLabel;
    defdate2: TDateTimePicker;
    Label25: TLabel;
    Label23: TLabel;
    defstr6: TEdit;
    defstr7: TEdit;
    Label16: TLabel;
    defstr8: TEdit;
    Label17: TLabel;
    defstr9: TEdit;
    Label18: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure v1P_CodePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure factoryNameBtnClick(Sender: TObject);
    procedure P_CodeNameBtnClick(Sender: TObject);
    procedure P_CodeBtnClick(Sender: TObject);
    procedure custNameBtnClick(Sender: TObject);
  private
    procedure InitGrid();
    function  savedate():Boolean;
    { Private declarations }
  public
    fkeyNO:string;
    FCRFlag:string;
    canshu1:string;
    { Public declarations }
  end;

var
  frmSampleLR: TfrmSampleLR;

implementation
 uses
  U_DataLink,U_Fun10,U_ZDYHelp, U_ZdyAttachGYS, U_CPManageSel,
  U_ZdyAttachment;
{$R *.dfm}

function TfrmSampleLR.savedate():Boolean;
begin
  result:=false;
  try
    ADOQueryCmd.Connection.BeginTrans;
    IF trim(fkeyNo)='' then
    begin
      if GetLSNo(ADOQueryTmp,fkeyNo,'','JY_Sample',3,1)=False then
      begin
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('取子流水号失败！','提示',0);
        Exit;
      end;
      fkeyNo:=trim(DCode)+fkeyNo;
    end;
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.Add('select * from JY_Sample where JSNO='''+trim(fkeyNo)+''' and CRFlag='''+trim(fCRFlag)+'''');
      open;
    end;
    IF ADOQueryCmd.IsEmpty then
    begin
      ADOQueryCmd.Append;
      ADOQueryCmd.FieldByName('Filler').Value:=DName;
    end
    else
    begin
      ADOQueryCmd.Edit;
      ADOQueryCmd.FieldByName('editer').Value:=DName;
      ADOQueryCmd.FieldByName('editTime').Value:=now();
    end;
    SSetsaveSqlNew(ADOQueryCmd,'JY_Sample',Panel1,0);
    ADOQueryCmd.fieldbyname('JSNO').Value:=fkeyNo;
    ADOQueryCmd.fieldbyname('JSID').Value:=1;
    ADOQueryCmd.fieldbyname('CRFlag').Value:=fCRFlag;
    ADOQueryCmd.fieldbyname('Qty').Value:=strtofloatdef(trim(Qty.Text),0);
    ADOQueryCmd.Post;
    ADOQueryCmd.Connection.CommitTrans;
    result:=true;
  except
    ADOQueryCmd.Connection.RollbackTrans;
  end;
end;
procedure TfrmSampleLR.InitGrid();

begin
  try
    with adoqueryTmp do
    begin
      close;
      sql.Clear;
      sql.Add('select A.* from JY_Sample A');
      sql.Add('where JSNO='+quotedstr(trim(fkeyNO)));
      open;
    end;
    if not adoqueryTmp.IsEmpty then
    begin
      SCSHDataNew(adoqueryTmp,Panel1,0);
    end;
  finally
  end;
end;

procedure TfrmSampleLR.FormDestroy(Sender: TObject);
begin
  frmSampleLR:=nil;
end;

procedure TfrmSampleLR.FormCreate(Sender: TObject);
begin
  CRTime.Date:=DServerDate;
  DeliveryTime.Date:= CRTime.Date;
  defdate1.Date:= CRTime.Date;
  defdate2.Date:= CRTime.Date;
end;

procedure TfrmSampleLR.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cahide;
end;

procedure TfrmSampleLR.FormShow(Sender: TObject);
begin

  InitGrid();
end;

procedure TfrmSampleLR.TBSaveClick(Sender: TObject);
begin
  CRTime.SetFocus;
  IF trim(P_Code.Text)='' then
  begin
    application.MessageBox('样品编号不能为空！','提示信息',MB_ICONERROR);
    exit;
  end;
  IF trim(P_CodeName.Text)='' then
  begin
    application.MessageBox('产品名称不能为空！','提示信息',MB_ICONERROR);
    exit;
  end;
  if savedate() then
  begin
    application.MessageBox('数据保存成功！','提示信息');
    ModalResult:=1;
  end
  else
  begin
     application.MessageBox('数据保存失败！','提示信息',MB_ICONERROR);
  end;
end;

procedure TfrmSampleLR.ToolButton1Click(Sender: TObject);
begin
 { frmCPManageSel:=TfrmCPManageSel.create(self);
  with frmCPManageSel do
  begin
    if showmodal=1 then
    begin
      self.cds_main.DisableControls;
      CDS_Main.DisableControls;
      CDS_Main.First;
      while not CDS_Main.Eof  do
      begin
        if (cds_main.fieldbyname('ssel').AsBoolean) and
          (not self.cds_main.Locate('P_Code',trim(cds_main.fieldbyname('CYNo').AsString),[])) then
        begin
        self.cds_main.Append;
      //  self.cds_main.FieldByName('kcid').Value:=trim(cds_main.fieldbyname('kcid').AsString);
      //  self.cds_main.FieldByName('mainID').Value:=trim(cds_main.fieldbyname('mainID').AsString);
      //  self.cds_main.FieldByName('subID').Value:=trim(cds_main.fieldbyname('subID').AsString);
     //   self.cds_main.FieldByName('MJID').Value:=trim(cds_main.fieldbyname('MJID').AsString);
     //   self.cds_main.FieldByName('MJXH').Value:=trim(cds_main.fieldbyname('MJXH').AsString);
    //    self.cds_main.FieldByName('CPTYPE').Value:=trim(cds_main.fieldbyname('MJType').AsString);
        self.cds_main.FieldByName('P_Code').Value:=trim(cds_main.fieldbyname('CYNo').AsString);
        self.cds_main.FieldByName('P_CodeName').Value:=trim(cds_main.fieldbyname('CYName').AsString);
        self.cds_main.FieldByName('defnote5').Value:=trim(cds_main.fieldbyname('defnote5').AsString);
        self.cds_main.FieldByName('P_spec').Value:=trim(cds_main.fieldbyname('CYSpec').AsString);
        self.cds_main.FieldByName('P_cf').Value:=trim(cds_main.fieldbyname('CYECF').AsString);
        self.cds_main.FieldByName('CYMF').Value:=trim(cds_main.fieldbyname('CYMF').AsString);
        self.cds_main.FieldByName('CYKZ').Value:=trim(cds_main.fieldbyname('CYKZ').AsString);
        self.cds_main.FieldByName('factoryName').Value:=trim(cds_main.fieldbyname('DefStr7').AsString);
        self.cds_main.FieldByName('Kuwei').Value:=trim(cds_main.fieldbyname('DefStr2').AsString);
    //    self.cds_main.FieldByName('P_Color').Value:=trim(cds_main.fieldbyname('P_Color').AsString);
    //    self.cds_main.FieldByName('P_MF').Value:=cds_main.fieldbyname('P_MF').AsFloat;
    //    self.cds_main.FieldByName('P_KZ').Value:=cds_main.fieldbyname('P_KZ').AsFloat;
    //    self.cds_main.FieldByName('RollNum').Value:=;
    //    self.cds_main.FieldByName('Qty').Value:=cds_main.fieldbyname('MJLen').AsFloat;
    //    self.cds_main.FieldByName('QtyUnit').Value:=trim(cds_main.fieldbyname('MJTypeother').AsString);
        self.cds_main.Post;
        end;
        cds_main.Next;
      end;
      cds_main.EnableControls;
      self.cds_main.EnableControls;
    end;
    free;
  end;
//  cds_main.Append;
//  cds_Main.fieldbyname('qtyUnit').Value:='M';
//  cds_main.post;   }
end;

procedure TfrmSampleLR.TBCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSampleLR.v1P_CodePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='YPCode';
      flagname:='样品编号';
      if ShowModal=1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('P_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmSampleLR.factoryNameBtnClick(Sender: TObject);
begin
  frmZdyAttachGYS:=TfrmZdyAttachGYS.create(self);
  with frmZdyAttachGYS do
  begin
    if showmodal=1 then
    begin
      factoryName.Text:=trim(CDS_HZ.fieldbyname('zdyName').AsString);
      defstr7.Text:=trim(CDS_HZ.fieldbyname('DEFNote1').AsString);
      defstr8.Text:=trim(CDS_HZ.fieldbyname('DEFstr1').AsString);
    end;
    free;
  end;
end;

procedure TfrmSampleLR.P_CodeNameBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='MPRTCodeName';
      flagname:='产品名称';
      if ShowModal=1 then
      begin
        P_CodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmSampleLR.P_CodeBtnClick(Sender: TObject);
begin
  frmCPManageSel:=TfrmCPManageSel.Create(self);
  with frmCPManageSel do
  begin
    if showmodal=1 then
    begin
      P_Code.Text:=CDS_Main.fieldbyname('CYNo').asstring;
      P_CodeName.Text:=CDS_Main.fieldbyname('CYName').asstring;
      defstr1.Text:=CDS_Main.fieldbyname('DefStr8').asstring;
      P_Spec.Text:=CDS_Main.fieldbyname('CYSpec').asstring;
      defstr4.Text:=CDS_Main.fieldbyname('DefStr12').asstring;
      defstr5.Text:=CDS_Main.fieldbyname('DefStr13').asstring;
    end;
    free;
  end;
end;

procedure TfrmSampleLR.custNameBtnClick(Sender: TObject);
begin
  frmZdyAttachment:=TfrmZdyAttachment.create(self);
  with frmZdyAttachment do
  begin
    if trim(canshu1)<>'高权限' then canshu1:='业务员';
    if showmodal=1 then
    begin
      custName.Text:=trim(CDS_HZ.fieldbyname('zdyName').AsString)
    end;
    free;
  end;
end;

end.