unit U_BQDY;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
  cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, dxSkinsCore,
  dxSkinsDefaultPainters, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
  cxNavigator, dxDateRanges, Data.DB, cxDBData, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, Vcl.ExtCtrls, Vcl.StdCtrls, Datasnap.DBClient, Data.Win.ADODB,
  dxScrollbarAnnotations;

type
  TfrmBQDY = class(TForm)
    Panel1: TPanel;
    TV1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    CDS_Main: TClientDataSet;
    DataSource1: TDataSource;
    ADOQueryCmd: TADOQuery;
    TV1Column1: TcxGridDBColumn;
    TV1Column2: TcxGridDBColumn;
    TV1Column3: TcxGridDBColumn;
    TV1Column4: TcxGridDBColumn;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    MJXH: TEdit;
    MJQty4: TEdit;
    MJLen: TEdit;
    MJMaoZ: TEdit;
    ADOCmd: TADOQuery;
    ADOTmp: TADOQuery;
    Button2: TButton;
    ADOQueryPrint: TADOQuery;
    Button3: TButton;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Button4: TButton;
    Edit1: TEdit;
    Label21: TLabel;
    Label22: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure MJXHKeyPress(Sender: TObject; var Key: Char);
    procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
    procedure MJLenKeyPress(Sender: TObject; var Key: Char);
    procedure MJMaoZKeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private declarations }
    PState: Integer;
    FFFMJID: string;
    function SaveData(): Boolean;
//    procedure PrtData(FFFMJID: string);
  public
    { Public declarations }
    FBCIOID, FC_Name, FC_Spec, FC_Width, FC_GramWeight, FC_Code, FC_Color, FC_ColorNo, FC_StyleNo, FC_Pattern, FC_Composition, FFromcontractNO, FFromC_ConNo, FFromoperationNO, FFromPurNo,FFromBuyConNoHZ: string;
    FPiece: double;
  end;

var
  frmBQDY: TfrmBQDY;

implementation

uses
  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;




{$R *.dfm}
//procedure TfrmBQDY.PrtData(FFFMJID: string);
//var
//  fPrintFile: string;
//  Txt, fImagePath: string;
//  Moudle: THandle;
//  Makebar: TMakebar;
//  Mixtext: TMixtext;
//begin
//  with ADOQueryPrint do
//  begin
//    Close;
//    SQL.Clear;
//    sql.Add('select A.*,B.* ');
//    sql.Add(' from WFB_MJJY A');
//    sql.Add(' inner join BS_Cloth_IO B On A.BCIOID=B.BCIOID');
//    SQL.Add(' where A.MJID=''' + Trim(FFFMJID) + '''');
//    Open;
//  end;
//
//end;

function TfrmBQDY.SaveData(): Boolean;
var
  maxno, FMJID: string;
begin
//  if PState = 1 then
//    FMJID := ''
//  else if PState = 2 then
//    FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString)
//  else if PState < 1 then
//    Exit;

  result := false;
  if PState = 2 then
  begin
    FMJID := Trim(CDS_Main.fieldbyname('MJID').AsString)
  end;

  try
    ADOCmd.Connection.BeginTrans;
//    ADOCmd.DisableControls;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(FMJID) + '''');
//      showmessage(sql.text);
      Open;
    end;

    with ADOCmd do
    begin
//    if Trim(FMJID) = '' then
//    begin
      Append;
      if GetLSNo(ADOTmp, maxno, 'MJ', 'WFB_MJJY', 4, 1) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('生成流水号异常！', '提示', 0);
        exit;
      end;
//    end
//    else
//    begin
//      maxno := Trim(FMJID);
//      Edit;
//    end;
      FieldByName('MJID').Value := Trim(maxno);
      FieldByName('BCIOID').Value := Trim(FBCIOID);
      FieldByName('MJXH').Value := Trim(MJXH.Text);
      FieldByName('MJQty4').Value := Trim(MJQty4.Text);
      FieldByName('MJLen').Value := strtofloatdef(Trim(MJLen.Text), 0);
      FieldByName('MJMaoZ').Value := strtofloatdef(Trim(MJMaoZ.Text), 0);
      FieldByName('CKflag').Value := '入库';
      FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp);
      Post;
    end;

    FFFMJID := Trim(maxno);
    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    Result := False;
    ADOCmd.Connection.RollbackTrans;
