mhcxunitnew.pas

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

unit mhcxunitnew;

interface

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

type
  Tmhcxunit8 = class(TForm)
    Bevel1: TBevel;
    Bevel2: TBevel;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    Bevel3: TBevel;
    SpeedButton2: TSpeedButton;
    Bevel4: TBevel;
    SpeedButton3: TSpeedButton;
    Bevel5: TBevel;
    SpeedButton4: TSpeedButton;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    GroupBox4: TGroupBox;
    DBText1: TDBText;
    Label7: TLabel;
    DBText2: TDBText;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mhcxunit8: Tmhcxunit8;

implementation
uses FenLeiCXunit;
{$R *.dfm}

procedure Tmhcxunit8.Button1Click(Sender: TObject);
var
  findflag:boolean;      //是否找到的标志
  str_source:pchar;      //查找的源字符串
  str_find:pchar;        //待查找的字符串
  findstr1,findstr2,findstr3,findstr4,findstr5,findstr6,findstr7,findstr8:pchar;
  sourcestr1,sourcestr2,sourcestr3,sourcestr4,sourcestr5,sourcestr6,sourcestr7,sourcestr8:pchar;
begin
   findstr1:=pchar(trim(edit1.Text));
   findstr2:=pchar(trim(edit2.Text));
   findstr3:=pchar(trim(edit3.Text));
   findstr4:=pchar(trim(edit4.Text));
   findstr5:=pchar(trim(edit5.Text));
   findstr6:=pchar(trim(edit6.Text));
    begin
      ADOTable1.First;
      findflag:=false;     //置是否找到标志为否，即尚未找到
      while(not ADOTable1.Eof)and(findflag=false)do  //循环查找
        begin
          //str_find:=pchar(trim(combobox1.Text ));  //把待查找内容赋值给待查找的字符串
          //str_source:=PChar(ADOTable1.FieldByName('YaoLei').asstring);//给源字符串赋值
          sourcestr1:=pchar(trim(ADOTable1.FieldByName('中药名').AsString));
          sourcestr2:=pchar(trim(ADOTable1.FieldByName('简述').AsString));
          sourcestr3:=pchar(trim(ADOTable1.FieldByName('性状').AsString));
          sourcestr4:=pchar(trim(ADOTable1.FieldByName('简述').AsString));
          sourcestr5:=pchar(trim(ADOTable1.FieldByName('性味与归经').AsString));
          sourcestr6:=pchar(trim(ADOTable1.FieldByName('功能与主治').AsString));
          //sourcestr8:=pchar(trim(ADOTable1.FieldByName('注意').AsString));
          if (StrPos(PChar(sourcestr1),PChar(findstr1))<>nil) or  (StrPos(PChar(sourcestr2),PChar(findstr2))<>nil) or  (StrPos(PChar(sourcestr3),PChar(findstr3))<>nil) or  (StrPos(PChar(sourcestr4),PChar(findstr4))<>nil) or  (StrPos(PChar(sourcestr5),PChar(findstr5))<>nil) or  (StrPos(PChar(sourcestr6),PChar(findstr6))<>nil) then  //查找函数
            findflag:=true    //若找到，置标志为真
          else
            ADOTable1.Next;   //表指针下移
        end;
      if findflag=false then   //若找到，提示
        ShowMessage('没找到')
      else
        ShowMessage('找到了');  //若未找到，也给与提示
    end;
end;

procedure Tmhcxunit8.FormShow(Sender: TObject);
begin
adotable1.Close;
adotable1.TableName :='zcyt2';
adotable1.active:=true;
datasource1.DataSet:=adotable1;
dbgrid1.DataSource :=datasource1;
dbnavigator1.DataSource :=datasource1;
end;

end.