usale.pas

在打沙场用的最简单

procedure Tfrmsale.billnoExit(Sender: TObject);
begin
  inherited;
//    select * from tstore a,tstoresub b where a.fresid=b.fresid

end;

procedure Tfrmsale.GridColExit(Sender: TObject);
var
i,ii,jj:integer;
ini:textfile;
str1,s1,str2,  cmdStr:string;
begin
  inherited;
  case grid.SelectedIndex of
  0,1:begin
  if  CDSsub.State in [dsEdit,dsinsert] then
  begin
     if trim(billno.Text)='现金户' then
     begin
      grid.Columns[4].readonly:=true;
      grid.Columns[5].readonly:=false;
     end
     else
     begin
      grid.Columns[4].readonly:=false;
      grid.Columns[5].readonly:=true;
     end;


  ////////////////
     with  query2 do
     begin
     SQL.Clear;
     sql.add(' select  fcode,fname,fid ');
     sql.add('  from  titem ');
     sql.add(' where  fcode=:fcode ');
     ParamByName('fcode').asstring:=cdssub.fieldbyname('fcode').asstring;
     Open;
      if recordcount>0 then
      begin
      cdssub['fname']:=fieldbyname('fname').value;
      cdssub['fitemid']:=fieldbyname('fid').AsInteger;
  //    grid.SelectedIndex:=  grid.SelectedIndex+1;
      end;
     end;
//////////////////////////////

  end;
  end;
  end;
  //////////////////////
  case grid.SelectedIndex of
  2,3: begin
  if  CDSsub.State in [dsEdit,dsinsert] then
  begin

   with  adoquery2 do
     begin
     SQL.Clear;
     sql.add('SELECT * FROM titemtype');
     sql.add(' where  fcode=:fcode ');
     Parameters.ParamByName('fcode').Value:=cdssub.fieldbyname('chcode').asstring;
     Open;
     if recordcount>0 then
     cdssub['chname']:=fieldbyname('fname').Value;
     //grid.SelectedIndex:=  grid.SelectedIndex+1;     
     end;
////////////////////////
  end;
  end;
 end;
end;

procedure Tfrmsale.GridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
{ if grid.SelectedIndex=0 then
 if  char(key)='p' then
 if cdssub.State in [dsedit,dsinsert] then
  Selectsub;         }
end;

procedure Tfrmsale.p01Execute(Sender: TObject);
var
ii:integer;
begin
  //inherited;

  adoquery1.SQL.clear;
  adoquery1.SQL.Add('select fcode,fname,fnote   from Tfuli');
  adoquery1.open;

  cdssub.DisableControls;
  frMD.Dataset:=frDSMaster;
  frMD.LoadFromFile(frname);
  frMD.ShowReport;
  cdssub.EnableControls;

end;

procedure Tfrmsale.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  adoquery1.SQL.clear;
  adoquery1.SQL.Add('delete   from Tsalesub where  bt is not null');
  adoquery1.ExecSQL;
end;

procedure Tfrmsale.acmodifyExecute(Sender: TObject);
var
i:integer;
begin
  inherited;
  edit1.Enabled:=false;
  datetimepicker1.Enabled:=false;
  bb.Enabled:=true;
  wwdbedit3.Enabled:=true;
  wwdbedit5.Enabled:=true;
  wwdbedit8.Enabled:=true;
  wwdbedit9.Enabled:=true;
listbox1.Clear;
 with adoquery1 do
  begin

   sql.Clear;
   sql.Add('select fname from tunit');
   open;
  end;
  i:=1;
   while not adoquery1.Eof do
   begin
    listbox1.Items.Add(inttostr(i)+'.'+adoquery1.fieldbyname('fname').value);
    adoquery1.next;
    i:=i+1;
   end;
bb.SetFocus;
bb.Text:='';
end;

procedure Tfrmsale.bbEnter(Sender: TObject);
var
i:integer;
begin
  inherited;
  if cdsmaster.State in  [dsinsert,dsedit] then
 cdsmaster['fsaleer']:='';
 listbox1.Clear;
 with adoquery1 do
  begin

   sql.Clear;
   sql.Add('select fname from tunit');
   open;
  end;
  i:=1;
   while not adoquery1.Eof do
   begin
    listbox1.Items.Add(inttostr(i)+':'+adoquery1.fieldbyname('fname').value);
    adoquery1.next;
    i:=i+1;
   end;
