D7wmbeiqi/贝其贸易管理/U_ClothContractInPutPB.pas

unit U_ClothContractInPutPB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
  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
  TfrmClothContractInPutPB = class(TForm)
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    ScrollBox1: TScrollBox;
    Label1: TLabel;
    ConNo: TEdit;
    Label4: TLabel;
    DeliveryDate: TDateTimePicker;
    Label5: TLabel;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1PRTSpec: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    v1ClothQty: TcxGridDBColumn;
    v1Price: TcxGridDBColumn;
    v1ClothUnit: TcxGridDBColumn;
    ADOTemp: TADOQuery;
    ADOCmd: TADOQuery;
    DataSource1: TDataSource;
    Order_Sub: TClientDataSet;
    DataSource2: TDataSource;
    ADOZDY: TADOQuery;
    CDS_ZDY: TClientDataSet;
    FactoryNoName: TcxButtonEdit;
    ADOQuery1: TADOQuery;
    v1Column1: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    PanZDY: TPanel;
    CXGridZDY: TcxGrid;
    TVZDY: TcxGridDBTableView;
    VHelpZDYName: TcxGridDBColumn;
    CXGridZDYLevel1: TcxGridLevel;
    Button1: TButton;
    v1Column4: TcxGridDBColumn;
    Label2: TLabel;
    QDTime: TDateTimePicker;
    Label3: TLabel;
    CompanyName: TcxButtonEdit;
    Label6: TLabel;
    QDPalce: TEdit;
    Label8: TLabel;
    JHPlace: TcxButtonEdit;
    Label7: TLabel;
    ConTK1: TcxButtonEdit;
    Label9: TLabel;
    ConTk2: TcxButtonEdit;
    Label10: TLabel;
    ConTK3: TcxButtonEdit;
    Label11: TLabel;
    ConTK4: TcxButtonEdit;
    Label12: TLabel;
    ConTK5: TcxButtonEdit;
    Label13: TLabel;
    ConTk6: TcxButtonEdit;
    v1Column3: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    v1Column6: TcxGridDBColumn;
    v1Column8: TcxGridDBColumn;
    v1Column9: TcxGridDBColumn;
    v1Column10: TcxGridDBColumn;
    v1Column11: TcxGridDBColumn;
    v1Column12: TcxGridDBColumn;
    v1Column13: TcxGridDBColumn;
    v1Column14: TcxGridDBColumn;
    OrderNo: TcxButtonEdit;
    Label14: TLabel;
    Label15: TLabel;
    ConTk7: TEdit;
    Label16: TLabel;
    ConTk8: TcxButtonEdit;
    SQNO: TcxButtonEdit;
    Label17: TLabel;
    Label18: TLabel;
    factoryNo: TEdit;
    v1Column7: TcxGridDBColumn;
    procedure TBCloseClick(Sender: TObject);
    procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure FactoryNoNamePropertiesChange(Sender: TObject);
    procedure CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTK1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTK3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTK4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTK5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTk6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTk2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
    procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTk8BtnClick(Sender: TObject);
    procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure SQNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
  private
    FXS: Integer;
    procedure InitData();
    procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
    function SaveData(): Boolean;
    { Private declarations }
  public
    PState, PCopyInt: Integer;
    FMainId, FConNo: string;
    { Public declarations }
  end;

var
  frmClothContractInPutPB: TfrmClothContractInPutPB;

implementation

uses
  U_DataLink, U_ZDYHelp, U_Fun, U_ProductOrder_CX, U_ZdyAttachGYS,
  U_frmFabList_sel;

{$R *.dfm}

procedure TfrmClothContractInPutPB.TBCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmClothContractInPutPB.InitData();
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Add(' exec ClothContract_QryList :MainId,:WSql');
    if PState = 1 then
    begin
      ADOQuery1.Parameters.ParamByName('MainId').Value := Trim(FMainId);
      ADOQuery1.Parameters.ParamByName('WSQl').Value := '';
    end;
    if PState = 0 then
    begin
      ADOQuery1.Parameters.ParamByName('MainId').Value := Trim(FMainId);
      ADOQuery1.Parameters.ParamByName('WSql').Value := ' and 1<>1 ';
    end;
    Open;
  end;
  SCreateCDS20(ADOQuery1, Order_Sub);
  SInitCDSData20(ADOQuery1, Order_Sub);
  if PState = 1 then
    SCSHData(ADOQuery1, ScrollBox1, 0);

  if not ADOQuery1.IsEmpty then
  begin
    orderNo.Text := ADOQuery1.fieldbyname('OrderNo').AsString;
    orderNo.Hint := ADOQuery1.fieldbyname('fromMainID').AsString;
    SQNO.Text := ADOQuery1.fieldbyname('SQNO').AsString;
    SQNO.Hint := ADOQuery1.fieldbyname('SQmainID').AsString;
  end;
  if PState = 0 then
  begin
    with ADOTemp do
    begin
      Close;
      SQL.Clear;
      sql.Add('select Top 1 * from Contract_Main order by FillTime desc ');
      Open;
    end;
    QDTime.DateTime := SGetServerDate(ADOTemp);
    DeliveryDate.DateTime := SGetServerDate(ADOTemp);
    QDTime.Checked := True;
    DeliveryDate.Checked := False;
  end;
  PanZDY.Visible := False;
