main_unit.pas

医药管理系统

begin
if data_form.cdtable.IsEmpty then
   exit;
if application.MessageBox('确定要删除选中的产地吗?','提示信息',64+mb_yesno)=6 then
   data_form.cdtable.Delete;
end;

procedure Tmain_form.LbSpeedButton6Click(Sender: TObject);
begin
cd_grid_tab.OptionsSelection.CellSelect :=false;
if data_form.cdtable.State=dsEdit then
   data_form.cdtable.Post;
end;

procedure Tmain_form.MenuItem1Click(Sender: TObject);
begin
//---------------------------------------------------------------------药库维护
mainpage.ActivePageIndex :=2;
data_form.tempquery.Active :=false;
data_form.tempquery.SQL.Text :='select sum(yp_zhdj*yp_sysl) from yptable';
data_form.tempquery.Active :=true;
fullmoney.Caption :=data_form.tempquery.Fields[0].AsString +' 元';
data_form.tempquery.Active :=false;
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;
kc_grid_tab.DataController.DataSource :=data_form.ypsource;
fullcheck.Checked :=true;
findtj_com.ItemIndex :=-1;
ycorbh_text.Visible :=true;
ycorbh_text.Text :='';
xl_text.Value :=false;
ysq_text.Visible :=false;
find_btn.Enabled :=false;
panel15.Enabled :=false;
end;

procedure Tmain_form.cxTabSheet3Hide(Sender: TObject);
begin
if data_form.yptable.State=dsEdit then
   data_form.yptable.Post;
kc_grid_tab.DataController.DataSource :=nil;
end;

procedure Tmain_form.LbSpeedButton2Click(Sender: TObject);
begin
data_form.tempquery.Active :=false;
data_form.tempquery.SQL.Text :='select max(yp_id) from yptable';
data_form.tempquery.Active :=true;
data_form.yptable.Append;
data_form.yptable.FieldByName('yp_id').AsInteger :=data_form.tempquery.Fields[0].AsInteger +1;
data_form.yptable.FieldByName('yp_zhrq').AsDateTime :=date;
data_form.yptable.Post;
end;

procedure Tmain_form.LbSpeedButton3Click(Sender: TObject);
begin
if not data_form.yptable.IsEmpty then
   kc_grid_tab.OptionsSelection.CellSelect :=true;
end;

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

procedure Tmain_form.LbSpeedButton1Click(Sender: TObject);
begin
kc_grid_tab.OptionsSelection.CellSelect :=false;
if data_form.yptable.State=dsEdit then
   data_form.yptable.Post;
end;

procedure Tmain_form.LbSpeedButton5Click(Sender: TObject);
begin
if data_form.yptable.IsEmpty then
   exit;
if application.MessageBox('确定要订单选中的药品吗?','提示信息',64+mb_yesno)=6 then
   begin
   data_form.ddtable.Active :=false;
   data_form.ddtable.CommandText :='select * from ddtable where 1=2';
   data_form.ddtable.Active :=true;
   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_cd').AsString :=data_form.yptable.FieldByName('yp_cd').AsString;
   data_form.ddtable.FieldByName('yp_name').AsString :=data_form.yptable.FieldByName('yp_name').AsString ;
   data_form.ddtable.FieldByName('yp_bh').AsString :=data_form.yptable.FieldByName('yp_bh').AsString ;
   data_form.ddtable.FieldByName('yp_gg').AsString :=data_form.yptable.FieldByName('yp_gg').AsString ;
   data_form.ddtable.FieldByName('yp_ph').AsString :=data_form.yptable.FieldByName('yp_ph').AsString;
   data_form.ddtable.FieldByName('yp_dw').AsString :=data_form.yptable.FieldByName('yp_dw').AsString;
   data_form.ddtable.FieldByName('yp_ysq').AsString :='';
   data_form.ddtable.FieldByName('yp_sysl').AsInteger :=0;
   data_form.ddtable.FieldByName('yp_zhdj').AsFloat :=data_form.yptable.FieldByName('yp_zhdj').AsFloat ;
   data_form.ddtable.FieldByName('yp_pfdj').AsFloat :=data_form.yptable.FieldByName('yp_pfdj').AsFloat;
   data_form.ddtable.FieldByName('yp_lsdj').AsFloat :=data_form.yptable.FieldByName('yp_lsdj').AsFloat ;
   data_form.ddtable.FieldByName('yp_zhrq').AsString :=formatdatetime('yyyy-mm-dd',date);
   data_form.ddtable.FieldByName('yp_zhdw').AsString :=data_form.yptable.FieldByName('yp_zhdw').AsString ;
   data_form.ddtable.Post;
   application.MessageBox('订单信息已经保存','完成信息',64+mb_ok);
   end;
