fjxxunit.pas

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

unit FJXXUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, ToolWin, ComCtrls, StdCtrls, DB, ADODB,
  Grids, DBGrids, DBCtrls, Mask;

type
  TFJXXfrm = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Bevel4: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Bevel5: TBevel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit4: TDBEdit;
    DBMemo2: TDBMemo;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Bevel6: TBevel;
    Bevel7: TBevel;
    ADOConnection1: TADOConnection;
    ADOQuery2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
    t_flag:integer;
  end;

var
  FJXXfrm: TFJXXfrm;

implementation
   uses mainfrm;
{$R *.dfm}

procedure TFJXXfrm.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString:=mainfrm.ConnStr;
end;
procedure TFJXXfrm.FormShow(Sender: TObject);
begin
  ////////////////修改的代码段////////////////////
  dbedit1.Clear;
  dbedit2.Clear;
  dbedit3.Clear;
  dbedit4.Clear;
  dbedit5.Clear;
  dbedit6.Clear;
  dbmemo1.Clear;
  dbmemo2.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;
  speedbutton1.Enabled:=true;
  speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=false;
  speedbutton6.Enabled:=false;
  t_flag:=0;
////////////////修改的代码段////////////////////
   with ADOQuery1 do
      begin
        close;
        SQL.clear;
        SQL.Add('select * from SHYmifang');
        open;
      end;
end;

procedure TFJXXfrm.ComboBox1Change(Sender: TObject);
begin
    edit1.Clear;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
     case combobox1.ItemIndex of
   0: BEGIN
      ADOQuery1.SQL.Add('select * from SHYmifang where 病科="内科病"');
      ADOQuery1.OPEN;
      END;
   1: BEGIN
      ADOQuery1.SQL.Add('select * from SHYmifang where 病科="外科病"');
      ADOQuery1.OPEN;
      END;
   2: BEGIN
      ADOQuery1.SQL.Add('select  * from SHYmifang where 病科="产科病"');
      ADOQuery1.OPEN;
      END;
   3: BEGIN
      ADOQuery1.SQL.Add('select * from SHYmifang where 病科="传染病"');
      ADOQuery1.OPEN;
      END;
   4: BEGIN
      ADOQuery1.SQL.Add('select * from SHYmifang where 病科="寄生虫病"');
      ADOQuery1.OPEN;
      END;
   5: BEGIN
      ADOQuery1.SQL.Add('select * from SHYmifang where 病科="杂病"');
      ADOQuery1.OPEN;
      END;
end;
end;

procedure TFJXXfrm.SpeedButton4Click(Sender: TObject);
begin
   FJXXfrm.Close;
end;

procedure TFJXXfrm.Button1Click(Sender: TObject);
begin
  if trim(edit1.Text)<>'' then
  begin
  with ADOquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select* from SHYmifang where 病名=:bm');
    parameters.ParamByName('bm').value:=edit1.text;
    try
    open;
    except
    showmessage('对不起你输入的病名不存在，请确认输入正确的病名,或单击添加按纽添加！');
    exit;
    end;
    end;
    end
    else
    showmessage('请输入要查询的病名称!');
    end;
procedure TFJXXfrm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
  button1.SetFocus; 
end;
procedure TFJXXfrm.SpeedButton1Click(Sender: TObject);
begin
  t_flag:=1;
  dbedit1.Clear;
  dbedit2.Clear;
  dbedit3.Clear;
  dbedit4.Clear;
  dbedit5.Clear;
  dbedit6.Clear;
  dbmemo1.Clear;
  dbmemo2.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;
  speedbutton1.Enabled:=false;
  speedbutton2.Enabled:=false;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=true;
  speedbutton6.Enabled:=true;
end;

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

procedure TFJXXfrm.SpeedButton3Click(Sender: TObject);
begin
  if dbedit2.Text='' then
  begin
    showmessage('请输入需要删除的病名!');
    dbedit2.SetFocus;
    exit;
  end;
  if MessageBox(handle,'真的要删除吗?','提示',mb_IconQuestion + mb_YesNo)=idYes then
  begin
  with ADOQuery2 do
      begin
        close;
        SQL.clear;
        SQL.Add('delete from SHYmifang where 病名='''+dbedit2.Text+'''');
        ExecSQL;
      end;
  end
  else
  begin
  showmessage('操作取消!');
  exit;
  end;
  with ADOQuery1 do
      begin
        close;
        SQL.clear;
        SQL.Add('select * from SHYmifang order by number desc');
        open;
      end;
  showmessage('删除成功!');
end;

procedure TFJXXfrm.SpeedButton5Click(Sender: TObject);
begin
  if t_flag=1 then
  begin
    if dbedit1.Text='' then
    begin
      showmessage('请输入病科!');
      dbedit1.SetFocus;
      exit;
    end;
    if dbedit2.Text='' then
    begin
      showmessage('请输入病名!');
      dbedit2.SetFocus;
      exit;
    end;
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('insert into  SHYmifang(病科,病名,处方名,处方组成,用法,按语,来源,推荐人)');
    adoquery2.SQL.Add('values('''+dbedit1.Text+''','''+dbedit2.Text+''','''+dbedit3.Text+''','''+dbmemo1.Text+''','''+dbedit4.Text+''','''+dbmemo2.Text+''','''+dbedit5.Text+''','''+dbedit6.Text+''')');
    adoquery2.ExecSQL;
  end
  else if t_flag=2 then
  begin
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('update SHYmifang set 处方名='''+dbedit3.Text+''',处方组成='''+dbmemo1.Text+''',用法='''+dbedit4.Text+''',按语='''+dbedit5.Text+''',来源='''+dbmemo2.Text+''',推荐人='''+dbedit6.Text+''' where (病科='''+dbedit1.Text+''') and (病名='''+dbedit2.Text+''')');
    adoquery2.ExecSQL;
  end;
  with ADOQuery1 do
      begin
        close;
        SQL.clear;
        SQL.Add('select * from SHYmifang order by number desc');
        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;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=false;
  speedbutton6.Enabled:=false;
  showmessage('保存成功!');
end;

procedure TFJXXfrm.SpeedButton6Click(Sender: TObject);
begin
  dbedit1.Clear;
  dbedit2.Clear;
  dbedit3.Clear;
  dbedit4.Clear;
  dbedit5.Clear;
  dbedit6.Clear;
  dbmemo1.Clear;
  dbmemo2.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;
  speedbutton1.Enabled:=true;
  speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=false;
  speedbutton6.Enabled:=false;
end;

end.