end;

procedure TfrmClothContractInPutPB.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
  FType, ZDYName, FText: string;
begin
  PanZDY.Visible := True;
  PanZDY.Left := FButn.Left;
  PanZDY.Top := FButn.Top + FButn.Height;
  with ADOZDY do
  begin
    Filtered := False;
    Close;
    SQL.Clear;
    SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type=''' + Trim(LType) + '''');
    Open;
  end;
  FText := Trim(FButn.Text);
  if FText <> '' then
    SDofilter(ADOZDY, ' ZDYName like ' + QuotedStr('%' + Trim(FText) + '%'))
  else
    SDofilter(ADOZDY, '');
  VHelpZDYName.Summary.GroupFormat := Trim(FButn.Name);
end;

procedure TfrmClothContractInPutPB.TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
  FName: string;
begin
  if ADOZDY.IsEmpty then
    Exit;
  FName := Trim(VHelpZDYName.Summary.GroupFormat);
  TcxButtonEdit(FindComponent(FName)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString);
  TcxButtonEdit(FindComponent(FName)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
  PanZDY.Visible := False;
end;

procedure TfrmClothContractInPutPB.Button1Click(Sender: TObject);
begin
  PanZDY.Visible := False;
end;

procedure TfrmClothContractInPutPB.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  {if (key=vk_return) or (Key=vk_Down) then
  begin
    if ADOZDY.Active then
      CXGridZDY.SetFocus;
  end; }
end;

procedure TfrmClothContractInPutPB.TVZDYKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if ADOZDY.IsEmpty then
      Exit;
    TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text := Trim(ADOZDY.fieldbyname('ZDYName').AsString);
    TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint := Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
    PanZDY.Visible := False;
    ADOZDY.Active := False;
  end;
end;

procedure TfrmClothContractInPutPB.FormShow(Sender: TObject);
begin
  {if Trim(DParameters1)='1' then
  begin
    v1Price.Visible:=False;
    v1ClothQty.Visible:=False;
    v1PRTQty.Visible:=False;
  end else
  begin
    v1Price.Visible:=True;
    v1ClothQty.Visible:=True;
    v1PRTQty.Visible:=True;
  end;  }
  InitData();
  if PCopyInt = 1 then
  begin
    FMainId := '';
    FConNo := '';
    ConNo.Text := '';
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        Edit;
        FieldByName('SubId').Value := '';
        Post;
        Next;
      end;
    end;
  end;
end;

function TfrmClothContractInPutPB.SaveData(): Boolean;
var
  maxno, maxSubNo: string;
  fconNO, fmxType: string;
begin
  try
    ADOCmd.Connection.BeginTrans;
    ///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if Trim(FMainId) = '' then
    begin
   //   fmxType:=uppercase(trim(factoryNo.Text)+formatdateTime('yy',DServerDate));
      fmxType := formatdateTime('yy', DServerDate);
      if GetLSNo(ADOCmd, fconNO, fmxType, 'Contract_Main', 3, 0) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
        exit;
      end;
      ConNo.text := uppercase(trim(factoryNo.Text)) + trim(fconNO);
      //ConNo.text:=trim(fconNO);
      if GetLSNo(ADOCmd, maxno, 'PM', 'Contract_Main', 2, 1) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
        exit;
      end;
    end
    else
    begin
      maxno := Trim(FMainId);
    end;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from Contract_Main where MainId=''' + Trim(FMainId) + '''');
      Open;
    end;
    with ADOCmd do
    begin
      if IsEmpty then
        Append
      else
        Edit;
      FieldByName('MainId').Value := Trim(maxno);
      FieldByName('HTType').Value := '<27>ɹ<EFBFBD><C9B9><EFBFBD>ͬ';
      SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0);
      if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
      begin
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
      end;
      FieldByName('conNo').Value := Trim(conNo.text);
      FieldByName('SQNO').Value := Trim(SQNO.text);
      FieldByName('SQMainID').Value := Trim(SQNO.Hint);
      FieldByName('OrderNo').Value := Trim(OrderNo.text);
      FieldByName('fromMainID').Value := Trim(OrderNo.Hint);
 //     FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString);
      Post;
    end;
    ///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
        begin
          if GetLSNo(ADOCmd, maxSubNo, 'PS', 'Contract_Sub', 3, 1) = False then
          begin
            ADOCmd.Connection.RollbackTrans;
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
            Exit;
          end;
        end
        else
        begin
          maxSubNo := Trim(Order_Sub.fieldbyname('SubId').AsString);
        end;
        with ADOCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from Contract_Sub where MainId=''' + Trim(maxno) + '''');
          sql.Add(' and SubId=''' + Trim(maxSubNo) + '''');
          Open;
        end;
        with ADOCmd do
        begin
          if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
            Append
          else
            Edit;
          FieldByName('MainId').Value := Trim(maxno);
          FieldByName('SubId').Value := Trim(maxSubNo);
          SSetSaveDataCDSNew(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0);
          FieldByName('C_Unit').Value := Trim(Order_Sub.fieldbyname('C_Unit').AsString);
          FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat;
          FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat;
          FieldByName('Price').Value := Order_Sub.fieldbyname('Price').AsFloat;
          FieldByName('MFQty').Value := Order_Sub.fieldbyname('MFQty').AsFloat;
          FieldByName('KZQty').Value := Order_Sub.fieldbyname('KZQty').AsFloat;
          FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat;
          FieldByName('C_Note').Value := trim(Order_Sub.fieldbyname('C_Note').AsString);
          FieldByName('C_status').Value := '0';
          Post;
        end;
        Order_Sub.Edit;
        Order_Sub.FieldByName('SubId').Value := Trim(maxSubNo);
        //Order_Sub.Post;
        Next;
      end;
    end;
    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    Result := False;
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
  end;
end;

procedure TfrmClothContractInPutPB.TBSaveClick(Sender: TObject);
begin
  DeliveryDate.SetFocus;
  if Trim(ConNo.Text) = '' then
  begin
    Application.MessageBox('<27><>ͬ<EFBFBD><CDAC><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if Trim(FactoryNo.Text) = '' then
  begin
    Application.MessageBox('<27><>Ӧ<EFBFBD>̼<EFBFBD><CCBC>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if Trim(FactoryNoName.Text) = '' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;
  if Order_Sub.IsEmpty then
  begin
    Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
    exit;
  end;
  if Order_Sub.Locate('C_Qty', null, []) then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if Order_Sub.Locate('C_Unit', null, []) then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
 {   with ADOTemp do
    begin
      Close;
      sql.Clear;
      sql.Add('select * from JYOrdercon_Main where conNo='+quotedstr(trim(conNo.Text)));
      Open;
    end;
    if ADOTemp.IsEmpty then
    begin
      Application.MessageBox('ָʾ<D6B8><CABE><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ',0);
      Exit;
    end; }
  if PState = 1 then
  begin
  {  with ADOTemp do
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+'''');
      sql.Add(' and Isnull(DHTYpe,'''')='''' ');
      Open;
    end;
    if ADOTemp.IsEmpty=False then
    begin
      if Trim(FConNo)<>Trim(ConNo.Text) then
      begin
        Application.MessageBox('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ĺ<DEB8>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>!','<27><>ʾ',0);
        Exit;
      end;
    end; }
  end;
  if SaveData() then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
    ModalResult := 1;
  end;