end;


procedure Tmain_form.N14Click(Sender: TObject);
begin
application.MessageBox('正在建设中... ...','没有时间做',64+mb_ok);
end;

procedure Tmain_form.MenuItem5Click(Sender: TObject);
begin
application.MessageBox('正在建设中... ...','没有时间做',64+mb_ok);
end;

procedure Tmain_form.MenuItem6Click(Sender: TObject);
begin
application.MessageBox('正在建设中... ...','没有时间做',64+mb_ok);
end;

procedure Tmain_form.N6Click(Sender: TObject);
begin
application.MessageBox('正在建设中... ...','没有时间做',64+mb_ok);
end;

procedure Tmain_form.N4Click(Sender: TObject);
begin
application.MessageBox('正在建设中... ...','没有时间做',64+mb_ok);
end;

procedure Tmain_form.N5Click(Sender: TObject);
begin
application.MessageBox('正在建设中... ...','没有时间做',64+mb_ok); 
end;

procedure Tmain_form.fullyp_checkClick(Sender: TObject);
begin
findtj_com.Enabled :=false;
findtj_com.ItemIndex :=-1;
find_btn.Enabled :=false;
data_form.yptable.Active :=false;
data_form.yptable.CommandText :='select * from yptable';
data_form.yptable.Active :=true;
end;

procedure Tmain_form.nofull_checkClick(Sender: TObject);
begin
findtj_com.Enabled :=true;
findtj_com.ItemIndex :=0;
find_btn.Enabled :=true;
end;

procedure Tmain_form.fullcheckClick(Sender: TObject);
begin
if fullcheck.Checked then
   begin
   findtj_com.ItemIndex :=-1;
   ycorbh_text.Visible :=true;
   ycorbh_text.Text :='';
   xl_text.Value :=false;
   ysq_text.Visible :=false;
   find_btn.Enabled :=false;
   Panel15.Enabled :=false;
   data_form.yptable.Active :=false;
   data_form.yptable.CommandText :='select * from yptable';
   data_form.yptable.Active :=true;
   end
   else
      begin
       findtj_com.ItemIndex :=0;
       ycorbh_text.Visible :=true;
       ycorbh_text.Text :='';
       ysq_text.Visible :=false;
       xl_text.Visible :=false;
       find_btn.Enabled :=true;
       Panel15.Enabled :=true;
      end;

end;

procedure Tmain_form.findtj_comClick(Sender: TObject);
begin
case findtj_com.ItemIndex of
  0..1:
       begin
       ycorbh_text.Visible :=true;
       ycorbh_text.Text :='';
       ysq_text.Visible :=false;
       xl_text.Visible :=false;
       end;
  2:
       begin
       ycorbh_text.Visible :=false;
       ysq_text.Visible :=false;
       xl_text.Visible :=true;
       xl_text.Value :=10;
       end;
  3:
       begin
       ycorbh_text.Visible :=false;
       ysq_text.Visible :=true;
       ysq_text.Date :=date;
       xl_text.Visible :=false;
       end;
end;

end;

