|
procedure Tfrm_YQ_Lab.Query1CalcFields(DataSet:TDataSet); copyright paper51.com begin 内容来自www.paper51.com
Query1Field_BeOut.Value:='否'; copyright paper51.com
Table4.First; paper51.com while notTable4.Eof do 内容来自论文无忧网 www.paper51.com begin http://www.paper51.com if(Table4_YQBH.Value=Query1_YQBH.Value)and(Table4_GHRQ.Value='') then 内容来自论文无忧网 www.paper51.com begin copyright paper51.com Query1Field_BeOut.AsString :='是'; 内容来自论文无忧网 www.paper51.com Query1Field_OutUserName.Value:=Table4_UserName.Value; copyright paper51.com end; copyright paper51.com Table4.Next; http://www.paper51.com
end; http://www.paper51.com end; http://www.paper51.com end. 内容来自论文无忧网 www.paper51.com 3.2 仪器借用库维护界面与代码设计实现及功能 内容来自论文无忧网 www.paper51.com
copyright paper51.com 代码设计: 内容来自www.paper51.com
unit Child_Borrow; paper51.com interface 内容来自论文无忧网 www.paper51.com uses paper51.com Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs, 内容来自论文无忧网 www.paper51.com
StdCtrls, Mask, DBCtrls, ComCtrls, Db,DBTables, ExtCtrls, Grids, 内容来自论文无忧网 www.paper51.com DBGrids, Buttons; copyright paper51.com type 内容来自www.paper51.com Tfrm_Borrow = class(TForm) 内容来自www.paper51.com
Panel1: TPanel; paper51.com DBNavigator: TDBNavigator; copyright paper51.com DataSource1: TDataSource; http://www.paper51.com Query1: TQuery; paper51.com DataSource2: TDataSource; http://www.paper51.com
Table2: TTable; http://www.paper51.com Table1: TTable; copyright paper51.com Panel3: TPanel; http://www.paper51.com
PageControl1: TPageControl; 内容来自论文无忧网 www.paper51.com TabSheet1: TTabSheet; copyright paper51.com Label8: TLabel; http://www.paper51.com Label7: TLabel; 内容来自www.paper51.com
Label6: TLabel; http://www.paper51.com Label5: TLabel; 内容来自www.paper51.com Label2: TLabel; copyright paper51.com Label1: TLabel; copyright paper51.com Label3: TLabel; 内容来自论文无忧网 www.paper51.com Label4: TLabel; copyright paper51.com Label9: TLabel; paper51.com EditDBEdit8: TDBEdit; http://www.paper51.com
EditDBEdit5: TDBEdit; 内容来自www.paper51.com EditDBEdit6: TDBEdit; 内容来自论文无忧网 www.paper51.com EditDBEdit7: TDBEdit; paper51.com
EditDBEdit: TDBEdit; 内容来自论文无忧网 www.paper51.com EditDBEdit2: TDBEdit; http://www.paper51.com EditDBEdit3: TDBEdit; 内容来自www.paper51.com
EditDBEdit4: TDBEdit; copyright paper51.com DBEdit1: TDBEdit; 内容来自www.paper51.com TabSheet2: TTabSheet; paper51.com Panel2: TPanel; paper51.com Label22: TLabel; http://www.paper51.com Label21: TLabel; 内容来自www.paper51.com Label20: TLabel; 内容来自www.paper51.com
Label23: TLabel; 内容来自论文无忧网 www.paper51.com
SpeedButton1: TSpeedButton; 内容来自www.paper51.com SpeedButton2: TSpeedButton; copyright paper51.com Edit_No: TEdit; http://www.paper51.com Edit_name: TEdit; http://www.paper51.com
Edit_DateIn: TEdit; paper51.com RadioGroup1: TRadioGroup; paper51.com Edit_DateOut: TEdit; 内容来自www.paper51.com DBGrid1: TDBGrid; http://www.paper51.com procedureFormCreate(Sender: TObject); paper51.com
procedureFormClose(Sender: TObject; var Action: TCloseAction); copyright paper51.com procedurePageControl1Change(Sender: TObject); 内容来自论文无忧网 www.paper51.com
procedureSpeedButton1Click(Sender: TObject); http://www.paper51.com procedureDataSource1DataChange(Sender: TObject; Field: TField); http://www.paper51.com procedureFormActivate(Sender: TObject); http://www.paper51.com
private 内容来自www.paper51.com
procedureAllRec; 内容来自论文无忧网 www.paper51.com { Privatedeclarations } 内容来自www.paper51.com public 内容来自www.paper51.com { Publicdeclarations } paper51.com end; 内容来自www.paper51.com var 内容来自论文无忧网 www.paper51.com
frm_Borrow: Tfrm_Borrow; http://www.paper51.com implementation 内容来自www.paper51.com uses Main; copyright paper51.com {$R *.DFM} 内容来自论文无忧网 www.paper51.com
procedure Tfrm_Borrow.AllRec; paper51.com begin paper51.com with Query1 do 内容来自www.paper51.com begin copyright paper51.com SQL.Clear; 内容来自论文无忧网 www.paper51.com
SQL.Add('SELECT * FROM"仪器借出信息库.db"'); 内容来自www.paper51.com Prepare; http://www.paper51.com ExecSQL; copyright paper51.com
Open; paper51.com end; 内容来自论文无忧网 www.paper51.com end; http://www.paper51.com |