input.pas

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

      mc_Edit.Clear;
      wp_bm_Edit.Clear;
      cd_Edit.Clear;
      gg_Edit.Clear;
      dw_Edit.Clear;
      jj_edit.Clear;
      dj_edit.Clear;
      sl_edit.Clear;
      ph_edit.Clear;
      yxq_edit.Clear;
      sb_edit.Clear;
      lb_edit.Clear;
      bz_edit.Clear;
      kcxx_edit.Clear;
    end
  else if  bitbtn1.Caption='&Y确定' then
    begin
      if edit1.Text=''  then
        begin
          Application.MessageBox('请填写供货商信息','提示',MB_OK+MB_ICONINFORMATION);
          exit;
        end;
      if  mc_edit.Text=''  then
        begin
          Application.MessageBox('请填写物品名称','提示',MB_OK+MB_ICONINFORMATION);
          exit;
        end;
      if  wp_bm_edit.Text=''  then
        begin
          Application.MessageBox('请填写完整,','提示',MB_OK+MB_ICONINFORMATION);
          exit;
        end;
      if sl_edit.Text=''  then
        begin
          Application.MessageBox('请填写进货数量','提示',MB_OK+MB_ICONINFORMATION);
          exit;
        end;
      if (jj_edit.Text='') or (strtofloat(jj_edit.Text)=0.0)  then
        begin
          Application.MessageBox('请填写药品进价','提示',MB_OK+MB_ICONINFORMATION);
          exit;
        end;
      if (dj_edit.Text='') or (strtofloat(dj_edit.Text)=0.0)  then
        begin
          Application.MessageBox('请填写药品单价','提示',MB_OK+MB_ICONINFORMATION);
          exit;
        end;
      if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
        begin
          if (bz_edit.Text='') or (strtofloat(bz_edit.Text)=0.0)  then
            begin
              Application.MessageBox('请填写药品包装数','提示',MB_OK+MB_ICONINFORMATION);
              exit;
            end;
          if (yxq_edit.Text='') or (strtofloat(yxq_edit.Text)=0.0)  then
            begin
              Application.MessageBox('请填写药品包装数','提示',MB_OK+MB_ICONINFORMATION);
              exit;
            end;
        end;
       Query_kc.close;
       Query_kc.UnPrepare;
       Query_kc.sql.Clear;
       Query_kc.sql.Add('select * from '+table_name[listbox1.itemindex]); 
       Query_kc.Prepare;
       Query_kc.Open;
       Query_kc.Append;
       Query_kc.FieldByName('bh').AsString:=formatdatetime('yyyymmddhhmmss',Now());
       Query_kc.FieldByName('wp_bm').AsString:=trim(wp_bm_edit.Text);
       Query_kc.FieldByName('pm').AsString:=trim(mc_edit.Text);
       Query_kc.FieldByName('gg').AsString:=Trim(gg_edit.Text);
       Query_kc.FieldByName('dw').AsString:=trim(dw_edit.Text);
       Query_kc.FieldByName('lb').AsString:=trim(lb_edit.Text);
       Query_kc.FieldByName('jj').asstring:=Trim(jj_edit.Text);
       Query_kc.FieldByName('dj').asstring:=dj_edit.Text;
       Query_kc.FieldByName('ycs').Asstring:=sl_edit.Text;
       Query_kc.FieldByName('kcs').AsString:=sl_edit.Text;
       Query_kc.FieldByName('jhrq').AsString:=datetostr(DateTimePicker2.Date);
       Query_kc.FieldByName('kcxx').AsString:=kcxx_edit.Text;
       Query_kc.FieldByName('ph').AsString:=ph_edit.Text;
       Query_kc.FieldByName('cd').AsString:=cd_edit.Text;
       Query_kc.FieldByName('ck_bh').AsString:=ck_id[listbox1.itemindex];
       Query_kc.FieldByName('ghs_mc').asstring:=trim(edit1.Text);
       if pos('中药',listbox1.Items[listbox1.itemindex])>0 then
         Query_kc.FieldByName('jgdw').AsString:=trim(jgdw_edit.Text)
       else begin
         Query_kc.FieldByName('scrq').AsString:=MaskEdit1.Text;
         Query_kc.FieldByName('yxq').AsString:=trim(yxq_edit.Text);
         Query_kc.FieldByName('sb').AsString:=trim(sb_edit.Text);
         Query_kc.FieldByName('pzwh').AsString:=trim(pzwh_edit.Text);
         Query_kc.FieldByName('bz').asstring:=trim(bz_edit.text);
       end;
       with query_cgxx do begin
         close;
         sql.clear;
         sql.add('select * from cgxxb');
         open;
         append;
         FieldByName('bh').AsString:=formatdatetime('yyyymmddhhmmss',Now());
         FieldByName('wp_bm').AsString:=trim(wp_bm_edit.Text);
         FieldByName('ghs_mc').AsString:=trim(edit1.Text);
         FieldByName('pm').AsString:=trim(mc_edit.Text);
         FieldByName('gg').AsString:=Trim(gg_edit.Text);
         FieldByName('dw').AsString:=trim(dw_edit.Text);
         FieldByName('jj').asstring:=Trim(jj_edit.Text);
         FieldByName('sl').Asstring:=sl_edit.Text;
         FieldByName('jhrq').AsString:=datetostr(DateTimePicker2.Date);
         FieldByName('ph').AsString:=ph_edit.Text;
         FieldByName('cd').AsString:=cd_edit.Text;
         if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
           FieldByName('bz').asstring:=trim(bz_edit.text);
         FieldByName('ck_bh').AsString:=ck_id[listbox1.itemindex];
       end;
       try
         database.StartTransaction;
         Query_kc.Post;
         Query_cgxx.Post;
         database.Commit;
         bitbtn1.Caption:='&S添加';
       except
         database.Rollback;
         Application.MessageBox('库存信息提交错误','提示',MB_OK+MB_ICONINFORMATION);
         exit;
       end;
       Query_kc.EnableControls;
       bm_EditChange(Self);
    end;

