The unit Unit1;
Interface
USES the
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress FMTBcd, Grids, DBGrids, DB, DBClient, Provider,
SqlExpr StdCtrls, ComCtrls ExtCtrls, DBCtrls, SimpleDS, Mask, jpeg.
Type
TForm1=class (TForm)
SQLConnection1: TSQLConnection;
SimpleDataSet1: TSimpleDataSet;
SimpleDataSet1ID: TIntegerField;
SimpleDataSet1XM: TStringField;
SimpleDataSet1XB: TStringField;
SimpleDataSet1SFZ: TStringField;
SimpleDataSet1ZS: TStringField;
SimpleDataSet1BJ: TStringField;
SimpleDataSet1JSZ: TStringField;
SimpleDataSet1CL: TStringField;
SimpleDataSet1ZP: TBlobField;
SimpleDataSet1Card_ID: TStringField;
SimpleDataSet1User_ID: TStringField;
SimpleDataSet1TEL1: TStringField;
SimpleDataSet1TEL2: TStringField;
SimpleDataSet1TEL3: TStringField;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
For: TButton;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
Label10: TLabel;
DBEdit9: TDBEdit;
Label11: TLabel;
DBEdit10: TDBEdit;
Label12: TLabel;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
Label13: TLabel;
DBImage1: TDBImage;
Procedure Button1Click (Sender: TObject);
Private
{Private declarations}
Public
{Public declarations}
end;
Var
Form1: TForm1;
Implementation
{$R *. DFM}
Procedure TForm1. Button1Click (Sender: TObject);
The begin
SimpleDataSet1. Active:=False;
SimpleDataSet1.DataSet.Com mandText:='select * from student';
SimpleDataSet1. Active:=True;
end;
End.
CodePudding user response:
The building Lord use adoquery try,CodePudding user response:
Adoquery also tried, data browse to row out 1000 error stream read error,Try to go to, found that the cause is mainly DBImage, how in the dbgrid click record, use the image instead of DBImage display picture?
CodePudding user response:
Could just be a record of the image data when they make a mistake, or format error or data error,