main_unit.pas

医药管理系统

end;

procedure Tmain_form.Image5Click(Sender: TObject);
begin
PopupMenu3.Popup(image5.Left+20,85);
end;

procedure Tmain_form.Image6Click(Sender: TObject);
begin
PopupMenu5.Popup(image6.Left+20,85);
end;

procedure Tmain_form.Image7Click(Sender: TObject);
begin
PopupMenu6.Popup(image7.Left+20,85);
end;

procedure Tmain_form.dxButton2Click(Sender: TObject);
begin
//--查找药品
//回车直接查找药品先按编号查找，如果没有再按汉字查找
data_form.yptable.Active :=false;
case findyp_com.ItemIndex of
     0:data_form.yptable.CommandText :='select * from yptable where yp_name like '+#39+'%'+trim(find_edit.Text)+'%'+#39+'  order by yp_ysq';
     1:data_form.yptable.CommandText :='select * from yptable where yp_bh like '+#39+'%'+trim(find_edit.Text)+'%'+#39+'  order by yp_ysq';
end;
data_form.yptable.Active :=true;
end;

procedure Tmain_form.find_editKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   dxButton2.OnClick(self);
end;


procedure Tmain_form.pf_checkClick(Sender: TObject);
begin
if pf_check.Checked then
   dj_edit.Text:=data_form.yptable.FieldByName('yp_pfdj').AsString
   else
   dj_edit.Text:=data_form.yptable.FieldByName('yp_lsdj').AsString;
end;

procedure Tmain_form.dxButton1Click(Sender: TObject);
var
dzid:string;
begin
if data_form.yptable.FieldByName('yp_sysl').AsInteger<gmsl_edit.Value then
   begin
   application.MessageBox('药品数量不够','提示信息',64+mb_ok);
   gmsl_edit.SetFocus;
   gmsl_edit.Value:=data_form.yptable.FieldByName('yp_sysl').AsInteger;
   exit;
   end;
data_form.data_con.BeginTrans;
//--同时把库存中该药品减少
data_form.yptable.Edit;
data_form.yptable.FieldByName('yp_sysl').AsInteger :=data_form.yptable.FieldByName('yp_sysl').AsInteger-gmsl_edit.Value;
data_form.yptable.post;

if data_form.gdtable.Locate('gd_yp_id',trim(data_form.yptable.fieldbyname('yp_id').AsString),[]) then
   begin
   data_form.gdtable.Edit;
   data_form.gdtable.FieldByName('gd_yp_money').AsFloat:=data_form.gdtable.FieldByName('gd_yp_money').AsFloat+gmsl_edit.Value*strtofloat(dj_edit.Text);
   data_form.gdtable.FieldByName('gd_yp_gmsl').AsInteger:=data_form.gdtable.FieldByName('gd_yp_gmsl').AsInteger +gmsl_edit.Value;
   data_form.gdtable.Post;
   end
   else
      begin
      if data_form.gdtable.IsEmpty then
         dzid:=formatdatetime('yymmddhhmmss',now)
         else
         dzid:=data_form.gdtable.fieldbyname('gd_dz_id').AsString;
      data_form.gdtable.Append;
      data_form.gdtable.Edit;
      data_form.gdtable.FieldByName('gd_yp_cd').AsString :=data_form.yptable.fieldbyname('yp_cd').AsString;
      data_form.gdtable.FieldByName('gd_yp_id').AsString :=data_form.yptable.fieldbyname('yp_id').AsString;
      data_form.gdtable.FieldByName('gd_yp_name').AsString :=data_form.yptable.fieldbyname('yp_name').AsString;
      data_form.gdtable.fieldbyname('gd_dz_id').AsString:=dzid;
      data_form.gdtable.FieldByName('gd_yp_gg').AsString :=data_form.yptable.fieldbyname('yp_gg').AsString;
      data_form.gdtable.FieldByName('gd_yp_ph').AsString :=data_form.yptable.fieldbyname('yp_ph').AsString;
      data_form.gdtable.FieldByName('gd_yp_dw').AsString :=data_form.yptable.fieldbyname('yp_dw').AsString;
      data_form.gdtable.FieldByName('gd_yp_ysq').AsString :=data_form.yptable.fieldbyname('yp_ysq').AsString;
      data_form.gdtable.FieldByName('gd_yp_zhdj').AsString :=data_form.yptable.fieldbyname('yp_zhdj').AsString;
      data_form.gdtable.FieldByName('gd_yp_zhdw').AsString :=data_form.yptable.fieldbyname('yp_zhdw').AsString;
      data_form.gdtable.FieldByName('gd_yp_gmsl').AsInteger:=gmsl_edit.Value;
      data_form.gdtable.FieldByName('gd_yp_sj').AsString :=dj_edit.Text;
      data_form.gdtable.FieldByName('gd_yp_money').AsFloat :=gmsl_edit.Value*strtofloat(dj_edit.Text);
      data_form.gdtable.FieldByName('gd_yp_pf').AsBoolean :=pf_check.Checked;
      data_form.gdtable.FieldByName('gd_yp_admin').AsString :=admin_lab.Caption;
      data_form.gdtable.Post;
      //--计数加1
      gdxx_l.Caption :=inttostr(strtoint(gdxx_l.Caption)+1);
      end;
