D7wmoukai/贸易管理(TradeManage.dll)/U_SampleLR_LY.pas

unit U_SampleLR_LY;

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_LY = 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;
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    ywy: TEdit;
    Label10: TLabel;
    request: TMemo;
    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;
    Label9: TLabel;
    defflt1: TcxCurrencyEdit;
    Label2: TLabel;
    defflt2: TcxCurrencyEdit;
    Label16: TLabel;
    defflt3: TcxCurrencyEdit;
    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 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_LY: TfrmSampleLR_LY;

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

function TfrmSampleLR_LY.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('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',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('defflt1').Value:=strtofloatdef(trim(defflt1.Text),0);
    ADOQueryCmd.fieldbyname('defflt2').Value:=strtofloatdef(trim(defflt2.Text),0);
    ADOQueryCmd.fieldbyname('defflt3').Value:=strtofloatdef(trim(defflt3.Text),0);
    ADOQueryCmd.Post;
    ADOQueryCmd.Connection.CommitTrans;
    result:=true;
  except
    ADOQueryCmd.Connection.RollbackTrans;
  end;
end;
procedure TfrmSampleLR_LY.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_LY.FormDestroy(Sender: TObject);
begin
  frmSampleLR_LY:=nil;
end;

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

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

procedure TfrmSampleLR_LY.FormShow(Sender: TObject);
begin

  InitGrid();
end;

procedure TfrmSampleLR_LY.TBSaveClick(Sender: TObject);
begin
  CRTime.SetFocus;
 { IF trim(P_Code.Text)='' then
  begin
    application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
    exit;
  end; }
  IF trim(P_CodeName.Text)='' then
  begin
    application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
    exit;
  end; 
  if savedate() then
  begin
    application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
    ModalResult:=1;
  end
  else
  begin
     application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
  end;
end;

procedure TfrmSampleLR_LY.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_LY.TBCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSampleLR_LY.v1P_CodePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='YPCode';
      flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      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_LY.P_CodeNameBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='MPRTCodeName';
      flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        P_CodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmSampleLR_LY.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_LY.custNameBtnClick(Sender: TObject);
begin
  frmZdyAttachment:=TfrmZdyAttachment.create(self);
  with frmZdyAttachment do
  begin
    if trim(canshu1)<>'<27><>Ȩ<EFBFBD><C8A8>' then canshu1:='ҵ<><D2B5>Ա';
    if showmodal=1 then
    begin
      custName.Text:=trim(CDS_HZ.fieldbyname('zdyName').AsString);
      ywy.Text:=trim(CDS_HZ.fieldbyname('defstr5').AsString);
    end;
    free;
  end;
end;

end.