登录
首页 » Delphi源码 » Delphi SQLSERVER 操作员权限设置程序

Delphi SQLSERVER 操作员权限设置程序

于 2022-05-21 发布 文件大小:103.25 kB
0 225
下载积分: 2 下载次数: 1

代码说明:

Delphi SQLSERVER 操作员权限设置程序,以销售、进货两个功能,来演示不同帐号所享有的不同操作权限,从用户管理模块中,你可以修改权限设置,测试前,请首先连接好SQLSERVER数据库。   你可以使用以下的测试帐户来感受权限控制功能:   普通用户   用户名:Power   密码: 111   高级用户   用户名:mr   密码: 111

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 从剪贴板中读取图片
    Delphi 从剪贴板中读取图片,Windows剪帖板相信大家都知道吧,这个程序可查看剪贴板中的图像,将图片另保存,可看作是一个查看剪贴板中图片的一个例子。   implementation   {$R *.dfm}   procedure TForm1.BitBtn1Click(Sender: TObject);   begin    Clipboard().Assign(Image1.Picture.Bitmap);   end;   procedure TForm1.BitBtn2Click(Sender: TObject);   begin    if Clipboard().HasFormat(CF_BITMAP) then    Image2.Picture.Bitmap.Assign(Clipboard());   end;   procedure TForm1.BitBtn3Click(Sender: TObject);   begin    Image2.picture := nil;   end;   end.
    2022-06-13 13:08:12下载
    积分:1
  • Delphi 监控剪贴板的文字内容
    Delphi 监控剪贴板的文字内容,这个监控程序可以监控复制到剪切板的文字信息,图片暂时不能监控到,具体的监控实现如下:   NextformHwnd:HWND;//观察链中下一个窗口句柄   procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;   //处理WM_DRAWCLIPBOARD消息过程    { Public declarations }   //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口   SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);   //查询剪贴板中特定格式的数据内容   if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then   begin    //处理剪贴板中内容    memo1.Lines.Clear;    memo1.Lines.Add(Clipboard.asText);   end;
    2022-01-22 10:48:45下载
    积分:1
  • Delphi 多帧动画播放
    Delphi 多帧动画播放,Delphi将多幅连续的BMP图像显示在一起,形成了动画的效果,类似于GIF的类型动画。每一张图片都是一帧,将帧快速的连起来,就形成了动画效果。
    2023-07-24 05:15:03下载
    积分:1
  • Delphi户籍管理系统,Access数据库版
    Delphi户籍管理系统,Access数据库版,界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为:222222 。   在数据库编程方面,本系统更注重录入及查询,采用多重SQL语句查询,并结合查询可生成报表。
    2022-04-18 17:44:59下载
    积分:1
  • Delphi获取和设置汉字输入法
    Delphi 获取系统中已安装的中文输入法,判断是否在中文状态,若是则关闭它,切换半角和全角模式,切换中文标点模式和英文标点模式,并对输入法做相关设置。以下是相关代码:   procedure TForm1.closecid;   var    mycid:hkl;   begin    mycid:=GetKeyBoardLayOut(0);    if ImmIsIME(mycid) then    //判断是否在中文状态,若是则关闭它    immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);   end;   procedure TForm1.FormShow(Sender: TObject);   var    j:integer;   begin    for j:=0 to screen.imes.count-1 do    begin    //获取系统中已安装的中文输入法    ComBoBox1.Items.Add(screen.Imes.strings[j]);    end;   end;
    2022-10-19 03:05:03下载
    积分:1
  • Delphi 控制键盘指示灯
    Delphi 控制键盘指示灯,控制键盘灯打开或关闭。就像大小写切换时候,小键盘上面的灯会亮起、关闭,比较简单的一个小功能,适合入门学者参考学习。
    2023-04-11 08:00:04下载
    积分:1
  • Delphi实现TdxDBTreeView节点全部展开或收拢
    本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能,也就是大家熟悉的树形菜单节点的折叠或展开功能,在平时的使用中,树形节点是很常用的一个菜单功能,本例子的树形菜单节点功能读取自数据库,因此在测试前请连接好数据库。   //单击全部展开按钮   procedure TForm1.Button1Click(Sender: TObject);   begin    dxDBTreeView1.FullExpand;   end;    //单击全部收拢按钮   procedure TForm1.Button2Click(Sender: TObject);   begin    dxDBTreeView1.FullCollapse;   end;
    2022-01-26 05:17:01下载
    积分:1
  • Delphi 枚举线程示例
    枚举线程的Delphi实例代码,Delphi 枚举线程的例子应该很多了,这一个比较简单的那种,可以为学习Delphi的新手朋友提供一些参考思路,运行界面效果如下图所示。源代码编译于Delphi7.0环境。
    2022-08-16 10:03:07下载
    积分:1
  • Delphi 控制Canvas上的直线点跟随鼠标移动
    Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑,控制Canvas上的直线点跟随鼠标移动,其实这就是画线的基本方法,直线的一端确定后,另一端需要鼠标移动来指定端点,本程序的功能就是让线段的另一头跟随鼠标移动,以确定线段的最终位置。
    2022-02-25 18:56:03下载
    积分:1
  • Delphi 应用程序背景与桌面融合在一起
    Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;
    2022-02-02 23:31:59下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载