end;

procedure Tfrmsale.bbChange(Sender: TObject);
begin
  inherited;
 with adoquery1 do
  begin
   sql.Clear;
   sql.Add('select fname from tunit where fcode=:fcode');
   Parameters.ParamByName('fcode').Value:=bb.text;
   open;
   if recordcount>0 then
   if cdsmaster.State in [dsinsert,dsedit] then
   cdsmaster['fprovider']:=fieldbyname('fname').value;
  end;     //fsaleer


end;

procedure Tfrmsale.GridEnter(Sender: TObject);
var
i:integer;
begin
  inherited;
case grid.SelectedIndex of
  0,1:begin
  if  CDSsub.State in [dsEdit,dsinsert] then
  begin
  listbox1.Clear;
  ////////////////
   i:=1;
    with  adoquery1 do
     begin
     SQL.Clear;
     sql.add(' select  fname ');
     sql.add('  from  titem ');
     Open;
     end;

   while not adoquery1.Eof do
   begin
    listbox1.Items.Add(inttostr(i)+'.'+adoquery1.fieldbyname('fname').value);
    adoquery1.next;
    i:=i+1;
   end;
  end;
  end;
  end;
end;

procedure Tfrmsale.SpeedButton4Click(Sender: TObject);
begin
//  inherited;
 close;
end;

procedure Tfrmsale.GridColEnter(Sender: TObject);
var
i:integer;
begin
  inherited;
case grid.SelectedIndex of
  0,1:begin
  if  CDSsub.State in [dsEdit,dsinsert] then
  begin
  ////////////////
  listbox1.Clear;
   i:=1;
    with  adoquery1 do
     begin
     SQL.Clear;
     sql.add(' select  fname ');
     sql.add('  from  titem ');
     Open;
     end;

   while not adoquery1.Eof do
   begin
    listbox1.Items.Add(inttostr(i)+'.'+adoquery1.fieldbyname('fname').value);
    adoquery1.next;
    i:=i+1;
   end;
  end;
  end;
  end;
//////////////////
case grid.SelectedIndex of
  2,3:begin
  if  CDSsub.State in [dsEdit,dsinsert] then
  begin
  listbox1.Clear;
  
  ////////////////
   i:=1;
    with  adoquery1 do
     begin
     SQL.Clear;
     sql.add(' select  fname ');
     sql.add('  from  titemtype ');
     Open;
     end;

   while not adoquery1.Eof do
   begin
    listbox1.Items.Add(inttostr(i)+'.'+adoquery1.fieldbyname('fname').value);
    adoquery1.next;
    i:=i+1;
   end;
  end;
  end;
  end;
//////////////
end;

procedure Tfrmsale.acsearchExecute(Sender: TObject);
begin
//  inherited;
  adoquery1.SQL.clear;
  adoquery1.SQL.Add('select fcode,fname,fnote   from Tfuli');
  adoquery1.open;
  CDSsub.DisableControls;
  frMD.Dataset:=frDSMaster;
  frMD.LoadFromFile(frname);
  frMD.PrepareReport;
  frMD.PrintPreparedReport('',1,True,frAll);
  CDSsub.EnableControls;
end;

procedure Tfrmsale.aclineaddExecute(Sender: TObject);
begin
//  inherited;
   with query2 do
   begin
    sql.clear;
    sql.add('delete from tsalesub');
    sql.add(' where fresid in  (select fresid from tsale where fid=fid');
    if   edit1.text<>'' then
    sql.add(' and  fsaleer=:fsa ');
    sql.Add(' and  fdelivdate<=:fd)');
    if   edit1.text<>'' then
    parambyname('fsa').asstring:=edit1.text;
    parambyname('fd').asdate:=datetimepicker1.date;
    execsql;
   end;
   with query2 do
   begin
    sql.clear;
    sql.add('delete from   tsale where fid=fid');
    if   edit1.text<>'' then
    sql.add(' and  fsaleer=:fsa ');
    sql.Add(' and  fdelivdate<=:fd)');
    if   edit1.text<>'' then
    parambyname('fsa').asstring:=edit1.text;
    parambyname('fd').asdate:=datetimepicker1.date;
    execsql;
   end;
   application.MessageBox('清空完毕','系统提示',mb_ok);   
