论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > DELPHI >

A450实验室仪器管理系统

procedure Tfrm_YQ_Lab.Query1CalcFields(DataSet:TDataSet);

http://www.paper51.com

begin paper51.com

  Query1Field_BeOut.Value:='否'; copyright paper51.com

  Table4.First; 内容来自论文无忧网 www.paper51.com

  while notTable4.Eof do

内容来自论文无忧网 www.paper51.com

    begin

内容来自论文无忧网 www.paper51.com

    if(Table4_YQBH.Value=Query1_YQBH.Value)and(Table4_GHRQ.Value='') then paper51.com

    begin

paper51.com

     Query1Field_BeOut.AsString :='是'; http://www.paper51.com

     Query1Field_OutUserName.Value:=Table4_UserName.Value;

paper51.com

    end; http://www.paper51.com

    Table4.Next;

内容来自www.paper51.com

  end; 内容来自www.paper51.com

end; 内容来自论文无忧网 www.paper51.com

end. 内容来自论文无忧网 www.paper51.com

3.2        仪器借用库维护界面与代码设计实现及功能 copyright paper51.com

copyright paper51.com

代码设计: 内容来自论文无忧网 www.paper51.com

unit Child_Borrow; 内容来自www.paper51.com

interface 内容来自www.paper51.com

uses

内容来自论文无忧网 www.paper51.com

  Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs, 内容来自www.paper51.com

  StdCtrls, Mask, DBCtrls, ComCtrls, Db,DBTables, ExtCtrls, Grids, copyright paper51.com

  DBGrids, Buttons; 内容来自www.paper51.com

type

copyright paper51.com

  Tfrm_Borrow = class(TForm)

paper51.com

    Panel1: TPanel; copyright paper51.com

    DBNavigator: TDBNavigator;

http://www.paper51.com

    DataSource1: TDataSource;

copyright paper51.com

    Query1: TQuery; http://www.paper51.com

    DataSource2: TDataSource;

内容来自论文无忧网 www.paper51.com

    Table2: TTable; 内容来自www.paper51.com

    Table1: TTable; paper51.com

    Panel3: TPanel; copyright paper51.com

    PageControl1: TPageControl; paper51.com

    TabSheet1: TTabSheet; copyright paper51.com

    Label8: TLabel; 内容来自论文无忧网 www.paper51.com

    Label7: TLabel;

paper51.com

    Label6: TLabel; 内容来自论文无忧网 www.paper51.com

    Label5: TLabel;

http://www.paper51.com

    Label2: TLabel;

copyright paper51.com

    Label1: TLabel;

内容来自www.paper51.com

    Label3: TLabel;

内容来自www.paper51.com

    Label4: TLabel;

内容来自论文无忧网 www.paper51.com

    Label9: TLabel;

paper51.com

    EditDBEdit8: TDBEdit;

copyright paper51.com

    EditDBEdit5: TDBEdit;

copyright paper51.com

    EditDBEdit6: TDBEdit;

copyright paper51.com

    EditDBEdit7: TDBEdit;

copyright paper51.com

    EditDBEdit: TDBEdit;

内容来自www.paper51.com

    EditDBEdit2: TDBEdit; paper51.com

    EditDBEdit3: TDBEdit; 内容来自www.paper51.com

    EditDBEdit4: TDBEdit;

内容来自www.paper51.com

    DBEdit1: TDBEdit;

http://www.paper51.com

    TabSheet2: TTabSheet;

内容来自论文无忧网 www.paper51.com

    Panel2: TPanel;

内容来自论文无忧网 www.paper51.com

    Label22: TLabel; copyright paper51.com

    Label21: TLabel;

内容来自www.paper51.com

    Label20: TLabel; paper51.com

    Label23: TLabel; http://www.paper51.com

    SpeedButton1: TSpeedButton; copyright paper51.com

    SpeedButton2: TSpeedButton; 内容来自www.paper51.com

    Edit_No: TEdit; http://www.paper51.com

    Edit_name: TEdit; http://www.paper51.com

    Edit_DateIn: TEdit; paper51.com

    RadioGroup1: TRadioGroup;

内容来自www.paper51.com

    Edit_DateOut: TEdit; copyright paper51.com

    DBGrid1: TDBGrid; http://www.paper51.com

    procedureFormCreate(Sender: TObject);

paper51.com

    procedureFormClose(Sender: TObject; var Action: TCloseAction);

http://www.paper51.com

    procedurePageControl1Change(Sender: TObject);

内容来自www.paper51.com

    procedureSpeedButton1Click(Sender: TObject);

paper51.com

    procedureDataSource1DataChange(Sender: TObject; Field: TField);

http://www.paper51.com

    procedureFormActivate(Sender: TObject);

内容来自论文无忧网 www.paper51.com

  private

copyright paper51.com

    procedureAllRec; http://www.paper51.com

    { Privatedeclarations } copyright paper51.com

  public

copyright paper51.com

    { Publicdeclarations } 内容来自论文无忧网 www.paper51.com

  end;

内容来自论文无忧网 www.paper51.com

var

内容来自www.paper51.com

  frm_Borrow: Tfrm_Borrow;

http://www.paper51.com

implementation paper51.com

uses Main;

copyright paper51.com

{$R *.DFM}

paper51.com

procedure Tfrm_Borrow.AllRec;

内容来自www.paper51.com

begin

paper51.com

  with Query1 do 内容来自www.paper51.com

  begin

内容来自论文无忧网 www.paper51.com

    SQL.Clear;

http://www.paper51.com

    SQL.Add('SELECT * FROM"仪器借出信息库.db"');

copyright paper51.com

    Prepare;

内容来自论文无忧网 www.paper51.com

    ExecSQL; paper51.com

    Open;

http://www.paper51.com

  end;

copyright paper51.com

end; copyright paper51.com

------分隔线----------------------------
联系方式