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

unit U_CGMian;

interface

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

type
  TfrmCGMian = class(TForm)
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    CRTime: TDateTimePicker;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1CodeName: TcxGridDBColumn;
    v1Qty: TcxGridDBColumn;
    v1Note: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    ADOQueryCmd: TADOQuery;
    ADOQueryTmp: TADOQuery;
    DataSource1: TDataSource;
    CDS_Main: TClientDataSet;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label6: TLabel;
    Label9: TLabel;
    v1MF: TcxGridDBColumn;
    v1KZ: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    Label2: TLabel;
    JHDate: TDateTimePicker;
    Label3: TLabel;
    Note: TMemo;
    Tv1Column1: TcxGridDBColumn;
    GYSName: TBtnEditA;
    ADOCmd: TADOQuery;
    ADOTemp: TADOQuery;
    ADOQuery1: TADOQuery;
    Tv1Column2: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column5: TcxGridDBColumn;
    Tv1Column6: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure v1P_ColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
    procedure fromFactoryNameBtnClick(Sender: TObject);
    procedure kuweiBtnClick(Sender: TObject);
    procedure v1NotePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PRTSpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure FactoryNameBtnClick(Sender: TObject);
    procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton3Click(Sender: TObject);
    procedure v1CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure RangchangBtnClick(Sender: TObject);
    procedure GYSNameBtnClick(Sender: TObject);
    procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
  private
    procedure InitGrid();
    procedure SetFrom();
    function savedate(): Boolean;
    function CheckData(): Boolean;
    { Private declarations }
  public
    fkeyNO: string;
    FType, PState: integer;
    fCRType, FZZType: string;
    FMainId, FFMainId: string;
    { Public declarations }
  end;

var
  frmCGMian: TfrmCGMian;

implementation

uses
  U_DataLink, U_Fun10, U_ZDYHelp, U_GYSList, U_RTFun, U_BPZDY_LRM,
  U_ProductOrderNewList_New2, U_MCP;
{$R *.dfm}

