zhcycxunit.pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

      begin
      //查询对应的中草药名有没有图片
        close;
        SQL.Clear;
        SQL.Add('select * from ImgInfo');
        SQL.Add('where ZCName =:ZcName');
        parameters.ParamByName('ZcName').Value := ZcyName;
        open;
        //没有的话插入图片的相对路径
        if FieldByName('ZcName').AsString = '' then
        begin
            close;
            SQL.Clear;
            Sql.Add('Insert Into ImgInfo');
            Sql.Add('(ZcName,ImgPath)');
            Sql.Add('values');
            Sql.Add('(:ZcName,:ImgPath)');
            Parameters.ParamByName('ZcName').Value := ZcyName ;
            Parameters.ParamByName('ImgPath').Value := ReImgPath;
            ExecSQL;
            judgeImgPath(ImgPath);
            ImgMed.Picture.LoadFromFile(ImgPath);
            label15.Caption := ZcyName ;
            showmessage('       图片插入成功!       ' +#10#13+
                        '                           ');
        end;
      end;
end;
procedure Tzhcycxfrm.ComboBox1Change(Sender: TObject);
begin
   edit1.Clear;
   Aqyzcyt2.Close;
   Aqyzcyt2.SQL.Clear;
   case combobox1.ItemIndex of
   0: BEGIN
      Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="全草类"');
      Aqyzcyt2.OPEN;
      SearchImgPath;
      END;
   1: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="树脂类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
   2: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="果实类"');
       Aqyzcyt2.OPEN;
        SearchImgPath;
       END;
   3: BEGIN
       try
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="根类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       except
       Application.MessageBox('该类别的中药目前不存在!.','提示',64);
       end;
       END;
    4: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="矿物类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
    5: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="根茎类"');
       Aqyzcyt2.OPEN;
         SearchImgPath;
       END;
    6: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="花类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
    7: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="皮类"');
       Aqyzcyt2.OPEN;
         SearchImgPath;
       END;
     8: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="种子类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
     9: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="茎类"');
       Aqyzcyt2.OPEN;
        SearchImgPath;
       END;
     10: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="昆虫类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
     11: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="动物类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
     12: BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="其它类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;
     13:
      BEGIN
       Aqyzcyt2.SQL.Add('select * from zcyt2 where YaoLei="菌藻类"');
       Aqyzcyt2.OPEN;
       SearchImgPath;
       END;

end;
  SpeedButton2.Enabled :=true;
    SpeedButton3.Enabled :=true;
     // SpeedButton4.Enabled :=true;
END;

procedure Tzhcycxfrm.SpeedButton5Click(Sender: TObject);
begin
     zhcycxfrm.Close;
end;