main_money.Caption := floattostr(strtofloat(main_money.Caption)+gmsl_edit.Value * strtofloat(dj_edit.Text));
data_form.data_con.CommitTrans;
application.MessageBox('恭喜发财!','完成信息',64+mb_ok); 



   
end;
procedure Tmain_form.dxButton4Click(Sender: TObject);
begin

if not data_form.gdtable.IsEmpty then
   begin
   if application.MessageBox('确定要取消选中的药品吗?','提示信息',mb_yesno)=6 then
      begin
      gdxx_l.Caption :=inttostr(strtoint(gdxx_l.Caption)-1);
      main_money.Caption := floattostr(strtofloat(main_money.Caption)-data_form.gdtable.fieldbyname('gd_yp_money').AsFloat);
      data_form.data_con.BeginTrans;
      data_form.tempquery.Active :=false;
      data_form.tempquery.SQL.Text :='update yptable set yp_sysl=yp_sysl+'+data_form.gdtable.fieldbyname('gd_yp_gmsl').AsString+' where yp_id='+data_form.gdtable.fieldbyname('gd_yp_id').AsString;
      data_form.tempquery.ExecSQL;
      data_form.yptable.Active :=false;
      data_form.yptable.Active :=true;
      data_form.gdtable.Delete;
      data_form.data_con.CommitTrans;
      end;
   end;
end;

procedure Tmain_form.dxButton3Click(Sender: TObject);
begin
if not data_form.gdtable.IsEmpty then
   begin
   if application.MessageBox('确定要取消购单中所有药品吗?','提示信息',mb_yesno)=6 then
      begin
      data_form.data_con.BeginTrans;
      data_form.gdtable.First;
      while not data_form.gdtable.Eof do
            begin
            data_form.tempquery.Active :=false;
            data_form.tempquery.SQL.Text :='update yptable set yp_sysl=yp_sysl+'+data_form.gdtable.fieldbyname('gd_yp_gmsl').AsString+' where yp_id='+data_form.gdtable.fieldbyname('gd_yp_id').AsString;
            data_form.tempquery.ExecSQL;
            data_form.gdtable.Delete;
            end;
      data_form.data_con.CommitTrans;
      gdxx_l.Caption :='0';
      main_money.Caption :='0';
      data_form.yptable.Active :=false;
      data_form.yptable.Active :=true;
      end;
   end;
end;

procedure Tmain_form.dxButton6Click(Sender: TObject);
begin
if print_check.Checked then
   data_form.frReport1.ShowReport;
end;