//    ADOCmd.EnableControls;
    Application.MessageBox('保存失败！', '提示', 0);
  end;

end;

procedure TfrmBQDY.Button1Click(Sender: TObject);
begin
  if SaveData() then
  begin
//    Application.MessageBox('保存成功!', '提示', 0);
    //ModalResult:=1;
//    Exit;
  end
  else
    exit;
  Button2.Click;

  if Trim(Edit1.Text) = '√' then
  begin
    try
      frmLabelPrint := TfrmLabelPrint.Create(Application);
      with frmLabelPrint do
      begin
        FLMType := 'bqPrint';
//      FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
        FFiltration1 := QuotedStr(Trim(FFFMJID));
//      FFiltration1 :=  FFFMJID ;
        if ShowModal = 1 then
        begin
//        Self.InitGrid();
        end;
      end;
    finally
      frmLabelPrint.Free;
    end;
  end;


//  if Key = #13 then
//  begin
  MJXH.SetFocus;
//  end;
//  PrtData(FFFMJID);


end;

procedure TfrmBQDY.Button2Click(Sender: TObject);
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      sql.Add('select ');

      sql.Add(' A.* from WFB_MJJY A where BCIOID=''' + Trim(FBCIOID) + '''');
      sql.Add(' order by FillTime desc');
      Open;
    end;
//    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS(ADOQueryMain, CDS_Main);
    SInitCDSData(ADOQueryMain, CDS_Main);

  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmBQDY.Button3Click(Sender: TObject);
begin
  if CDS_Main.IsEmpty then
    exit;

  if Application.MessageBox('确定要删除数据吗？删除后数据不能恢复。', '提示', 32 + 4) <> IDYES then
    Exit;
//

  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.add('insert into WFB_MJJY_DEL select * from WFB_MJJY where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' ');
    sql.Add('DELETE from  WFB_MJJY where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' ');

    ExecSQL;
  end;
  Button2.Click;

end;

procedure TfrmBQDY.Button4Click(Sender: TObject);
begin
  try
    frmLabelPrint := TfrmLabelPrint.Create(Application);
    with frmLabelPrint do
    begin
      FLMType := 'bqPrint';
//      FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
      FFiltration1 := QuotedStr(Trim(CDS_Main.fieldbyname('MJID').AsString));
//      FFiltration1 :=  FFFMJID ;
      if ShowModal = 1 then
      begin
//        Self.InitGrid();
      end;
    end;
  finally
    frmLabelPrint.Free;
  end;
end;

procedure TfrmBQDY.Edit1Click(Sender: TObject);
begin
  if Trim(Edit1.Text) = '' then
  begin
    Edit1.Text := '√';
  end
  else
  begin
    Edit1.Text := '';
  end;
end;

procedure TfrmBQDY.FormShow(Sender: TObject);
begin
  Label1.Caption := '入库单号:' + FBCIOID;
  Label17.Caption := '合同号:' + FFromPurNo;
  Label18.Caption := '合同编号:' + FFromcontractNO;
  Label19.Caption := '明细合同号:' + FFromC_ConNo;
  Label20.Caption := '作业单号:' + FFromoperationNO;
  Label22.Caption := '总客户单号:' + FFromBuyConNoHZ;
  Label2.Caption := '品名:' + FC_Name;
  Label3.Caption := '规格:' + FC_Spec;
  Label4.Caption := '门幅:' + FC_Width;
  Label5.Caption := '克重:' + FC_GramWeight;
  Label6.Caption := '成分:' + FC_Composition;
  Label7.Caption := '编号:' + FC_Code;
  Label8.Caption := '匹数:' + floattostr(FPiece);
  Label9.Caption := '颜色:' + FC_Color;
  Label10.Caption := '色号:' + FC_ColorNo;
  Label11.Caption := '款号:' + FC_StyleNo;
  Label12.Caption := '花型:' + FC_Pattern;

  Button2.Click;
  MJXH.SetFocus;

end;

procedure TfrmBQDY.MJLenKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    MJMaoZ.SetFocus;
  end;
end;

procedure TfrmBQDY.MJMaoZKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Button1.Click;
  end;
end;

procedure TfrmBQDY.MJQty4KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    MJLen.SetFocus;
  end;
end;

procedure TfrmBQDY.MJXHKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    MJQty4.SetFocus;
  end;
end;

end.