procedure Tmain_form.find_btnClick(Sender: TObject);
begin
data_form.yptable.Active :=false;
case findtj_com.ItemIndex of
  0:data_form.yptable.CommandText :='select * from yptable where yp_name like '+#39+'%'+trim(ycorbh_text.Text)+'%'+#39+'  order by yp_ysq';
  1:data_form.yptable.CommandText :='select * from yptable where yp_bh like '+#39+'%'+trim(ycorbh_text.Text)+'%'+#39+'  order by yp_ysq';
  2:data_form.yptable.CommandText :='select * from yptable where yp_sysl<='+inttostr(xl_text.Value);
  3:
    begin
    data_form.yptable.CommandText :='select * from yptable where yp_ysq>=:enddate';
    data_form.yptable.Parameters[0].Value :=ysq_text.Date;
    end;
end;
data_form.yptable.Active :=true;

end;

procedure Tmain_form.ysq_textKeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure Tmain_form.N10Click(Sender: TObject);
begin
admin_lab.Caption :='';
dl_form.Showmodal;
end;

procedure Tmain_form.N12Click(Sender: TObject);
begin
modipass_form.showmodal;
end;

procedure Tmain_form.N3Click(Sender: TObject);
begin
//---------------------------------------------------------------------历史数据
mainpage.ActivePageIndex :=4;
b_date.Date :=date;
e_date.Date :=date;
data_form.bstable.Active :=false;
data_form.bstable.CommandText :='select * from bstable';
data_form.bstable.Active :=true;
lsjl_grid_tab.DataController.DataSource :=data_form.bssource;
end;

procedure Tmain_form.cxTabSheet5Hide(Sender: TObject);
begin
lsjl_grid_tab.DataController.DataSource :=nil;
data_form.bstable.Active :=false;

end;

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

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

procedure Tmain_form.LbSpeedButton14Click(Sender: TObject);
begin
data_form.bstable.Active :=false;
data_form.bstable.CommandText :='select sum(bs_money) from bstable where bs_rq>=:bdate and bs_rq<=:edate';
data_form.bstable.Parameters[0].Value :=b_date.Date;
data_form.bstable.Parameters[1].Value :=e_date.Date;
data_form.bstable.Active :=true;
zj_text.Caption :=floattostr(data_form.bstable.Fields[0].AsFloat)+' 元';

data_form.bstable.Active :=false;
data_form.bstable.CommandText :='select sum(bs_yp_jj * bs_sl) from bstable where bs_rq>=:bdate and bs_rq<=:edate';
data_form.bstable.Parameters[0].Value :=b_date.Date;
data_form.bstable.Parameters[1].Value :=e_date.Date;
data_form.bstable.Active :=true;
cb_text.Caption :=floattostr(data_form.bstable.Fields[0].AsFloat)+' 元';

data_form.bstable.Active :=false;
data_form.bstable.CommandText :='select sum(bs_money-bs_yp_jj*bs_sl) from bstable where bs_rq>=:bdate and bs_rq<=:edate';
data_form.bstable.Parameters[0].Value :=b_date.Date;
data_form.bstable.Parameters[1].Value :=e_date.Date;
data_form.bstable.Active :=true;
sr_text.Caption :=floattostr(data_form.bstable.Fields[0].AsFloat)+' 元';


data_form.bstable.Active :=false;
data_form.bstable.CommandText :='select * from bstable where bs_rq>=:bdate and bs_rq<=:edate';
data_form.bstable.Parameters[0].Value :=b_date.Date;
data_form.bstable.Parameters[1].Value :=e_date.Date;
data_form.bstable.Active :=true;

end;

procedure Tmain_form.LbSpeedButton11Click(Sender: TObject);
begin
data_form.bstable.Active :=false;
data_form.bstable.CommandText :='select * from bstable where bs_dzid='+#39+trim(dz_text.Text)+#39;
data_form.bstable.Active :=true;
end;

procedure Tmain_form.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
data_form.data_con.Connected :=false;
end;

end.