uxsrb.pas

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

     begin
          Application.MessageBox('记录不能为空！！','信息提示',64);
          dm.ADOConnection.RollbackTrans ;
          exit;
     end;
     dm.ADOConnection.CommitTrans ;
     Application.MessageBox('保存成功！','信息提示',64);
     MyGetCode(04,true);
     ButEnabled(toolbar1,w);
     dbGrideh1.ReadOnly :=true;
     DateTimePicker1.Enabled :=false;
     dbedit5.enabled:=false;
     dbedit2.enabled:=false;
     DBLookupComboBox1.enabled:=false;
     except
       dm.ADOConnection.RollbackTrans ;
       Application.MessageBox('保存失败！必填项不能为空','错误提示',0+16);
     end;
end;

procedure Tfrmxsrb.BitBtn8Click(Sender: TObject);
const
   w: array [0..11]of boolean=(true,true,true,true,true,false,false,false,false,true,true,true);
begin
   ButEnabled(toolbar1,w);
   dm.Adoxsrbm.CancelUpdates ;
   dm.Adoxsrbd.CancelUpdates ;
   dbGrideh1.ReadOnly :=true;
   DateTimePicker1.Enabled :=false;
   dbedit5.enabled:=false;
   dbedit2.enabled:=false;
   DBLookupComboBox1.enabled:=false;
end;
procedure Tfrmxsrb.DBEdit1Change(Sender: TObject);
begin
    with dm.adoxsrbd do
    begin
        close;
        sql.clear;
        sql.add('select * from kc_Gooddetail join kc_goodmaster on kc_goodmaster.nBillid=kc_gooddetail.nbillid');
        sql.add('  where kc_goodmaster.nywtype='+''''+'销售出库'+'''');
        sql.add('   and kc_goodmaster.nbillid='''+trim(dbedit1.text)+'''');
      //  sql.add('c:\11.txt');
        open;
    end;
    DateTimePicker1.date:=strtodate(dbedit3.text);

end;

procedure Tfrmxsrb.BitBtn6Click(Sender: TObject);
const
   w: array [0..11]of boolean=(false,false,false,false,false,true,true,true,true,false,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 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
       dquery.ExecSQL ;
       kcquery.ExecSQL ;
       dm.adoconnection.CommitTrans ;
       Application.MessageBox('删除成功！','信息提示',64);
       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=(false,false,false,false,false,true,true,true,true,false,true,true);
begin
   if (Trim(dbEdit1.Text)<>'') then
   begin
       dbgrideh1.ReadOnly :=false;
       DateTimePicker1.Enabled :=true;
       dbedit5.enabled:=true;
       dbedit2.enabled:=true;
       DBLookupComboBox1.enabled:=true;
       dm.adoxsrbd.edit;
       ButEnabled(toolbar1,w);
       act:=updat
   end;
end;
procedure Tfrmxsrb.FormCreate(Sender: TObject);
begin
 //
   
    if (dm.adoxsrbm.active=false) then
    dm.adoxsrbm.open;
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('nGoodCode')) 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').AsString:=FrmJhMaterialName.ADOQuery1.FieldByName('nGdCode').AsString;
        //  JhQueryMaterialNoSetText(jhquery.fieldbyname('MaterialNo'),jhquery.fieldbyname('MaterialNo').AsString);
      end;
      FrmJhMaterialName.Free;
  end;
end;
procedure Tfrmxsrb.BitBtn1Click(Sender: TObject);
begin
       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)      ;
end;

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

procedure Tfrmxsrb.DBEdit4Change(Sender: TObject);
begin
   Seek(DBGridEh1,'s_qrdetail', '11','xs_rbd','location='+''''+'d'+'''' +' and  kc_cktag='+''''+Trim(dbedit4.text)+'''');
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.BitBtn14Click(Sender: TObject);
begin
     dm.Adoxsrbm.First; 
end;

procedure Tfrmxsrb.BitBtn13Click(Sender: TObject);
begin
     dm.Adoxsrbm.Prior ;
end;

procedure Tfrmxsrb.BitBtn12Click(Sender: TObject);
begin
     dm.Adoxsrbm.Next;
end;

procedure Tfrmxsrb.BitBtn15Click(Sender: TObject);
begin
   FrmRbFind:= TFrmRBFind.Create(Application);
   FrmRBFind.ShowModal;
   if FrmRbFind.ModalResult=2 then
   begin
    if   dm.adoxsrbm.Active =false then
     dm.adoxsrbm.Open;
    if not (dm.adoxsrbm.Locate('sxsrbno',FrmRbFind.srecord,[loCaseInsensitive])) then
     begin
      Application.MessageBox(pchar('日报编号为：'+FrmRbFind.srecord+'的记录不存在！'),'错误',16);
      //Rb1.Close;
      //ADOQuery2.Close;
     end;
   end;
   frmrbfind.Free;
end;

procedure Tfrmxsrb.BtnFindClick(Sender: TObject);
begin
    dm.Adoxsrbm.Last;
end;

procedure Tfrmxsrb.DBGridEh1Enter(Sender: TObject);
begin
  if (uppercase(dbgrideh1.Columns.Grid.SelectedField.FieldName)=uppercase('nGoodCode')) 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;

end.