D7snShanfengT/应收应付/U_YSFP_WXDJCI.pas

unit U_YSFP_WXDJCI;

interface

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

type
  TfrmYSFP_WXDJCI = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    DataSource1: TDataSource;
    Order_PB: TClientDataSet;
    ADOQuery1: TADOQuery;
    ToolBar2: TToolBar;
    TADD: TToolButton;
    Tdel: TToolButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridDBColumn3: TcxGridDBColumn;
    v2PS: TcxGridDBColumn;
    v2MQty: TcxGridDBColumn;
    v2JQty: TcxGridDBColumn;
    v2MMQty: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    v2Column1: TcxGridDBColumn;
    VBZ: TcxGridDBColumn;
    v2KP: TcxGridDBColumn;
    v2khConNo: TcxGridDBColumn;
    v2P_CodeName: TcxGridDBColumn;
    v2Column4: TcxGridDBColumn;
    v2PRTColor: TcxGridDBColumn;
    v2Note: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    filltime: TDateTimePicker;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    MaiTou: TMemo;
    Label10: TLabel;
    DHMiao: TMemo;
    Label11: TLabel;
    CINote: TMemo;
    Label12: TLabel;
    v2StyleNo: TcxGridDBColumn;
    v2PRTMF: TcxGridDBColumn;
    v2PRTKZ: TcxGridDBColumn;
    v2HSCode: TcxGridDBColumn;
    ComTaiTou: TBtnEditA;
    KHName: TBtnEditA;
    Label13: TLabel;
    Label14: TLabel;
    GSTel: TBtnEditA;
    GSFax: TBtnEditA;
    ADOQuery2: TADOQuery;
    Label1: TLabel;
    LCDate: TDateTimePicker;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    BankName: TBtnEditA;
    BankNo: TBtnEditA;
    BankDaiMa: TBtnEditA;
    BankAddress: TBtnEditA;
    TKNote: TBtnEditA;
    toplace: TBtnEditA;
    fromplace: TBtnEditA;
    v2ZhenZhiSJFee: TcxGridDBColumn;
    v2YinHuaSJFee: TcxGridDBColumn;
    v2BaoGangFee: TcxGridDBColumn;
    v2ZhiWangZhiBanFee: TcxGridDBColumn;
    Label21: TLabel;
    ZHMiao: TBtnEditA;
    Label22: TLabel;
    HZConNo: TEdit;
    FPNo: TBtnEditA;
    LCNo: TBtnEditA;
    GSAddress: TBtnEditA;
    KHAddress: TBtnEditA;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    TSDate: TDateTimePicker;
    Label26: TLabel;
    SJTSMoney: TcxCurrencyEdit;
    DQTSMoney: TcxCurrencyEdit;
    BGMoney: TcxCurrencyEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure TADDClick(Sender: TObject);
    procedure v2P_CodeNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2Column4PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2PRTColorPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2PRTMFPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2PRTKZPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
    procedure ComTaiTouBtnClick(Sender: TObject);
    procedure KHNameBtnClick(Sender: TObject);
    procedure fromplaceBtnClick(Sender: TObject);
    procedure toplaceBtnClick(Sender: TObject);
    procedure GSTelBtnClick(Sender: TObject);
    procedure GSFaxBtnClick(Sender: TObject);
    procedure TKNoteBtnClick(Sender: TObject);
    procedure BankNameBtnClick(Sender: TObject);
    procedure BankNoBtnClick(Sender: TObject);
    procedure BankDaiMaBtnClick(Sender: TObject);
    procedure BankAddressBtnClick(Sender: TObject);
    procedure MaiTouDblClick(Sender: TObject);
    procedure DHMiaoDblClick(Sender: TObject);
    procedure CINoteDblClick(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure TdelClick(Sender: TObject);
    procedure ZHMiaoBtnClick(Sender: TObject);
    procedure FPNoBtnClick(Sender: TObject);
    procedure LCNoBtnClick(Sender: TObject);
    procedure GSAddressBtnClick(Sender: TObject);
    procedure KHAddressBtnClick(Sender: TObject);
    procedure v2khConNoPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2StyleNoPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure VBZPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2HSCodePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
  private
    procedure initgrid();
    procedure SaveData();
    { Private declarations }
  public
    FMainid,FFPID,FromID: string;       //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ
    { Public declarations }
  end;

var
  frmYSFP_WXDJCI: TfrmYSFP_WXDJCI;

implementation
Uses
    U_DataLink,U_ZDYHelp,U_Fun,U_YSCR_CX, U_ZDYHelpSel,U_YSFP_WXCX;
{$R *.dfm}

procedure TfrmYSFP_WXDJCI.SaveData();
var
  maxno,maxsubNo:String;
begin
  if trim(FFPID)='' then
  begin
    if GetLSNo(ADOQuery1,maxno,'CI','JYOrderFPCI_Main',3,1)=False then
    begin
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
      Exit;
    end;
  end
  else
  begin
    maxno:=Trim(FFPID);
  end;
  with ADOQuery1 do
  begin
    Close;
    sql.Clear;
    SQL.Add('select * from JYOrderFPCI_Main where CIID='''+Trim(maxno)+'''');
    Open;
  end;
  with ADOQuery1 do
  begin
    if isempty then
    begin
      Append;
    end
    else begin
      Edit;
    end;
    FieldByName('CIID').Value:=Trim(maxno);
    fieldbyname('Filler').Value:=trim(DName);
    SSetsaveSqlNew(ADOQuery1,'JYOrderFPCI_Main',panel1,2);
    post;
  end;
  with Order_PB do
  begin
    First;
    while not Eof do
    begin
      if Trim(Order_PB.fieldbyname('CISID').AsString)='' then
      begin
        if GetLSNo(ADOQuery1,maxSubno,'CS','JYOrderFPCI_Sub',4,1)=False then
        begin
          Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
          Exit;
        end;
      end else
      begin
        maxSubno:=Trim(Order_PB.fieldbyname('CISID').AsString);
      end;
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        sql.Add('select * from JYOrderFPCI_Sub where CIID='''+Trim(maxno)+'''');
        sql.Add(' and CISID='''+Trim(maxSubno)+'''');
        Open;
      end;
      with ADOQuery1 do
      begin
        if isempty then
        Append
        else
          Edit;
          FieldByName('CIID').Value:=Trim(maxno);
          FieldByName('CISID').Value:=Trim(maxSubno);
          RTSetSaveDataCDS(ADOQuery1,Tv2,Order_PB,'JYOrderFPCI_Sub',0);
          fieldbyname('YFID').Value:=Order_PB.fieldbyname('YFID').AsString;
          fieldbyname('ConYFID').Value:=Order_PB.fieldbyname('ConYFID').AsString;
          fieldbyname('conSubid').Value:=Order_PB.fieldbyname('conSubid').AsString;
          fieldbyname('YFName').Value:=Order_PB.fieldbyname('YFName').AsString;
          fieldbyname('Qty').Value:=Order_PB.Fieldbyname('Qty').AsFloat;
          fieldbyname('Price').Value:=Order_PB.Fieldbyname('Price').AsFloat;
          fieldbyname('JQty').Value:=Order_PB.Fieldbyname('JQty').AsFloat;
          fieldbyname('MQty').Value:=Order_PB.Fieldbyname('MQty').AsFloat;
          fieldbyname('KPMoney').Value:=Order_PB.Fieldbyname('KPMoney').AsFloat;
          fieldbyname('PS').Value:=Order_PB.Fieldbyname('PS').AsFloat;
          fieldbyname('MMQty').Value:=Order_PB.Fieldbyname('MMQty').AsFloat;
          fieldbyname('ZhenZhiSJFee').AsFloat:=Order_PB.fieldbyname('ZhenZhiSJFee').AsFloat;
          fieldbyname('YinHuaSJFee').AsFloat:=Order_PB.fieldbyname('YinHuaSJFee').AsFloat;
          fieldbyname('BaoGangFee').AsFloat:=Order_PB.fieldbyname('BaoGangFee').AsFloat;
          fieldbyname('ZhiWangZhiBanFee').AsFloat:=Order_PB.fieldbyname('ZhiWangZhiBanFee').AsFloat;
          Post;
      end;
      Order_PB.Edit;
      Order_PB.FieldByName('CISID').Value:=Trim(maxSubno);
      Next;
    end;
  end;
  Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
  ModalResult:=1;
end;

procedure TfrmYSFP_WXDJCI.initgrid();
begin
  with ADOQuery1 DO
  begin
    close;
    sql.Clear;
    sql.Add('select * from JYOrderFPCI_Main ');
    sql.add('where CIID='''+Trim(FFPID)+'''');
    open;
  end;
  if ADOQuery1.IsEmpty=False then
  SCSHDataNew(ADOQuery1,panel1,2);
  if FromID='1' then
  FFPID:='';
  with Adoquery1 do
  begin
    close;
    sql.clear;
    sql.add('select * from JYOrderFPCI_Sub ');
    SQL.Add('where CIID='''+trim(FFPID)+'''');
    open;
  end;
  SCreateCDS20(Adoquery1,Order_PB);
  SInitCDSData20(Adoquery1,Order_PB);
end;

procedure TfrmYSFP_WXDJCI.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmYSFP_WXDJCI.FormDestroy(Sender: TObject);
begin
  frmYSFP_WXDJCI:=nil;
end;

procedure TfrmYSFP_WXDJCI.FormShow(Sender: TObject);
begin
  ReadCxGrid('<27><><EFBFBD><EFBFBD>CI<43><49>Ʊ1',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  TSDate.DateTime:=now;
  filltime.Datetime:=now;
  LCDate.DateTime:=now;
  LCDate.Checked:=false;
  initgrid();
end;

procedure TfrmYSFP_WXDJCI.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('<27><><EFBFBD><EFBFBD>CI<43><49>Ʊ1',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TfrmYSFP_WXDJCI.TADDClick(Sender: TObject);
var FHZConNO: string;
begin
  frmYSCR_CX:=TfrmYSCR_CX.create(self);
  with frmYSCR_CX do
  begin
    formid:='1';
    if showmodal=1 then
    begin
      with CDS_HZ do
      begin
        first;
        while not eof do
        begin
          if fieldbyname('Ssel').AsBoolean=true then
          begin
            if FHZConNO='' then
            begin
              if self.HZConNO.Text='' then
              self.HZConNO.Text:=self.HZConNO.Text+CDS_HZ.fieldbyname('ConNoHZ').AsString
              else
              self.HZConNo.Text:=self.HZConNo.Text+','+CDS_HZ.fieldbyname('ConNoHZ').AsString;
              FHZConNO:=CDS_HZ.fieldbyname('ConNoHZ').AsString;
            end
            else
            begin
              if FHZConNo<>CDS_HZ.fieldbyname('ConNoHZ').AsString then
              begin
                FHZConNO:=CDS_HZ.fieldbyname('ConNoHZ').AsString;
                self.HZConNo.Text:=self.HZConNo.Text+','+CDS_HZ.fieldbyname('ConNoHZ').AsString;
              end;
            end;
            if FFPID='' then
            begin
            self.FPNo.Text:=CDS_HZ.fieldbyname('FPNo').AsString;
            self.ComTaiTou.Text:=CDS_HZ.fieldbyname('ComTaiTou').AsString;
            self.KHName.Text:=CDS_HZ.fieldbyname('MKHName').AsString;
            self.GSAddress.Text:=CDS_HZ.fieldbyname('MGSAddress').AsString;
            self.GSTel.Text:=CDS_HZ.fieldbyname('MGSTel').AsString;
            self.GSFax.Text:=CDS_HZ.fieldbyname('GSFax').AsString;
            self.TKNote.Text:=CDS_HZ.fieldbyname('TKNote').AsString;
            self.BankName.Text:=CDS_HZ.fieldbyname('MBankName').AsString;
            self.BankNo.Text:=CDS_HZ.fieldbyname('MBankNo').AsString;
            self.BankDaiMa.Text:=CDS_HZ.fieldbyname('MBankDaiMa').AsString;
            self.BankAddress.Text:=CDS_HZ.fieldbyname('MBankAddress').AsString;
            end;
            with ADOQuery1 do
            begin
              close;
              sql.Clear;
              sql.Add('select * from JYOrderCon_Sub ');
              sql.add('where Subid='''+trim(CDS_HZ.fieldbyname('ConID').AsString)+'''');
              open;
            end;
            with Order_PB do
            begin
            append;
            fieldbyname('KHConNo').AsString:=CDS_HZ.fieldbyname('KHConNo').AsString;
            fieldbyname('StyleNo').Value:=CDS_HZ.fieldbyname('StyleNo').AsString;
            fieldbyname('YFName').AsString:=CDS_HZ.fieldbyname('YFName').AsString;
            fieldbyname('PS').Value:=CDS_HZ.fieldbyname('PS').AsFloat;
            fieldbyname('MQty').Value:=CDS_HZ.fieldbyname('MaoQty').AsFloat;
            fieldbyname('JQty').Value:=CDS_HZ.fieldbyname('JZQty').AsFloat;
            fieldbyname('MMQty').Value:=CDS_HZ.fieldbyname('MQty').AsFloat;
            fieldbyname('Qty').Value:=CDS_HZ.fieldbyname('Qty').AsFloat;
            fieldbyname('KPMoney').Value:=CDS_HZ.fieldbyname('Money').AsFloat;
            fieldbyname('QtyUnit').AsString:=CDS_HZ.fieldbyname('QtyUnit').AsString;
            fieldbyname('Price').asfloat:=CDS_HZ.fieldbyname('Price').asfloat;
            fieldbyname('BZType').AsString:=CDS_HZ.fieldbyname('BZType').AsString;
            fieldbyname('P_CodeName').Value:=CDS_HZ.fieldbyname('MP_CodeName').AsString;
            fieldbyname('P_Spec').AsString:=CDS_HZ.fieldbyname('MP_Spec').AsString;
            fieldbyname('PRTColor').AsString:=CDS_HZ.fieldbyname('PrtColor').AsString;
            fieldbyname('PRTMF').AsString:=CDS_HZ.fieldbyname('PRTMF').AsString;
            fieldbyname('PRTKZ').AsString:=CDS_HZ.fieldbyname('PRTKZ').AsString;
            fieldbyname('ConYFID').AsString:=CDS_HZ.fieldbyname('YFID').AsString;
            fieldbyname('YFID').AsString:=CDS_HZ.fieldbyname('YFID').AsString;
            fieldbyname('conSubid').AsString:=CDS_HZ.fieldbyname('ConID').AsString;
            fieldbyname('ZhenZhiSJFee').AsFloat:=ADOQuery1.fieldbyname('ZhenZhiSJFee').AsFloat;
            fieldbyname('YinHuaSJFee').AsFloat:=ADOQuery1.fieldbyname('YinHuaSJFee').AsFloat;
            fieldbyname('BaoGangFee').AsFloat:=ADOQuery1.fieldbyname('BaoGangFee').AsFloat;
            fieldbyname('ZhiWangZhiBanFee').AsFloat:=ADOQuery1.fieldbyname('ZhiWangZhiBanFee').AsFloat;
            post;
            end;
          end;
          next;
        end;
      end;
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2P_CodeNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='P_CodeNamefp';
      flagname:='Ʒ<><C6B7>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('P_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2Column4PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='P_Specfp';
      flagname:='<27><><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('P_Spec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2PRTColorPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='PRTColorfp';
      flagname:='<27><>ɫ';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2PRTMFPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='PRTMFfp';
      flagname:='<27>ŷ<EFBFBD>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('PRTMF').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2PRTKZPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='PRTKZfp';
      flagname:='<27><><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('PRTKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2Column1PropertiesEditValueChanged(
  Sender: TObject);
var
  mvalue,FFieldName:String;
begin
  mvalue:=TcxTextEdit(Sender).EditingText;
  if Trim(mvalue)='' then
  begin
    mvalue:='0';
  end;
  FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with Order_PB do
  begin
    Edit;
    FieldByName(FFieldName).Value:=Trim(mvalue);
  end;
  with order_PB do
  begin
    edit;
    fieldbyname('KPMoney').Value:=fieldbyname('Price').AsFloat*fieldbyname('Qty').AsFloat;
  end;
end;

procedure TfrmYSFP_WXDJCI.ComTaiTouBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='comTaiTouGS';
      flagname:='<27><>˾̧ͷ';
      if ShowModal=1 then
      begin
        ComtaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
          with ADOQuery1 do
          begin
            Close;
            sql.Clear;
            sql.Add('select Top 1* from JYOrderFPCI_Main where ComTaiTou='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
            sql.add(' order by FillTime desc');
            Open;
            Self.GSTel.Text:=Trim(ADOQuery1.fieldbyname('GSTel').AsString);
            Self.GSAddress.Text:=Trim(ADOQuery1.fieldbyname('GSAddress').AsString);
            Self.GSFax.Text:=Trim(ADOQuery1.fieldbyname('GSFax').AsString);
          end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.KHNameBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='KHName1';
    flagname:='<27>ͻ<EFBFBD>';
    if ShowModal=1 then
    begin
      KHName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      with ADOQuery1 do
          begin
            Close;
            sql.Clear;
            sql.Add('select Top 1* from JYOrderFPCI_Main where KHName='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
            sql.add(' order by FillTime desc');
            Open;
            Self.KHAddress.Text:=Trim(ADOQuery1.fieldbyname('KHAddress').AsString);
          end;
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.fromplaceBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='fromplace';
    flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      fromplace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.toplaceBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='toplace';
    flagname:='Ŀ<>ĵ<EFBFBD>';
    if ShowModal=1 then
    begin
      toplace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.GSTelBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='GSTel';
    flagname:='<27><>˾<EFBFBD>绰';
    if ShowModal=1 then
    begin
      GSTel.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.GSFaxBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='GSFax';
    flagname:='<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      GSFax.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.TKNoteBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='TKNote';
    flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
    if ShowModal=1 then
    begin
      TKNote.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.BankNameBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='BankNamePI';
      flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        BankName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
          with ADOQuery1 do
          begin
            Close;
            sql.Clear;
            sql.Add('select Top 1* from JYOrderFPCI_Main where BankName='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
            sql.add(' order by FillTime desc');
            Open;
            Self.BankNo.Text:=Trim(ADOQuery1.fieldbyname('BankNo').AsString);
            Self.BankDaiMa.Text:=Trim(ADOQuery1.fieldbyname('BankDaiMa').AsString);
            Self.BankAddress.Text:=Trim(ADOQuery1.fieldbyname('BankAddress').AsString); 
          end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.BankNoBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='BankNoPI';
    flagname:='<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>';
    if ShowModal=1 then
    begin
      BankNo.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.BankDaiMaBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='BankDaiMaPI';
    flagname:='<27><><EFBFBD>д<EFBFBD><D0B4><EFBFBD>';
    if ShowModal=1 then
    begin
      BankDaiMa.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.BankAddressBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='BankAddressPI';
    flagname:='<27><><EFBFBD>е<EFBFBD>ַ';
    if ShowModal=1 then
    begin
      BankAddress.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.MaiTouDblClick(Sender: TObject);
var
  fsj:string;
  FWZ:Integer;
  i:integer;
begin
  fsj:=Trim(TMemo(Sender).Hint);
  FWZ:=Pos('/',fsj);
  i:=1;
  try
    frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
    with frmZDYHelpSel do
    begin
      flag:=Copy(fsj,1,FWZ-1);
      flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
      if ShowModal=1 then
      begin
        MaiTou.Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean=True then
            begin
              MaiTou.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString);
              i:=i+1;
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.DHMiaoDblClick(Sender: TObject);
var
  fsj:string;
  FWZ:Integer;
  i:integer;
begin
  fsj:=Trim(TMemo(Sender).Hint);
  FWZ:=Pos('/',fsj);
  i:=1;
  try
    frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
    with frmZDYHelpSel do
    begin
      flag:=Copy(fsj,1,FWZ-1);
      flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
      if ShowModal=1 then
      begin
        DHMiao.Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean=True then
            begin
              DHMiao.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString);
              i:=i+1;
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.CINoteDblClick(Sender: TObject);
var
  fsj:string;
  FWZ:Integer;
  i:integer;
begin
  fsj:=Trim(TMemo(Sender).Hint);
  FWZ:=Pos('/',fsj);
  i:=1;
  try
    frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
    with frmZDYHelpSel do
    begin
      flag:=Copy(fsj,1,FWZ-1);
      flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
      if ShowModal=1 then
      begin
        CINote.Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean=True then
            begin
              CINote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString);
              i:=i+1;
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.TBSaveClick(Sender: TObject);
begin
  toolbar1.SetFocus;
  if Trim(ComTaiTou.Text)='' then
  begin
    Application.MessageBox('<27><>˾̧ͷ<CCA7><CDB7><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  if Trim(KHName.Text)='' then
  begin
    Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  SaveData();
end;

procedure TfrmYSFP_WXDJCI.TdelClick(Sender: TObject);
begin
  if order_PB.IsEmpty then exit;
  if order_PB.FieldByName('CISID').AsString<>'' then
  begin
    if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>','<27><>ʾ',1)=2 then exit;
    with ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add('delete from JYOrderFPCI_Sub ');
      sql.add('where CISID='''+trim(order_PB.FieldByName('CISID').AsString)+'''');
      execsql;
    end;
  end;
  Order_PB.Delete;
end;

procedure TfrmYSFP_WXDJCI.ZHMiaoBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='ZHMiao';
    flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      ZHMiao.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.FPNoBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='FPNo';
    flagname:='<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      FPNo.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.LCNoBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='LCNo';
    flagname:='LC/No';
    if ShowModal=1 then
    begin
      LCNo.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.GSAddressBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='GSAddress';
    flagname:='<27><>˾<EFBFBD><CBBE>ַ';
    if ShowModal=1 then
    begin
      GSAddress.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.KHAddressBtnClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='KHAddress';
    flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD>ַ';
    if ShowModal=1 then
    begin
      KHAddress.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2khConNoPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='khConNofp';
    flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD>ͬ<EFBFBD><CDAC>';
    if ShowModal=1 then
    begin
      with Order_PB do
      begin
        edit;
        fieldbyname('KHConNo').AsString:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2StyleNoPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='StyleNofp';
      flagname:='<27><><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('StyleNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.cxGridDBColumn3PropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='YFNamefp';
      flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.cxGridDBColumn6PropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='QtyUnitfp';
      flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.VBZPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='BZType';
      flagname:='<27><><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('BZType').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSFP_WXDJCI.v2HSCodePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='HSCode';
      flagname:='H.S.';
      if ShowModal=1 then
      begin
        Self.Order_PB.Edit;
        Self.Order_PB.FieldByName('HSCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

end.