end;

procedure Tfrmsale.acdeleteExecute(Sender: TObject);
begin
//  inherited;
 if messagedlg('确认删除记录 ? ',mtConfirmation,[mbok,mbcancel],0)=mrok then
  begin
   with query2 do
   begin
    sql.clear;
    sql.add('delete from tsalesub');
    sql.add(' where fresid in  (select fresid from tsale where fid=fid');
    if   edit1.text<>'' then
    sql.add(' and  fsaleer=:fsa ');
    sql.Add(' and  fdelivdate<=:fd)');
    if   edit1.text<>'' then
    parambyname('fsa').asstring:=edit1.text;
    parambyname('fd').asdate:=datetimepicker1.date;
    execsql;
    sql.clear;
    sql.add('delete from   tsale where fid=fid');
    if   edit1.text<>'' then
    sql.add(' and  fsaleer=:fsa ');
    sql.Add(' and  fdelivdate<:fd');
    if   edit1.text<>'' then
    parambyname('fsa').asstring:=edit1.text;
    parambyname('fd').asdate:=datetimepicker1.date;
    execsql;
    SQL.Clear;
    SQL.Add('update tbilltype  set finnumber=0,foutnumber=0 where (fdate<:fd and fid=:fid1) or (fdate<:fd and fid=:fid2)');
    parambyname('fd').asdate:=datetimepicker1.date;    
    ParamByName('fid1').AsInteger:=3;
    ParamByName('fid2').AsInteger:=7;
    ExecSQL;
   end;

   application.MessageBox('清空完毕','系统提示',mb_ok);
 end;   
end;

procedure Tfrmsale.accancelExecute(Sender: TObject);
begin
  inherited;
  edit1.Enabled:=true;
  datetimepicker1.Enabled:=true;
  bb.Enabled:=false;
  wwdbedit3.Enabled:=false;
  wwdbedit5.Enabled:=false;
  wwdbedit8.Enabled:=false;
  wwdbedit9.Enabled:=false;  
end;

procedure Tfrmsale.GridKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
//  grid.SelectedIndex:=  grid.SelectedIndex+1;
end;

procedure Tfrmsale.acpriorExecute(Sender: TObject);
begin
  inherited;

//    showmessage(inttostr(grid.col));
end;

procedure Tfrmsale.bbKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if (key='1') or (key='2') or (key='3') then
   wwdbedit3.SetFocus ;
end;

procedure Tfrmsale.wwDBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if (key='1') or (key='2') or (key='3') or (key='4') then
   wwdbedit5.SetFocus;
end;

procedure Tfrmsale.wwDBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if (key='1') or (key='2') or (key='3') or (key='4') or (key='5') or (key='6') then
   if wwdbedit8.Enabled then
   wwdbedit8.SetFocus;
   if wwdbedit9.Enabled then
   wwdbedit9.SetFocus;
end;

procedure Tfrmsale.wwDBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
//   wwdbedit9.SetFocus;
end;

procedure Tfrmsale.wwDBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;  
//   refno.SetFocus;
end;

procedure Tfrmsale.wwDBEdit3Enter(Sender: TObject);
var
i:integer;
begin
  inherited;
  if cdsmaster.State in  [dsinsert,dsedit] then  
 cdsmaster['hcode']:='';
 listbox1.Clear;
 with adoquery1 do
  begin

   sql.Clear;
   sql.Add('select fname from titem');
   open;
  end;
  i:=1;
   while not adoquery1.Eof do
   begin
    listbox1.Items.Add(inttostr(i)+':'+adoquery1.fieldbyname('fname').value);
    adoquery1.next;
    i:=i+1;
   end;
end;

procedure Tfrmsale.wwDBEdit3Change(Sender: TObject);