D7myYunxiang/样品新云翔(YPGLBOM.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, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
  dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator;

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_ZDYHelp, U_ZdyAttachCP_HX_sel, U_CPManage_YPCXSel,
  U_ZdyAttachCP_Type_sel, U_ZdyAttachGYS_CX, U_CPManage_YPCX, U_CPManage_ColCX,
  U_FileUp;
{$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.