D7myYunxiang/云翔生产管理(MYSC.dll)/U_JYOrderTestReportInPut.pas

unit U_JYOrderTestReportInPut;

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, cxCalendar,StrUtils, cxDropDownEdit,jpeg,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
  cxGridCustomPopupMenu, cxGridPopupMenu;

type
  TfrmJYOrderTestReportInPut = class(TForm)
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    ScrollBox1: TScrollBox;
    ADOTemp: TADOQuery;
    ADOCmd: TADOQuery;
    ADOQuery1: TADOQuery;
    TBSave: TToolButton;
    Panel3: TPanel;
    Label33: TLabel;
    Label34: TLabel;
    OrderNo: TEdit;
    CPCode: TEdit;
    Label5: TLabel;
    KHName: TEdit;
    Label11: TLabel;
    Label13: TLabel;
    TRDate: TDateTimePicker;
    Label10: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    ShuiXiSuoLvJG: TEdit;
    ShuiXiSuoLv: TEdit;
    Label2: TLabel;
    NiuXie: TEdit;
    Label4: TLabel;
    ShuiXiZaoXi: TEdit;
    Label6: TLabel;
    MoCaSeLaoDu: TEdit;
    Label7: TLabel;
    LvPiaoSeLaoDu: TEdit;
    Label8: TLabel;
    RiShaiLaoDu: TEdit;
    Label9: TLabel;
    Label12: TLabel;
    PHZhi: TEdit;
    Label14: TLabel;
    QiTaXiangMu: TEdit;
    NiuXieJG: TEdit;
    ShuiXiZaoXiJG: TEdit;
    MoCaSeLaoDuJG: TEdit;
    LvPiaoSeLaoDuJG: TEdit;
    RiShaiLaoDuJG: TEdit;
    PHZhiJG: TEdit;
    QiTaXiangMuJG: TEdit;
    Label15: TLabel;
    ShaZhi: TEdit;
    Label16: TLabel;
    ZhenZhiTanXing: TEdit;
    Label17: TLabel;
    ChengFen: TEdit;
    Label18: TLabel;
    NaiMo: TEdit;
    Label19: TLabel;
    Label20: TLabel;
    QiQiu: TEdit;
    Label21: TLabel;
    HuiCHaoLv: TEdit;
    ShaZhiJG: TEdit;
    ZhenZhiTanXingJG: TEdit;
    ChengFenJG: TEdit;
    NaiMoJG: TEdit;
    QiQiuJG: TEdit;
    HuiCHaoLvJG: TEdit;
    Label22: TLabel;
    ZhangPo: TEdit;
    Label23: TLabel;
    RanShao: TEdit;
    Label24: TLabel;
    JiaQuan: TEdit;
    ZhangPoJG: TEdit;
    RanShaoJG: TEdit;
    JiaQuanJG: TEdit;
    GDPerson: TBtnEditA;
    FactoryName: TBtnEditA;
    Label25: TLabel;
    CaiYongBiaoZhun: TBtnEditA;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure OrderNoExit(Sender: TObject);
    procedure ShuiXiSuoLvClick(Sender: TObject);
    procedure ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GDPersonBtnClick(Sender: TObject);
    procedure FactoryNameBtnClick(Sender: TObject);
    procedure CaiYongBiaoZhunBtnClick(Sender: TObject);
  private
    procedure InitData();
    function  SaveData():Boolean;
    { Private declarations }
  public
    canshu1:String;
    PState,CopyInt:Integer;
    FMainId:String;
    FRead:String;
    { Public declarations }
  end;

var
  frmJYOrderTestReportInPut: TfrmJYOrderTestReportInPut;
implementation
uses
  U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel, U_GYSList;

{$R *.dfm}

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