end;

procedure TfrmClothContractInPutPB.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrdUnit';
      flagname := '<27><>λ';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('OrderUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1PRTUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrdUnit';
      flagname := '<27><>λ';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('PRTUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

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

procedure TfrmClothContractInPutPB.ToolButton1Click(Sender: TObject);
begin
  with Order_Sub do
  begin
    Append;
    Post;
  end;
end;

procedure TfrmClothContractInPutPB.ToolButton2Click(Sender: TObject);
begin
  if Order_Sub.IsEmpty then
    Exit;
  if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
  begin
    with ADOTemp do
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Contract_Sub_MX where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
      Open;
    end;
    if ADOTemp.IsEmpty = False then
    begin
      Application.MessageBox('<27>ѵ<EFBFBD><D1B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
      Exit;
    end;
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
      Exit;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
      ExecSQL;
    end;
  end;
  Order_Sub.Delete;
end;

procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  if Trim(FMainId) <> '' then
  begin
    with ADOTemp do
    begin
      Close;
      sql.Clear;
      sql.Add('select * from YF_Money_CR A where exists(');
      sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
      sql.Add(' where C.Mainid=''' + Trim(FMainId) + '''');
      sql.Add(' and B.MXID=A.YFTypeId)');
      Open;
    end;
    if ADOTemp.IsEmpty = False then
    begin
      Application.MessageBox('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EEB2BB><EFBFBD>޸Ĺ<DEB8>Ӧ<EFBFBD><D3A6>!', '<27><>ʾ', 0);
      Exit;
    end;
  end;

  try
    frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
    with frmZdyAttachGYS do
    begin
      if ShowModal = 1 then
      begin
        FactoryNoName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
        FactoryNo.Text := Trim(CDS_HZ.fieldbyname('ZDYNameZ').AsString);
      end;
    end;
  finally
    frmZdyAttachGYS.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'Cloth';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('C_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        Self.Order_Sub.FieldByName('C_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'KZ';
      flagname := '<27><><EFBFBD>ص<EFBFBD>λ';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('KZUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'MF';
      flagname := '<27>ŷ<EFBFBD><C5B7><EFBFBD>λ';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('MFUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PriceUnit';
      flagname := '<27>Ƽ۵<C6BC>λ';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrderUnit';
      flagname := '<27><>λ';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('C_Unit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesChange(Sender: TObject);
begin
  {if FXS=99 then
  begin
    PanZDY.Visible:=False;
    FXS:=0;
    Exit;
  end;
  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
end;

procedure TfrmClothContractInPutPB.CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrdDefStr2';
      flagname := '<27>跽';
      if ShowModal = 1 then
      begin
        FXS := 99;
        CompanyName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'JHPlace';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>';
      if ShowModal = 1 then
      begin
        JHPlace.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK1';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼';
      if ShowModal = 1 then
      begin
        ConTK1.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK3';
      flagname := '<27><>װҪ<D7B0><D2AA>';
      if ShowModal = 1 then
      begin
        ConTK3.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK4';
      flagname := '<27><><EFBFBD>㷽ʽ';
      if ShowModal = 1 then
      begin
        ConTK4.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK5';
      flagname := '<27><><EFBFBD>ձ<EFBFBD>׼<EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        ConTK5.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTk6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK6';
      flagname := '<27><><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        ConTK6.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTk2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK2';
      flagname := '<27><><EFBFBD>䷽<EFBFBD><E4B7BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>óе<C3B3>';
      if ShowModal = 1 then
      begin
        ConTK2.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if Trim(ConNo.Text) <> '' then
    begin
      with ADOTemp do
      begin
        Close;
        sql.Clear;
        sql.Add('select Top 1* from JYOrder_Main where OrderNo=''' + Trim(ConNo.Text) + '''');
        Open;
      end;
      FactoryNoName.Text := Trim(ADOTemp.fieldbyname('PBFactory').AsString);
    end;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'Factory';
      flagname := '<27><><EFBFBD><EFBFBD>';
      MainType := 'PBFactory';
      if ShowModal = 1 then
      begin
        with Order_Sub do
        begin
          Edit;
          FieldByName('Sdefstr2').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  FrmProductOrder_CX := TFrmProductOrder_CX.Create(self);
  with FrmProductOrder_CX do
  begin
    if showModal = 1 then
    begin
     // self.ConNo.Text:=trim(Order_Main.fieldbyname('ConNo').AsString);
      self.OrderNo.Text := trim(Order_Main.fieldbyname('OrderNo').AsString);
      self.OrderNo.Hint := trim(Order_Main.fieldbyname('MainID').AsString);
    end;
    free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTk8BtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK8';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        ConTk8.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK8';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        ConTk8.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.SQNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  FrmFabList_sel := TFrmFabList_sel.Create(self);
  with FrmFabList_sel do
  begin
    if showModal = 1 then
    begin
      self.SQNO.Text := trim(CDS_main.fieldbyname('SQNO').AsString);
      self.SQNO.Hint := trim(CDS_main.fieldbyname('MainID').AsString);
      self.CompanyName.text := trim(CDS_main.fieldbyname('CompanyName').AsString);
      Order_Sub.Append;
      Order_Sub.FieldByName('C_CodeName').Value := trim(CDS_main.fieldbyname('P_CodeName').AsString);
      Order_Sub.FieldByName('C_Spec').Value := trim(CDS_main.fieldbyname('P_Spec').AsString);
      Order_Sub.FieldByName('MF').Value := trim(CDS_main.fieldbyname('P_MF').AsString);
      Order_Sub.FieldByName('KZ').Value := trim(CDS_main.fieldbyname('P_KZ').AsString);
      //Order_Sub.FieldByName('C_Qty').Value:=CDS_main.fieldbyname('Z_Qty').AsFloat;
      Order_Sub.FieldByName('C_Unit').Value := trim(CDS_main.fieldbyname('C_Unit').AsString);
      Order_Sub.FieldByName('Sdefstr1').Value := CDS_main.fieldbyname('Z_Qty').AsString;
      Order_Sub.Post;
    end;
    free;
  end;
end;

end.