end;

procedure TFrminput.BitBtn2Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrminput.bm_EditChange(Sender: TObject);
begin
   Query_kc.DisableControls;
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
   Query_kc.sql.Add('select pm,cd,gg,dw,kcs,dj,jj,ph ');
   if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
     Query_kc.sql.Add(',sb,pzwh,yxq,scrq,bz ')
   else Query_kc.sql.Add(',jgdw ');
   Query_kc.sql.Add(',kcxx,lb,ghs_mc,ck_bh,wp_bm ');
   Query_kc.sql.add(' from '+table_name[listbox1.itemindex]);
   Query_kc.sql.Add(' where wp_bm like'+''''+bm_edit.Text+'%'+'''');
   Query_kc.sql.Add(' order by pm');
   Query_kc.Prepare;
   Query_kc.Open;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('dj').DisplayLabel:='单价';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('kcxx').DisplayLabel:='库存下限';
   Query_kc.FieldByName('lb').DisplayLabel:='类别';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
     begin
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('scrq').DisplayLabel:='生产日期';
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end
   else Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位';
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.FieldByName('ghs_mc').displaylabel:='供货商名称';
   Query_kc.EnableControls;
end;

procedure TFrminput.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
     key:=#0;
     postmessage(handle,wm_nextdlgctl,0,0);
  end;
end;

procedure TFrminput.DBGrid1CellClick(Column: TColumn);
begin
  if bitbtn1.Caption='&Y确定' then
    if not Query_kc.Eof then
      begin
        mc_edit.Text:=Query_kc.fieldbyname('pm').asstring;
       // edit1.Text:=Query_kc.fieldbyname('ghs_mc').asstring;
        wp_bm_edit.Text:=Query_kc.fieldbyname('wp_bm').asstring;
        gg_edit.Text:=Query_kc.fieldbyname('gg').asstring;
        dw_edit.Text:=Query_kc.fieldbyname('dw').asstring;
        jj_edit.Text:=Query_kc.fieldbyname('jj').asstring;
        dj_edit.Text:=Query_kc.fieldbyname('dj').asstring;
       // sl_edit.Text:=Query_kc.fieldbyname('kcs').asstring;
        kcxx_edit.Text:=Query_kc.fieldbyname('kcxx').asstring;
        lb_edit.Text:=Query_kc.fieldbyname('lb').asstring;
        ph_edit.Text:=Query_kc.fieldbyname('ph').asstring;
        cd_edit.Text:=Query_kc.fieldbyname('cd').asstring;
        if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
          begin
            maskedit1.Text:=formatdatetime('yyyy-mm-dd',Now());
            sb_edit.Text:=Query_kc.fieldbyname('sb').asstring;
            pzwh_edit.Text:=Query_kc.fieldbyname('pzwh').asstring;
            yxq_edit.Text:=Query_kc.fieldbyname('yxq').asstring;
            bz_edit.Text:=Query_kc.fieldbyname('bz').asstring;
          end
        else  jgdw_edit.Text:=Query_kc.fieldbyname('jgdw').asstring;
      end;
end;

procedure TFrminput.SpeedButton1Click(Sender: TObject);
begin
  Frmghs:=TFrmghs.create(Self);
  Frmmain.pubedit:=Edit1;
  Frmghs.ShowModal;  
end;

procedure TFrminput.dj_editEnter(Sender: TObject);
begin
  dj_Edit.Text:=floattostr(strtofloat(jj_edit.text)*(strtofloat(edit_jl.text)+1));
end;

end.