📄 uorder.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
procedure Tfrmorder.opendata(id1:string);
begin
  ADOQueryNDD1.close;
  ADOQueryNDD1.Parameters[0].value:=id1;
  ADOQueryNDD1.open;

  ADOQueryNDD2.close;
  ADOQueryNDD2.Parameters[0].Value :=id1;
  ADOQueryNDD2.Open;
end;

procedure Tfrmorder.BitBtn16Click(Sender: TObject);
const
   w: array [0..13]of boolean=(true,true,true,true,true,false,false,false,false,false,false,false,false,true);
var i:Integer;
begin
  //ADOQueryNDD1.CancelBatch ;
 // adoqueryndd2.First;
 {  for i:=0 to  adoqueryndd2.RecordCount-1 do
   begin
          if adotable1.recordcount>0 then
          begin
           ADOTable1.cancelBatch ;
          end;
         adoqueryndd2.Next;
   end;  }
  // ADOQueryNDD2.CancelBatch ;
  // ADOQorder4.cancelBatch ;

   adoqueryNdd1.close;
   ADOQueryNDD2.close;
   adoqorder4.close;
   adotable1.close;


   ButEnabled(toolbar1,w);
   dbgrideh2.readonly:=true;
   dbgrideh4.readonly:=true;
   DBImage2.Enabled :=false;
   DBComboBox1.Enabled :=false;
   DTP1.Enabled:=false;
   Edit1.text:='';
   Edit1.readonly:=true;
//   edit2.readonly:=true;

end;

procedure Tfrmorder.BitBtn7Click(Sender: TObject);
var
  MySize:array of  string;
  sSql,sSum,sm:String;
  i,z,horTotal,j,maxSizeCount,maxRegWidth,unitWidth,leftPar,sumTotal:integer;
  pause,sizeX,t,v,tColor,curSize:string;
  Printerlist,tableList,createTableSQL:Tstringlist;
  lQRLabel: TQRLabel;
  lQRDBText: TQRDBText;
  lQRShape: TQRShape;