procedure Tmain_form.dxButton5Click(Sender: TObject);
var
auto_id:integer;
begin
data_form.bstable.Active :=false;
data_form.bstable.CommandText:='select * from bstable where 1=2';
data_form.bstable.Active :=true;
data_form.tempquery.Active :=false;
data_form.tempquery.SQL.Text :='select max(bs_id) from bstable';
data_form.tempquery.Active :=true;
auto_id:=data_form.tempquery.Fields[0].AsInteger+1;
data_form.gdtable.First;
data_form.data_con.BeginTrans;
while not data_form.gdtable.Eof do
      begin
      data_form.bstable.Append;
      data_form.bstable.FieldByName('bs_id').AsInteger:=auto_id;
      data_form.bstable.FieldByName('bs_dzid').AsString:=data_form.gdtable.fieldbyname('gd_dz_id').AsString;
      data_form.bstable.FieldByName('bs_yp_name').AsString:=data_form.gdtable.fieldbyname('gd_yp_name').AsString;
      data_form.bstable.FieldByName('bs_yp_cd').AsString:=data_form.gdtable.fieldbyname('gd_yp_cd').AsString;
      data_form.bstable.FieldByName('bs_yp_ph').AsString:=data_form.gdtable.fieldbyname('gd_yp_ph').AsString;
      data_form.bstable.FieldByName('bs_yp_ysq').AsString:=data_form.gdtable.fieldbyname('gd_yp_ysq').AsString;
      data_form.bstable.FieldByName('bs_dj').AsString:=data_form.gdtable.fieldbyname('gd_yp_sj').AsString;
      data_form.bstable.FieldByName('bs_sl').AsString:=data_form.gdtable.fieldbyname('gd_yp_gmsl').AsString;
      data_form.bstable.FieldByName('bs_money').AsString:=data_form.gdtable.fieldbyname('gd_yp_money').AsString;
      data_form.bstable.FieldByName('bs_rq').AsDateTime:=date;
      data_form.bstable.FieldByName('bs_ren').AsString:=data_form.gdtable.fieldbyname('gd_yp_admin').AsString;
      data_form.bstable.FieldByName('bs_yp_pf').AsBoolean:=data_form.gdtable.FieldByName('gd_yp_pf').AsBoolean;
      data_form.bstable.FieldByName('bs_yp_id').AsString:=data_form.gdtable.FieldByName('gd_yp_id').AsString;
      data_form.bstable.FieldByName('bs_yp_dw').AsString:=data_form.gdtable.FieldByName('gd_yp_dw').AsString;
      data_form.bstable.FieldByName('bs_yp_zhdw').AsString:=data_form.gdtable.FieldByName('gd_yp_zhdw').AsString;
      data_form.bstable.FieldByName('bs_yp_jj').AsString:=data_form.gdtable.FieldByName('gd_yp_zhdj').AsString;
      data_form.bstable.Post;
      auto_id:=auto_id+1;
      data_form.gdtable.Delete;
      end;
gdxx_l.Caption :='0';
main_money.Caption :='0';
data_form.data_con.CommitTrans;
end;

procedure Tmain_form.N1Click(Sender: TObject);
begin
mainpage.ActivePageIndex :=0;
find_edit.Text :='';

data_form.cdtable.Active :=false;
data_form.cdtable.CommandText :='select * from cdtable';
data_form.cdtable.Active :=true;
data_form.yptable.Active :=false;
data_form.yptable.CommandText :='select * from yptable';
data_form.yptable.Active :=true;
end;

procedure Tmain_form.MenuItem2Click(Sender: TObject);
begin
//--------------------------------------------------------------------进货管理
mainpage.ActivePageIndex :=1;
data_form.cdtable.Active :=false;
data_form.cdtable.CommandText :='select * from cdtable';
data_form.cdtable.Active :=true;
data_form.ddtable.Active :=false;
data_form.ddtable.CommandText:='select * from ddtable';
data_form.ddtable.Active :=true;
dd_grid_tab.DataController.DataSource :=data_form.ddsource;

end;


procedure Tmain_form.cxTabSheet2Hide(Sender: TObject);
begin
data_form.cdtable.Active :=false;
data_form.ddtable.Active :=false;
dd_grid_tab.DataController.DataSource :=nil;
end;

procedure Tmain_form.LbSpeedButton17Click(Sender: TObject);
begin
data_form.tempquery.Active:=false;
data_form.tempquery.SQL.Text :='select max(auto_id) from ddtable';
data_form.tempquery.Active :=true;

data_form.ddtable.Append;
data_form.ddtable.FieldByName('auto_id').AsInteger :=data_form.tempquery.Fields[0].AsInteger +1;
data_form.ddtable.FieldByName('yp_zhrq').AsDateTime:=date;
data_form.ddtable.post;

end;

procedure Tmain_form.LbSpeedButton18Click(Sender: TObject);
begin
if not data_form.ddtable.IsEmpty then
   dd_grid_tab.OptionsSelection.CellSelect :=true;
end;

procedure Tmain_form.LbSpeedButton16Click(Sender: TObject);
begin
dd_grid_tab.OptionsSelection.CellSelect :=false;
if data_form.ddtable.State=dsEdit then
   data_form.ddtable.Post;
