unit U_MJEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
  cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;

type
  TfrmMJEdit = class(TForm)
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    MJID: TEdit;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    tv2CDType: TcxGridDBColumn;
    tv2CDWZ: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    Tv2CDQty: TcxGridDBColumn;
    Tv2CDReason: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    ADOTmp: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOCmd: TADOQuery;
    DataSource1: TDataSource;
    Order_MJ: TClientDataSet;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    Label2: TLabel;
    MJMaoZ: TEdit;
    Label4: TLabel;
    M: TLabel;
    Label6: TLabel;
    MJLen: TEdit;
    RadioGroup1: TRadioGroup;
    Ma: TLabel;
    Label7: TLabel;
    MJQty1: TEdit;
    Label5: TLabel;
    Label8: TLabel;
    JYMF: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label3: TLabel;
    Label11: TLabel;
    JYKZ: TEdit;
    ToolButton4: TToolButton;
    Label12: TLabel;
    Label14: TLabel;
    MJQty4: TEdit;
    MJXH: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    MJStr4: TEdit;
    v2Column1: TcxGridDBColumn;
    ADOQuery1: TADOQuery;
    Label13: TLabel;
    Label17: TLabel;
    RKPLACE: TEdit;
    Label18: TLabel;
    JYNOTE: TEdit;
    Label19: TLabel;
    DDBZ: TEdit;
    Label20: TLabel;
    Label21: TLabel;
    MJFMLen: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    C_COLOR: TEdit;
    C_CODE: TEdit;
    Label22: TLabel;
    C_CODENAME: TEdit;
    Label25: TLabel;
    Label26: TLabel;
    kj: TEdit;
    FILLTIME: TDateTimePicker;
    Label27: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure MJIDKeyPress(Sender: TObject; var Key: Char);
    procedure tv2CDTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject);
    procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure MDblClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
    function SaveData(): Boolean;
  public
    { Public declarations }
  end;

var
  frmMJEdit: TfrmMJEdit;

implementation

uses
  U_Fun, U_ZDYHelp, U_DataLink;

{$R *.dfm}

function TfrmMJEdit.SaveData(): Boolean;
var
  maxno: string;
  FXG: string;
  FFreal: Double;
