hwdb.pas

本系统前端界面采用WINDOWS 窗口风格

   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if pos('中药',combobox1.text)>0 then
     Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位'
   else
     begin
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end;
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.EnableControls;
end;

procedure TFrmhwdb.BitBtn4Click(Sender: TObject);
  var r,sl,kcs:real;
    ypbh:string;
begin

if ( not Query_kc.Eof) or ( not Query_kc.Bof) then
  begin
    ypbh:=query_kc.fieldbyname('bh').asstring;
   kcs:=Query_kc.FieldByName('kcs').asfloat;
   sl:=strtofloat(Edit_sl.text);
   Query_kc.DisableControls;
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
     if pos('中药',combobox1.text)>0 then
       Query_kc.sql.Add('select pm,cd,dw,gg,kcs,jj,ph,jhrq,jgdw,ck_bh,wp_bm,bh from '+table_name[combobox1.itemindex])
     else
       Query_kc.sql.Add('select pm,cd,dw,gg,kcs,bz,jj,ph,jhrq,pzwh,sb,yxq,ck_bh,wp_bm,bh from '+table_name[combobox1.itemindex]);
   query_kc.sql.Add(' where bh='''+ypbh+'''');
   Query_kc.Prepare;
   Query_kc.open;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('bh').DisplayLabel:='编号';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if pos('中药',combobox1.text)>0 then
     Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位'
   else
     begin
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end;
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.EnableControls;
   if (Edit_sl.Text='') or (strtofloat(Edit_sl.Text)=0.0)  then
     begin
       Application.MessageBox('请填写调拔数量','提示', MB_OK+MB_ICONINFORMATION);
       exit
     end;
   if Edit_dbdw.Text=''  then
     begin
       Application.MessageBox('请填写调拔单位','提示', MB_OK+MB_ICONINFORMATION);
       exit;
     end;
   if sl>kcs then
     begin
       Application.MessageBox('库存量不足','提示', MB_OK+MB_ICONINFORMATION);
       exit;
     end;
      Query_kc.Edit;
      Query_kc.FieldByName('kcs').asfloat:=Query_kc.FieldByName('kcs').asfloat-strtofloat(Edit_sl.Text);

       Query_db.Append;
       Query_db.FieldByName('db_bh').asstring:=Query_kc.fieldbyname('ck_bh').asstring+formatdatetime('yyyymmddhhmmss',Frmmain.GetServerTime);
       Query_db.FieldByName('pm').asstring:=Query_kc.fieldbyname('pm').asstring;
       Query_db.FieldByName('cd').asstring:=Query_kc.fieldbyname('cd').asstring;
       Query_db.FieldByName('gg').asstring:=Query_kc.fieldbyname('gg').asstring;
       Query_db.FieldByName('dw').asstring:=Query_kc.fieldbyname('dw').asstring;
       Query_db.FieldByName('jj').asstring:=Query_kc.fieldbyname('jj').asstring;
       Query_db.FieldByName('dbsl').asstring:=Edit_sl.Text;
       Query_db.FieldByName('je').asfloat:=Query_kc.fieldbyname('jj').asfloat*strtofloat(Edit_sl.text);
       Query_db.FieldByName('ph').asstring:=Query_kc.fieldbyname('ph').asstring;
       if pos('中药',combobox1.Text)=0 then
         begin
           Query_db.FieldByName('pzwh').asstring:=Query_kc.fieldbyname('pzwh').asstring;
           Query_db.FieldByName('yxq').asstring:=Query_kc.fieldbyname('yxq').asstring;
         end;
       Query_db.FieldByName('ck_bh').asstring:=Query_kc.fieldbyname('ck_bh').asstring;
       Query_db.FieldByName('fpph').asstring:=Label_ckdh.Caption;
       Query_db.FieldByName('dbdw').asstring:=trim(Edit_dbdw.Text);
       Query_db.FieldByName('dbrq').asstring:=datetostr(DateTimePicker2.date);
       Query_db.FieldByName('wp_bm').asstring:=Query_kc.fieldbyname('wp_bm').asstring;
       Try
         Database.StartTransaction;
         Query_db.Post;
         Query_kc.Post;
         Database.Commit;
       Except
         Database.Rollback;
         Application.MessageBox('数据提交错误','提示', MB_OK+MB_ICONINFORMATION);
         exit;
       End;
       tmp_table.open;
      tmp_table.edit;
      tmp_table.Append;
      tmp_table.FieldByName('pm').asstring:=Query_kc.fieldbyname('pm').asstring;
      tmp_table.FieldByName('dbsl').asstring:=Edit_sl.Text;
      tmp_table.FieldByName('jj').asfloat:=Query_kc.fieldbyname('jj').asfloat;
      tmp_table.FieldByName('je').asfloat:=Query_kc.fieldbyname('jj').asfloat*strtofloat(Edit_sl.text);
      tmp_table.FieldByName('ck_bh').asstring:=Query_kc.fieldbyname('ck_bh').asstring;
      tmp_table.FieldByName('gg').asstring:=Query_kc.fieldbyname('gg').asstring;
      tmp_table.FieldByName('dw').asstring:=Query_kc.fieldbyname('dw').asstring;
      if pos('中药',combobox1.Text)=0 then
       begin
          tmp_table.FieldByName('yxq').asstring:=Query_kc.fieldbyname('yxq').asstring;
          tmp_table.FieldByName('pzwh').asstring:=Query_kc.fieldbyname('pzwh').asstring;
          R:=frac(strtofloat(Edit_sl.Text)/Query_kc.fieldbyname('bz').asfloat);
          if r=0.0 then
            tmp_table.FieldByName('js').asfloat:=strtofloat(Edit_sl.Text) / Query_kc.fieldbyname('bz').asfloat
          else
            tmp_table.FieldByName('js').asfloat:=0;
       end;
       tmp_table.FieldByName('ph').asstring:=Query_kc.fieldbyname('ph').asstring;
       tmp_table.FieldByName('cd').asstring:=Query_kc.fieldbyname('cd').asstring;
       tmp_table.Post;
       jetotal:=jetotal+tmp_table.FieldByName('je').asfloat;
       Label_zje.Caption:=format('￥%.2f',[jetotal]);
       Edit_sl.Clear;
       Edit_bm.Clear;
       Edit_bm.SetFocus;
   end;

end;

procedure TFrmhwdb.BitBtn2Click(Sender: TObject);
begin
  Frmhwdb.OnShow(Self);
  bitbtn4.Enabled:=true;
end;

procedure TFrmhwdb.Edit_bmKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Edit_sl.SetFocus;
end;

procedure TFrmhwdb.BitBtn1Click(Sender: TObject);
begin
  if (not tmp_table.Bof) or (not tmp_table.Eof) then
    begin
      Query_ckxx.close;
      Query_ckxx.UnPrepare;
      Query_ckxx.sql.Clear;
      Query_ckxx.sql.Add('select * from ckxxb');
      Query_ckxx.Prepare;
      Query_ckxx.open;
      Query_ckxx.First;
      while not Query_ckxx.Eof do
       begin
         tmp_query.close;
         tmp_query.UnPrepare;
         tmp_query.sql.Clear;
         tmp_query.sql.Add('select * from '+tmp_table.TableName);
         tmp_query.sql.Add(' where ck_bh='''+Query_ckxx.fieldbyname('ck_bh').asstring+'''');
         tmp_query.sql.Add(' order by ck_bh,pm');
         tmp_query.Prepare;
         tmp_query.open;
         if  not tmp_Query.Eof then
           begin
             hjtotal:=0.0;
             Query_sum.close;
             Query_sum.UnPrepare;
             Query_sum.sql.Clear;
             Query_sum.sql.Add('select sum(je) as hj from '+tmp_table.TableName);
             Query_sum.sql.Add(' where ck_bh='''+Query_ckxx.fieldbyname('ck_bh').asstring+'''');
             Query_sum.Prepare;
             Query_sum.open;
             hjtotal:=query_sum.fieldbyname('hj').asfloat;
             Frmdbrep.quickrep1.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_cd.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_pm.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_gg.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_dw.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_sl.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_jj.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_je.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_ph.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_yxq.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_pzwh.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_js.DataSet:=tmp_Query;
             Frmdbrep.QRDBText_hsj.DataSet:=tmp_Query;
             Frmdbrep.QRlabel_dbdw.Caption:=Edit_dbdw.Text;
             Frmdbrep.QRlabel_ck.Caption:=Query_ckxx.fieldbyname('ck_mc').asstring;
             Frmdbrep.QRlabel_dbrq.Caption:=formatdatetime('yyyy-mm-dd',DateTimePicker2.date);
             Frmdbrep.QRLabel_ph.Caption:=Label_ckdh.Caption;
             Frmdbrep.QRlabel_czy.Caption:=Label_zdr.Caption;
             Frmdbrep.QRlabel_hj.Caption:=format('￥%2f',[hjtotal]);
             Frmdbrep.QRlabel_zje.Caption:=Label_zje.Caption;

             Frmdbrep.QuickRep1.page.Length:=197+tmp_query.RecordCount*28;
             Frmdbrep.QuickRep1.Prepare;
           //  Frmdbrep.QuickRep1.Preview;
             Frmdbrep.QuickRep1.print;
           end;
         Query_ckxx.Next;
       end;
     edit_sl.Clear;
     Edit_bm.Clear;
     Edit_dbdw.Clear;
     bitbtn2.Enabled:=true;
     bitbtn4.Enabled:=false;
    end

end;

procedure TFrmhwdb.SpeedButton5Click(Sender: TObject);
begin
  Frmdbdwxx:=TFrmdbdwxx.create(Self);
  Frmmain.pubedit:=Edit_dbdw;
  Frmdbdwxx.ShowModal;
end;

procedure TFrmhwdb.BitBtn3Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmhwdb.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      Key:=#0;
      PostMessage(Handle,WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TFrmhwdb.tmp_QueryCalcFields(DataSet: TDataSet);
  var jj:real;
begin
  jj:=tmp_query.FieldByName('jj').asfloat;
  if tmp_query.FieldByName('ck_bh').asstring<>'e' then
    tmp_query.FieldByName('hsj').asfloat:=jj*1.17
  else tmp_query.FieldByName('hsj').asfloat:=jj*1.13
end;

end.