自己用的sql语句 自己用的,对别人无用 create table t_classify_method ( id uniqueidentifier primary key default newid(), name_ch nvarchar(20), naem_en nvarchar(60), d_code nvarch
sql游标存储过程 --新建视图 v_desk create view v_desk as select a.*, b.usingType_code, b.sOrderNo from t_desk a left join t_using_desk b on a.id = b.desk_id go --新建台号时向 t_
播放本地多种格式的图片 播放本地多种格式的图片,并保存图片 if SaveDialog1.Execute then with TLinearBitmap.Create do try Assign(Image1.Picture.Bitmap); // To compress JPEG2000 files to 5% of r
delphi中实现以管理员方式打开程序所需的资源文件 有时候,程序需要自动以管理员方式运行,这是delphi中实现该功能可用的编译好的资源文件 使用方法: 1、将制作好的资源文件UAC.RES拷贝到delphi工程目录下 2、打开主工程文件,在{$R*.res}这行代码下面,添加{$RUAC.res} ,保存,重新编译你的项目,即可
delphi中鼠标移动事件 鼠标移动事件的应用procedureTForm1.DBGrid1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginself.X:=X;self.Y:=Y;Dbgrid1.Repaint;end;
delphi动态创建的panel的位置显示 procedureTForm1.SetPanelPostion(APanel:TPanel;AColumn,AIndex:integer);variRow,iColumn:integer;beginiRow:=AIndexdivAColumn;iColumn:=AIndexmodAColumn;AP