delphi实验室仪器管理系统(六)

delphi实验室仪器管理系统(六) in
      DataSource1.DataSet:=Table1;
      frm_Prt_Lab.QuickRep1.DataSet:=Table1;
    end;
  1:begin
      ShowMessage('*_^ 没编完……');
      exit;
    end;
  end;
  frm_Prt_Lab.QuickRep1.Preview;
  frm_Prt_Lab.Close;
end;

procedure Tfrm_YQ_Lab.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  FormActivate(Sender);
end;

procedure Tfrm_YQ_Lab.FormActivate(Sender: TObject);
begin
  MainForm.StatusBar.Panels[1].Text:='仪器库纪录导航信息：第'+inttostr(DataSource1.DataSet.RecNo)+'笔纪录-总共'+inttostr(DataSource1.DataSet.RecordCount)+'笔纪录';
end;

procedure Tfrm_YQ_Lab.Table1CalcFields(DataSet: TDataSet);
begin
  Table1Field_BeOut.Value:=false;
  Table4.First;
  while not Table4.Eof do
    begin
    if (Table4_YQBH.Value=Table1_YQBH.Value)and(Table4_GHRQ.Value='') then
    begin
      Table1Field_BeOut.Value:=True;
      Table1Field_OutUserName.Value:=Table4_UserName.Value;
    end;
    Table4.Next;
  end;
end;

procedure Tfrm_YQ_Lab.Query1CalcFields(DataSet: TDataSet);
begin
  Query1Field_BeOut.Value:='否';
  Table4.First;
  while not Table4.Eof do
    begin
    if (Table4_YQBH.Value=Query1_YQBH.Value)and(Table4_GHRQ.Value='') then
    begin
      Query1Field_BeOut.AsString :='是';
      Query1Field_OutUserName.Value:=Table4_UserName.Value;
    end;
    Table4.Next;
  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;
 &nb

首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/13/13

delphi实验室仪器管理系统(六)由毕业论文网（www.huoyuandh.com）会员上传。