end;

procedure Tmain_form.LbSpeedButton19Click(Sender: TObject);
begin
if data_form.ddtable.IsEmpty then
   exit;
if application.MessageBox('确定要删除选中的订单吗?','提示信息',64+mb_yesno)=6 then
   data_form.ddtable.Delete;
end;

procedure Tmain_form.LbSpeedButton20Click(Sender: TObject);
begin
if data_form.ddtable.IsEmpty then
   exit;
if application.MessageBox('确定要把订单入库吗?','提示信息',mb_yesno)<>6 then
   exit;
data_form.yptable.Active :=false;
data_form.yptable.CommandText :='select * from yptable where 1=2';
data_form.yptable.Active :=true;
data_form.tempquery.Active :=false;
data_form.tempquery.SQL.Text :='select max(yp_id) from yptable';
data_form.tempquery.Active :=true;

data_form.data_con.BeginTrans;
data_form.yptable.Append;
data_form.yptable.FieldByName('yp_id').AsInteger :=data_form.tempquery.Fields[0].AsInteger +1;
data_form.yptable.FieldByName('yp_cd').AsString :=data_form.ddtable.FieldByName('yp_cd').AsString;
data_form.yptable.FieldByName('yp_name').AsString :=data_form.ddtable.FieldByName('yp_name').AsString ;
data_form.yptable.FieldByName('yp_bh').AsString :=data_form.ddtable.FieldByName('yp_bh').AsString ;
data_form.yptable.FieldByName('yp_gg').AsString :=data_form.ddtable.FieldByName('yp_gg').AsString ;
data_form.yptable.FieldByName('yp_ph').AsString :=data_form.ddtable.FieldByName('yp_ph').AsString;
data_form.yptable.FieldByName('yp_dw').AsString :=data_form.ddtable.FieldByName('yp_dw').AsString;
data_form.yptable.FieldByName('yp_ysq').AsString :=data_form.ddtable.FieldByName('yp_ysq').AsString ;
data_form.yptable.FieldByName('yp_sysl').AsInteger :=data_form.ddtable.FieldByName('yp_sysl').AsInteger;
data_form.yptable.FieldByName('yp_zhdj').AsFloat :=data_form.ddtable.FieldByName('yp_zhdj').AsFloat ;
data_form.yptable.FieldByName('yp_pfdj').AsFloat :=data_form.ddtable.FieldByName('yp_pfdj').AsFloat;
data_form.yptable.FieldByName('yp_lsdj').AsFloat :=data_form.ddtable.FieldByName('yp_lsdj').AsFloat ;
data_form.yptable.FieldByName('yp_zhrq').AsDateTime :=date;
data_form.yptable.FieldByName('yp_zhdw').AsString :=data_form.ddtable.FieldByName('yp_zhdw').AsString;
data_form.yptable.Post;
data_form.ddtable.Delete;
data_form.data_con.CommitTrans;

end;

procedure Tmain_form.N8Click(Sender: TObject);
begin   
//---------------------------------------------------------------------产地维护
mainpage.ActivePageIndex :=3;
data_form.cdtable.Active :=false;
data_form.cdtable.CommandText :='select * from cdtable';
data_form.cdtable.Active :=true;
cd_grid_tab.DataController.DataSource :=data_form.cdsource;
end;

procedure Tmain_form.cxTabSheet4Hide(Sender: TObject);
begin
data_form.cdtable.Active :=false;
data_form.ddtable.Active :=false;
cd_grid_tab.DataController.DataSource :=nil;
end;

procedure Tmain_form.LbSpeedButton7Click(Sender: TObject);
begin
data_form.tempquery.Active :=false;
data_form.tempquery.SQL.Text :='select max(auto_id) from cdtable';
data_form.tempquery.Active :=true;
data_form.cdtable.Append;
data_form.cdtable.FieldByName('auto_id').AsInteger :=data_form.tempquery.Fields[0].AsInteger +1;
data_form.cdtable.Post;

end;

procedure Tmain_form.LbSpeedButton8Click(Sender: TObject);
begin
if not data_form.cdtable.IsEmpty then
   cd_grid_tab.OptionsSelection.CellSelect :=true;

end;

procedure Tmain_form.LbSpeedButton9Click(Sender: TObject);