drwhunt.pas

商品销售系统完全的功能SQL和JAVA

unit drwhunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGridEh, StdCtrls, Buttons, DB, ExtCtrls,
  BaseGrid, AdvGrid;

type
  Tdrwhfrm = class(TForm)
    GroupBox1: TGroupBox;
    AdvStringGrid1: TAdvStringGrid;
    AdvStringGrid2: TAdvStringGrid;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn4: TBitBtn;
    ComboBox1: TComboBox;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit3Enter(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  drwhfrm: Tdrwhfrm;

implementation
   uses data;
{$R *.dfm}
 var
  drm:integer;
  dcdj:string;
procedure Tdrwhfrm.BitBtn5Click(Sender: TObject);
var
 m:integer;
begin
   if edit3.Text='' then exit;
   dcdj:=trim(edit3.Text);
   with dataman.dbQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select 货物条形码,单价,数量,金额 from movein where 进货单据号='''+edit3.text+'''');
      sql.Add('order by  货物条形码 DESC');
      prepared;
      open;
    end;
   if dataman.dbQuery.IsEmpty then
   showmessage('没有单据号为'+trim(edit3.Text)+'的单据')
   else
   begin
   m:=1;
   dataman.dbquery.first;
   while not dataman.dbquery.eof do
   begin
   advstringgrid1.cells[1,m]:=dataman.dbquery.fields[0].value;
   advstringgrid1.cells[2,m]:=dataman.dbquery.fields[1].asstring;
   advstringgrid1.cells[3,m]:=dataman.dbquery.fields[2].asstring;
   advstringgrid1.cells[4,m]:=dataman.dbquery.fields[3].asstring;
   advstringgrid2.cells[0,m]:=dataman.dbquery.fields[2].asstring;
   dataman.dbquery.next;
   inc(m);
   drm:=m;
   end;
   end;

end;

procedure Tdrwhfrm.BitBtn1Click(Sender: TObject);
var
 l,qualityt:integer;
 totalt:real;
begin
  timer1.Enabled:=false;
  qualityt:=0;
  totalt:=0;
  try
  if messagedlg('确定要修改此条记录?',mtwarning,[mbyes,mbno],0)=mryes then
    begin
    dataman.ADOCon.BeginTrans;
    //更新进货单据表
    for  l:=1 to drm do
     begin
       if trim(advstringgrid1.Cells[1,l])='' then break;
       qualityt:=strtoint(advstringgrid1.cells[3,l])+qualityt;
       totalt:=strtoint(advstringgrid1.Cells[4,l])+totalt;
    end;
      with dataman.dbQuery do
       begin
        close;
        sql.Clear;
        sql.Add('update moveinm');
        sql.Add('set 进货数量=:wgno,进货金额=:tje');
        sql.Add('where  进货单据号='''+dcdj+'''');
        parameters.ParamByName('wgno').Value:=qualityt;
        parameters.ParamByName('tje').Value:=totalt;
        prepared;
        execsql;
       //修改进货明细表
        close;
        sql.Clear;
        for l:=1 to drm do
        begin
        if trim(advstringgrid1.Cells[1,l])='' then break;
        sql.Add('update movein');
        sql.add('set 单价=:dj,数量=:qu,金额=:total');
        sql.Add('where 进货单据号='''+trim(dcdj)+''' and 货物条形码='''+trim(advstringgrid1.Cells[1,l])+'''');
        parameters.ParamByName('dj').Value:=strtofloat(trim(advstringgrid1.cells[2,l]));
        parameters.ParamByName('qu').Value:=strtoint(trim(advstringgrid1.Cells[3,l]));
        parameters.ParamByName('total').Value:=strtofloat(trim(advstringgrid1.Cells[4,l]));
        execsql;
        end;
       //修改库存
        close;
        sql.Clear;
        for l:=1 to drm do
         begin
         if trim(advstringgrid1.Cells[1,l])='' then break;
         sql.Add('update kc set 库存数量=库存数量+:thno where 货物条形码='''+trim(advstringgrid1.Cells[1,l])+'''');
         parameters.ParamByName('thno').Value:=strtoint(advstringgrid1.Cells[3,l])-strtoint(advstringgrid2.Cells[0,l]);
         execsql;
         end;
       end;
       dataman.ADOCon.CommitTrans;
       showmessage('调入单据号'+dcdj+'修改成功！');
    end;
    except
     dataman.ADOCon.RollbackTrans;
     messagedlg('对不起！失败了！',mtconfirmation,[mbok],0);
    end;
end;

procedure Tdrwhfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
drwhfrm:=nil;
drwhfrm.Free;
end;

procedure Tdrwhfrm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tdrwhfrm.FormActivate(Sender: TObject);
var
 n:integer;
begin
dataman.dcQuery.Active:=false;
for n:=1 to 8 do
 advstringgrid1.Cells[0,n]:=inttostr(n);
 advstringgrid1.Cells[1,0]:='货物条形码';
 advstringgrid1.Cells[2,0]:='单价';
 advstringgrid1.Cells[3,0]:='数量';
 advstringgrid1.Cells[4,0]:='金额';
combobox1.Text:='---请选择单据号---';
end;

procedure Tdrwhfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tdrwhfrm.Edit3Enter(Sender: TObject);
begin
 Edit3.Color:=clSkyBlue;
end;

procedure Tdrwhfrm.Edit3Exit(Sender: TObject);
begin
Edit3.color:=clWindow;
end;

procedure Tdrwhfrm.Timer1Timer(Sender: TObject);
var
 m:integer;
begin
 for m:=1 to drm do
   begin
   if advstringgrid1.Cells[1,m]='' then break;
   advstringgrid1.Cells[4,m]:=floattostr(strtoint(advstringgrid1.Cells[2,m])*strtofloatdef(advstringgrid1.Cells[3,m],0));
   end;
end;

procedure Tdrwhfrm.BitBtn4Click(Sender: TObject);
begin
   with  dataman.dbQuery do
    begin
       close;
       sql.Clear;
       sql.Add('select 进货单据号 from moveinm where 进货时间=:dcdate');
       parameters.ParamByName('dcdate').Value:=datetimepicker1.Date;
       open;
       combobox1.Items.Clear;
       first;
       while not Eof do
        begin
         combobox1.Items.add(trim(fieldbyname('进货单据号').asString));
         next;
        end;
    end;
end;

procedure Tdrwhfrm.ComboBox1Change(Sender: TObject);
var
 m:integer;
begin
   if combobox1.Text='' then exit;
   dcdj:=trim(combobox1.Text);
   with dataman.dbQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select 货物条形码,单价,数量,金额 from movein where 进货单据号='''+combobox1.Text+'''');
      sql.Add('order by  货物条形码 DESC');
      prepared;
      open;
    end;
   if dataman.dbQuery.IsEmpty then
   showmessage('没有单据号为'+trim(combobox1.Text)+'的单据')
   else
   begin
   m:=1;
   dataman.dbquery.first;
   while not dataman.dbquery.eof do
   begin
   advstringgrid1.cells[1,m]:=dataman.dbquery.fields[0].value;
   advstringgrid1.cells[2,m]:=dataman.dbquery.fields[1].asstring;
   advstringgrid1.cells[3,m]:=dataman.dbquery.fields[2].asstring;
   advstringgrid1.cells[4,m]:=dataman.dbquery.fields[3].asstring;
   advstringgrid2.cells[0,m]:=dataman.dbquery.fields[2].asstring;
   dataman.dbquery.next;
   inc(m);
   drm:=m;
   end;
   end;
end;

end.