begin
  Screen.Cursor := -11;
  ///////////////////////////////
  if mainreport=nil then
    begin
     application.Createform(Tmainreport,mainreport);
     Screen.Cursor := 0;
    end;
  if clreport=nil then
    begin
     application.createform(Tclreport,clreport);
     Screen.Cursor := 0;
    end; 
  ////////////////////////////////
  if Edit1.Text='' then
     exit;
   mainreport.QRLDDBM.Caption:=frmorder.Edit1.Text;
   mainreport.QRLDDRQ.Caption:=DateToStr(DTP1.date);
   mainreport.QRLabel35.Caption:=frmorder.DBComboBox1.Text;
   mainreport.QRLabel10.Caption:=frmorder.Label4.Caption;
   ADOQuerydy.Active:=false;
   ADOQuerydy.SQL.Clear;
   ADOQuerydy.SQL.Add('select * from xs_order2 where orderno='''+Edit1.Text+'''');
   ADOQuerydy.Open;
  try
  begin
    clreport.QuickRep1.DataSet := DM.ADOQreport;
    mainreport.QuickRep1.DataSet:=ADOQuerydy;
    with DM.ADOQreport do
    begin
      close;
      sql.Clear;
      sql.Add('select * from xs_order3 where orderno='''+Edit1.text+'''');
      open;
    end;
  ///////////////
    Screen.Cursor := 0;
    mainreport.ComRepOrder.Preview;
  end   
  finally
    if mainreport<>nil then
    begin
      mainreport.Free;
      mainreport := nil;
    end;
    if clreport<>nil then
    begin
      clreport.Free;
      clreport := nil;
    end;
  end;
end;

procedure Tfrmorder.ADOTable1NewRecord(DataSet: TDataSet);
begin
     Adotable1.edit;
end;

procedure Tfrmorder.DBGridEh4ColEnter(Sender: TObject);

var
    TempQuery:TADOquery;
    s,t:string;
    i:integer;
begin
 if (Dbgrideh4.Columns.Grid.Col=2) then
 begin
     S:=ADOQueryNDD2.fieldbyname('R_name').Asstring;
     tempquery:=Tadoquery.Create(nil);
     with TempQuery do
     begin
         Connection:=dm.ADOConnection ;
         close;
         sql.clear;
         sql.add('SELECT Js_Color.Co_name, Js_product1.Style_num,Js_product1.shoes_num ,Js_Color.Co_short FROM Js_Color INNER JOIN Js_product1 ON Js_Color.Co_short = Js_product1.color_num ');
         sql.add(' where js_product1.style_num='+''''+s+'''');
         open;
         dbgrideh4.Columns.Items[1].PickList.clear;
         for i:=0 to  recordcount-1 do
         begin
              dbgrideh4.Columns.Items[1].PickList.add(fieldbyname('Co_short').AsString);
              next;
         end;
     end;
     tempquery.free;
 end;

end;

procedure Tfrmorder.DBGridEh2EditButtonClick(Sender: TObject);
var
  Mn:string;
  Cn,dw,spec,cgUnit:String;
  kcl: real;
begin
  if (DbgridEh2.ReadOnly =true) then exit;
  if (DbGridEh2.Columns.Grid.col = 1)  then
  begin
      FrmJhMaterialName:=TFrmJhMaterialName.Create(nil);
      FrmJhMaterialName.Width :=160;

      FrmJhMaterialName.Tag:=2;
      FrmJhMaterialName.Drop(FrmJhMaterialName,dbgrideh2.InplaceEditor );
      FrmJhMaterialName.ShowModal;
      if (FrmJhMaterialName.ModalResult =2)  then
      begin
          ADOQueryNDD2.edit;
          ADOQueryNDD2.fieldbyname('R_Name').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('R_name').AsString;
      end;
      FrmJhMaterialName.Free;
  end;
end;

procedure Tfrmorder.DBGridEh2ColEnter(Sender: TObject);
var
    s:String;
    i:integer;
    tempquery:Tadoquery;
begin
  if (ADOQueryNDD2.FieldByName('R_Name').AsString='') then
  begin
     exit;
  end;
  if (Dbgrideh2.Columns.Grid.Col=2) then
  begin
     S:=ADOQueryNDD2.fieldbyname('R_name').Asstring;
     tempquery:=Tadoquery.Create(nil);
     with TempQuery do
     begin
         Connection:=dm.ADOConnection ;
         close;
         sql.clear;
         sql.add('SELECT distinct xuanzi_num  FROM Js_product1');
         sql.add(' where js_product1.style_num='+''''+s+'''');
         open;
         dbgrideh2.Columns.Items[1].PickList.clear;
         for i:=0 to  recordcount-1 do
         begin
              dbgrideh2.Columns.Items[1].PickList.add(fieldbyname('xuanzi_num').AsString);
              next;
         end;
     end;
     tempquery.free;
 end;
end;

procedure Tfrmorder.DSxxDataChange(Sender: TObject; Field: TField);
var
  myStream: TStream;
  myBitMap: TBitMap;
  pWidth,pHeight,pX,pY: integer;
begin

  if not ADOTable2.FieldByName('Picture1').IsNull then
  begin
    myBitMap := TBitMap.Create;
    myStream := ADOTable2.CreateBlobStream(ADOTable2.FieldByName('Picture1'),bmRead);
    myBitMap.LoadFromStream(myStream);

//处理图片显示区域//////////////////////////////////////////////////////////////
    pWidth  := Panel5.Width-12;
    pHeight := Panel5.Height-12;
    FrameZoom(pWidth,pHeight,myBitMap.Width,myBitMap.Height);
    Image2.Width  := pWidth;
    Image2.Height := pHeight;
    pX := 0;
    pY := 0;
    CenterAlign(pX,pY,Panel5.Width,Panel5.Height,pWidth,pHeight);
    Image2.Left := pX;
    Image2.Top  := pY;
////////////////////////////////////////////////////////////////////////////////

    Image2.Picture.Bitmap.Assign(myBitMap);
    //lNonePic.Visible := false;
    myBitMap.Free;
    myStream.Free;
  end
  else
  begin
    Image2.Picture := nil;//清空图片
   // lNonePic.Visible := true;
  end;

end;
{var
 rect:trect;
 externname:string;
 jpg:tjpegimage;
  pnh, pnw: Integer;
  pch, pcw: Integer;
begin
 try
  pnh := Panel5.Height-4;
  pnw := Panel5.Width-4;
  pch := DBImage1.Picture.Height;
  pcw := DBImage1.Picture.Width;

  with DBImage1 do
  begin
    if (pcw <= pnw) and (pch <= pnh) then
    begin
      Left := 2 + (pnw-pcw) div 2 ;
      Top := 2 + (pnh-pch) div 2;
      Height := pch;
      Width := pcw;
      Exit;
    end;

    if pnh/pnw >= pch/pcw then
    begin
      Left := 2;
      Width := pnw;
      Height := pch * pnw div pcw;
      Top := 2 + (pnh - Height) div 2;
    end
    else begin
      Top := 2;
      Height := pnh;
      Width := pnh * pcw div pch;
      Left := 2 + (pnw -Width) div 2;
    end;
  end;

except
    messagebox(handle,'此文件格式无效！','错误',mb_ok+mb_iconerror);
end;
end;  }


procedure Tfrmorder.ADOQorder4BeforePost(DataSet: TDataSet);
begin
  adoqorder4.FieldByName('OrderNo').AsString:=trim(Edit1.Text);
end;

procedure Tfrmorder.ADOQueryNDD2NewRecord(DataSet: TDataSet);
begin
    ADOQueryNDD2.Edit ;
    ADOQueryNDD2.FieldByName('orderno').AsString:=Trim(Edit1.text);
end;

procedure Tfrmorder.BitBtn17Click(Sender: TObject);
begin
 AdoTable1.Delete;
end;

procedure Tfrmorder.DBEdit1_1Change(Sender: TObject);
begin
  // if (dbedit1_1.text='') then exit
   
// else  edit1.text:=dbedit1_1.text;
 {  if act=browse then
   begin
    if adoqueryndd1.active=false then
    ADOQueryNDD1.open;
    ADOQueryNDD1.Locate('orderno',trim(dbEdit1_1.text),[]);
   end;

  // edit2.text:=ADOQueryNDD1.fieldbyname('addcodeno').asstring ;
     with adoqorder4 do
    begin
       close;
       sql.Clear ;
       sql.add('select * from xs_order4 where  orderno = '+''''+trim(Edit1.text)+'''');
       open;
    end;
    with  ADOQueryNDD2 do
    begin
       close;
       sql.Clear ;
       sql.add('select * from xs_order2 where  orderno = '+''''+trim(Edit1.text)+'''');
       open;
    end;
//    ADOQueryNDD1.Open;
    if ADOTable1.active=false then
     ADOTable1.open;
     ADOQueryNDD2.First ;
     ADOQueryNDD2.next;
     ADOQueryNDD2.First ;

     ADOTable1.Filtered:=true;

//    if ADOTable2.active=false then
   //  ADOTable2.open;
    if ADOQkh.active=false then
     ADOQkh.open;         }



end;

procedure Tfrmorder.DBGridEh2ColExit(Sender: TObject);
begin
    ADOQueryNDD2.Refresh ;
end;

procedure Tfrmorder.DBGridEh4CellClick(Column: TColumnEh);
var
    TempQuery:TADOquery;
    s,t:string;
    i:integer;
begin
 if (adotable1.FieldByName('color').AsString)<>'' then
 begin
     S:=ADOQueryNDD2.fieldbyname('R_name').Asstring;
     t:=adotable1.FieldByName('color').AsString;
     tempquery:=Tadoquery.Create(nil);
     with TempQuery do
     begin
         Connection:=dm.ADOConnection ;
         close;
         sql.clear;
         sql.add('SELECT Js_Color.Co_name, Js_product1.Style_num,Js_product1.shoes_num ,Js_Color.Co_short FROM Js_Color INNER JOIN Js_product1 ON Js_Color.Co_short = Js_product1.color_num ');
         sql.add(' where js_product1.style_num='+''''+s+'''');
         sql.add('    and   js_product1.color_num ='+''''+t+'''');
         open;
     end;
     adotable1.edit;
     adotable1.fieldbyname('shoesno').AsString:=tempquery.FieldByName('shoes_num').AsString;
     tempquery.free;
 end;
end; 


procedure Tfrmorder.BitBtn13Click(Sender: TObject);
const
   w: array [0..13]of boolean=(true,false,false,false,false,true,true,true,true,true,true,true,true,false);
begin
    If Edit1.text='' then  exit;
    dbgrideh1.ReadOnly :=false;
    dbgrideh2.ReadOnly :=false;
    dbgrideh4.ReadOnly :=false;
    ADOQueryNDD2.edit;
    adotable1.edit;
    //ADOQueryNDD1.edit;
    ButEnabled(toolbar1,w);
    DBComboBox1.Enabled :=true;
    DTP1.Enabled:=true;
    DBImage2.Enabled :=true;
    act:=updat;
end;

procedure Tfrmorder.DSDD2DataChange(Sender: TObject; Field: TField);
begin
    if ADOTable2.active=false then
     ADOTable2.open;
end;

procedure Tfrmorder.DBComboBox1DropDown(Sender: TObject);
var
  i:integer;
begin
     if ADOQkh.Active=true then
       ADOQkh.Open;
     ADOQkh.first;
     DBComboBox1.Items.Clear ;
     for i:=0 to ADOQkh.RecordCount-1 do
     begin

       DBComboBox1.Items.Add(ADOQkh.fieldbyname('ncname').AsString);
       adoqkh.next;
     end;
end;

procedure Tfrmorder.DBImage2DblClick(Sender: TObject);
var
 rect:trect;
 externname:string;
 jpg:tjpegimage;
begin
    try
      if OpenPictureDialog2.Execute then
       begin
          externname:=ExtractFileExt(OpenPictureDialog2.FileName);
          if StrComp(pchar(uppercase(externname)),pchar(uppercase('.bmp')))=0 then
          begin
              dbimage2.Picture.LoadFromFile(OpenPictureDialog2.filename);
          end
          else
             if StrComp(pchar(uppercase(externname)),pchar(uppercase('.jpg')))=0 then
             begin
              jpg:=tjpegimage.create;
              jpg.LoadFromFile(OpenPictureDialog2.filename);
              dbimage2.Picture.Graphic.Assign (jpg);
              end;
        end;
    except
        messagebox(handle,'此文件格式无效！','错误',mb_ok+mb_iconerror);
    end;
end;
procedure Tfrmorder.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

procedure Tfrmorder.Edit1Change(Sender: TObject);
begin
   if act=browse then
   begin
    if adoqueryndd1.active=false then
    ADOQueryNDD1.open;
    ADOQueryNDD1.Locate('orderno',trim(Edit1.text),[]);
   end;
     with adoqorder4 do
    begin
       close;
       sql.Clear ;
       sql.add('select * from xs_order4 where  orderno = '+''''+trim(Edit1.text)+'''');
       open;
    end;
    with  ADOQueryNDD2 do
    begin
       close;
       sql.Clear ;
       sql.add('select * from xs_order2 where  orderno = '+''''+trim(Edit1.text)+'''');
       open;
    end;
    //edit2.text:=adoqueryndd1.Fieldbyname('addcodeno').AsString;
    if ADOTable1.active=false then
     ADOTable1.open;
     ADOQueryNDD2.First ;
     ADOQueryNDD2.next;
     ADOQueryNDD2.First ;

    // ADOTable1.Filtered:=true;

//    if ADOTable2.active=false then
   //  ADOTable2.open;
    if ADOQkh.active=false then
     ADOQkh.open;

end;

procedure Tfrmorder.Edit1Enter(Sender: TObject);
begin
 if adoqueryndd2.active=true then
 if (ADOQueryNDD2.RecordCount>0 ) then
   if (edit1.ReadOnly =false) then
   begin

       Application.MessageBox('如果修改订单号，数据将清空！','提示',64);
   end;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -