//如何让窗口闪烁,就象qq有消息时候!
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form1.Handle, TRUE);
FlashWindow(Application.handle, TRUE);
end;
//窗口调用时窗口名称用变量.
a:='form2'
//图表工具中,数据源的设置
DBChart1.Series[0].DataSource:=ADOQuery1;
DBChart1.Series[0].XLabelsSource:='field1' ;
DBChart1.Series[0].YValues.ValueSource:='field2';
DBChart1.Series[0].DataSource:=ADOQuery1;
DBChart1.Series[0].XLabelsSource:='field1' ;
DBChart1.Series[0].YValues.ValueSource:='field2';
DBChart1.ZoomPercent(100);
DBChart1.UndoZoom;
//窗口动画
AnimateWindow(Handle,2000,AW_BLEND);
//弹出消息
Application.MessageBox(Pchar('本月【 '+变量+' 】'+#13+'有未确认的内部领料单!'),'操作提示',MB_OK+MB_IconStop+MB_SystemModal);
DBChart1.UndoZoom;
//窗口动画
//弹出消息
Application.MessageBox(Pchar('本月【 '+变量+' 】'+#13+'有未确认的内部领料单!'),'操作提示',MB_OK+MB_IconStop+MB_SystemModal);
//刷新DBGRid内的数据
adoquery1.Requery([eoAsyncFetch]);
adoquery1.Requery([eoAsyncFetch]);
//返回ADOQuery1的从第5条记录开始的16条记录
adoquery.recno=5
for 循环 12次
adoquery.recno=5
//在KeyPress事件中:转为大写
if (key>#96) and (Key<#123) then
key:=char(ord(Key)-32);
if (key>#96) and (Key<#123) then
key:=char(ord(Key)-32);
edit6.text:=Grdlst.GetFooterValue(0, Grdlst.Columns[6]);
//调试用
var
InsertList:TstringList;
InsertList:=TstringList.Create;
InsertList.Append(SelectSQL);
InsertList.SaveToFile('e:\DelSql\a.txt')
;
InsertList.Append(SelectSQL);
InsertList.SaveToFile('e:\DelSql\a.txt')
DBChart1.LeftAxis.Maximum:=12;
//dbgrideh是否为空
DataSource.DataSet.IsEmpty
DataSource.DataSet.IsEmpty
//向下一条记录
Grdlst.DataSource.DataSet.Next;
Grdlst.DataSource.DataSet.Locate('Mat_no',NextMat_no,[loPartialKey]);
//使窗体标题栏闪烁
var
hDesktop:THandle;
begin
//获取桌面句柄
hDesktop:=FindWindow('ProgMan',nil);
//隐藏桌面上的图标
ShowWindow(hDesktop,SW_HIDE);
hDesktop:=FindWindow('ProgMan',nil);
//显示桌面上的图标
ShowWindow(hDesktop,SW_SHOW);
begin
//禁止软件重复运行
var
begin
end;
end;
uses DateUtils;
A可以为 IncDay(Now, -5)//X轴的宽度为5天
A可以为 IncHour(Now, -3)//X轴的宽度为3小时等等
A可以为
A可以为
//对DbGrideh 进行排序
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
var
sortstring: string;
begin //进行排序
with Column do
begin
if FieldName = '' then
Exit;
case Title.SortMarker of
smNoneEh:
begin
Title.SortMarker := smDownEh;
sortstring := Column.FieldName + ' ASC';
end;
smDownEh:
begin
Title.SortMarker := smUpEh;
sortstring := Column.FieldName + ' ASC';
end;
smUpEh:
begin
Title.SortMarker := smNoneEh;
sortstring := Column.FieldName + ' DESC';
end;
end; //数据集排序。
try
adoquery1.Sort := sortstring //adoquery1为实际数据集变量名
except
end;
end;
end;
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
var
begin //进行排序
end;
//去掉dbgrideh 中的0值
procedure TForm1.ADOTable1bGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if trim(sender.AsString)='0' then
Text:=''
else
Text:=sender.AsString;
procedure TForm1.ADOTable1bGetText(Sender: TField; var Text: String;
begin
end;
//去掉dbgrideh 中的0值
procedure TForm1.DBGridEh1DrawColumnCell
IF Column.Field.DataType=ftFloat Then
IF Column.Field.AsFloat=0 Then
表格名.Canvas.TextRect(Rect,rect.Left,rect.Top,'');
procedure TForm1.DBGridEh1DrawColumnCell
IF Column.Field.DataType=ftFloat
//动态修改显示器分辨率
procedure TForm1.FormCreate(Sender: TObject);
var
x,y:longint;
begin
form1.Scaled :=true;
x:= GetSystemMetrics(SM_CXSCREEN);
y:= GetSystemMetrics(SM_CYSCREEN);
if (x<>800 ) or (y<>600) then
begin
form1.Height :=form1.Height*x div 800;
form1.Width :=form1.Width*y div 600;
scaleby(x,800);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
begin
end;
//*********向某个字段的下一行移动
procedure TForm1.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
If not (screen.ActiveControl is TDBGridEh) then
if (Key = #13) then
begin
Key := #0;
PerForm(Wm_NextDlgCtl,0,0)
end;
If (screen.ActiveControl is TDBGridEh) and (grdlst.DataSource.DataSet<>nil)
and (grdlst.DataSource.DataSet.Active) and (Key = #13) then
begin
grdlst.DataSource.DataSet.Next;
IF grdlst.DataSource.DataSet.Eof then
grdlst.DataSource.DataSet.Last;
end;
end;
begin
If not (screen.ActiveControl is TDBGridEh) then
If (screen.ActiveControl is TDBGridEh) and (grdlst.DataSource.DataSet<>nil)
begin
end;
end;
//新增记录时某个字段的赋给一个值.
procedure TForm1.ADOQuery1NewRecord(DataSet: TDataSet);
begin
adoquery1.FieldByName('a').Value:='kkk';
end;
procedure TForm1.ADOQuery1NewRecord(DataSet: TDataSet);
begin
adoquery1.FieldByName('a').Value:='kkk';
end;
//窗体不断振动
procedure TForm1.Button1Click(Sender: TObject);
var
N
: Integer; //Counter
TL,TT : Integer; //Backup for LEFT and TOP of teh FORM
begin
TL := Left; //Backups Left of the Form
TT := Top;
//Backups Top
of the Form
for N:=1 to 100 do begin
//Counter Time
Left:= (TL-10) + (Random(20)); {Shake Range in Horizontal Driection}
Top := (TT-10) + (Random(20)); {Shake Range in Vertical
Driection}
end;
Left := TL; //Restores Left of the Form
Top
:= TT; //Restores Top
of the Form
end;
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;
TPrintDBGridEh1.PageFooter.CenterText.Add('&[Pages] - &[Page]');
在printdbgrideh里有很多参数可以用:
&[Page]--当前页码
&[ShortDate]、&[Date]、&[LongDate]--当前日期
&[Time]--时间
&[Pages]--总页数
在printdbgrideh里有很多参数可以用:
&[Page]--当前页码
&[ShortDate]、&[Date]、&[LongDate]--当前日期
&[Time]--时间
&[Pages]--总页数
var
shelpfile:string;
begin
sHelpFile:=ExtractFilePath(Application.ExeName)+'books.chm';
HtmlHelp( handle, sHelpFile,HH_DISPLAY_TOPIC, nil);
end;
begin
end;
//每行显示3个中文字
Function DivideStrToLine(In_Str:String;In_StrPerLine:Integer):String;
var
Begin
End;
var
begin
end;
(1)直接显示当前记录
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(Table1Bitmap);
//Table1Bitmap为在Table中添加的字段
// DBImage1.Picture.Bitmap.Assign(adoquery1.FieldByName('b')) ;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
(2)直接显示
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(
TBLOBField(Table1.Fields[1]));
//DBImage1.Picture.Bitmap.Assign(TBLOBField(adoquery1.Fields[1])) ;
end;
//Image1.Picture.Bitmap.Assign(Table1.Fields[1]);也行
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
//Image1.Picture.Bitmap.Assign(Table1.Fields[1]);也行
把BMP图片保存进数据库
procedure TForm1.Button1Click(Sender: TObject);
var
s:tstream;
begin
s:=tfilestream.Create('d:\a.bmp',fmopenread);
try
with adoquery1 do
begin
sql.Clear;
sql.text:='insert into table2(a,b) values(:a,:b)';
parameters.ParamByName('a').Value:=43121;
parameters.ParamByName('b').LoadFromStream(s,ftblob);
execsql;
showmessage('ok');
end;
finally
s.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
begin
s:=tfilestream.Create('d:\a.bmp',fmopenread);
try
with adoquery1 do
begin
sql.Clear;
sql.text:='insert into table2(a,b) values(:a,:b)';
parameters.ParamByName('a').Value:=43121;
parameters.ParamByName('b').LoadFromStream(s,ftblob);
execsql;
showmessage('ok');
end;
finally
s.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
end;
把JPG图片保存进数据库
USES
JPEG;
procedure TForm1.Button3Click(Sender: TObject);
var
JPEGImage: TJPEGImage;
Stream: TMemoryStream;
begin
if OpenpictureDialog1.Execute then
begin
JPEGImage:= TJPEGImage.Create;
Stream:= TMemoryStream.Create;
ADOQuery1.SQL.Text:='select * from table2 ';
ADOQuery1.Open;
ADOQuery1.Insert;
JPEGImage.LoadFromFile(OpenPictureDialog1.FileName);
JPEGImage.SaveToStream(Stream);
TBlobField(ADOQuery1.FieldByName('Image_Picture')).LoadFromStream(Stream);
ADOQuery1.Post;
JPEGImage.Free;
Stream.Free;
end;
end;
var
begin
end;
procedure TForm1.Button4Click(Sender: TObject);
var
tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
ADOQuery1.SQL.Text:='select * from table2 ';
ADOQuery1.Open;
tempstream:=TStringStream.Create(' ');
TBlobField(adoQuery1.FieldByName('Image_Picture')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
var
begin
end;
查看网卡物理地址
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,WinSock;
uses
Function sendarp(ipaddr:ulong; temp:dword; ulmacaddr:pointer; ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;