uxsrb.~pas

相关的销售服务管理行业的一个软件

var i:integer;
begin

//     ADOQueryNDD1.Locate('orderno',trim(Edit1.text),[]);
   if trim(dbedit1.text)<>'' then
   begin
    with dm.adoxsrbd do
    begin
        close;
        Parameters[0].Value :=trim(dbedit1.text);
        open;
    end;
    if Trim(dbedit3.text)<>'' then
    DateTimePicker1.date:=strtodate(dbedit3.text);
    end;


end;

procedure Tfrmxsrb.BitBtn6Click(Sender: TObject);
const
    w: array [0..14]of boolean=(true,true,true,true,true,false,false,false,false,true,true,true,true,true,true);
var
   kcquery:TADOQuery;
   dquery:TADOQuery;
begin
   if Application.MessageBox('是否删除？','信息提示',Mb_okcancel+64) = IdOk then
   begin
     dm.adoconnection.BeginTrans ;
     kcquery:=TADOQuery.Create(nil);
     kcquery.Connection :=dm.adoconnection;
     with kcquery do
     begin
       close;
       sql.Clear ;
       sql.Add('delete from kc_gooddetail  where nbillid='+''''+Trim(dbEdit1.text)+'''');
     end;
     dquery:=TADOQuery.Create(nil);
     dquery.Connection :=dm.adoconnection;
     with dquery do
     begin
       close;
       sql.Clear ;
       sql.Add('delete from kc_goodmaster where nbillid='+''''+Trim(dbEdit1.text)+'''');

     end;

     try

       kcquery.ExecSQL ;
       dquery.ExecSQL ;
       dm.adoconnection.CommitTrans ;
       Application.MessageBox('删除成功！','信息提示',64);
       dm.Adoxsrbm.close;
       dm.adoxsrbd.close;
       dbgrideh1.DataSource :=nil;
       dbgrideh1.Columns.clear;
       dbgrideh1.DataSource :=datasource2;
       kcquery.Free;
       dquery.free;
     except
       Application.MessageBox('删除失败！','错误提示',0+16);
       dquery.free;
       kcquery.free;
       dm.adoconnection.RollbackTrans ;
     end;
   end;
end;

procedure Tfrmxsrb.BitBtn3Click(Sender: TObject);
const
      w: array [0..11]of boolean=(true,true,false,false,false,true,true,true,true,false,false,true);
begin
   if (Trim(dbEdit1.Text)<>'') then
   begin
       dbgrideh1.ReadOnly :=false;
       DateTimePicker1.Enabled :=true;
       dbedit5.enabled:=true;
       dbedit2.enabled:=true;
       DBLookupComboBox1.enabled:=true;
       dm.adoxsrbm.edit;
       dm.adoxsrbd.edit;
      { with dm.adoxsrbm do
        begin
         close;
         sql.clear;
         sql.add('select * from kc_goodmaster where nbillid='''+Trim(dbEdit1.Text)+'''');
         open;
      end;}
       ButEnabled(toolbar1,w);
       act:=updat
   end;
end;
procedure Tfrmxsrb.FormCreate(Sender: TObject);
begin
 //
   
 //  dm.adoxsrbm.close;
 //  dm.adoxsrbm.open;
   // Seek(DBGridEh1,'s_qrdetail', '11','xs_rbd','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(dbedit4.text)+'''');
end;

procedure Tfrmxsrb.DBGridEh1EditButtonClick(Sender: TObject);
var
  Mn:string;
  Cn,dw,spec,cgUnit:String;
  kcl: real;
begin
  if (DbgridEh1.ReadOnly =true) then exit;
  if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('nGoodName')) then
  begin
      FrmJhMaterialName:=TFrmJhMaterialName.Create(nil);
      FrmJhMaterialName.Tag:=1;
      FrmJhMaterialName.Drop(FrmJhMaterialName,dbgrideh1.InplaceEditor );
      FrmJhMaterialName.ShowModal;
      if (FrmJhMaterialName.ModalResult =2)  then
      begin
          dm.adoxsrbd.edit;
          dm.adoxsrbd.fieldbyname('ngoodcode').value:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdCode').AsString;

          //dm.adoxsrbd.fieldbyname('ngoodcode').value:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdCode').AsString;
         
         // dm.adoxsrbd.fieldbyname('ngoodcode').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdCode').AsString;
          //dm.adoxsrbd.fieldbyname('nGoodName').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdName').AsString;
        //  JhQueryMaterialNoSetText(jhquery.fieldbyname('MaterialNo'),jhquery.fieldbyname('MaterialNo').AsString);
      end;
      FrmJhMaterialName.Free;
  end;
  if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('ncolor')) then
  begin
      FrmJhMaterialName:=TFrmJhMaterialName.Create(nil);
      FrmJhMaterialName.Tag:=3;
      FrmJhMaterialName.Drop(FrmJhMaterialName,dbgrideh1.InplaceEditor );
      FrmJhMaterialName.ShowModal;
      if (FrmJhMaterialName.ModalResult =2)  then
      begin
          dm.adoxsrbd.edit;
          dm.adoxsrbd.fieldbyname('ncolor').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('Co_name').AsString;
//          dm.adoxsrbd.fieldbyname('nGoodName').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdName').AsString;
        //  JhQueryMaterialNoSetText(jhquery.fieldbyname('MaterialNo'),jhquery.fieldbyname('MaterialNo').AsString);
      end;
      FrmJhMaterialName.Free;
  end;
end;
procedure Tfrmxsrb.BitBtn1Click(Sender: TObject);
var i:Integer;
begin
    PrintDBGridEh1.Print ;
    //   CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'600','0',
   // TAdoQuery(DataSource1.DataSet),TAdoQuery(DataSource2.DataSet),true)      ;
end;

procedure Tfrmxsrb.BitBtn10Click(Sender: TObject);
begin
//       CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'600','0' ,
 //   TAdoQuery(DataSource1.DataSet),TAdoQuery(DataSource2.DataSet),false)      ;
  PrintDBGridEh1.PageHeader.CenterText.clear;
  PrintDBGridEh1.PageHeader.CenterText.Add('销售日报');
  PrintDBGridEh1.PageHeader.CenterText.Add('');
  PrintDBGridEh1.PageHeader.CenterText.Add('');
  PrintDBGridEh1.PageHeader.CenterText.Add('');

  PrintDBGridEh1.PageHeader.LeftText.Clear;
  PrintDBGridEh1.PageHeader.LeftText.add('');
  PrintDBGridEh1.PageHeader.LeftText.add('');
  PrintDBGridEh1.PageHeader.LeftText.add('日报编号:  '+dbedit1.text);
  PrintDBGridEh1.PageHeader.LeftText.add('时间：  '+DateTOStr(DateTimePicker1.date));
  PrintDBGridEh1.PageHeader.rightText.Clear;
  PrintDBGridEh1.PageHeader.rightText.add('');
  PrintDBGridEh1.PageHeader.rightText.add('');
  PrintDBGridEh1.PageHeader.rightText.add('商场名称:'+DBLookupComboBox1.text+'      ');
  PrintDBGridEh1.PageHeader.rightText.add('录入人:'+dbedit5.text+'      ');
  PrintDBGridEh1.Preview ;
end;

procedure Tfrmxsrb.FormActivate(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

procedure Tfrmxsrb.DBGridEh1ColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);

var
  I,J:integer;
  str1:string;
begin
{  with QrDetail do
    begin
      filter:='[Location]=''d''';
      Filtered:=true;
      Sort:='RepItem ASC';
      First;
//------------------------------------向前移动----------------------------------
      if FromIndex > ToIndex then
        begin
          Locate('RepItem',item+ToIndex,[loCaseInsensitive]);
          str1:=FieldByName('DispField').asstring;

          Locate('RepItem',item+FromIndex,[loCaseInsensitive]);
          Edit;
          FieldByName('RepItem').asinteger:=ToIndex+item;
          Post;

          for i:=fromindex-1 downto ToIndex+1 do
            begin
              Locate('RepItem',i+item,[loCaseInsensitive]);
              edit;
              FieldByName('RepItem').asinteger:=item+i+1;
              post;
            end;

          Locate('DispField',str1,[loCaseInsensitive]);
          Edit;
          FieldByName('RepItem').asinteger:=ToIndex+item+1;
          Post;
        end;
//----------------------------------向后移动------------------------------------
     if FromIndex < ToIndex then
        begin
          Locate('RepItem',item+ToIndex,[loCaseInsensitive]);
          str1:=FieldByName('DispField').asstring;

          Locate('RepItem',item+FromIndex,[loCaseInsensitive]);
          Edit;
          FieldByName('RepItem').asinteger:=ToIndex+item;
          Post;

          for i:=fromindex+1 to ToIndex-1 do
            begin
              Locate('RepItem',i+item,[loCaseInsensitive]);
              edit;
              FieldByName('RepItem').asinteger:=item+i-1;
              post;
            end;

          Locate('DispField',str1,[loCaseInsensitive]);
          Edit;
          FieldByName('RepItem').asinteger:=ToIndex+item-1;
          Post;
        end;
    end;  }
end;


procedure Tfrmxsrb.BitBtn15Click(Sender: TObject);
begin
   If frmxsrbfind=nil then frmxsrbfind:=Tfrmxsrbfind.Create(Application);
  frmxsrbfind.showmodal;
end;

procedure Tfrmxsrb.DBGridEh1Enter(Sender: TObject);
begin
  if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('nGoodName')) then
    begin
          dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AlwaysShowEditButton :=true   ;
          dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AutoDropDown :=true    ;
          dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].ButtonStyle  :=cbsDropDown;
    end;
   if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('ncolor')) then
   begin
      dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AlwaysShowEditButton :=true   ;
      dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AutoDropDown :=true    ;
      dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].ButtonStyle  :=cbsDropDown;
   end;  