begin
  try
    ADOCmd.Connection.BeginTrans;
    ///保存疵点表
    with Order_MJ do
    begin
      First;
      while not Eof do
      begin
        if trim(Order_MJ.FieldByName('CDName').AsString) = '' then
        begin
          ADOCmd.Connection.RollbackTrans;
          Application.MessageBox('疵点名称不能为空！', '提示', 0);
          Exit;
        end;
        if Trim(Order_MJ.fieldbyname('MCID').AsString) = '' then
        begin
          if GetLSNo(ADOTmp, maxno, 'MC', 'WFB_MJJY_CD', 5, 1) = False then
          begin
            ADOCmd.Connection.RollbackTrans;
            Application.MessageBox('取子流水号失败！', '提示', 0);
            Exit;
          end;
        end
        else
        begin
          maxno := Trim(Order_MJ.fieldbyname('MCID').AsString);
        end;
        with ADOCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add(' select * from WFB_MJJY_CD ');
          sql.Add(' where MCID=''' + Trim(maxno) + ''' ');
          Open;
        end;
        with ADOCmd do
        begin
          if Trim(Order_MJ.fieldbyname('MCID').AsString) = '' then
            Append
          else
            Edit;
          FieldByName('MJId').Value := Trim(Label2.Caption);
          FieldByName('MCID').Value := Trim(maxno);
          SSetSaveDataCDSNew(ADOCmd, Tv2, Order_MJ, 'WFB_MJJY_CD', 0);
          if trim(Order_MJ.fieldbyname('CDName').AsString) = '测幅宽' then
            FieldByName('koufenQty').Value := 0
          else
            FieldByName('koufenQty').Value := Order_MJ.fieldbyname('koufenQty').AsFloat;
          Post;
        end;

        Order_MJ.Edit;
        Order_MJ.FieldByName('MCID').Value := Trim(maxno);
        Order_MJ.FieldByName('MJID').Value := Trim(Label2.Caption);
        Next;
      end;
    end;

    if Trim(MJMaoZ.Text) <> '' then
    begin
      if TryStrToFloat(MJMaoZ.Text, FFreal) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('重量非法数字!', '提示', 0);
        Exit;
      end;
    end;
    if Trim(MJLen.Text) <> '' then
    begin
      if TryStrToFloat(MJLen.Text, FFreal) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('长度非法数字!', '提示', 0);
        Exit;
      end;
    end;
//    if Trim(JYKZ.Text) <> '' then
//    begin
//      if TryStrToFloat(JYKZ.Text, FFreal) = False then
//      begin
//        ADOCmd.Connection.RollbackTrans;
//        Application.MessageBox('克重非法数字!', '提示', 0);
//        Exit;
//      end;
//    end;
//    if Trim(JYKZ.Text) <> '' then
//    begin
//      if TryStrToFloat(JYKZ.Text, FFreal) = False then
//      begin
//        ADOCmd.Connection.RollbackTrans;
//        Application.MessageBox('克重非法数字!', '提示', 0);
//        Exit;
//      end;
//    end;
//    if Trim(MJQty2.Text)<>'' then
//    begin
//      if TryStrToFloat(MJQty2.Text,FFreal)=False then
//      begin
//        ADOCmd.Connection.RollbackTrans;
//        Application.MessageBox('赠送数量非法数字!','提示',0);
//        Exit;
//      end;
//    end;
    if Trim(MJFMLen.Text) <> '' then
    begin
      if TryStrToFloat(MJFMLen.Text, FFreal) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('放码非法数字!', '提示', 0);
        Exit;
      end;
    end;
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      sql.Add(' select * from WFB_MJJY A INNER JOIN CK_BanCP_KC B ON A.MJID=B.MJID  ');
      sql.Add(' where A.mjid=''' + Trim(Label2.Caption) + ''' ');
      Open;
    end;
    FXG := '条码号:' + Trim(Label2.Caption);
    if ADOQuery1.FieldByName('mjxh').AsString <> Trim(MJXH.Text) then
    begin
      FXG := '卷号由' + trim(ADOQuery1.FieldByName('mjxh').AsString) + '改为' + Trim(MJXH.Text) + ';';
    end;
    if ADOQuery1.FieldByName('MJStr4').AsString <> Trim(MJStr4.Text) then
    begin
      FXG := FXG + '缸号由' + trim(ADOQuery1.FieldByName('MJStr4').AsString) + '改为' + Trim(MJStr4.Text) + ';';
    end;
    if ADOQuery1.FieldByName('mjlen').AsString <> Trim(mjlen.Text) then
    begin
      FXG := FXG + '长度由' + trim(ADOQuery1.FieldByName('mjlen').AsString) + '改为' + Trim(mjlen.Text) + ';';
    end;
    if ADOQuery1.FieldByName('MJQty4').AsString <> Trim(MJQty4.Text) then
    begin
      FXG := FXG + '净重由' + trim(ADOQuery1.FieldByName('MJQty4').AsString) + '改为' + Trim(MJQty4.Text) + ';';
    end;
    if ADOQuery1.FieldByName('MJMaoZ').AsString <> Trim(MJMaoZ.Text) then
    begin
      FXG := FXG + '毛重由' + trim(ADOQuery1.FieldByName('MJMaoZ').AsString) + '改为' + Trim(MJMaoZ.Text) + ';';
    end;
    if ADOQuery1.FieldByName('JYKZ').AsString <> Trim(JYKZ.Text) then
    begin
      FXG := FXG + '克重由' + trim(ADOQuery1.FieldByName('JYKZ').AsString) + '改为' + Trim(JYKZ.Text) + ';';
    end;
    if ADOQuery1.FieldByName('JYMF').AsString <> Trim(JYMF.Text) then
    begin
      FXG := FXG + '门幅由' + trim(ADOQuery1.FieldByName('JYMF').AsString) + '改为' + Trim(JYMF.Text) + ';';
    end;
    if ADOQuery1.FieldByName('MJTYPE').AsString <> Trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]) then
    begin
      FXG := FXG + '等级由' + trim(ADOQuery1.FieldByName('MJTYPE').AsString) + '改为' + Trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]) + ';';
    end;
    if ADOQuery1.FieldByName('C_CODE').AsString <> Trim(C_CODE.Text) then
    begin
      FXG := FXG + '编号由' + trim(ADOQuery1.FieldByName('C_CODE').AsString) + '改为' + Trim(C_CODE.Text) + ';';
    end;
    if ADOQuery1.FieldByName('C_COLOR').AsString <> Trim(C_COLOR.Text) then
    begin
      FXG := FXG + '颜色由' + trim(ADOQuery1.FieldByName('C_COLOR').AsString) + '改为' + Trim(C_COLOR.Text) + ';';
    end;
    if ADOQuery1.FieldByName('kj').AsString <> Trim(kj.Text) then
    begin
      FXG := FXG + '空加由' + trim(ADOQuery1.FieldByName('kj').AsString) + '改为' + Trim(kj.Text) + ';';
    end;
    FXG := FXG + '入库时间由' + trim(ADOQuery1.FieldByName('filltime').AsString) + '改为' + Trim((FormatDateTime('yyyy-MM-dd', FILLTIME.DateTime))) + ';';
//    ShowMessage(FXG);
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add(' UPdate WFB_MJJY Set MJTypeOther=''' + Trim(M.Caption) + ''' ');
      sql.Add(',MJStr1=''' + Trim(Ma.Caption) + ''' ');
      sql.Add(',JYNOTE=''' + Trim(JYNOTE.Text) + ''' ');
      sql.Add(',DDBZ=''' + Trim(DDBZ.Text) + ''' ');
      sql.Add(',MJStr4=''' + Trim(MJStr4.Text) + ''' ');
      sql.Add(',MJXH=''' + Trim(MJXH.Text) + ''' ');
      sql.Add(',filltime=''' + (FormatDateTime('yyyy-MM-dd', FILLTIME.DateTime)) + ''' ');
      if Trim(kj.Text) <> '' then
      begin
        sql.Add(',kj=' + Trim(kj.Text));
      end
      else
      begin
        sql.Add(',kj=0');
      end;

      if Trim(MJFMLen.Text) <> '' then
      begin
        sql.Add(',MJFMLen=' + Trim(MJFMLen.Text));
      end
      else
      begin
        sql.Add(',MJFMLen=0');
      end;

      if Trim(MJLen.Text) <> '' then
      begin
        sql.Add(',MJLen=' + Trim(MJLen.Text));
      end
      else
      begin
        sql.Add(',MJLen=0');
      end;
      if Trim(MJQty1.Text) <> '' then
      begin
        sql.Add(',MJQty1=' + Trim(MJQty1.Text));
      end
      else
      begin
        sql.Add(',MJQty1=0');
      end;
//      if Trim(MJQty2.Text)<>'' then
//      begin
//        sql.Add(',MJQty2='+Trim(MJQty2.Text));
//      end else
//      begin
//        sql.Add(',MJQty2=0');
//      end;
      if Trim(JYMF.Text) <> '' then
      begin
        sql.Add(',JYMF=' + QuotedStr(Trim(JYMF.Text)));
      end
      else
      begin
        sql.Add(',JYMF=''0''');
      end;
      if Trim(MJMaoZ.Text) <> '' then
      begin
        sql.Add(',MJMaoZ=' + Trim(MJMaoZ.Text));
      end
      else
      begin
        sql.Add(',MJMaoZ=0');
      end;
      if Trim(JYKZ.Text) <> '' then
      begin
        sql.Add(',JYKZ=' + QuotedStr(Trim(JYKZ.Text)));
      end
      else
      begin
        sql.Add(',JYKZ=''0''');
      end;
      if Trim(MJQty4.Text) <> '' then
      begin
        sql.Add(',MJQty4=' + Trim(MJQty4.Text));
      end
      else
      begin
        sql.Add(',MJQty4=0');
      end;
      if RadioGroup1.ItemIndex = 0 then
      begin
        sql.Add(',MJType=''AA'' ');
      end
      else if RadioGroup1.ItemIndex = 1 then
      begin
        sql.Add(',MJType=''A'' ');
      end
      else if RadioGroup1.ItemIndex = 2 then
      begin
        sql.Add(',MJType=''次布'' ');
      end;
      sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');

      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
      sql.Add(' ' + quotedstr(trim(DName)));
      sql.Add(',getdate() ');
      sql.Add(',' + quotedstr(trim(self.Caption)));
      sql.Add(',' + quotedstr(trim('修改检验数据')));
      sql.Add(',' + quotedstr(trim(FXG)));
      sql.Add(',' + quotedstr(trim('成功')));
      sql.Add(')');
      ExecSQL;
    end;
    with ADOCmd do
    begin
      close;
      sql.Clear;
      sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')');
      sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
      execsql;
    end;
    //出入库及库存
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('exec P_CPCK_Insert_JY @MJID=''' + Trim(Label2.Caption) + '''');
      execsql;
    end;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('update CK_BanCP_CR set rkplace=' + QuotedStr(UpperCase(RKPLACE.Text)));
      sql.Add('where mjid=''' + Trim(Label2.Caption) + '''');

      sql.Add('update CK_BanCP_KC set C_CODE=' + QuotedStr(C_CODE.Text));
      SQL.Add(' ,C_COLOR=' + QuotedStr(C_COLOR.Text));
      SQL.Add(' ,C_CODEname=' + QuotedStr(C_CODEname.Text));
      SQL.Add(' ,C_kuwei=' + QuotedStr(UpperCase(RKPLACE.Text)));
      sql.Add('where mjid=''' + Trim(Label2.Caption) + '''');
      execsql;
    end;
    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    Result := False;
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('保存失败！', '提示', 0);
  end;
end;

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

procedure TfrmMJEdit.FormDestroy(Sender: TObject);
begin
  frmMJEdit := nil;
end;

procedure TfrmMJEdit.MJIDKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    with ADOTmp do
    begin
      Close;
      sql.Clear;
      SQL.Add('select A.*,B.C_CODE,B.C_COLOR,C_KUWEI,C_CODENAME,rkplace=(select top 1 rkplace from CK_BanCP_CR b where b.mjid=a.mjid ) from WFB_MJJY A  ');
      SQL.Add('INNER JOIN CK_BanCP_KC B ON A.MJID=B.MJID');
      sql.Add(' where A.MJID=''' + Trim(MJID.Text) + '''');
      Open;
    end;
    if ADOTmp.IsEmpty then
    begin
      MJID.Text := '';
      Label2.Caption := '';
      Label2.Visible := False;
      Application.MessageBox('条码错误!', '提示', 0);
      Exit;
    end;
    FILLTIME.DateTime := ADOTmp.fieldbyname('FILLTIME').ASDATETIME;
    C_CODE.Text := Trim(ADOTmp.fieldbyname('C_CODE').AsString);
    C_COLOR.Text := Trim(ADOTmp.fieldbyname('C_COLOR').AsString);
    C_CODENAME.Text := Trim(ADOTmp.fieldbyname('C_CODENAME').AsString);
    MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
    MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
    MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
    MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
    MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString);
    MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
    JYMF.Text := Trim(ADOTmp.fieldbyname('JYMF').AsString);
    JYKZ.Text := Trim(ADOTmp.fieldbyname('JYKZ').AsString);
    rkplace.Text := Trim(ADOTmp.fieldbyname('C_KUWEI').AsString);
    M.Caption := Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString));
    Ma.Caption := Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString));
    MJFMLen.Text := Trim(Trim(ADOTmp.fieldbyname('MJFMLen').AsString));
    JYNOTE.Text := Trim(Trim(ADOTmp.fieldbyname('JYNOTE').AsString));
    DDBZ.Text := Trim(Trim(ADOTmp.fieldbyname('DDBZ').AsString));
    kj.Text := Trim(Trim(ADOTmp.fieldbyname('kj').AsString));
   { if Trim(m.Caption)='' then
    begin
      m.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString);
    end;
    if Trim(Ma.Caption)='' then
    begin
      Ma.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString);
    end; }
    if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = 'AA' then
    begin
      RadioGroup1.ItemIndex := 0
    end
    else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = 'A' then
    begin
      RadioGroup1.ItemIndex := 1;
    end
    else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '次布' then
    begin
      RadioGroup1.ItemIndex := 2;
    end;
    with ADOTmp do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from WFB_MJJY_CD A   where A.MJID=''' + Trim(MJID.Text) + '''');
      Open;
    end;
    Label2.Caption := Trim(MJID.Text);
    Label2.Visible := True;
    MJID.Text := '';
    SCreateCDS20(ADOTmp, Order_MJ);
    SInitCDSData20(ADOTmp, Order_MJ);

  end;
end;

procedure TfrmMJEdit.tv2CDTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'WFBCD';
      flagname := '疵点';
      if ShowModal = 1 then
      begin
        Self.Order_MJ.Edit;
        Self.Order_MJ.FieldByName('CDName').value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmMJEdit.tv2CDWZPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, CDBeg, CDEnd: string;
  FFReal: Double;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  with Order_MJ do
  begin
    Edit;
    FieldByName('CDBeg').Value := mvalue;
    Post;
  end;
  CDBeg := Trim(Order_MJ.fieldbyname('CDBeg').AsString);
  CDEnd := Trim(Order_MJ.fieldbyname('CDEnd').AsString);
  if (Trim(CDBeg) <> '') and (Trim(CDEnd) <> '') then
  begin
    if TryStrToFloat(CDBeg, FFReal) and TryStrToFloat(CDBeg, FFReal) then
    begin
      if StrToFloat(CDEnd) < StrToFloat(CDBeg) then
      begin
        Application.MessageBox('终止位置小于起始位置!', '提示', 0);
        Exit;
      end;
      with Order_MJ do
      begin
        Edit;
        FieldByName('CDQty').Value := StrToFloat(CDEnd) - StrToFloat(CDBeg);
        Post;
      end;
    end
    else
    begin
      Application.MessageBox('非法数字!', '提示', 0);
      Exit;
    end;
  end;
end;

procedure TfrmMJEdit.v2Column2PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, CDBeg, CDEnd: string;
  FFReal: Double;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  with Order_MJ do
  begin
    Edit;
    FieldByName('CDEnd').Value := mvalue;
    Post;
  end;
  CDBeg := Trim(Order_MJ.fieldbyname('CDBeg').AsString);
  CDEnd := Trim(Order_MJ.fieldbyname('CDEnd').AsString);
  if (Trim(CDBeg) <> '') and (Trim(CDEnd) <> '') then
  begin
    if TryStrToFloat(CDBeg, FFReal) and TryStrToFloat(CDBeg, FFReal) then
    begin
      if StrToFloat(CDEnd) < StrToFloat(CDBeg) then
      begin
        Application.MessageBox('终止位置小于起始位置!', '提示', 0);
        Exit;
      end;
      with Order_MJ do
      begin
        Edit;
        FieldByName('CDQty').Value := StrToFloat(CDEnd) - StrToFloat(CDBeg);
        Post;
      end;
    end
    else
    begin
      Application.MessageBox('非法数字!', '提示', 0);
      Exit;
    end;
  end;
end;

procedure TfrmMJEdit.ToolButton1Click(Sender: TObject);
begin
  if Trim(Label2.Caption) = '' then
    Exit;
  Order_MJ.Append;
  Order_MJ.Post;
end;

procedure TfrmMJEdit.ToolButton2Click(Sender: TObject);
begin
  if Trim(Label2.Caption) = '' then
    Exit;
  if SaveData() then
  begin
    Application.MessageBox('保存成功!', '提示', 0);
    Exit;
  end;
end;

procedure TfrmMJEdit.TBCloseClick(Sender: TObject);
begin
  Close;
  WriteCxGrid('布匹管理', Tv2, '染厂检验管理');
end;

procedure TfrmMJEdit.FormShow(Sender: TObject);
var
  mykey: char;
begin
  ReadCxGrid('布匹管理', Tv2, '染厂检验管理');
  if MJID.Text <> '' then
  begin
    mykey := #13;
    MJIDKeyPress(MJID, mykey);
  end;
end;

procedure TfrmMJEdit.ToolButton4Click(Sender: TObject);
begin
  with ADOTmp do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Label2.Caption) + ''' and CRFlag=''出库''');
    Open;
  end;
  if ADOTmp.IsEmpty = False then
  begin
    Application.MessageBox('已产生出库数据不能删除!', '提示', 0);
    Exit;
  end
  else
  begin
    if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。', '提示', 32 + 4) = IDYES then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('delete WFB_MJJY where MJID=''' + Trim(Label2.Caption) + '''');
        sql.Add('delete CK_BanCP_CR where MJID=''' + Trim(Label2.Caption) + '''');
        sql.Add('delete CK_BanCP_KC where MJID=''' + Trim(Label2.Caption) + '''');
        sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Label2.Caption) + '''');

        sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
        sql.Add(' ' + quotedstr(trim(DName)));
        sql.Add(',getdate() ');
        sql.Add(',' + quotedstr(trim(self.Caption)));
        sql.Add(',' + quotedstr(trim('作废检验数据')));
        sql.Add(',' + quotedstr('卷条码：' + trim(Label2.Caption)));
        sql.Add(',' + quotedstr(trim('成功')));
        sql.Add(')');
        ExecSQL;
      end;
      Label2.Caption := '';
    end;
  end;
end;

procedure TfrmMJEdit.MDblClick(Sender: TObject);
begin
  if trim(M.Caption) = 'M' then
    M.Caption := 'Y'
  else
    M.Caption := 'M';
end;

procedure TfrmMJEdit.ToolButton3Click(Sender: TObject);
begin
  if Trim(Label2.Caption) = '' then
    Exit;
  if Order_MJ.IsEmpty then
    Exit;
  if Trim(Order_MJ.fieldbyname('MCID').AsString) <> '' then
  begin
    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
      Exit;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete WFB_MJJY_CD where MCID=''' + Trim(Order_MJ.fieldbyname('MCID').AsString) + '''');
      ExecSQL;
    end;
  end;
  Order_MJ.Delete;
end;

end.