D7myYunxiang/云翔基础资料(BaseInfoYX.dll)/U_CPAdd_ZLR.pas

unit U_CPAdd_ZLR;

interface
uses
  Windows, Messages,strutils, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin,
  cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit,
  StdCtrls, ExtCtrls, cxCurrencyEdit, cxDropDownEdit, cxPC, cxSplitter,
  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, cxCheckBox,
  Menus, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,
  RM_BarCode,ShellAPI,IniFiles,jpeg,U_SLT,Math, cxCalendar;


type
  TfrmCPAdd_ZLR = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    TBClose: TToolButton;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1CYNo: TcxGridDBColumn;
    v1CYName: TcxGridDBColumn;
    v1CYEName: TcxGridDBColumn;
    v1CYSpec: TcxGridDBColumn;
    v1CYCF: TcxGridDBColumn;
    v1CYECF: TcxGridDBColumn;
    v1CYMF: TcxGridDBColumn;
    v1CYKZ: TcxGridDBColumn;
    v1CYPrice: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    CDS_Sub: TClientDataSet;
    ADOQueryMain: TADOQuery;
    DataSource2: TDataSource;
    ADOQueryCmd: TADOQuery;
    ADOQueryTemp: TADOQuery;
    cxGridPopupMenu1: TcxGridPopupMenu;
    v1DefStr2: TcxGridDBColumn;
    v1DefStr6: TcxGridDBColumn;
    v1DefStr10: TcxGridDBColumn;
    DataSource1: TDataSource;
    Order_Sub: TClientDataSet;
    ADOQuery1: TADOQuery;
    v1CPName: TcxGridDBColumn;
    cxGridPopupMenu2: TcxGridPopupMenu;
    cxGridPopupMenu3: TcxGridPopupMenu;
    cxGridPopupMenu4: TcxGridPopupMenu;
    Order_ML: TClientDataSet;
    DataSource3: TDataSource;
    Order_JG: TClientDataSet;
    DataSource4: TDataSource;
    Ord_BY: TClientDataSet;
    cxGrid5: TcxGrid;
    tv5: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridDBColumn11: TcxGridDBColumn;
    cxGridDBColumn12: TcxGridDBColumn;
    cxGridDBColumn13: TcxGridDBColumn;
    cxGridDBColumn14: TcxGridDBColumn;
    cxGridDBColumn15: TcxGridDBColumn;
    cxGridLevel4: TcxGridLevel;
    DataSource5: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    Ord_ER: TClientDataSet;
    DataSource6: TDataSource;
    cxGridPopupMenu5: TcxGridPopupMenu;
    Ord_JGER: TClientDataSet;
    DataSource8: TDataSource;
    ADOQuery5: TADOQuery;
    cxGridPopupMenu7: TcxGridPopupMenu;
    Ord_Si: TClientDataSet;
    DataSource9: TDataSource;
    cxGridPopupMenu8: TcxGridPopupMenu;
    Ord_JGSi: TClientDataSet;
    DataSource11: TDataSource;
    cxGridPopupMenu10: TcxGridPopupMenu;
    ClientDataSet1: TClientDataSet;
    DataSource12: TDataSource;
    cxGridPopupMenu11: TcxGridPopupMenu;
    ClientDataSet2: TClientDataSet;
    DataSource13: TDataSource;
    cxGridPopupMenu12: TcxGridPopupMenu;
    cxGridPopupMenu13: TcxGridPopupMenu;
    DataSource14: TDataSource;
    ClientDataSet3: TClientDataSet;
    cxGridPopupMenu14: TcxGridPopupMenu;
    DataSource15: TDataSource;
    ClientDataSet4: TClientDataSet;
    CJ_Mianliao: TClientDataSet;
    DataSource16: TDataSource;
    cxGridPopupMenu15: TcxGridPopupMenu;
    v1COldCYNo: TcxGridDBColumn;
    cxSplitter4: TcxSplitter;
    Panel2: TPanel;
    cxGrid4: TcxGrid;
    Tv4: TcxGridDBTableView;
    v4CYNo: TcxGridDBColumn;
    v4ColorName: TcxGridDBColumn;
    v4ColorNo: TcxGridDBColumn;
    v4Note: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    ToolBar3: TToolBar;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Panel1: TPanel;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    v2CengJi: TcxGridDBColumn;
    v2IFSel: TcxGridDBColumn;
    v2Column1: TcxGridDBColumn;
    v2GYSName: TcxGridDBColumn;
    v2MLName: TcxGridDBColumn;
    v2SZSpec: TcxGridDBColumn;
    v2JWMiDu: TcxGridDBColumn;
    v2MLMF: TcxGridDBColumn;
    v2MLKZ: TcxGridDBColumn;
    v2MLColor: TcxGridDBColumn;
    v2MLSeHao: TcxGridDBColumn;
    v2MLPrice: TcxGridDBColumn;
    v2MLSunHao: TcxGridDBColumn;
    v2ZPrice: TcxGridDBColumn;
    v2JGZPrice: TcxGridDBColumn;
    v2LXRen: TcxGridDBColumn;
    v2LXTel: TcxGridDBColumn;
    v2MLCF: TcxGridDBColumn;
    v2MLNote: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    ToolBar2: TToolBar;
    TMXSave: TToolButton;
    TAdd: TToolButton;
    TDel: TToolButton;
    cxGrid3: TcxGrid;
    Tv3: TcxGridDBTableView;
    v3IFZY: TcxGridDBColumn;
    v3JGCode: TcxGridDBColumn;
    v3JGCengJi: TcxGridDBColumn;
    v3JGFactoryName: TcxGridDBColumn;
    v3GYName: TcxGridDBColumn;
    v3GYDM: TcxGridDBColumn;
    v3MLSeHao: TcxGridDBColumn;
    v3HXNo: TcxGridDBColumn;
    v3MLKZ: TcxGridDBColumn;
    v3MLMF: TcxGridDBColumn;
    v3SZSpec: TcxGridDBColumn;
    v3JWMiDu: TcxGridDBColumn;
    v3MLColor: TcxGridDBColumn;
    v3Price: TcxGridDBColumn;
    v3MLSunHao: TcxGridDBColumn;
    v3JGPrice: TcxGridDBColumn;
    v3XJPrice: TcxGridDBColumn;
    v3JGNote: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    ToolBar4: TToolBar;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    cxSplitter3: TcxSplitter;
    cxSplitter1: TcxSplitter;
    Panel3: TPanel;
    ToolBar5: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    cxGrid6: TcxGrid;
    TV6: TcxGridDBTableView;
    cxGridDBGYSName: TcxGridDBColumn;
    GYSColorNo: TcxGridDBColumn;
    cxGridDBGYSNote: TcxGridDBColumn;
    cxGridLevel5: TcxGridLevel;
    Order_GYS: TClientDataSet;
    DataSource7: TDataSource;
    cxGridPopupMenu6: TcxGridPopupMenu;
    v4ColorEName: TcxGridDBColumn;
    cxSplitter2: TcxSplitter;
    TSave: TToolButton;
    ADOQuery4: TADOQuery;
    ADOQuery6: TADOQuery;
    v1JCCYNo: TcxGridDBColumn;
    ToolButton9: TToolButton;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    v4Ssel: TcxGridDBColumn;
    v4CLRID: TcxGridDBColumn;
    V6GSSeHao: TcxGridDBColumn;
    V6Note1: TcxGridDBColumn;
    v3HXName: TcxGridDBColumn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Panel4: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    v1GYMXNote: TcxGridDBColumn;
    v1PrtDM: TcxGridDBColumn;
    Panel5: TPanel;
    Label2: TLabel;
    PrtMaxNo: TEdit;
    v1XTNo: TcxGridDBColumn;
    v2MLCYNo: TcxGridDBColumn;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Label7: TLabel;
    ColorName: TEdit;
    TTPSC: TToolButton;
    ToolButton12: TToolButton;
    SaveDialog1: TSaveDialog;
    ODPat: TOpenDialog;
    RMBarCodeObject1: TRMBarCodeObject;
    IdFTP1: TIdFTP;
    v4TuPian: TcxGridDBColumn;
    GroupBox1: TGroupBox;
    ScrollBox1: TScrollBox;
    adoqueryPicture: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure v1Column8PropertiesEditValueChanged(Sender: TObject);
    procedure v1Column2PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1Column26PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1Column27PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1Column14PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1CYPrice1PropertiesEditValueChanged(Sender: TObject);
    procedure v1DefStr10PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure ToolButton2Click(Sender: TObject);
    procedure v1CPNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure v1CYColorPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1CYMFPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1CYKZPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1DefStr6PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1CYSpecPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2MLColorPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v4CYColorPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v3JGGXPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v3JGFactoryNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v1DefStr7PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2GYSNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v3GXDMPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure TClick(Sender: TObject);
    procedure v2MLPricePropertiesEditValueChanged(Sender: TObject);
    procedure v3MLSunHaoPropertiesEditValueChanged(Sender: TObject);
    procedure v3GYDMPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2MLCFPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v4ColorNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure TDelClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure TMXSaveClick(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure v2MLNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure v2MLMFPropertiesEditValueChanged(Sender: TObject);
    procedure v3GYNamePropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure cxGridDBColumn16PropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure TSaveClick(Sender: TObject);
    procedure v3HXNoPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure TAddClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure Tv4CellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure Tv4CanFocusRecord(Sender: TcxCustomGridTableView;
      ARecord: TcxCustomGridRecord; var AAllow: Boolean);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ColorNameChange(Sender: TObject);
    procedure TTPSCClick(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure Tv4FocusedRecordChanged(Sender: TcxCustomGridTableView;
      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
      ANewItemRecordFocusingChanged: Boolean);
    procedure FormDestroy(Sender: TObject);
  private
    Fint:Integer;
    procedure InitSubGrid();
    function  SaveData():Boolean;
    function  getmaxNo(FsCPID,FsCPNO:string):string;
    function MLSavedata(Order_ML:TClientDataSet):Boolean;
    function JGSavedata(Order_JG:TClientDataSet;Order_ML:TClientDataSet):Boolean;
    procedure COLSaveData();
    function ColMLSavedata(FMCYID:string):boolean;
    function ColJGSaveData(FMXCYID:string):Boolean;
    procedure Appenddata();
    procedure XJGenXin();
    procedure MXGYSSave();
    { Private declarations }
  public
    FCYID,FCYCode,FCPID,FCPNO,FCPName:String;
    CopyInt:Integer;

    { Public declarations }
  end;

var
  frmCPAdd_ZLR: TfrmCPAdd_ZLR;
  Mach: array of TfrmSlt;

implementation
uses
  U_DataLink,U_Fun,U_iniParam,U_ZDYHelp, U_ZdyAttachCP_HX_sel,U_FileUp,
  U_ZdyAttachCP_Type_sel,U_ZdyAttachGYS_CX,U_CPManage_YPCXSel;

{$R *.dfm}
procedure TfrmCPAdd_ZLR.XJGenXin();
var FXJ:double;
begin
  Order_JG.DisableConstraints;
  with Order_JG do
  begin
    First;
    FXJ:=0;
    while not eof do
    begin
      if FieldByName('IFZY').AsBoolean=true then
      begin
        if FXJ=0 then
          FXJ:=Order_ML.fieldbyname('MLMF').AsFloat*Order_ML.fieldbyname('MLKZ').AsFloat*Order_ML.fieldbyname('MLPrice').AsFloat
             *(1+fieldbyname('MLSunHao').AsFloat)+fieldbyname('JGPrice').AsFloat
        else
        FXJ:=FXJ*(1+fieldbyname('MLSunHao').AsFloat)+fieldbyname('JGPrice').AsFloat;
        edit;
        FieldByName('XJPrice').Value:=FXJ;
      end;
      next;
    end;
  end;
  Order_JG.EnableConstraints;
  Order_ML.DisableConstraints;
  with Order_ML do
  begin
    First;
    while not eof do
    begin
      edit;
      FieldByName('ZPrice').Value:=FXJ;
      Next;
    end;
  end;
  Order_ML.EnableConstraints;
end;

function TfrmCPAdd_ZLR.ColJGSaveData(FMXCYID:string):Boolean;
var
  maxId:String;
begin
  try
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.Add('select * from CP_YDang_JG ');
      sql.Add('where CYID='''+trim(CDS_Sub.fieldbyname('CYID').AsString)+'''');
      open;
    end;
    with ADOQueryCmd do
    begin
      first;
      while not eof do
      begin
        if GetLSNo(ADOQuery2,maxId,'','CP_YDang_JG',4,1)=False then
        begin
          ADOQueryCmd.Connection.RollbackTrans;
          Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
          Exit;
        end;
        with ADOQuery2 do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from CP_YDang_JG where JGID='''+Trim(maxId)+'''');
          Open;
        end;
        with ADOQuery2 do
        begin
          Append;
          FieldByName('JGID').Value:=Trim(maxid);
          FieldByName('CYID').Value:=Trim(FMXCYID);
          FieldByName('Filler').Value:=Trim(DName);
          FieldByName('Filltime').Value:=SGetServerDate(ADOQueryTemp);
          FieldByName('IFZY').Value:=ADOQuery2.fieldbyname('IFZY').AsString;
          FieldByName('JGCode').Value:=ADOQuery2.fieldbyname('JGCode').AsString;
          FieldByName('JGCengJi').Value:=ADOQuery2.fieldbyname('JGCengJi').AsFloat;
          FieldByName('JGGX').Value:=ADOQuery2.fieldbyname('JGGX').AsString;
          FieldByName('GXDM').Value:=ADOQuery2.fieldbyname('GXDM').AsString;
          FieldByName('JGFactoryName').Value:=ADOQuery2.fieldbyname('JGFactoryName').AsString;
          FieldByName('GYName').Value:=ADOQuery2.fieldbyname('GYName').AsString;
          FieldByName('GYDM').Value:=ADOQuery2.fieldbyname('GYDM').AsString;
          FieldByName('HXNo').Value:=ADOQuery2.fieldbyname('HXNo').AsString;
          FieldByName('MLKZ').Value:=ADOQuery2.fieldbyname('MLKZ').AsFloat;
          FieldByName('MLMF').Value:=ADOQuery2.fieldbyname('MLMF').AsFloat;
          FieldByName('SZSpec').Value:=ADOQuery2.fieldbyname('SZSpec').AsString;
          FieldByName('JWMiDu').Value:=ADOQuery2.fieldbyname('JWMiDu').AsString;
          FieldByName('MLColor').Value:=ADOQuery2.fieldbyname('MLColor').AsString;
          FieldByName('MLSeHao').Value:=ADOQuery2.fieldbyname('MLSeHao').AsString;
          FieldByName('JGNote').Value:=ADOQuery2.fieldbyname('JGNote').AsString;
          FieldByName('Price').Value:=ADOQuery2.fieldbyname('Price').AsFloat;
          FieldByName('MLSunHao').Value:=ADOQuery2.fieldbyname('MLSunHao').AsFloat;
          FieldByName('JGPrice').Value:=ADOQuery2.fieldbyname('JGPrice').AsFloat;
          FieldByName('XJPrice').Value:=ADOQuery2.fieldbyname('XJPrice').AsFloat;
          Post;
        end;
        next;
      end;
    end;
  except;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
  end;
end;

function TfrmCPAdd_ZLR.ColMLSavedata(FMCYID:string):boolean;
var
  maxId:String;
begin
  try
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.Add('select * from CP_YDang_ML ');
      sql.Add('where CYID='''+trim(CDS_Sub.fieldbyname('CYID').AsString)+'''');
      open;
    end;
    with ADOQueryCmd do
    begin
      first;
      while not eof do
      begin
        if GetLSNo(ADOQuery2,maxId,'','CP_YDang_ML',4,1)=False then
        begin
          ADOQueryCmd.Connection.RollbackTrans;
          Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
          Exit;
        end;
        with ADOQuery2 do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from CP_YDang_ML where MLID='''+Trim(maxId)+'''');
          Open;
        end;
        with ADOQuery2 do
        begin
          Append;
          FieldByName('MLID').Value:=Trim(maxId);
          //SSetSaveDataCDSNew(ADOQuery2,Tv2,Order_ML,'CP_YDang_ML',0);
          FieldByName('CYID').Value:=Trim(FMCYID);
          FieldByName('Filler').Value:=Trim(DName);
          FieldByName('Filltime').Value:=SGetServerDate(ADOQueryTemp);
          FieldByName('MLPrice').Value:=Order_ML.fieldbyname('MLPrice').AsFloat;
          FieldByName('MLSunHao').Value:=Order_ML.fieldbyname('MLSunHao').AsFloat;
          FieldByName('ZPrice').Value:=Order_ML.fieldbyname('ZPrice').AsFloat;
          FieldByName('JGZPrice').Value:=Order_ML.fieldbyname('JGZPrice').AsFloat;
          FieldByName('CengJi').Value:=ADOQueryCmd.fieldbyname('CengJi').AsFloat;
          FieldByName('IFSel').Value:=ADOQueryCmd.fieldbyname('IFSel').AsString;
          FieldByName('MLCode').Value:=ADOQueryCmd.fieldbyname('MLCode').AsString;
          FieldByName('GYSName').Value:=ADOQueryCmd.fieldbyname('GYSName').AsString;
          FieldByName('MLName').Value:=ADOQueryCmd.fieldbyname('MLName').AsString;
          FieldByName('SZSpec').Value:=ADOQueryCmd.fieldbyname('SZSpec').AsString;
          FieldByName('JWMiDu').Value:=ADOQueryCmd.fieldbyname('JWMiDu').AsString;
          FieldByName('MLMF').Value:=ADOQueryCmd.fieldbyname('MLMF').AsFloat;
          FieldByName('MLKZ').Value:=ADOQueryCmd.fieldbyname('MLKZ').AsFloat;
          FieldByName('LXRen').Value:=ADOQueryCmd.fieldbyname('LXRen').AsString;
          FieldByName('LXTel').Value:=ADOQueryCmd.fieldbyname('LXTel').AsString;
          FieldByName('MLCF').Value:=ADOQueryCmd.fieldbyname('MLCF').AsString;
          FieldByName('MLNote').Value:=ADOQueryCmd.fieldbyname('MLNote').AsString;
          FieldByName('MLPrice').Value:=ADOQueryCmd.fieldbyname('MLPrice').AsFloat;
          FieldByName('MLSunHao').Value:=ADOQueryCmd.fieldbyname('MLSunHao').AsFloat;
          FieldByName('ZPrice').Value:=ADOQueryCmd.fieldbyname('ZPrice').AsFloat;
          FieldByName('JGZPrice').Value:=ADOQueryCmd.fieldbyname('JGZPrice').AsFloat;
          Post;
        end;
        {with Order_ML do
        begin
          edit;
          FieldByName('CYID').Value:=Trim(FCYID);
          FieldByName('MLID').Value:=Trim(maxid);
        end;}
        next;
      end;
    end;
  except;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
  end;
end;

procedure TfrmCPAdd_ZLR.ColSaveData();
var
  maxId:String;
begin
  try
    with Order_Sub do
    begin
      first;
      while not Eof do
      begin
        if FieldByName('CLRID').AsString='' then
        begin
          if GetLSNo(ADOQueryCmd,maxId,'CL','CP_YDang_Color',4,1)=False then
          begin
            ADOQueryCmd.Connection.RollbackTrans;
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
            Exit;
          end;
        end
        else
        maxId:=Trim(FieldByName('CLRID').AsString);
        with ADOQueryCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from CP_YDang_Color where CLRID='''+Trim(maxId)+'''');
          Open;
        end;
        with ADOQueryCmd do
        begin
          if IsEmpty then Append else Edit;
          FieldByName('CLRID').Value:=Trim(maxId);
          fieldbyname('CYNo').Value:=Trim(CDS_Sub.Fieldbyname('CYNo').AsString);
          FieldByName('CYID').Value:=Trim(CDS_Sub.Fieldbyname('CYID').AsString);
          SSetSaveDataCDSNew(ADOQueryCmd,Tv4,Order_Sub,'CP_YDang_Color',0);
          Post;
        end;
        with Order_Sub do
        begin
          edit;
          FieldByName('CYID').Value:=Trim(CDS_Sub.Fieldbyname('CYID').AsString);
          FieldByName('CLRID').value:=Trim(maxId);
        end;
        next;
      end;
    end;
  except;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
  end;
end;

function TfrmCPAdd_ZLR.MLSavedata(Order_ML:TClientDataSet):Boolean;
var
  maxId:String;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    with Order_ML do
    begin
      first;
      while not eof do
      begin
        if Trim(Order_ML.fieldbyname('MLID').AsString)='' then
        begin
          if GetLSNo(ADOQueryCmd,maxId,'','CP_YDang_ML',4,1)=False then
          begin
            ADOQueryCmd.Connection.RollbackTrans;
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
            Exit;
          end;
        end else
        begin
          maxId:=Trim(Order_ML.fieldbyname('MLID').AsString);
        end;
        with ADOQueryCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from CP_YDang_ML where MLID='''+Trim(maxId)+'''');
          Open;
        end;
        with ADOQueryCmd do
        begin
          if IsEmpty then
          begin
            Append;
          end else
          begin
            Edit;
          end;
          FieldByName('MLID').Value:=Trim(maxId);
          SSetSaveDataCDSNew(ADOQueryCmd,Tv2,Order_ML,'CP_YDang_ML',0);
          FieldByName('CYID').Value:=Trim(FCYID);
          FieldByName('Filler').Value:=Trim(DName);
          FieldByName('Filltime').Value:=SGetServerDate(ADOQueryTemp);
          FieldByName('MLPrice').Value:=Order_ML.fieldbyname('MLPrice').AsFloat;
          FieldByName('MLSunHao').Value:=Order_ML.fieldbyname('MLSunHao').AsFloat;
          FieldByName('ZPrice').Value:=Order_ML.fieldbyname('ZPrice').AsFloat;
          FieldByName('JGZPrice').Value:=Order_ML.fieldbyname('JGZPrice').AsFloat;
          FieldByName('cengji').Value:=1;
          Post;
        end;
        with Order_ML do
        begin
          edit;
          FieldByName('CYID').Value:=Trim(FCYID);
          FieldByName('MLID').Value:=Trim(maxid);
        end;
        next;
      end;
    end;
    //Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',0);
    ADOQueryCmd.Connection.CommitTrans;
  except;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
  end;
end;

function TfrmCPAdd_ZLR.JGSavedata(Order_JG:TClientDataSet;Order_ML:TClientDataSet):Boolean;
var
  maxId:String;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    with Order_JG do
    begin
      first;
      while not eof do
      begin
        if Trim(Order_JG.fieldbyname('JGID').AsString)='' then
        begin
          if GetLSNo(ADOQueryCmd,maxId,'','CP_YDang_JG',4,1)=False then
          begin
            ADOQueryCmd.Connection.RollbackTrans;
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
            Exit;
          end;
        end else
        begin
          maxId:=Trim(Order_JG.fieldbyname('JGID').AsString);
        end;
        with ADOQueryCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from CP_YDang_JG where JGID='''+Trim(maxId)+'''');
          Open;
        end;
        with ADOQueryCmd do
        begin
          if IsEmpty then
          begin
            Append;
          end else
          begin
            Edit;
          end;
          FieldByName('JGID').Value:=Trim(maxid);
          //FieldByName('MLID').Value:=Trim(Order_ML.fieldbyname('MLID').AsString);
          SSetSaveDataCDSNew(ADOQueryCmd,Tv3,Order_JG,'CP_YDang_JG',0);
          FieldByName('CYID').Value:=Trim(FCYID);
          FieldByName('Filler').Value:=Trim(DName);
          FieldByName('Filltime').Value:=SGetServerDate(ADOQueryTemp);
          FieldByName('Price').Value:=Order_JG.fieldbyname('Price').AsFloat;
          FieldByName('MLSunHao').Value:=Order_JG.fieldbyname('MLSunHao').AsFloat;
          FieldByName('JGPrice').Value:=Order_JG.fieldbyname('JGPrice').AsFloat;
          FieldByName('CengJi').Value:=1;
          Post;
        end;
        with Order_JG do
        begin
          edit;
          FieldByName('CYID').Value:=Trim(FCYID);
          FieldByName('JGID').Value:=Trim(maxid);
          //FieldByName('MLID').Value:=Trim(Order_ML.fieldbyname('MLID').AsString);
        end;
        next;
      end;
    end;
    //Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',0);
    ADOQueryCmd.Connection.CommitTrans;
  except;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
  end;
end;

function  TfrmCPAdd_ZLR.getmaxNo(FsCPID,FsCPNO:string):string;
var
  str1:string;
  i:integer;
begin
  with ADOQueryTemp do
  begin
    close;
    sql.Clear;
    sql.Add('select MAX(CYNo) as CYNo  from CP_YDang where CYType='''+trim(FsCPID)+''' ');
    open;
  end;
  IF trim(ADOQueryTemp.fieldbyname('CYNo').AsString)='' then
  begin
    str1:='000100';
  end
  else
  begin
    i:=10000+strtoint(leftstr(rightstr(trim(ADOQueryTemp.fieldbyname('CYNo').AsString),6),4))+1;
    str1:=rightstr(inttostr(i),4)+'00';
  end;

  result:=FsCPNO+str1;
end;

procedure TfrmCPAdd_ZLR.InitSubGrid();
begin
  try
    ADOQueryMain.DisableControls;
    ADOQuery1.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select Max(substring(A.JCCYNo,2,5)) PrtMaxNo from CP_YDang A ');
      SQL.Add('where A.CYType=''CP1903260008'' or A.CYType=''CP1905280002'' or A.CYType=''CP1905280001'''); //not exists (select B.CYID from CP_YDang B where B.CYID=A.CYType)
      Open;
    end;
    PrtMaxNo.Text:=Trim(ADOQueryMain.fieldbyname('PrtMaxNo').AsString);
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select *,cast('''' as varchar(50)) rownumber from CP_YDang A inner join CP_Type B on B.CPID=A.CYType where A.CYID='''+Trim(FCYID)+'''');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Sub);
    SInitCDSData20(ADOQueryMain,CDS_Sub);
    if CopyInt<>0 then
    begin
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from CP_YDang_Color where CYID='''+trim(FCYID)+'''');
        Open;
      end;
    end
    else
    begin
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select A.*,B.* ');
        sql.Add(',TuPian=(case when isnull((select Top 1 C.CYID from XD_File C where C.CYID=A.CYID and C.FileType=''YP''),'''')='''' then '''' else ''<27><>'' end)');
        sql.Add(' from CP_YDang_Color A ');
        SQL.Add('inner join CP_YDang B on A.CYID=B.CYID where A.CYID='''+trim(FCYID)+'''');
        Open;
      end;
    end;
    SCreateCDS20(ADOQuery1,Order_Sub);
    SInitCDSData20(ADOQuery1,Order_Sub);
    with ADOQuery4 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from CP_YDang_Color_GYS ');
      sql.Add('where CLRID='''+trim(Order_Sub.fieldbyname('CLRID').AsString)+'''');
      open;
    end;
    SCreateCDS20(ADOQuery4,Order_GYS);
    SInitCDSData20(ADOQuery4,Order_GYS);
  finally
    ADOQueryMain.EnableControls;
    ADOQuery1.EnableControls;
  end;
end;

procedure TfrmCPAdd_ZLR.Appenddata();
begin
  if Order_ML.IsEmpty then
  begin
    with Order_ML do
    begin
      append;
      fieldbyname('CengJi').Value:=1;
      Post;
    end;
  end;
  if Order_JG.IsEmpty then
  begin
    with Order_JG do
    begin
      append;
      FieldByName('JGCengji').Value:=1;
      Post;
    end;
  end;
end;

procedure TfrmCPAdd_ZLR.FormShow(Sender: TObject);
var
  fsj,FFSj,FFQZSj,FFFSj,FFType:String;
  FFInt,i,j:Integer;
  ii:LongInt;
begin
  ReadCxGrid('<27><>Ʒ<EFBFBD>༭N',Tv1,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  ReadCxGrid('<27><>Ʒ<EFBFBD>༭N2',Tv2,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  ReadCxGrid('<27><>Ʒ<EFBFBD>༭N3',Tv3,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  ReadCxGrid('<27><>Ʒ<EFBFBD>༭N4',Tv4,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  ReadCxGrid('<27><>Ʒ<EFBFBD>༭N6',Tv6,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  InitSubGrid();
  IF trim(FCYID)='' then
  begin
    if CDS_Sub.IsEmpty then
    begin
      CDS_Sub.Append;
      CDS_Sub.FieldByName('CYNo').Value:='';
      CDS_Sub.FieldByName('XTNo').Value:='';
      CDS_Sub.FieldByName('CPName').Value:=Trim(FCPName);
      CDS_Sub.FieldByName('CYType').Value:=trim(FCPID);
      CDS_Sub.FieldByName('CYPrice6').Value:=1;
      CDS_Sub.FieldByName('CYPrice13').Value:=1;
      CDS_Sub.Post;
    end;
  end;
  with ADOQuery1 do
  begin
    Close;
    sql.Clear;
    SQL.Add('select * from CP_YDang_ML ');
    SQL.Add('where CYID='''+trim(CDS_Sub.fieldbyname('CYID').AsString)+'''');
    sql.Add(' and CengJi=''1''');
    open;
  end;
  SCreateCDS20(ADOQuery1,Order_ML);
  SInitCDSData20(ADOQuery1,Order_ML);
  with ADOQuery2 do
  begin
    Close;
    sql.Clear;
    SQL.Add('select * from CP_YDang_JG ');
    SQL.Add('where CYID='''+trim(CDS_Sub.fieldbyname('CYID').AsString)+'''');
    sql.Add(' and CengJi=''1''');
    open;
  end;
  SCreateCDS20(ADOQuery2,Order_JG);
  SInitCDSData20(ADOQuery2,Order_JG);
  if CopyInt=1 then
  begin
    FCYID:='';
    CDS_Sub.edit;
    CDS_Sub.FieldByName('CYID').Value:='';
    CDS_Sub.FieldByName('CYNo').Value:='';
    CDS_Sub.FieldByName('XTNo').Value:='';
    CDS_Sub.Post;
    with Order_ML do
    begin
      First;
      while not eof do
      begin
        Order_ML.edit;
        Order_ML.FieldByName('MLID').Value:='';
        Order_ML.FieldByName('CYID').Value:='';
        Order_ML.Post;
        next;
      end;
    end;
    with Order_JG do
    begin
      First;
      while not eof do
      begin
        Order_JG.edit;
        Order_JG.FieldByName('CYID').Value:='';
        Order_JG.FieldByName('MLID').Value:='';
        Order_JG.FieldByName('JGID').Value:='';
        Order_JG.Post;
        next;
      end;
    end;
    with Order_Sub do
    begin
      First;
      while not eof do
      begin
        edit;
        FieldByName('CYID').Value:='';
        FieldByName('CLRID').Value:='';
        Post;
        next;
      end;
    end;
  end;
  Appenddata();
end;

procedure TfrmCPAdd_ZLR.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('<27><>Ʒ<EFBFBD>༭N',Tv1,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  WriteCxGrid('<27><>Ʒ<EFBFBD>༭N2',Tv2,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  WriteCxGrid('<27><>Ʒ<EFBFBD>༭N3',Tv3,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  WriteCxGrid('<27><>Ʒ<EFBFBD>༭N4',Tv4,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  WriteCxGrid('<27><>Ʒ<EFBFBD>༭N6',Tv6,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
  Close;
end;

function TfrmCPAdd_ZLR.SaveData():Boolean;
var
  maxId,FPrtDM,XTMaxID:String;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    FPrtDM:=Trim(CDS_Sub.fieldbyname('PrtDM').AsString);
    if CDS_Sub.FieldByName('XTNo').AsString='' then
    begin
      if GetLSNo(ADOQueryCmd,XTMaxID,FPRTDM,'CP_YDang',5,0)=False then
      begin
        Result:=False;
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
        Exit;
      end;
    end
    else
    XTMaxID:=Trim(CDS_Sub.fieldbyname('XTNo').AsString);
    if Trim(FCYID)='' then
    begin
      if GetLSNo(ADOQueryCmd,maxId,'','CP_YDang',5,1)=False then
      begin
        Result:=False;
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
        Exit;
      end;
    end else
    begin
      maxId:=Trim(FCYID);
    end;
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('select * from CP_YDang where CYID='''+Trim(FCYID)+'''');
      Open;
    end;
    with ADOQueryCmd do
    begin
      if Trim(FCYID)='' then
      begin
        Append;
      end else
      begin
        Edit;
      end;
      FieldByName('CYID').Value:=Trim(maxId);
      FieldByName('XTNo').Value:=Trim(XTMaxID);
      FieldByName('PrtMaxNo').Value:=PrtMaxNo.Text;
      if Trim(CDS_Sub.fieldbyname('CYType').AsString)<>'' then
        FieldByName('CYType').Value:=Trim(CDS_Sub.fieldbyname('CYType').AsString)
      else
        FieldByName('CYType').Value:=Trim(FCPID);
      if Trim(FCYID)='' then
        FieldByName('DefFlt4').Value:=Fint;
      SSetSaveDataCDSNew(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang',3);
      //SSetSaveDataCDSNew(ADOQueryCmd,Tv6,CDS_Sub,'CP_YDang',3);
      FieldByName('CYPrice').Value:=CDS_Sub.fieldbyname('CYPrice').AsFloat;
      FieldByName('CYPrice1').Value:=CDS_Sub.fieldbyname('CYPrice1').AsFloat;
      FieldByName('CYPrice2').Value:=CDS_Sub.fieldbyname('CYPrice2').AsFloat;
      FieldByName('CYPrice3').Value:=CDS_Sub.fieldbyname('CYPrice3').AsFloat;
      FieldByName('CYPrice4').Value:=CDS_Sub.fieldbyname('CYPrice4').AsFloat;
      FieldByName('CYPrice5').Value:=CDS_Sub.fieldbyname('CYPrice5').AsFloat;
      FieldByName('CYPrice6').Value:=CDS_Sub.fieldbyname('CYPrice6').AsFloat;
      FieldByName('CYPrice7').Value:=CDS_Sub.fieldbyname('CYPrice7').AsFloat;
      FieldByName('CYPrice8').Value:=CDS_Sub.fieldbyname('CYPrice8').AsFloat;
      FieldByName('CYPrice9').Value:=CDS_Sub.fieldbyname('CYPrice9').AsFloat;
      FieldByName('CYPrice10').Value:=CDS_Sub.fieldbyname('CYPrice10').AsFloat;
      FieldByName('CYPrice11').Value:=CDS_Sub.fieldbyname('CYPrice11').AsFloat;
      FieldByName('CYPrice12').Value:=CDS_Sub.fieldbyname('CYPrice12').AsFloat;
      FieldByName('CYPrice13').Value:=CDS_Sub.fieldbyname('CYPrice13').AsFloat;
      FieldByName('CYPrice14').Value:=CDS_Sub.fieldbyname('CYPrice14').AsFloat;
      FieldByName('CYPrice15').Value:=CDS_Sub.fieldbyname('CYPrice15').AsFloat;
      if Trim(FCYID)='' then
      begin
        FieldByName('Filler').Value:=Trim(DName);
        FieldByName('Filltime').Value:=SGetServerDateTime(ADOQueryTemp);
      end else
      begin
        FieldByName('Editer').Value:=Trim(DName);
        FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
      end;
      Post;
    end;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('select count(*) as AA from CP_YDang where CYNo='''+Trim(CDS_Sub.fieldbyname('CYNo').AsString)+'''');
      Open;
      if FieldByName('AA').AsInteger>1 then
      begin
        ADOQueryCmd.Connection.RollbackTrans;
        Result:=False;
        Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>','<27><>ʾ',0);
        Exit;
      end;
    end;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('select count(*) as AA from CP_YDang where XTNo='''+Trim(CDS_Sub.fieldbyname('XTNo').AsString)+'''');
      Open;
      if FieldByName('AA').AsInteger>1 then
      begin
        ADOQueryCmd.Connection.RollbackTrans;
        Result:=False;
        Application.MessageBox('<27><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>','<27><>ʾ',0);
        Exit;
      end;
    end;
    {if CopyInt=1 then
    begin
      //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
      ColMLSavedata(Maxid);
      //<2F><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>Ϣ
      ColJGSaveData(Maxid);
    end; }
    with CDS_Sub do
    begin
      edit;
      FieldByName('CYID').Value:=Trim(maxid);
    end;
    FCYID:=Trim(maxId);
    COLSaveData();
    ADOQueryCmd.Connection.CommitTrans;
    Result:=True;
  except;
    Result:=False;
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton1Click(Sender: TObject);
var FCYNo,FGYMXNote:string;
begin
  ToolBar1.SetFocus;
  if CDS_Sub.IsEmpty then exit;
  if CDS_Sub.Locate('JCCYNo',null,[])=True then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  if CDS_Sub.Locate('PrtDM',null,[])=True then
  begin
    Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  if CDS_Sub.Locate('CYName',null,[])=True then
  begin
    Application.MessageBox('<27><>˾<EFBFBD><CBBE>Ʒ<EFBFBD>ƺ<EFBFBD><C6BA><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  if Order_ML.Locate('IFSel',true,[])=false then
  begin
    Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>Ƿ<EFBFBD><C7B7><EFBFBD>Ҫ','<27><>ʾ',0);
    Exit;
  end;
  if Order_JG.Locate('IFZY',true,[])=false then
  begin
    Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD>Ҫ','<27><>ʾ',0);
    Exit;
  end;
  MXGYSSave();
  with Order_JG do
  begin
    First;
    FCYNo:=Trim(CDS_Sub.fieldbyname('JCCYNo').AsString);
    while not Eof do
    begin
      FCYNO:=FCYNO+Trim(Order_JG.fieldbyname('GYDM').AsString)+Trim(Order_JG.fieldbyname('MLSeHao').AsString)
                                  +Trim(Order_JG.fieldbyname('HXNo').AsString);
      if FGYMXNote='' then
      FGYMXNote:=Trim(Order_JG.fieldbyname('GYName').AsString)
      else
      FGYMXNote:=FGYMXNote+'+'+Trim(Order_JG.fieldbyname('GYName').AsString);
      next;
    end;
  end;
  with CDS_Sub do
  begin
    edit;
    FieldByName('CYNo').Value:=Trim(FCYNo);
    FieldByName('GYMXNote').Value:=Trim(FGYMXNote);
  end;
  with Order_Sub do
  begin
    first;
    while not eof do
    begin
      FCYNo:=Trim(CDS_Sub.fieldbyname('JCCYNo').AsString);
      with Order_JG do
      begin
        First;
        while not eof do
        begin
          FCYNo:=FCYNO+Trim(Order_JG.fieldbyname('GYDM').AsString)+Trim(Order_JG.fieldbyname('MLSeHao').AsString)
                                    +Trim(Order_JG.fieldbyname('HXNo').AsString);
          next;
        end;
      end;
      FCYNo:=FCYNo+'#'+Trim(Order_Sub.fieldbyname('ColorNo').AsString);
      edit;
      FieldByName('CYNo').Value:=Trim(FCYNo);
      next;
    end;
  end;
  {if CopyInt=1 then
  begin
    if SaveData() then
    begin
      Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
      ModalResult:=1;
    end;
  end
  else
  begin  }
    if SaveData() then
    begin
      if Order_ML.IsEmpty=false then
      begin
        if Order_ML.Locate('MLName','',[])=False then
        begin
          MLSavedata(Order_ML);
        end;
      end;
      if Order_JG.IsEmpty=false then
      begin
        if Order_JG.Locate('JGGX','',[])=False then
        begin
          JGSavedata(Order_JG,Order_ML);
        end;
      end;
      Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
      ModalResult:=1;
    end;
  //end;
end;

procedure TfrmCPAdd_ZLR.v1Column8PropertiesEditValueChanged(Sender: TObject);
var
  mvalue:string;
begin
  if Trim(DParameters3)='' then
  begin
    mvalue:=Trim(TcxTextEdit(Sender).EditingText);
    with CDS_Sub do
    begin
      Edit;
      FieldByName('CYKZ').Value:=mvalue+'g/<2F>O';
      Post;
    end;
  end;

end;

procedure TfrmCPAdd_ZLR.v1Column2PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='YPName';
      flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        with CDS_Sub do
        begin
          Edit;
          FieldByName('CYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1Column26PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
var
  fsj:string;
begin
  fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='GYStr';
      flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        with CDS_Sub do
        begin
          Edit;
          FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1Column27PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
var
  fsj:string;
begin
  fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='YPJGFactory';
      flagname:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
      if ShowModal=1 then
      begin
        with CDS_Sub do
        begin
          Edit;
          FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1Column14PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZdyAttachCP_HX_Sel:=TfrmZdyAttachCP_HX_Sel.create(self);
  with frmZdyAttachCP_HX_Sel do
  begin
    IF showmodal=1 then
    begin
      CDS_Sub.Edit;
      CDS_Sub.FieldByName('CYHX').Value:=trim(cds_Hz.FieldByName('ZdyName').asstring);
      CDS_Sub.FieldByName('CYNo').Value:=trim(CDS_Sub.FieldByName('CYNo').AsString)+trim(cds_Hz.FieldByName('ZdyCode').asstring);
      CDS_Sub.Post;
    end;
    frmZdyAttachCP_HX_Sel.Free;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCPAdd_ZLR.v1CYPrice1PropertiesEditValueChanged(Sender: TObject);
var
  fieldname,mavlue:string;
begin
  fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
  mavlue:=TcxTextEdit(Sender).EditingText;
  if mavlue='' then mavlue:='0';
  with CDS_Sub do
  begin
    Edit;
    FieldByName(Trim(fieldname)).Value:=mavlue;
    FieldByName('CYPrice').Value:=FieldByName('CYPrice12').AsFloat*(1+FieldByName('CYPrice13').AsFloat)+FieldByName('CYPrice14').AsFloat+FieldByName('CYPrice15').AsFloat;
    Post;
  end;
  Tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCPAdd_ZLR.v1DefStr10PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
var
  fsj:string;
begin
  fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='YPSXingFlag';
      flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      fnote:=true;
      V1Note.Caption:='<27><><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        with CDS_Sub do
        begin
          Edit;
          FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
          FieldByName('PrtDM').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton2Click(Sender: TObject);
var SH:string;
begin
  if Order_Sub.IsEmpty then exit;
  if Order_Sub.FieldByName('CLRID').AsString='' then
  begin
    SH:=Trim(Order_Sub.fieldbyname('ColorNo').AsString);
    if CopyInt=1 then
    begin
      if SaveData() then
      begin
        //Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
        //ModalResult:=1;
      end;
    end
    else
    begin
      if SaveData() then
      begin
        if Order_ML.IsEmpty=false then
        begin
          if Order_ML.Locate('MLName','',[])=False then
          begin
            MLSavedata(Order_ML);
          end;
        end;
        if Order_JG.IsEmpty=false then
        begin
          if Order_JG.Locate('JGGX','',[])=False then
          begin
            JGSavedata(Order_JG,Order_ML);
          end;
        end;
        //Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
        //ModalResult:=1;
      end;
    end;
    Order_Sub.Locate('ColorNo',SH,[]);
  end;
  with Order_GYS do
  begin
    append;
    FieldByName('GSSeHao').Value:=Trim(Order_Sub.fieldbyname('ColorNo').AsString);
    post;
  end;
end;

procedure TfrmCPAdd_ZLR.v1CPNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZdyAttachCP_Type_sel:=TfrmZdyAttachCP_Type_sel.Create(self);
  with frmZdyAttachCP_Type_sel do
  begin
    IF showmodal=1 then
    begin
      CDS_Sub.Edit;
      CDS_Sub.FieldByName('CYType').Value:=trim(CDS_HZ.FieldByName('CPID').asstring);
      CDS_Sub.FieldByName('CPName').Value:=trim(CDS_HZ.FieldByName('CPName').asstring);
      CDS_Sub.Post;
    end;
    frmZdyAttachCP_Type_sel.Free;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCPAdd_ZLR.ToolButton4Click(Sender: TObject);
var i:string;
begin
  i:=IntToStr(Order_Sub.RecordCount+1);
  if Length(i)<2 then
  i:='0'+i;
  Order_Sub.DisableControls;
  with Order_Sub do
  begin
    first;
    while not eof do
    begin
      if Order_Sub.Locate('ColorNo',i,[])=True then
      begin
        First;
        i:=IntToStr(strtoint(i)+1);
      end;
      next;
    end;
  end;
  Order_Sub.EnableControls;
  if Length(i)<2 then
  i:='0'+i;
  with Order_Sub do
  begin
    Append;
    FieldByName('ColorNo').Value:=i;
    Post;
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton5Click(Sender: TObject);
begin
  if Order_Sub.IsEmpty then Exit;
  if Trim(Order_Sub.fieldbyname('CLRID').AsString)<>'' then
  begin
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete CP_YDang_Color where CLRID='''+Trim(Order_Sub.fieldbyname('CLRID').AsString)+'''');
      ExecSQL;
    end;
  end;
  Order_Sub.Delete;
end;

procedure TfrmCPAdd_ZLR.ToolButton9Click(Sender: TObject);
var
  fPrintFile,FFCYID,FFCLRID:string;
  DPS,i,j:Integer;
  Txt,fImagePath,FGHNo:string;
  Moudle: THandle;
  Makebar:TMakebar;
  Mixtext:TMixtext;
begin
  if Order_Sub.IsEmpty then Exit;
  if Order_Sub.Locate('Ssel',True,[])=false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
    exit;
  end;
  with ADOQueryCmd do
  begin
    close;
    sql.Clear;
    sql.Add('select GHNo from OA_YG_DangAn where YGName='''+trim(DName)+''' ');
    open;
  end;
  FGHNo:=trim(ADOQueryCmd.fieldbyname('GHNo').asstring);
  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB>ǩ.rmf';
  DPS:=0;
  FFCYID:='';
  i:=1;
  if Trim(ComboBox1.Text)='' then
  begin
    j:=1;
  end else
  begin
    j:=StrToInt(ComboBox1.Text);
  end;
  for i:=1 to j do
  begin
    Order_Sub.DisableControls;
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        if FieldByName('SSel').AsBoolean=True then
        begin
          try
            Moudle:=LoadLibrary('MakeQRBarcode.dll');
            @Makebar:=GetProcAddress(Moudle,'Make');
            @Mixtext:=GetProcAddress(Moudle,'MixText');
            Txt:=Trim(Order_Sub.fieldbyname('CLRID').AsString);
            fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp';
            if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
              CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
            if FileExists(fImagePath) then DeleteFile(fImagePath);
            Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
          except
            application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
            exit;
          end;
          if FileExists(fPrintFile) then
          begin
            RMVariables['QRBARCODE']:=fImagePath;
            RMVariables['FCode']:=Trim(FGHNo);
            RMVariables['FName']:=Trim(FGHNo);
            RM1.LoadFromFile(fPrintFile);
            RM1.PrintReport;
          end else
          begin
            Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB>ǩ.rmf'),'<27><>ʾ',0);
            Exit;
          end;
        end;
        Next;
      end;
    end;
    Order_Sub.EnableControls;
  end;
end;

procedure TfrmCPAdd_ZLR.v1CYColorPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='CYColor';
    flagname:='<27><>ɫ';
    MainType:=Trim(CDS_Sub.fieldbyname('CYNo').AsString);
    if ShowModal=1 then
    begin
      with CDS_Sub do
      begin
        edit;
        FieldByName('CYColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1CYMFPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='CYMF';
    flagname:='<27>ŷ<EFBFBD>';
    if ShowModal=1 then
    begin
      with CDS_Sub do
      begin
        edit;
        FieldByName('CYMF').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1CYKZPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='CYKZ';
    flagname:='<27><><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      with CDS_Sub do
      begin
        edit;
        FieldByName('CYKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1DefStr6PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='DefStr6';
    flagname:='<27><>γ<EFBFBD>ܶ<EFBFBD>';
    if ShowModal=1 then
    begin
      with CDS_Sub do
      begin
        edit;
        FieldByName('DefStr6').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1CYSpecPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='CYSpec';
    flagname:='ɴ֧<C9B4><D6A7><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      with CDS_Sub do
      begin
        edit;
        FieldByName('CYSpec').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v2MLColorPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='CYColor';
    flagname:='<27><>ɫ';
    MainType:=Trim(CDS_Sub.fieldbyname('CYNo').AsString);
    if ShowModal=1 then
    begin
      with Order_ML do
      begin
        edit;
        FieldByName('MLColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v4CYColorPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='CYColor';
    flagname:='<27><>ɫ';
    MainType:=Trim(CDS_Sub.fieldbyname('CYNo').AsString);
    if ShowModal=1 then
    begin
      with Order_ML do
      begin
        edit;
        FieldByName('CYColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v3JGGXPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='JGGX';
    flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    fnote:=True;
    V1Note.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      with Order_JG do
      begin
        edit;
        FieldByName('JGGX').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        FieldByName('GXDM').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v3JGFactoryNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZdyAttachGYS_CX:=TfrmZdyAttachGYS_CX.Create(self);
  with frmZdyAttachGYS_CX do
  begin
    if ShowModal=1 then
    begin
      with Order_JG do
      begin
        edit;
        FieldByName('JGFactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v1DefStr7PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZdyAttachGYS_CX:=TfrmZdyAttachGYS_CX.Create(self);
  with frmZdyAttachGYS_CX do
  begin
    if ShowModal=1 then
    begin
      with CDS_Sub do
      begin
        edit;
        FieldByName('DefStr7').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v2GYSNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZdyAttachGYS_CX:=TfrmZdyAttachGYS_CX.Create(self);
  with frmZdyAttachGYS_CX do
  begin
    if ShowModal=1 then
    begin
      with Order_ML do
      begin
        edit;
        FieldByName('GYSName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
        fieldbyname('LXRen').Value:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString);
        if Trim(CDS_HZ.fieldbyname('DEFstr2').AsString)<>'' then
        fieldbyname('LXTel').Value:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString)
        else
        fieldbyname('LXTel').Value:=Trim(CDS_HZ.fieldbyname('DEFstr1').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v3GXDMPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='JGGX';
    flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    fnote:=True;
    V1Note.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    if ShowModal=1 then
    begin
      with Order_JG do
      begin
        edit;
        FieldByName('JGGX').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        FieldByName('GXDM').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.TClick(Sender: TObject);
begin
  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('delete from CP_YDang_ML where MLID='''+Trim(Order_ML.fieldbyname('MLID').AsString)+'''');
    ExecSQL;
  end;
  Order_ML.Delete;
end;

procedure TfrmCPAdd_ZLR.v2MLPricePropertiesEditValueChanged(Sender: TObject);
var mavlue,FFieldName:string;
    FXJ:double;
begin

end;

procedure TfrmCPAdd_ZLR.v3MLSunHaoPropertiesEditValueChanged(Sender: TObject);
var mavlue,FfieldName:string;
    FJGXJ:double;
begin
  mavlue:=TcxTextEdit(Sender).EditingText;
  FfieldName:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName;
  if FfieldName<>'IFZY' then
  begin
    if mavlue='' then mavlue:='0';
  end;
  with Order_JG do
  begin
    Edit;
    FieldByName(FfieldName).Value:=mavlue;
  end;
  XJGenXin();
end;

procedure TfrmCPAdd_ZLR.v3GYDMPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='GYName';
    flagname:='<27><><EFBFBD><EFBFBD>';
    fnote:=True;
    V1Note.Caption:='<27><><EFBFBD>մ<EFBFBD><D5B4><EFBFBD>';
    if ShowModal=1 then
    begin
      with Order_JG do
      begin
        edit;
        FieldByName('GYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        FieldByName('GYDM').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v2MLCFPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='MLCF';
    flagname:='<27>ɷ<EFBFBD>';
    if ShowModal=1 then
    begin
      with Order_JG do
      begin
        edit;
        FieldByName('MLCF').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v4ColorNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='ColorName';
    flagname:='<27><>ɫ';
    fnote:=true;
    V1Note.Caption:='<27><>ɫӢ<C9AB><D3A2>';
    MainType:=Trim(CDS_Sub.fieldbyname('CYNo').AsString);
    if ShowModal=1 then
    begin
      with Order_Sub do
      begin
        edit;
        FieldByName('ColorName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        FieldByName('ColorEName').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.TDelClick(Sender: TObject);
begin
  if Order_ML.IsEmpty then Exit;
  if Trim(Order_ML.fieldbyname('MLID').AsString)<>'' then
  begin
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete from CP_YDang_ML where MLID='''+Trim(Order_ML.fieldbyname('MLID').AsString)+'''');
      ExecSQL;
    end;
  end;
  Order_ML.Delete;
end;

procedure TfrmCPAdd_ZLR.ToolButton3Click(Sender: TObject);
begin
  if Order_GYS.IsEmpty then Exit;
  if Trim(Order_GYS.fieldbyname('GYSID').AsString)<>'' then
  begin
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete CP_YDang_Color_GYS where GYSID='''+Trim(Order_GYS.fieldbyname('GYSID').AsString)+'''');
      ExecSQL;
    end;
  end;
  Order_GYS.Delete;
end;

procedure TfrmCPAdd_ZLR.TMXSaveClick(Sender: TObject);
begin
  if CDS_Sub.IsEmpty then exit;
  if Order_ML.IsEmpty then exit;
  if Order_ML.Locate('MLName','',[])=false then
  begin
    MLSavedata(Order_ML);
  end;
  if Order_JG.Locate('JGGX','',[])=false then
  begin
    JGSavedata(Order_JG,Order_ML);
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton6Click(Sender: TObject);
begin
  ToolBar1.SetFocus;
  if Order_JG.IsEmpty then exit;
  if Order_JG.Locate('JGGX','',[])=false then
  JGSavedata(Order_JG,Order_ML);
end;

procedure TfrmCPAdd_ZLR.v2MLNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmCPManage_YPCXSel:=TfrmCPManage_YPCXSel.create(self);
  with frmCPManage_YPCXSel do
  begin
    if showmodal=1 then
    begin
      with Order_ML do
      begin
        edit;
        //FieldByName('GYSName').Value:=Trim(CDS_Main.fieldbyname('DefStr7').AsString);
        FieldByName('MLName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString);
        FieldByName('SZSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString);
        FieldByName('MLCode').Value:=Trim(CDS_Main.fieldbyname('XTNo').AsString);
        FieldByName('JWMiDu').Value:=Trim(CDS_Main.fieldbyname('DefStr6').AsString);
        FieldByName('MLCYNo').Value:=Trim(CDS_Main.fieldbyname('CYNo').AsString);
        if CDS_Main.fieldbyname('CYMF').AsString='' then
        FieldByName('MLMF').AsFloat:=0
        else
        FieldByName('MLMF').Value:=Trim(CDS_Main.fieldbyname('CYMF').AsString);
        if CDS_Main.fieldbyname('CYKZ').AsString='' then
        FieldByName('MLKZ').AsFloat:=0
        else
        FieldByName('MLKZ').Value:=Trim(CDS_Main.fieldbyname('CYKZ').AsString);
        FieldByName('MLCF').Value:=Trim(CDS_Main.fieldbyname('CYCF').AsString);
        //post;
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.v2MLMFPropertiesEditValueChanged(Sender: TObject);
var mavlue,FFieldName:string;
    FXJ:double;
begin
  mavlue:=TcxTextEdit(Sender).EditingText;
  FFieldName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
  if FFieldName<>'IFSel' then
  begin
    if mavlue='' then mavlue:='0';
  end;
  with Order_ML do
  begin
    edit;
    FieldByName(FFieldName).value:=mavlue;
  end;
  XJGenXin();
end;

procedure TfrmCPAdd_ZLR.v3GYNamePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(self);
  with frmZDYHelp do
  begin
    flag:='GYName';
    flagname:='<27><><EFBFBD><EFBFBD>';
    fnote:=True;
    V1Note.Caption:='<27><><EFBFBD>մ<EFBFBD><D5B4><EFBFBD>';
    if ShowModal=1 then
    begin
      with Order_JG do
      begin
        edit;
        FieldByName('GYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
        FieldByName('GYDM').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.cxGridDBColumn16PropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  frmZdyAttachGYS_CX:=TfrmZdyAttachGYS_CX.Create(self);
  with frmZdyAttachGYS_CX do
  begin
    if ShowModal=1 then
    begin
      with Order_GYS do
      begin
        edit;
        FieldByName('GYSName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
      end;
    end;
    free;
  end;
end;

procedure TfrmCPAdd_ZLR.MXGYSSave();
var maxid:string;
begin
  with Order_GYS do
  begin
    first;
    while not Eof do
    begin
      if FieldByName('GYSID').AsString='' then
      begin
        if GetLSNo(ADOQuery6,maxId,'GS','CP_YDang_Color_GYS',4,1)=False then
        begin
          Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
          Exit;
        end;
      end
      else
      maxid:=Trim(FieldByName('GYSID').AsString);
      with ADOQuery6 do
      begin
        Close;
        SQL.Clear;
        sql.Add('select * from CP_YDang_Color_GYS where GYSID='''+Trim(maxId)+'''');
        Open;
      end;
      with ADOQuery6 do
      begin
        if IsEmpty then Append else Edit;
        FieldByName('GYSID').Value:=Trim(maxId);
        FieldByName('CLRID').Value:=Trim(Order_Sub.Fieldbyname('CLRID').AsString);
        FieldByName('CYID').Value:=Trim(CDS_Sub.Fieldbyname('CYID').AsString);
        SSetSaveDataCDSNew(ADOQuery6,Tv6,Order_GYS,'CP_YDang_Color_GYS',0);
        Post;
      end;
      with Order_GYS do
      begin
        edit;
        FieldByName('GYSID').Value:=Trim(maxId);
        FieldByName('CYID').Value:=Trim(CDS_Sub.Fieldbyname('CYID').AsString);
        FieldByName('CLRID').value:=Trim(Order_Sub.Fieldbyname('CLRID').AsString);
      end;
      next;
    end;
  end;
end;

procedure TfrmCPAdd_ZLR.TSaveClick(Sender: TObject);
var maxid:string;
begin
  if Order_GYS.IsEmpty then exit;
  MXGYSSave();
  Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>','<27><>ʾ');
end;

procedure TfrmCPAdd_ZLR.v3HXNoPropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
begin
  frmZdyAttachCP_HX_Sel:=TfrmZdyAttachCP_HX_Sel.create(self);
  with frmZdyAttachCP_HX_Sel do
  begin
    IF showmodal=1 then
    begin
      Order_JG.Edit;
      Order_JG.FieldByName('HXNo').Value:=trim(cds_Hz.FieldByName('zdyCode').asstring);
      Order_JG.FieldByName('HXName').Value:=trim(cds_Hz.FieldByName('zdyName').asstring);
      Order_JG.FieldByName('JGCode').Value:=trim(CDS_Sub.FieldByName('CYNo').AsString)+trim(cds_Hz.FieldByName('ZdyCode').asstring);
      Order_JG.Post;
    end;
    frmZdyAttachCP_HX_Sel.Free;
  end;
  tv3.Controller.EditingController.ShowEdit();
end;

procedure TfrmCPAdd_ZLR.TAddClick(Sender: TObject);
begin
  if CDS_Sub.IsEmpty then exit;
  with Order_ML do
  begin
    Append;
    //FieldByName('JGCengJi').Value:=Order_JG.RecordCount+1;
    Post;
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton7Click(Sender: TObject);
begin
  if Order_ML.IsEmpty then exit;
  {if Trim(Order_ML.fieldbyname('MLID').AsString)='' then
  begin
    Application.MessageBox('<27><><EFBFBD>ȱ<EFBFBD><C8B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ','<27><>ʾ',0);
    Exit;
  end;}
  with Order_JG do
  begin
    Append;
    FieldByName('JGCengJi').Value:=Order_JG.RecordCount+1;
    Post;
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton8Click(Sender: TObject);
begin
  if Order_JG.IsEmpty then Exit;
  if Trim(Order_JG.fieldbyname('JGID').AsString)<>'' then
  begin
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete from CP_YDang_JG where JGID='''+Trim(Order_JG.fieldbyname('JGID').AsString)+'''');
      ExecSQL;
    end;
  end;
  Order_JG.Delete;
end;

procedure TfrmCPAdd_ZLR.Tv4CellClick(Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  if Order_Sub.IsEmpty then exit;
  with ADOQuery4 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from CP_YDang_Color_GYS ');
    sql.Add('where CLRID='''+trim(Order_Sub.fieldbyname('CLRID').AsString)+'''');
    open;
  end;
  SCreateCDS20(ADOQuery4,Order_GYS);
  SInitCDSData20(ADOQuery4,Order_GYS);
end;

procedure TfrmCPAdd_ZLR.Tv4CanFocusRecord(Sender: TcxCustomGridTableView;
  ARecord: TcxCustomGridRecord; var AAllow: Boolean);
begin
  if Order_GYS.IsEmpty=false then
  begin
    if Order_GYS.Locate('GYSID','',[])=true then
    begin
      MXGYSSave();
    end;
    if Order_GYS.Locate('GYSID',NULL,[])=true then
    begin
      MXGYSSave();
    end;
  end;
end;

procedure TfrmCPAdd_ZLR.N1Click(Sender: TObject);
begin
  SelOKNo(Order_Sub,true);
end;

procedure TfrmCPAdd_ZLR.N2Click(Sender: TObject);
begin
  SelOKNo(Order_Sub,false);
end;

procedure TfrmCPAdd_ZLR.ToolButton10Click(Sender: TObject);
var
  fPrintFile,FFCYID,FFCLRID:string;
  DPS,i,j:Integer;
  Txt,fImagePath,FGHNo:string;
  Moudle: THandle;
  Makebar:TMakebar;
  Mixtext:TMixtext;
begin
  if Order_Sub.IsEmpty then Exit;
  if Order_Sub.Locate('Ssel',True,[])=false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
    exit;
  end;
  with ADOQueryCmd do
  begin
    close;
    sql.Clear;
    sql.Add('select GHNo from OA_YG_DangAn where YGName='''+trim(DName)+''' ');
    open;
  end;
  FGHNo:=trim(ADOQueryCmd.fieldbyname('GHNo').asstring);
  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB>ǩ.rmf';
  DPS:=0;
  FFCYID:='';
  i:=1;
  if Trim(ComboBox1.Text)='' then
  begin
    j:=1;
  end else
  begin
    j:=StrToInt(ComboBox1.Text);
  end;
  for i:=1 to j do
  begin
    Order_Sub.DisableControls;
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        if FieldByName('SSel').AsBoolean=True then
        begin
          try
            Moudle:=LoadLibrary('MakeQRBarcode.dll');
            @Makebar:=GetProcAddress(Moudle,'Make');
            @Mixtext:=GetProcAddress(Moudle,'MixText');
            Txt:=Trim(Order_Sub.fieldbyname('CLRID').AsString);
            fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp';
            if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
              CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
            if FileExists(fImagePath) then DeleteFile(fImagePath);
            Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
          except
            application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
            exit;
          end;
          if FileExists(fPrintFile) then
          begin
            RMVariables['QRBARCODE']:=fImagePath;
            RMVariables['FCode']:=Trim(FGHNo);
            RMVariables['FName']:=Trim(FGHNo);
            RM1.LoadFromFile(fPrintFile);
            RM1.PrintReport;
          end else
          begin
            Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB>ǩ.rmf'),'<27><>ʾ',0);
            Exit;
          end;
        end;
        Next;
      end;
    end;
    Order_Sub.EnableControls;
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton11Click(Sender: TObject);
var
  fPrintFile,FFCYID,FFCLRID:string;
  DPS,i,j:Integer;
  Txt,fImagePath,FGHNo:string;
  Moudle: THandle;
  Makebar:TMakebar;
  Mixtext:TMixtext;
begin
  if Order_Sub.IsEmpty then Exit;
  if Order_Sub.Locate('Ssel',True,[])=false then
  begin
    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
    exit;
  end;
  with ADOQueryCmd do
  begin
    close;
    sql.Clear;
    sql.Add('select GHNo from OA_YG_DangAn where YGName='''+trim(DName)+''' ');
    open;
  end;
  FGHNo:=trim(ADOQueryCmd.fieldbyname('GHNo').asstring);
  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C>ͻ<EFBFBD><CDBB><EFBFBD>ɫ<EFBFBD><C9AB>ǩ.rmf';
  DPS:=0;
  FFCYID:='';
  i:=1;
  if Trim(ComboBox1.Text)='' then
  begin
    j:=1;
  end else
  begin
    j:=StrToInt(ComboBox1.Text);
  end;
  for i:=1 to j do
  begin
    Order_Sub.DisableControls;
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        if FieldByName('SSel').AsBoolean=True then
        begin
          try
            Moudle:=LoadLibrary('MakeQRBarcode.dll');
            @Makebar:=GetProcAddress(Moudle,'Make');
            @Mixtext:=GetProcAddress(Moudle,'MixText');
            Txt:=Trim(Order_Sub.fieldbyname('CLRID').AsString);
            fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp';
            if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
              CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
            if FileExists(fImagePath) then DeleteFile(fImagePath);
            Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
          except
            application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
            exit;
          end;
          if FileExists(fPrintFile) then
          begin
            RMVariables['QRBARCODE']:=fImagePath;
            RMVariables['FCode']:=Trim(FGHNo);
            RMVariables['FName']:=Trim(FGHNo);
            RM1.LoadFromFile(fPrintFile);
            RM1.PrintReport;
          end else
          begin
            Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C>ͻ<EFBFBD><CDBB><EFBFBD>ɫ<EFBFBD><C9AB>ǩ.rmf'),'<27><>ʾ',0);
            Exit;
          end;
        end;
        Next;
      end;
    end;
    Order_Sub.EnableControls;
  end;
end;

procedure TfrmCPAdd_ZLR.ColorNameChange(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from CP_YDang_Color ');
    sql.Add('where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+'''');
    if ColorName.Text<>'' then
    sql.Add(' and ColorName like '''+'%'+trim(ColorName.Text)+'%'+'''');
    Open;
  end;
  SCreateCDS20(ADOQuery1,Order_Sub);
  SInitCDSData20(ADOQuery1,Order_Sub);
end;

procedure TfrmCPAdd_ZLR.TTPSCClick(Sender: TObject);
begin
  try
    frmFileUp:=TfrmFileUp.Create(Application);
    with frmFileUp do
    begin
      Code.Text:=Trim(Self.Order_Sub.fieldbyname('CYNO').AsString);
      CYID:=Trim(Self.Order_Sub.fieldbyname('CLRID').AsString);
      //FName:=Trim(Self.CDS_Sub.fieldbyname('CYNO').AsString)+Trim(Self.Order_Sub.fieldbyname('ColorNo').AsString);
      if ShowModal=1 then
      begin
        Self.Order_Sub.Locate('CLRID',CYID,[]);
      end;
    end;
  finally
    frmFileUp.Free;
  end;
end;

procedure TfrmCPAdd_ZLR.ToolButton12Click(Sender: TObject);
var
  fHandle:THandle;
  FInt:Integer;
  FFName,FPath:String;
begin
  ToolBar1.SetFocus;
  with ADOQueryTemp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from XD_File where CYID='''+Trim(Order_sub.fieldbyname('CLRID').AsString)+'''');
    Open;
    if IsEmpty then
    begin
      Application.MessageBox('<27><>ƷͼƬδ<C6AC>ϴ<EFBFBD><CFB4><EFBFBD>','<27><>ʾ',0);
      Exit;
    end;
  end;
  try
    ReadINIFile();
    server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
    if Length(server)<6 then
    begin
      server:='127.0.0.1';
    end;
    IdFTP1.Host :=server;//PicSvr;
    IdFTP1.Username := 'three';
    IdFTP1.Password := '641010';
    IdFTP1.Connect();
  except
    IdFTP1.Quit;
    Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
    Exit;
  end;
  FPath:='D:\Right1209\';
  if not DirectoryExists(ExtractFileDir(FPath)) then
    CreateDir(ExtractFileDir(FPath));
  FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString);
  FFName:=FPath+FFName;
  if FileExists(FFName) then
  begin
    FInt:=1;
  end;
  if FInt<>1 then
    IdFTP1.Get(UserDataFlag+'YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString),
                   FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)
                    );
  if IdFTP1.Connected then IdFTP1.Quit;
  ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL);
end;

procedure TfrmCPAdd_ZLR.Tv4FocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord;
  ANewItemRecordFocusingChanged: Boolean);
var
  i,j:integer;
  jpg:TJpegImage;
  myStream: TADOBlobStream;
begin
  IF Order_Sub.IsEmpty then exit;
  if Order_Sub.FieldByName('CLRID').AsString='' then Exit;
  try
    with adoqueryPicture do
    begin
      close;
      sql.Clear;
      sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName from TP_File A,XD_File B  ');
      sql.Add(' where A.TFID =B.XFID and B.CYID='+quotedstr(trim(Order_Sub.fieldbyname('CLRID').AsString)));
      //ShowMessage(SQL.Text);
      open;
    end;
    j:=length(Mach);
    if j>0 then
    begin
      for i:=0 to j-1 do
      begin
        Mach[i].free;
      end;
    end;
    SetLength(Mach, 0);
    j:=adoqueryPicture.RecordCount;
    if j<1 then exit;
    adoqueryPicture.DisableControls;
    adoqueryPicture.First;
    SetLength(Mach, j);
    jpg:=TJpegImage.Create();
    for i:=0 to j-1 do
    begin
      if trim(adoqueryPicture.fieldbyname('FilesOther').AsString)<>'' then
      begin
        myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread);
        jpg.LoadFromStream(myStream);
        Mach[i] := TfrmSlt.Create(Self);
        Mach[i].Name:=trim(adoqueryPicture.fieldbyname('TFID').AsString);
        Mach[i].Parent:=ScrollBox1;
        Mach[I].Left:=0+i*165;
        Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg);
      end;
      adoqueryPicture.Next;
    end;
    adoqueryPicture.EnableControls;
  finally
    jpg.free;
    application.ProcessMessages;
  end;
end;

procedure TfrmCPAdd_ZLR.FormDestroy(Sender: TObject);
var j,i:integer;
begin
  j:=length(Mach);
  if j>0 then
  begin
    for i:=0 to j-1 do
    begin
      Mach[i].free;
    end;
  end;
  SetLength(Mach, 0);
  frmCPAdd_ZLR:=nil;
end;

end.