function TfrmCGMian.CheckData(): Boolean;
begin
  try

    if Trim(GYSName.Text) = '' then
      raise Exception.Create('<27><>Ӧ<EFBFBD>̲<EFBFBD><CCB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    if CDS_Main.IsEmpty then
      raise Exception.Create('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');

    if CDS_Main.Locate('CPName', null, []) then
      raise Exception.Create('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    if CDS_Main.Locate('CPName', '', []) then
      raise Exception.Create('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');

    if CDS_Main.Locate('PS', null, []) then
      raise Exception.Create('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    if CDS_Main.Locate('PS', 0, []) then
      raise Exception.Create('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0<CEAA><30>');

    if CDS_Main.Locate('Qty', null, []) then
      raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
    if CDS_Main.Locate('Qty', 0, []) then
      raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0<CEAA><30>');

    Result := True;
  except
    Result := false;
    application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmCGMian.SetFrom();
begin

end;

function TfrmCGMian.savedate(): Boolean;
var
  maxno, maxmnno, FSSId: string;
  fconNO, fmxType: string;
begin
  try
    ADOCmd.Connection.BeginTrans;
    ///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if Trim(FMainId) = '' then
    begin
      if GetLSNoHZ(ADOCmd, maxno, 'CG', 'CG_Main', 3, 1, 3) = 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 CG_Main where CGID=''' + Trim(FMainId) + '''');
      Open;
    end;
    with ADOCmd do
    begin
      if Trim(FMainId) = '' then
      begin
        Append;
      end
      else
      begin
        Edit;
      end;
      FieldByName('CGID').Value := Trim(maxno);
      RTSetsavedata(ADOCmd, 'CG_Main', Panel1, 2);

      if Trim(FMainId) = '' then
      begin
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
      end;
      Post;
    end;

    FMainId := Trim(maxno);
    ///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
    CDS_Main.DisableControls;
    with CDS_Main do
    begin
      First;
      while not Eof do
      begin
        if Trim(CDS_Main.fieldbyname('CGSID').AsString) = '' then
        begin
          if GetLSNo(ADOCmd, maxno, 'CGS', 'CG_Sub', 4, 1) = False then
          begin
            CDS_Main.EnableControls;
            ADOCmd.Connection.RollbackTrans;
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
            Exit;
          end;
        end
        else
        begin
          maxno := Trim(CDS_Main.fieldbyname('CGSID').AsString);
        end;
        with ADOCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from CG_Sub ');
          sql.Add(' where CGSID=''' + Trim(maxno) + '''');
          Open;
        end;
        if ADOCmd.IsEmpty then
        begin
          FSSId := '';
        end
        else
        begin
          FSSId := Trim(maxno);
        end;
        with ADOCmd do
        begin
          if Trim(FSSId) = '' then
          begin
            Append;
            FieldByName('Filler').Value := Trim(DName);
          end
          else
          begin
            Edit;
            FieldByName('Editer').Value := Trim(DName);
            FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
          end;
          FieldByName('CGID').Value := Trim(FMainId);
          FieldByName('CGSID').Value := Trim(maxno);
          FieldByName('MainID').Value := Trim(CDS_Main.FieldByName('MainID').AsString);
          FieldByName('SubID').Value := Trim(CDS_Main.FieldByName('SubID').AsString);
          FieldByName('ConNo').Value := Trim(CDS_Main.FieldByName('ConNo').AsString);
          RTSetSaveDataCDS(ADOCmd, Tv1, CDS_Main, 'CG_Sub', 0);
          Post;
        end;
        CDS_Main.Edit;
        CDS_Main.FieldByName('CGSID').Value := Trim(maxno);
        Next;
      end;
    end;
    CDS_Main.EnableControls;
    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
    Result := False;
  end;
end;

procedure TfrmCGMian.InitGrid();
begin

  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    if PState = 1 then
    begin
      sql.Add(' select A.*  ');
      sql.Add(' from CG_Sub A');
      sql.Add('where CGID=''' + Trim(FMainId) + '''');
    end;
    if PState = 0 then
    begin
      sql.Add(' select A.*  ');
      sql.Add(' from CG_Sub A');
      sql.Add(' where 1<>1');

    end;
    Open;
  end;
  SCreateCDS20(ADOQuery1, CDS_Main);
  SInitCDSData20(ADOQuery1, CDS_Main);

  if PState = 0 then
  begin
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      sql.Add(' select CPName=Value1,KZ=Value2,GYSCPName=Value3,MF=Value4,PS=PSHZ,Qty=QtyHZ ');
      sql.Add(' from TbForBatch where MainType=''<27>޲ɹ<DEB2>'' and DName =''' + Trim(DName) + '''');
      Open;
    end;
    with ADOQuery1 do
    begin
      First;
      while not Eof do
      begin
        with CDS_Main do
        begin
          append;
          FieldbyName('CPName').Value := Trim(ADOQuery1.fieldbyname('CPName').AsString);
          FieldbyName('GYSCPName').Value := Trim(ADOQuery1.fieldbyname('GYSCPName').AsString);
          FieldbyName('KZ').Value := Trim(ADOQuery1.fieldbyname('KZ').AsString);
          FieldbyName('MF').Value := Trim(ADOQuery1.fieldbyname('MF').AsString);
          if ADOQuery1.fieldbyname('ps').AsInteger < 0 then
          begin
            FieldbyName('ps').Value := ADOQuery1.fieldbyname('ps').AsInteger * - 1;
          end
          else
          begin
            FieldbyName('ps').Value := ADOQuery1.fieldbyname('ps').AsInteger;
          end;
          if ADOQuery1.fieldbyname('Qty').AsFloat < 0 then
          begin
            FieldbyName('Qty').Value := ADOQuery1.fieldbyname('Qty').AsFloat * - 1;
          end
          else
          begin
            FieldbyName('Qty').Value := ADOQuery1.fieldbyname('Qty').AsFloat;
          end;
          post;
        end;
        Next;
      end;
    end;
  end;

  with ADOQuery1 do
  begin
    Close;
    sql.Clear;
    sql.Add('select A.* ');
    sql.Add(' from CG_Main A');
    sql.Add(' where CGID=''' + Trim(FMainId) + ''' ');
    Open;
  end;
  SCSHDataNew(ADOQuery1, Panel1, 2);

end;

procedure TfrmCGMian.FormDestroy(Sender: TObject);
begin
  frmCGMian := nil;
end;

procedure TfrmCGMian.FormCreate(Sender: TObject);
begin
  CRTime.Date := SGetServerDate10(ADOQueryTmp);
  JHDate.Date := SGetServerDate10(ADOQueryTmp);
end;

procedure TfrmCGMian.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  writeCxGrid(self.Caption + tv1.Name + '2', Tv1, '<27>ɹ<EFBFBD><C9B9><EFBFBD>');
  Action := cahide;
end;

procedure TfrmCGMian.FormShow(Sender: TObject);
begin
  readCxGrid(self.Caption + tv1.Name + '2', Tv1, '<27>ɹ<EFBFBD><C9B9><EFBFBD>');
  InitGrid();
end;

procedure TfrmCGMian.TBSaveClick(Sender: TObject);
begin

  CRTime.SetFocus;
  if CheckData() = false then
    exit;

  if savedate() then
  begin
    application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
    ModalResult := 1;
  end
  else
  begin
    application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
  end;
end;

procedure TfrmCGMian.ToolButton1Click(Sender: TObject);
begin
//  with CDS_Main do
//  begin
//    append;
//    FieldbyName('ps').Value := 0;
//    FieldbyName('Qty').Value := 0;
//    post;
//  end;

  frmMCP := TfrmMCP.create(self);
  with frmMCP do
  begin
    flag := 'MName';
    flagName := '<27><>';
    ViewFlag := true;
    Panel4.Align := alClient;
    ToolBar3.Visible := false;
    Button1.Visible := False;
    if ShowModal = 1 then
    begin
      Self.CDS_Main.append;
      Self.CDS_Main.FieldByName('CPName').Value := Trim(ClientDataSet1.fieldbyname('BPName').AsString);
      Self.CDS_Main.FieldByName('GYSCPName').Value := Trim(ClientDataSet1.fieldbyname('CPName').AsString);
      Self.CDS_Main.FieldByName('MF').Value := Trim(ClientDataSet1.fieldbyname('BPMF').AsString);
      Self.CDS_Main.FieldByName('KZ').Value := Trim(ClientDataSet1.fieldbyname('BPKZ').AsString);
      Self.CDS_Main.FieldByName('FLNote').Value := Trim(ClientDataSet1.fieldbyname('BPNote').AsString);
      Self.CDS_Main.FieldByName('PMHH').Value := Trim(ClientDataSet1.fieldbyname('PMHH').AsString);
      Self.CDS_Main.FieldbyName('ps').Value := 0;
      Self.CDS_Main.FieldbyName('Qty').Value := 0;
    end;
    free;
  end;

end;

procedure TfrmCGMian.ToolButton2Click(Sender: TObject);
begin
  if CDS_Main.IsEmpty then
    exit;
  if Trim(CDS_Main.FieldByName('CGSID').AsString) = '' then
  begin
    CDS_Main.Delete;
  end
  else
  begin
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('update CG_Sub set CGID=CGID+''ɾ'' where CGSID=' + quotedstr(Trim(CDS_Main.FieldByName('CGSID').AsString)));
      ExecSQL;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    CDS_Main.Delete;
  end;
end;

procedure TfrmCGMian.TBCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmCGMian.v1P_ColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrdColor';
      flagname := '<27><>ɫ';
      V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      MainType := Trim(DName);
      fnote := True;
      if ShowModal = 1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('P_Color').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        Self.CDS_Main.Post;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  self.tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCGMian.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_Main do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    FieldbyName('PS').Value := format('%.0f', [FieldByName('Qty').AsFloat / FieldByName('PiChang').AsFloat]);
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCGMian.fromFactoryNameBtnClick(Sender: TObject);
begin
//  if Trim(CRType.Text) = '<27>͹<EFBFBD><CDB9><EFBFBD><EFBFBD><EFBFBD>' then
//  begin
//    try
//      frmZdyAttachment := TfrmZdyAttachment.Create(Application);
//      with frmZdyAttachment do
//      begin
//        if ShowModal = 1 then
//        begin
//          fromFactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
//        end;
//      end;
//    finally
//      frmZdyAttachment.Free;
//    end;
//  end
//  else
//  begin
//    try
//      frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
//      with frmZdyAttachGYS do
//      begin
//        if ShowModal = 1 then
//        begin
//          fromFactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
//        end;
//      end;
//    finally
//      frmZdyAttachGYS.Free;
//    end;
//  end;

  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'LaiZiDW';
      flagname := '<27><><EFBFBD>Ե<EFBFBD>λ';
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;

end;

procedure TfrmCGMian.kuweiBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'kuwei';
      flagname := '<27><>λ';
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCGMian.v1NotePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'WJGRKNote';
      flagname := '<27><>ע';

      if ShowModal = 1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('Note').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        Self.CDS_Main.Post;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  self.tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmCGMian.v1PRTSpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'flSPEC';
      flagname := '<27><><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('SPEC').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCGMian.FactoryNameBtnClick(Sender: TObject);
begin
//  try
//    frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
//    with frmZdyAttachGYS do
//    begin
//      if ShowModal = 1 then
//      begin
//        FactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
//      end;
//    end;
//  finally
//    frmZdyAttachGYS.Free;
//  end;
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'CunFangCangKu';
      flagname := '<27><><EFBFBD>Ųֿ<C5B2>';
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCGMian.v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'FLqtyUnit';
      flagname := '<27><>λ';
      if ShowModal = 1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('qtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCGMian.ToolButton3Click(Sender: TObject);
var
  MaxNo: string;
begin

  if CDS_Main.IsEmpty then
    exit;
  CopyAddRowCDS(CDS_Main);

  with CDS_Main do
  begin
    edit;
    FieldbyName('CRID').Value := '';
    post;
  end;

end;

procedure TfrmCGMian.v1CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  frmMCP := TfrmMCP.create(self);
  with frmMCP do
  begin
    flag := 'MName';
    flagName := '<27><>';
    ViewFlag := true;
    Panel4.Align := alClient;
    ToolBar3.Visible := false;
    Button1.Visible := False;
    if ShowModal = 1 then
    begin
      Self.CDS_Main.Edit;
      Self.CDS_Main.FieldByName('CPName').Value := Trim(ClientDataSet1.fieldbyname('BPName').AsString);
      Self.CDS_Main.FieldByName('GYSCPName').Value := Trim(ClientDataSet1.fieldbyname('CPName').AsString);
      Self.CDS_Main.FieldByName('MF').Value := Trim(ClientDataSet1.fieldbyname('BPMF').AsString);
      Self.CDS_Main.FieldByName('KZ').Value := Trim(ClientDataSet1.fieldbyname('BPKZ').AsString);
      Self.CDS_Main.FieldByName('FLNote').Value := Trim(ClientDataSet1.fieldbyname('BPNote').AsString);
      Self.CDS_Main.FieldByName('PMHH').Value := Trim(ClientDataSet1.fieldbyname('PMHH').AsString);
    end;
    free;
  end;

end;

procedure TfrmCGMian.RangchangBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'Rangchang';
      flagname := 'Ⱦ<><C8BE>';
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmCGMian.GYSNameBtnClick(Sender: TObject);
begin
  try
    frmGYSList := TfrmGYSList.Create(Application);
    with frmGYSList do
    begin
      KHType.Text := '<27>޳<EFBFBD>';
      KHType.TxtCode := '<27>޳<EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.GYSName.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHName').AsString);
      end;
    end;
  finally
    frmGYSList.Free;
  end;
end;

procedure TfrmCGMian.Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmProductOrderNewList_New2 := TfrmProductOrderNewList_New2.Create(Application);
    with frmProductOrderNewList_New2 do
    begin
      if ShowModal = 1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('OrderNo').Value := Trim(Order_Main.fieldbyname('MLOrderNo').AsString);
        Self.CDS_Main.FieldByName('ConNo').Value := Trim(Order_Main.fieldbyname('MLConNo').AsString);
        Self.CDS_Main.FieldByName('MainID').Value := Trim(Order_Main.fieldbyname('NewMLID').AsString);
        Self.CDS_Main.FieldByName('SubID').Value := Trim(Order_Main.fieldbyname('NewSubid').AsString);
        Self.CDS_Main.FieldByName('KHNO').Value := Trim(Order_Main.fieldbyname('KHNO').AsString);
      end;
    end;
  finally
    frmProductOrderNewList_New2.Free;
  end;
end;

end.