实验室仪器管理系统—免费计算机毕业设计论文

实验室仪器管理系统—免费计算机毕业设计论文内容摘要：

og:=39。 AND39。 if Getsth(Edit_name) then arrstr[1]:=39。 (仪器名称 =39。 39。 39。 ++39。 39。 39。 )39。 arrstr[2]:=。 if arrstr[2]39。 39。 then arrstr[2]:=39。 (状况 =39。 39。 39。 +arrstr[2]+39。 39。 39。 )39。 if Getsth(Edit_No) then arrstr[3]:=39。 (型号 =39。 39。 39。 ++39。 39。 39。 )39。 if Getsth(Edit_date) then arrstr[4]:=39。 (启用日期 =39。 39。 39。 ++39。 39。 39。 )39。 if GetSth(Edit_address) then arrstr[5]:=39。 (放置位置 =39。 39。 39。 ++39。 39。 39。 )39。 if GetSth(Edit_experi) then arrstr[6]:=39。 (所属实验 =39。 39。 39。 ++39。 39。 39。 )39。 arrstr[7]:=39。 39。 for i:=1 to 6 do begin arrstr[7]:=arrstr[7]+arrstr[i]。 if arrstr[i]39。 39。 then SQLAll:=SQLAll+Log+arrstr[i]。 end。 if arrstr[7]=39。 39。 then begin showmessage(39。 没有查询项目。 39。 )。 exit。 end。 l:=strlen(Pchar(SQLAll))。 GetMem(SQLTemp,l)。 SQLTemp^ := Chr(0)。 if SQLAll[1]=39。 O39。 then StrCat(SQLTemp,Pchar(SQLAll)+2)。 if SQLAll[1]=39。 A39。 then StrCat(SQLTemp,Pchar(SQLAll)+3)。 SQLStr:=SQLStr+SQLTemp+39。 ORDER BY 仪器名称 ,型号 ,启用日期 ,状况 ,放置位置 ,所属实验 39。 FreeMem(SQLTemp)。 // (Pchar(SQLStr),39。 预查询的 SQL 语句39。 ,MB_OK)。 with Query1 do begin。 (SQLStr)。 Prepare。 ExecSQL。 Open。 end。 end。 procedure (Sender: TObject)。 begin (Tfrm_prt_Lab, frm_prt_Lab)。 Case of 0:begin :=Table1。 :=Table1。 end。 1:begin ShowMessage(39。 *_^ 没编完„„ 39。 )。 exit。 end。 end。 end。 procedure (Sender: TObject。 Field: TField)。 begin FormActivate(Sender)。 end。 procedure (Sender: TObject)。 begin [1].Text:=39。 仪器库纪录导航信息：第39。 +inttostr()+39。 笔纪录 总共39。 +inttostr()+39。 笔纪录 39。 end。 procedure (DataSet: TDataSet)。 begin :=false。 while not do begin if (=)and(=39。 39。 ) then begin :=True。 :=。 end。 end。 end。 procedure (DataSet: TDataSet)。 begin :=39。 否 39。 while not do begin if (=)and(=39。 39。 ) then begin :=39。 是 39。 :=。 end。 end。 end。 end. 仪器借用库维护界面与代码设计 实现及功能 代码设计 : unit Child_Borrow。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids, Buttons。 type Tfrm_Borrow = class(TForm) Panel1: TPanel。 DBNavigator: TDBNavigator。 DataSource1: TDataSource。 Query1: TQuery。 DataSource2: TDataSource。 Table2: TTable。 Table1: TTable。 Panel3: TPanel。 PageControl1: TPageControl。 TabSheet1: TTabSheet。 Label8: TLabel。 Label7: TLabel。 Label6: TLabel。 Label5: TLabel。 Label2: TLabel。 Label1: TLabel。 Label3: TLabel。 Label4: TLabel。 Label9: TLabel。 EditDBEdit8: TDBEdit。 EditDBEdit5: TDBEdit。 EditDBEdit6: TDBEdit。 EditDBEdit7: TDBEdit。 EditDBEdit: TDBEdit。 EditDBEdit2: TDBEdit。 EditDBEdit3: TDBEdit。 EditDBEdit4: TDBEdit。 DBEdit1: TDBEdit。 TabSheet2: TTabSheet。 Panel2: TPanel。 Label22: TLabel。 Label21: TLabel。 Label20: TLabel。 Label23: TLabel。 SpeedButton1: TSpeedButton。 SpeedButton2: TSpeedButton。 Edit_No: TEdit。 Edit_name: TEdit。 Edit_DateIn: TEdit。 RadioGroup1: TRadioGroup。 Edit_DateOut: TEdit。 DBGrid1: TDBGrid。 procedure FormCreate(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure PageControl1Change(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 procedure DataSource1DataChange(Sender: TObject。 Field: TField)。 procedure FormActivate(Sender: TObject)。 private procedure AllRec。 { Private declarations } public { Public declarations } end。 var frm_Borrow: Tfrm_Borrow。 implementation uses Main。 {$R *.DFM} procedure。 begin with Query1 do begin。 (39。 SELECT * FROM 仪器借出信息库 .db39。 )。 Prepare。 ExecSQL。 Open。 end。 end。 procedure (Sender: TObject)。 begin Height:=。 Width:=。 :=alTop。 :=alClient。 :=alClient。 :=0。 :=alClient。 :=+39。 mdb39。 :=39。 仪器借出 信息库 .db39。 :=+39。 mdb39。 :=39。 仪器库 .db39。 :=+39。 mdb39。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin。 with Mainform do begin // [1].Text:=39。 仪器借用库已关闭 39。 if MDIChildCount=1 then [1].Text:=39。 39。 end。 Action:=caFree。 end。 procedure (Sender: TObject)。 begin case of 0:begin :=Table1。 end。 1:begin :=Query1。 AllRec。 end。 end。 end。 procedure (Sender: TObject)。 var SQLStr,SQLAll,Log:String。 SQLTemp:Pchar。 arrstr:array[1..5]of String。 i,l:integer。 function getsth(CurrEdit:TEdit):boolean。 begin result:=false。 if 39。 39。 then result:=true。 end。 begin SQLAll:=39。 39。 SQLStr:=39。 SELECT * FROM 仪器借出信息库 .db WHERE 39。 if =1 then Log:=39。 OR39。 else Log:=39。 AND39。 if Getsth(Edit_name) then arrstr[1]:=39。 (借用人 =39。 39。 39。 ++39。 39。 39。 )39。 if Getsth(Edit_No) then arrstr[2]:=39。 (仪器编号 =39。 39。 39。 ++39。 39。 39。 )39。 if Getsth(Edit_DateOut) then arrstr[3]:=39。 (借用日期 =39。 39。 39。 ++39。 39。 39。 )39。 if Getsth(Edit_DateIn) then arrstr[4]:=39。 (归还日期 =39。 39。 39。 ++39。 39。 39。 )39。 arrstr[5]:=39。 39。 for i:=1 to 4 do begin arrstr[5]:=arrstr[5]+arrstr[i]。 if arrstr[i]39。 39。 then SQLAll:=SQLAll+Log+arrstr[i]。 end。 if arrstr[5]=39。 39。 then begin showmessage(39。 没有查询项目。 39。 )。 exit。 end。 l:=strlen(Pchar(SQLAll))。 GetMem(SQLTemp,l)。 SQLTemp^ := Chr(0)。 if SQLAll[1]=39。 O39。 then St。