05 2008 档案
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi ;type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TO...
阅读全文
摘要:ShellExecute的各种用法 一、利用系统默认的邮件收发器发送电子邮件 Uses ..., ShellAPI; Var lpHwnd: HWND; lpOperation, lpFile, lpParameters, lpDirectory: String; Begin lpHwnd:= GetDesktopWindow(); lpOperation:= 'open'; lpFile:= ...
阅读全文
摘要: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...
阅读全文
摘要:创建方法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...
阅读全文
摘要:备份:procedure TBackupFrm.BitBtn2Click(Sender: TObject);beginif Edit1.Text= ' thenbeginShowmessage('无选择要保存的文件名');exit;end;trytrydmData.adoQryTmp.Active:= false;dmData.adoQryTmp.SQL.Clear;dmData.adoQryT...
阅读全文
摘要: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...
阅读全文
摘要:if exists( select * from sysobjects where name=pr_backup_db and xtype=p ) begi...
阅读全文
摘要:第一部分: 1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider(这本来是用于连接Access数据库的驱动程序,但也可打开Excel文件),按 "下一步"按钮 2. 选择数据库名称。注意:Excel的扩展名是*.xls,而默认文件类型是Microsoft Access 数据库(*....
阅读全文
摘要:1.新建工程2.在窗体中添加TADOConnection组件,并设置其ConnectionString属性,以便连接数据库。3.添加TADOTable组件, 并设置其Connection属性为ADOConnection1.从TableName属性中选择数据表。4.添加TDataSource组件,设置其DataSet属性为ADOTable1.5.添加DataGrid组件,设置DataSource属...
阅读全文
摘要: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...
阅读全文

浙公网安备 33010602011771号