05 2008 档案

摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi ;type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TO... 阅读全文
posted @ 2008-05-20 01:07 莫忆往西 阅读(361) 评论(0) 推荐(0)
摘要:ShellExecute的各种用法 一、利用系统默认的邮件收发器发送电子邮件 Uses ..., ShellAPI; Var lpHwnd: HWND; lpOperation, lpFile, lpParameters, lpDirectory: String; Begin lpHwnd:= GetDesktopWindow(); lpOperation:= 'open'; lpFile:= ... 阅读全文
posted @ 2008-05-20 00:25 莫忆往西 阅读(266) 评论(0) 推荐(0)
摘要:if str_pwd_in=trim(MainF.ADOQuery1.FieldByName('pwd').AsString) then begin if trim(MainF.ADOQuery1.FieldByName('Type').AsString)='sysadmin' then例如:if Edit1.Text=Adoquery1.FieldByNam... 阅读全文
posted @ 2008-05-14 18:33 莫忆往西 阅读(425) 评论(0) 推荐(0)
摘要:创建方法4完整版 if(SQLConfigDataSource(m_pMainWnd->m_hWnd,ODBC_ADD_DSN,"Microsoft Access Driver (*.mdb)", "DSN=Personnel\0" "DBQ=C:\\My Documents\\dq.mdb\0" "DefaultDir=C:\\My Docu... 阅读全文
posted @ 2008-05-13 18:08 莫忆往西 阅读(666) 评论(0) 推荐(0)
摘要:备份:procedure TBackupFrm.BitBtn2Click(Sender: TObject);beginif Edit1.Text= ' thenbeginShowmessage('无选择要保存的文件名');exit;end;trytrydmData.adoQryTmp.Active:= false;dmData.adoQryTmp.SQL.Clear;dmData.adoQryT... 阅读全文
posted @ 2008-05-10 00:15 莫忆往西 阅读(167) 评论(0) 推荐(0)
摘要:Unit BackRestoreSQLDB; interfaceuses adodb,db;function repl_substr(sub_old, sub_new, s: string): string; //把sub_old换成sub_new,后面有用。function BackupSQLDataBase(connstr_sql,DatabaseName,Backup_Fi... 阅读全文
posted @ 2008-05-09 23:11 莫忆往西 阅读(194) 评论(0) 推荐(0)
摘要:if exists( select * from sysobjects where name=pr_backup_db and xtype=p ) begi... 阅读全文
posted @ 2008-05-09 18:38 莫忆往西 阅读(155) 评论(0) 推荐(0)
摘要:第一部分: 1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider(这本来是用于连接Access数据库的驱动程序,但也可打开Excel文件),按 "下一步"按钮 2. 选择数据库名称。注意:Excel的扩展名是*.xls,而默认文件类型是Microsoft Access 数据库(*.... 阅读全文
posted @ 2008-05-09 18:07 莫忆往西 阅读(382) 评论(0) 推荐(0)
摘要:1.新建工程2.在窗体中添加TADOConnection组件,并设置其ConnectionString属性,以便连接数据库。3.添加TADOTable组件, 并设置其Connection属性为ADOConnection1.从TableName属性中选择数据表。4.添加TDataSource组件,设置其DataSet属性为ADOTable1.5.添加DataGrid组件,设置DataSource属... 阅读全文
posted @ 2008-05-09 18:04 莫忆往西 阅读(222) 评论(0) 推荐(0)
摘要:8位nes游戏资源http://www.emu999.com/http://www1.gameforever.com/rom/rom/fc/index.htmhttp://www4.emu-zone.org/disland/cwjm/fc/fcrom01.htmhttp://218.57.10.70/xiwei/fc1/fca.htmhttp://www.roMMan.net/search.as... 阅读全文
posted @ 2008-05-08 16:39 莫忆往西 阅读(503) 评论(0) 推荐(0)