procedure Tzhcycxfrm.SpeedButton3Click(Sender: TObject);
begin
   if dbedit1.Text='' then
  begin
    showmessage('请输入需要删除的中药名!');
    //dbedit1.SetFocus;
    exit;
  end;
  if MessageBox(handle,'真的要删除吗?','提示',mb_IconQuestion + mb_YesNo)=idYes then
  begin
  with ADOQuery2 do
      begin
        close;
        SQL.clear;
        SQL.Add('delete from zcyt2 where 中药名='''+dbedit1.Text+'''');
        ExecSQL;
      end;
  end
  else
  begin
  showmessage('操作取消!');
   exit;
  end;
  with Aqyzcyt2 do
      begin
        close;
        SQL.clear;
        SQL.Add('select * from zcyt2 ');
        open;
      end;
  showmessage('删除成功!');
end;

procedure Tzhcycxfrm.FormShow(Sender: TObject);
begin
   ////////////////修改的代码段////////////////////
  dbedit1.Clear;
  dbedit2.Clear;
  dbedit3.Clear;
  dbedit4.Clear;
  dbedit5.Clear;
  dbedit6.Clear;
  dbmemo1.Clear;
  dbmemo2.Clear;
  dbmemo3.Clear;
  dbmemo4.Clear;
  dbedit1.Enabled:=false;
  dbedit2.Enabled:=false;
  dbedit3.Enabled:=false;
  dbedit4.Enabled:=false;
  dbedit5.Enabled:=false;
  dbedit6.Enabled:=false;
  dbmemo1.Enabled:=false;
  dbmemo2.Enabled:=false;
  dbmemo3.Enabled:=false;
  dbmemo4.Enabled:=false;
  speedbutton1.Enabled:=true;
  //speedbutton2.Enabled:=true;
  //speedbutton3.Enabled:=true;
  //speedbutton4.Enabled:=false;
  speedbutton5.Enabled:=true;
  speedbutton6.Enabled:=false;
  t_flag:=0;
////////////////修改的代码段////////////////////
end;

procedure Tzhcycxfrm.SpeedButton1Click(Sender: TObject);
begin
  t_flag:=1;
  dbedit1.Clear;
  dbedit2.Clear;
  dbedit3.Clear;
  dbedit4.Clear;
  dbedit5.Clear;
  dbedit6.Clear;
  dbmemo1.Clear;
  dbmemo2.Clear;
  dbmemo3.Clear;
  dbmemo4.Clear;
  dbedit1.Enabled:=true;
  dbedit2.Enabled:=true;
  dbedit3.Enabled:=true;
  dbedit4.Enabled:=true;
  dbedit5.Enabled:=true;
  dbedit6.Enabled:=true;
  dbmemo1.Enabled:=true;
  dbmemo2.Enabled:=true;
  dbmemo3.Enabled:=true;
  dbmemo4.Enabled:=true;
  speedbutton1.Enabled:=false;
  speedbutton2.Enabled:=false;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=true;
  speedbutton6.Enabled:=true;
end;

procedure Tzhcycxfrm.SpeedButton2Click(Sender: TObject);
begin
  t_flag:=2;
  dbedit1.Enabled:=false;
  dbedit2.Enabled:=true;
  dbedit3.Enabled:=true;
  dbedit4.Enabled:=true;
  dbedit5.Enabled:=true;
  dbedit6.Enabled:=true;
  dbmemo1.Enabled:=true;
  dbmemo2.Enabled:=true;
  dbmemo3.Enabled:=true;
  dbmemo4.Enabled:=true;
  speedbutton1.Enabled:=false;
  speedbutton2.Enabled:=false;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=true;
  speedbutton6.Enabled:=true;
end;

procedure Tzhcycxfrm.SpeedButton4Click(Sender: TObject);
begin
  if t_flag=1 then
  begin
    if combobox1.Text='' then
    begin
      showmessage('请选择所属类别!');
      combobox1.SetFocus;
      exit;
    end;
    if dbedit1.Text='' then
    begin
      showmessage('请输入中药名!');
      dbedit1.SetFocus;
      exit;
    end;
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('insert into  zcyt2(中药名,药名拼音,英文名,yaolei,简述,性状,性味与归经,功能与主治,注意,贮藏,炮制)');
    adoquery2.SQL.Add('values('''+dbedit1.Text+''','''+dbedit2.Text+''','''+dbedit3.Text+''','''+combobox1.Text+''','''+dbmemo1.Text+''','''+dbmemo2.Text+''','''+dbmemo3.Text+''','''+dbmemo4.Text+''','''+dbedit4.Text+''','''+dbedit5.Text+''','''+dbedit6.Text+''')');
    adoquery2.ExecSQL;
  end
  else if t_flag=2 then
  begin
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('update zcyt2 set 药名拼音='''+dbedit2.Text+''',英文名='''+dbedit3.Text+''',简述='''+dbmemo1.Text+''',性状='''+dbmemo2.Text+''',性味与归经='''+dbmemo3.Text+''',功能与主治='''+dbmemo4.Text+''',注意='''+dbedit4.Text+''',贮藏='''+dbedit5.Text+''',炮制='''+dbedit6.Text+''' where (中药名='''+dbedit1.Text+''') and (yaolei='''+combobox1.Text+''')');
    showmessage(adoquery2.SQL.Text);
    adoquery2.ExecSQL;
  end;
  with Aqyzcyt2 do
      begin
        close;
        SQL.clear;
        SQL.Add('select * from zcyt2');
        open;
      end;
  dbedit1.Enabled:=false;
  dbedit2.Enabled:=false;
  dbedit3.Enabled:=false;
  dbedit4.Enabled:=false;
  dbedit5.Enabled:=false;
  dbedit6.Enabled:=false;
  dbmemo1.Enabled:=false;
  dbmemo2.Enabled:=false;
  speedbutton1.Enabled:=true;
  speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  speedbutton5.Enabled:=true;
  speedbutton4.Enabled:=false;
  speedbutton6.Enabled:=false;
  showmessage('保存成功!');
end;

end.