end;

procedure Tfrmxsrb.DBGridEh1CellClick(Column: TColumnEh);
begin
       if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('ncolor')) then
   begin
      dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AlwaysShowEditButton :=true   ;
      dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].AutoDropDown :=true    ;
      dbgrideh1.Columns.Items[dbgrideh1.Columns.Grid.SelectedIndex].ButtonStyle  :=cbsDropDown;
   end;
end;

procedure Tfrmxsrb.DBEdit4Change(Sender: TObject);
begin
 if dbedit4.text<>'' then
 begin
     dbgrideh1.DataSource :=nil;
     try
     Seek(DBGridEh1,'s_qrdetail', '11','xs_rbd','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(dbedit4.text)+'''');
    except
    end; 
    dbgrideh1.DataSource :=Datasource2;
  end; 

end;

procedure Tfrmxsrb.DataSource2DataChange(Sender: TObject; Field: TField);
var i:integer;
begin
     for i:=0 to dbgrideh1.Columns.Count-1 do
      begin
        if  dbgrideh1.Columns.Items[i].FieldName='nFsJine' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsJine';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='nFsCount' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsCount';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
         if  dbgrideh1.Columns.Items[i].FieldName='nGoodName' then
        begin
          //DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus15';
          dbgrideh1.columns.items[i].Footer.Value:='合计';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtStaticText;

        end;
      end;
    dbgrideh1.SumList.Active:=true ;

end;

procedure Tfrmxsrb.DataSource2StateChange(Sender: TObject);
var i:integer;
begin
    for i:=0 to dbgrideh1.Columns.Count-1 do
      begin
        if  dbgrideh1.Columns.Items[i].FieldName='nFsJine' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsJine';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='nFsCount' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsCount';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
         if  dbgrideh1.Columns.Items[i].FieldName='nGoodName' then
        begin
          //DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus15';
          dbgrideh1.columns.items[i].Footer.Value:='合计';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtStaticText;

        end;
      end;
    dbgrideh1.SumList.Active:=true ;     
end;
procedure Tfrmxsrb.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  with dm.adoxsrbd do
    begin
        close;
        Parameters[0].Value :=trim(dbedit1.text);
        open;
    end;
end;

procedure Tfrmxsrb.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
 keybd_event(vk_tab,0,0,0);
end;

end.