unit3.pas

用DELPHI编写的固定资产管理系统

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    Table1BDEDesigner: TFloatField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TFloatField;
    Table1BDEDesigner8: TFloatField;
    Table1BDEDesigner9: TStringField;
    Table1BDEDesigner10: TStringField;
    Table1BDEDesigner11: TFloatField;
    Table1BDEDesigner12: TStringField;
    Table1BDEDesigner13: TStringField;
    Table1BDEDesigner14: TStringField;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBEdit1: TDBEdit;
    Memo1: TMemo;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.SpeedButton1Click(Sender: TObject);
var
sum1:real;
s:string;
bookmark1:tbookmark;
begin
sum1:=0.00;
bookmark1:=table1.getbookmark;
table1.disablecontrols;
table1.first;
while not table1.eof do
begin
sum1:=sum1+table1.fieldbyname('价值').value;
table1.Next;
end;
table1.gotobookmark(bookmark1);
table1.FreeBookmark(bookmark1);
table1.EnableControls;
str(sum1:8:2,s);
label3.caption:=s;
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
table1.refresh;
with table1 do
try
  disablecontrols;
  filtered:=false;
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if dbedit1.text='' then begin
messagebeep(1);
showmessage('没有符合条件的记录,请确认条件或放弃查询!');
if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
end else begin
 if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
 end;
end;

end;

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
table1.refresh;
with table1 do
try
  disablecontrols;
  filtered:=false;
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if dbedit1.text='' then begin
messagebeep(1);
showmessage('没有符合条件的记录,请确认条件或放弃删除!');
if messageDlg('是否继续删除别的条件的记录？如果是，请输入新的条件！,只有结束删除才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
filtered:=false;
 table1.close;
 table1.open;
end;
end else begin
 if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
 table1.Delete;
  filtered:=false;
 table1.close;
 table1.open;
end;
 end;
end;


end;

end.