procedure TfrmJYOrderTestReportInPut.InitData();
begin
  with ADOQuery1 do
  begin
    Close;
    sql.Clear;
    sql.Add(' select * ');
    sql.Add(' from Test_Report   ');
    sql.Add(' where TRId='''+Trim(FMainId)+'''');
    Open;
  end;
  SCSHDataNew(ADOQuery1,Panel3,2);
  SCSHDataNew(ADOQuery1,Panel1,2);
  if PState=0 then
  begin
    TRDate.Date:=SGetServerDate(ADOTemp);
  end;
end;


procedure TfrmJYOrderTestReportInPut.FormShow(Sender: TObject);
begin
  InitData();
  if TBSave.Visible=False then
  begin
    FactoryName.Enabled:=False;
    GDPerson.Enabled:=False;
    CaiYongBiaoZhun.Enabled:=False;
  end;
end;

function TfrmJYOrderTestReportInPut.SaveData():Boolean;
var
  maxno:String;
begin
  Result:=False;
  try
    ADOCmd.Connection.BeginTrans;
    ///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if Trim(FMainId)='' then
    begin
      if GetLSNoHZ(ADOCmd,maxno,'TR','Test_Report',3,1,1)=False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
        Exit;
      end;
    end else
    begin
      maxno:=Trim(FMainId);
    end;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from Test_Report where TRId='''+Trim(FMainId)+'''');
      Open;
    end;
    with ADOCmd do
    begin
      if Trim(FMainId)='' then
      begin
        Append;
      end
      else begin
        Edit;
      end;
      FieldByName('TRId').Value:=Trim(maxno);
      if Trim(FMainId)='' then
      begin
        FieldByName('Filler').Value:=Trim(DName);
        FieldByName('FillerCode').Value:=Trim(DCode);
      end else
      begin
        FieldByName('Editer').Value:=Trim(DName);
        FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
      end;
      if Trim(FRead)<>'' then
      begin
        FieldByName('CeShiPerson').Value:=Trim(DName);
        FieldByName('CeShitime').Value:=SGetServerDateTime(ADOTemp);
      end;
      RTSetsavedata(ADOCmd,'Test_Report',Panel3,2);
      RTSetsavedata(ADOCmd,'Test_Report',Panel1,2);
      Post;
    end;
    with ADOTemp do
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Test_Report where OrderNo='''+Trim(OrderNo.Text)+'''');
      sql.Add(' and FactoryName='''+Trim(FactoryName.Text)+'''');
      open;
    end;
    if ADOTemp.RecordCount>1 then
    begin

      if Application.MessageBox('<27>˶<EFBFBD><CBB6><EFBFBD><EFBFBD>Ŵ˹<C5B4><CBB9><EFBFBD><EFBFBD>ѵǼ<D1B5>!ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then
      begin
        ADOCmd.Connection.RollbackTrans;
        Exit;
      end;

    end;
    ADOCmd.Connection.CommitTrans;
    FMainId:=Trim(maxno);
    Result:=True;
  except
    Result:=False;
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
  end;
end;

procedure TfrmJYOrderTestReportInPut.TBSaveClick(Sender: TObject);
var
  FReal:Double;
begin
  ToolBar1.SetFocus;
  if Trim(OrderNo.Text)='' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  with ADOTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+'''');
    Open;
  end;
  if ADOTemp.IsEmpty then
  begin
    Application.MessageBox('<27>˶<EFBFBD><CBB6><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD>ڣ<EFBFBD>','<27><>ʾ',0);
    Exit;
  end;
  if Trim(KHName.Text)='' then
  begin
    Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
    Exit;
  end;
  if Trim(CPCode.Text)='' then
  begin
    Application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
    Exit;
  end;
  if Trim(FactoryName.Text)='' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
    Exit;
  end;
  if Trim(GDPerson.Text)='' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
    Exit;
  end;
  if SaveData() then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
  end;
end;

procedure TfrmJYOrderTestReportInPut.OrderNoExit(Sender: TObject);
begin
  with ADOTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select A.MPRTCodeName,A.MPRTCode,A.MPRTMF,A.MPRTKZ,A.CustomerNoName,A.MPRTGY'  );
    sql.Add(' from JYOrder_Main A');
    sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+'''');
    Open;
  end;
  CPCode.Text:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+Trim(ADOTemp.fieldbyname('MPRTGY').AsString);
  KHName.Text:=Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
end;

procedure TfrmJYOrderTestReportInPut.ShuiXiSuoLvClick(Sender: TObject);
begin
  if Trim(TEdit(Sender).Text)='' then
  begin
    TEdit(Sender).Text:='<27><>';
  end else
  begin
    TEdit(Sender).Text:='';
  end;
end;

procedure TfrmJYOrderTestReportInPut.ShuiXiSuoLvJGMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Trim(FRead)='' then
  begin
    TEdit(Sender).ReadOnly:=True;
  end else
  begin
    TEdit(Sender).ReadOnly:=False;
  end;
end;

procedure TfrmJYOrderTestReportInPut.GDPersonBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='PFGenDanPerson';
      flagname:='<27><><EFBFBD><EFBFBD>Ա';
      fnote:=True;
      V1Note.Caption:='<27>绰';
      if ShowModal=1 then
      begin
        GDPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmJYOrderTestReportInPut.FactoryNameBtnClick(Sender: TObject);
begin
  try
    frmGYSList:=TfrmGYSList.Create(Application);
    with frmGYSList do
    begin
      if ShowModal=1 then
      begin
        FactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
      end;
    end;
  finally
    frmGYSList.Free;
  end;
end;

procedure TfrmJYOrderTestReportInPut.CaiYongBiaoZhunBtnClick(
  Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='CaiYongBiaoZhun';
      flagname:='<27><><EFBFBD>ñ<EFBFBD>׼<EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal=1 then
      begin
        CaiYongBiaoZhun.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

end.