D10myYicheng/染整计划(DyeingFinishingPlan.dll)/U_ConLBNameSet.pas

unit U_ConLBNameSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
  RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit,
  cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
  U_BaseList;

type
  TfrmConLBNameSet = class(TfrmBaseList)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    Label1: TLabel;
    Tv1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    v1OrderNo: TcxGridDBColumn;
    v1OrdDate: TcxGridDBColumn;
    v1DeliveryDate: TcxGridDBColumn;
    v1MPRTSpec: TcxGridDBColumn;
    Order_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    Label4: TLabel;
    BuyName: TEdit;
    v1MPRTCodeName: TcxGridDBColumn;
    v1MPRTMF: TcxGridDBColumn;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ToolButton1: TToolButton;
    Label8: TLabel;
    SCSName: TEdit;
    Label9: TLabel;
    ConNo: TEdit;
    v1MPRTKZ: TcxGridDBColumn;
    v1OrdDefStr1: TcxGridDBColumn;
    Label10: TLabel;
    SCSColor: TEdit;
    Label11: TLabel;
    SCSCode: TEdit;
    Label12: TLabel;
    SCSKZ: TEdit;
    Label13: TLabel;
    SCSMF: TEdit;
    ADOQueryPrint: TADOQuery;
    CDS_Print: TClientDataSet;
    v1Column4: TcxGridDBColumn;
    v1Column1: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    PiZhong: TEdit;
    ToolButton4: TToolButton;
    v1Column3: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    ToolButton5: TToolButton;
    v1Column6: TcxGridDBColumn;
    v1Column7: TcxGridDBColumn;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    v1Column8: TcxGridDBColumn;
    ToolButton8: TToolButton;
    v1Column9: TcxGridDBColumn;
    ADOQueryCmdSC: TADOQuery;
    ADOQueryCmdFileContent: TBlobField;
    ADOQueryCmdFtFileName: TStringField;
    ADOQueryCmdFileEditDate: TDateTimeField;
    ADOQueryCmdFileSize: TFloatField;
    ADOQueryCmdFiller: TStringField;
    ADOQueryCmdLastEditTime: TDateTimeField;
    ADOQueryCmdLastEditer: TStringField;
    ADOQueryCmdFileCreateDate: TDateTimeField;
    ADOQueryCmdchildPath: TStringField;
    ADOQueryCmdFileType: TStringField;
    Tv1Column1: TcxGridDBColumn;
    ToolButton9: TToolButton;
    Tv1Column2: TcxGridDBColumn;
    ToolButton10: TToolButton;
    Tv1Column3: TcxGridDBColumn;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column5: TcxGridDBColumn;
    Tv1Column6: TcxGridDBColumn;
    Tv1Column7: TcxGridDBColumn;
    Tv1Column8: TcxGridDBColumn;
    Label2: TLabel;
    SCSColorNo: TEdit;
    Label3: TLabel;
    Label5: TLabel;
    SCSHX: TEdit;
    SCSKHHX: TEdit;
    Label6: TLabel;
    BuyConNoMX: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure OrderNoMChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
    procedure v1Column1PropertiesEditValueChanged(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure v1Column6PropertiesEditValueChanged(Sender: TObject);
    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure v1Column8PropertiesChange(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure BuyNameKeyPress(Sender: TObject; var Key: Char);
    procedure ConNoChange(Sender: TObject);
  private
    DQdate: TDateTime;
    procedure InitGrid();
    procedure InitForm();
    function UPLabel(LabelName, LabelPath: string): Boolean;
    function PostFileToData(LabelName, LabelPath: string): boolean;
    { Private declarations }
  public
    FFInt, FCloth: Integer;
    canshu1: string;
    { Public declarations }
  end;

var
  newh: hwnd;

implementation

uses
  U_DataLink, U_OrderInPut, U_RTFun, U_LabelList;

{$R *.dfm}
function TfrmConLBNameSet.PostFileToData(LabelName, LabelPath: string): boolean;
var
  mFileName, fFileName, fpathFileName: string;
  Stream: TMemoryStream;
  mfileSize: integer;
  mCreationTime: TdateTime;
  mWriteTime: TdateTime;
//  ADOQueryCmdFileContent: TBlobField;
begin
  result := false;
  fFileName := Trim(LabelName) + '.rmf';
  fpathFileName := Trim(LabelPath);
  try
    ADOQueryCmdSC.Connection.BeginTrans;
    try
      with ADOQueryCmdSC do
      begin
        close;
        sql.Clear;
        sql.Add('delete  from RT_FileUpdate');
        sql.Add('where FileName=' + quotedStr(trim(fFileName)));
        execsql;
      end;
      with ADOQueryCmdSC do
      begin
        close;
        sql.Clear;
        sql.Add('select * from RT_FileUpdate');
        sql.Add('where FileName=' + quotedStr(trim(fFileName)));
        Open;
        //////////////////////////
        //<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
        GetFileInfo(Trim(fpathFileName), mfileSize, mCreationTime, mWriteTime);

        if RecordCount <= 0 then
        begin
          Append;
          fieldByName('FileName').AsString := trim(fFileName);
        end
        else
        begin
          edit;
        end;

        fieldByName('FileEditDate').Value := mWriteTime;
        fieldByName('FileCreateDate').Value := mCreationTime;
        fieldByName('FileSize').Value := mfileSize;
        fieldByName('Filler').Value := Dname;
        fieldByName('LastEditer').Value := Dname;
        fieldByName('LastEditTime').Value := Now();
//        if pos('.rmf',fFileName)>0 then
        begin
          fieldByName('FilePath').Value := 'report';
          fieldByName('FileType').Value := '<27><><EFBFBD><EFBFBD>';
        end;

        //<2F><>OLE<4C><45><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD>
        RM1.SaveToBlobField(TBlobField(FieldByName('Files')));

//        ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
        //ADOQueryCmdFileContent.LoadFromStream(Stream);

        post;
      end;
    finally
    end;
    result := true;
    ADOQueryCmdSC.Connection.CommitTrans;
  except
    ADOQueryCmdSC.Connection.RollbackTrans;
    Result := False;
    application.MessageBox(pchar('<27>ύ<EFBFBD>ļ<EFBFBD>[' + trim(fFileName) + ']ʧ<><CAA7>!'), '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
  end;

end;

function TfrmConLBNameSet.UPLabel(LabelName, LabelPath: string): Boolean;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.Add('select * from P_Label');
      sql.Add('where LabelCaption=' + quotedstr(LabelName));
      Open;
      if ADOQueryCmd.IsEmpty then
      begin
        Append;
        fieldByName('filler').value := DName;
        fieldByName('filltime').value := DServerDate;
        fieldByName('beizhu').value := '';
        fieldByName('LabelCaption').value := trim(LabelPath);
        fieldByName('LabelType').value := '<27><><EFBFBD>ı<EFBFBD>ǩ';
        fieldByName('LabelFileName').value := trim(LabelName);
        RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
      end
      else
      begin
        Edit;
        fieldByName('Editer').value := DName;
        fieldByName('EditTime').value := DServerDate;
      end;
      RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
      Post;
    end;

    ADOQueryCmd.Connection.CommitTrans;
    result := true;
  except
    ADOQueryCmd.Connection.RollbackTrans;
    Result := false;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
  end;
end;

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

procedure TfrmConLBNameSet.FormCreate(Sender: TObject);
begin
  inherited;
  cxgrid1.Align := alClient;
  //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
  //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
  DQdate := SGetServerDate(ADOQueryTemp);
end;

procedure TfrmConLBNameSet.TBCloseClick(Sender: TObject);
begin
  Close;
  WriteCxGrid('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure TfrmConLBNameSet.InitGrid();
var
  fwhere, Pwhere: string;
begin
  Pwhere := SGetFilters(Panel1, 1, 2);

  begin
    if trim(Pwhere) <> '' then
      fwhere := fwhere + ' and ' + trim(Pwhere);
  end;

  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      sql.add('select AA.*       ');
      sql.add(' from     ');
      sql.add(' (select  A.ConNo,A.OrdDate,A.BuyName,B.*');
      sql.add(' from SalesContract_Main A join SalesContract_Sub B on A.MainId=B.MainId  ');
      sql.add(' where A.OrdDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
      sql.add(' and  A.OrdDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
      sql.add(')AA where 1=1 ' + fwhere);
//      showmessage(sql.text);
      Open;
    end;
    SCreateCDS(ADOQueryMain, Order_Main);
    SInitCDSData(ADOQueryMain, Order_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmConLBNameSet.InitForm();
begin
  ReadCxGrid('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 7;
  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
end;

procedure TfrmConLBNameSet.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS(ADOQueryMain, Order_Main);
  SInitCDSData(ADOQueryMain, Order_Main);
end;

procedure TfrmConLBNameSet.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmConLBNameSet.OrderNoMChange(Sender: TObject);
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS(ADOQueryMain, Order_Main);
  SInitCDSData(ADOQueryMain, Order_Main);
end;

procedure TfrmConLBNameSet.FormShow(Sender: TObject);
begin
  inherited;
  canshu1 := self.fParameters1;
  InitForm();
end;

procedure TfrmConLBNameSet.BuyNameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    InitGrid();
  end;
end;

procedure TfrmConLBNameSet.CheckBox1Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmConLBNameSet.CheckBox2Click(Sender: TObject);
begin
  TBRafresh.Click;
end;

procedure TfrmConLBNameSet.ToolButton1Click(Sender: TObject);
begin
  if Order_Main.IsEmpty then
    Exit;
  try
    frmOrderInPut := TfrmOrderInPut.Create(Application);
    with frmOrderInPut do
    begin
      PState := 1;
      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
      ToolBar2.Visible := False;
      TBSave.Visible := False;
      ScrollBox1.Enabled := False;
      Tv1.OptionsSelection.CellSelect := False;
      if ShowModal = 1 then
      begin

      end;
    end;
  finally
    frmOrderInPut.Free;
  end;
end;

procedure TfrmConLBNameSet.ConNoChange(Sender: TObject);
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS(ADOQueryMain, Order_Main);
  SInitCDSData(ADOQueryMain, Order_Main);
end;

procedure TfrmConLBNameSet.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
//  if Key = #13 then
//  begin
//    if Length(conno.Text) < 3 then
//      Exit;
//    try
//      ADOQueryMain.DisableControls;
//      with ADOQueryMain do
//      begin
//        Filtered := False;
//        Close;
//        sql.Clear;
//        sql.add('exec P_View_Order :begdate,:enddate,:WSql');
//        begin
//          Parameters.ParamByName('WSql').Value := ' and conno like ''' + '%' + Trim(conno.Text) + '%' + '''';
//        end;
//        Parameters.ParamByName('begdate').Value := '1899-01-01';
//        Parameters.ParamByName('enddate').Value := '2050-01-01';
//        ExecSQL;
//        Open;
//      end;
//      SCreateCDS(ADOQueryMain, Order_Main);
//      SInitCDSData(ADOQueryMain, Order_Main);
//    finally
//      ADOQueryMain.EnableControls;
//    end;
//  end;
end;

procedure TfrmConLBNameSet.ToolButton2Click(Sender: TObject);
var
  FlabelCaption: string;
begin
  try
    frmLabelList := TfrmLabelList.Create(Application);
    with frmLabelList do
    begin
      if ShowModal = 1 then
      begin
        FlabelCaption := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
      end;
    end;
  finally
    frmLabelList.Free;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set ConLBName=''' + Trim(FlabelCaption) + '''');
          sql.Add(' where SubId=''' + Trim(self.Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Self.Order_Main do
        begin
          Edit;
          FieldByName('ConLBName').Value := Trim(FlabelCaption);
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.ToolButton3Click(Sender: TObject);
var
  FPiZhong: string;
  FReal: Double;
begin
  if Trim(PiZhong.Text) = '' then
  begin
    Application.MessageBox('Ƥ<>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if TryStrToFloat(PiZhong.Text, FReal) = False then
  begin
    Application.MessageBox('Ƥ<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set PiZhong=' + (PiZhong.Text));
          sql.Add(' where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Order_Main do
        begin
          Edit;
          FieldByName('PiZhong').Value := PiZhong.Text;
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.ToolButton4Click(Sender: TObject);
var
  FlabelCaption: string;
begin
  try
    frmLabelList := TfrmLabelList.Create(Application);
    with frmLabelList do
    begin
      if ShowModal = 1 then
      begin
        FlabelCaption := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
      end;
    end;
  finally
    frmLabelList.Free;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set ConNLBName=''' + Trim(FlabelCaption) + '''');
          sql.Add(' where SubId=''' + Trim(self.Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Self.Order_Main do
        begin
          Edit;
          FieldByName('ConNLBName').Value := Trim(FlabelCaption);
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.v1Column3PropertiesEditValueChanged(Sender: TObject);
var
  mvalues: string;
begin
  mvalues := TCXTextEdit(Sender).Text;

  with Order_Main do
  begin
    edit;
    fieldbyname('NLBName').Value := mvalues;
    post;
  end;
  tv1.Controller.EditingController.ShowEdit();
  if trim(mvalues) = '' then
  begin
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('Update JYOrder_Main Set NLBName='''' ');
      sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
      ExecSQL;
    end;
  end
end;

procedure TfrmConLBNameSet.v1Column1PropertiesEditValueChanged(Sender: TObject);
var
  mvalues, FFieldName: string;
begin
  mvalues := TCXTextEdit(Sender).Text;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with Order_Main do
  begin
    edit;
    fieldbyname(FFieldName).Value := mvalues;
    post;
  end;
  tv1.Controller.EditingController.ShowEdit();
  if trim(mvalues) = '' then
  begin
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('Update JYOrder_Main Set' + Trim(FFieldName) + '='''' ');
      sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
      ExecSQL;
    end;
  end
end;

procedure TfrmConLBNameSet.ToolButton5Click(Sender: TObject);
var
  FReal: Double;
begin
  if Trim(PiZhong.Text) = '' then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if TryStrToFloat(PiZhong.Text, FReal) = False then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set XS=' + (PiZhong.Text));
          sql.Add(' where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Order_Main do
        begin
          Edit;
          FieldByName('XS').Value := PiZhong.Text;
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.v1Column6PropertiesEditValueChanged(Sender: TObject);
var
  mvalues: string;
begin
  mvalues := TCXTextEdit(Sender).Text;
  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('Update JYOrder_Main Set XSType=''' + trim(mvalues) + ''' ');
    sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
    ExecSQL;
  end;
  with Order_Main do
  begin
    edit;
    fieldbyname('XSType').Value := mvalues;
    post;
  end;

  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  if Order_Main.IsEmpty then
    exit;
  ToolButton1.Click;
end;

procedure TfrmConLBNameSet.ToolButton6Click(Sender: TObject);
var
  fPrintFile: string;
  Txt, fImagePath: string;
  Moudle: THandle;
  Makebar: TMakebar;
  Mixtext: TMixtext;
begin
  if Order_Main.IsEmpty then
    exit;

  if trim(Order_Main.fieldbyname('ConLBName').AsString) = '' then
    exit;

  with ADOQueryPrint do
  begin
    Close;
    SQL.Clear;
    sql.Add('exec P_Print_Con_Roll ');
    sql.Add('@SubID=''' + trim(Order_Main.fieldbyname('SubID').AsString) + ''' ');
    Open;
  end;
//  try
//    Moudle := LoadLibrary('MakeQRBarcode.dll');
//    @Makebar := GetProcAddress(Moudle, 'Make');
//    @Mixtext := GetProcAddress(Moudle, 'MixText');
//    Txt := Trim(ADOQueryPrint.fieldbyname('MJID').AsString);
//    fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
//    if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
//      CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
//    if FileExists(fImagePath) then
//      DeleteFile(fImagePath);
//    Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
//  except
//    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
//    exit;
//  end;
  ExportFtErpFile(Trim(Order_Main.fieldbyname('ConLBName').AsString) + '.rmf', ADOQueryTemp);
  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Order_Main.fieldbyname('ConLBName').AsString) + '.rmf';
  if FileExists(fPrintFile) then
  begin
//    RMVariables['QRBARCODE'] := fImagePath;
    RM1.LoadFromFile(fPrintFile);
    PostFileToData(trim(Order_Main.fieldbyname('ConLBName').AsString), fPrintFile);
    UPLabel(trim(Order_Main.fieldbyname('ConLBName').AsString), fPrintFile);
    RM1.ShowReport;
  end
  else
  begin
    Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + trim(fPrintFile)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmConLBNameSet.ToolButton7Click(Sender: TObject);
var
  fPrintFile: string;
  Txt, fImagePath: string;
  Moudle: THandle;
  Makebar: TMakebar;
  Mixtext: TMixtext;
begin
  if Order_Main.IsEmpty then
    exit;
  if trim(Order_Main.fieldbyname('ConNLBName').AsString) = '' then
    exit;
  with ADOQueryPrint do
  begin
    Close;
    SQL.Clear;
    sql.Add('exec P_Print_Con_Bao ');
    sql.Add('@SubID=''' + trim(Order_Main.fieldbyname('SubID').AsString) + ''' ');
    Open;
  end;
//  try
//    Moudle := LoadLibrary('MakeQRBarcode.dll');
//    @Makebar := GetProcAddress(Moudle, 'Make');
//    @Mixtext := GetProcAddress(Moudle, 'MixText');
//    Txt := Trim(ADOQueryPrint.fieldbyname('MJID').AsString);
//    fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
//    if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
//      CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
//    if FileExists(fImagePath) then
//      DeleteFile(fImagePath);
//    Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
//  except
//    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
//    exit;
//  end;
  ExportFtErpFile(Trim(Order_Main.fieldbyname('ConNLBName').AsString) + '.rmf', ADOQueryTemp);
  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Order_Main.fieldbyname('ConNLBName').AsString) + '.rmf';
  if FileExists(fPrintFile) then
  begin
//    RMVariables['QRBARCODE'] := fImagePath;
    RM1.LoadFromFile(fPrintFile);
    RM1.ShowReport;
  end
  else
  begin
    Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + trim(fPrintFile)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;
end;

procedure TfrmConLBNameSet.v1Column8PropertiesChange(Sender: TObject);
var
  mvalues: string;
begin
  mvalues := TCXTextEdit(Sender).Text;
  with Order_Main do
  begin
    edit;
    fieldbyname('Orddefstr15').Value := mvalues;
    post;
  end;
  tv1.Controller.EditingController.ShowEdit();

  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' ');
    sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
    ExecSQL;
  end;
end;

procedure TfrmConLBNameSet.ToolButton8Click(Sender: TObject);
var
  FReal: Double;
begin
  if Trim(PiZhong.Text) = '' then
  begin
    Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if TryStrToFloat(PiZhong.Text, FReal) = False then
  begin
    Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set LabQty=' + (PiZhong.Text));
          sql.Add(' where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Order_Main do
        begin
          Edit;
          FieldByName('LabQty').Value := PiZhong.Text;
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.ToolButton9Click(Sender: TObject);
var
  FReal: Double;
begin
  if Trim(PiZhong.Text) = '' then
  begin
    Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if TryStrToFloat(PiZhong.Text, FReal) = False then
  begin
    Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set MBJS=' + (PiZhong.Text));
          sql.Add(' where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Order_Main do
        begin
          Edit;
          FieldByName('MBJS').Value := PiZhong.Text;
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmConLBNameSet.ToolButton10Click(Sender: TObject);
var
  FReal: Double;
begin
  if Trim(PiZhong.Text) = '' then
  begin
    Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
    Exit;
  end;
  if TryStrToFloat(PiZhong.Text, FReal) = False then
  begin
    Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;

  with Order_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      if fieldbyname('ssel').AsBoolean then
      begin
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('Update SalesContract_Sub Set BBQFS=' + (PiZhong.Text));
          sql.Add(' where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
          ExecSQL;
        end;
        with Order_Main do
        begin
          Edit;
          FieldByName('BBQFS').Value := PiZhong.Text;
          Post;
        end;
      end;
      next;
    end;
    First;
    EnableControls;
  end;
//  initgrid();
  tv1.Controller.EditingController.ShowEdit();
end;

end.