笨笨莱鸟学编程

摘要： hdc = GetDC(hWnd); mdc=CreateCompatibleDC(hdc); bufdc=CreateCompatibleDC(hdc); bmp=CreateCompatibleBitmap(hdc,640,480); SelectObject(mdc,bmp); bg=(HBITMAP)LoadImage(NULL,"bg.bmp",IMAGE_BITMAP,640,480,LR_LOADFROMFILE); ship=(HBITMAP)LoadImage(NULL,"ship.bmp",IMAGE_BITMAP,300,100,L 阅读全文

摘要： #include "stdio.h"case WM_MOUSEMOVE:x=LOWORD(lParam);y=HIWORD(lParam);sprintf_s(str,"X的坐标%d ",x);TextOut(hdc,0,0,str,strlen(str));sprintf_s(str,"Y的坐标%d ",y);TextOut(hdc,0,20,str,strlen(str));break; 阅读全文

摘要： 1. 安装oralce 10g2.建立数据库和用户配置VS2005环境 proc需要嵌入式环境在C/C++常规里面加入D:\oracle\product\10.2.0\db_1\precomp\public在连接器附加库目录里加入D:\oracle\product\10.2.0\db_1\precomp\LIB然后编译在dos环境下生产的conn.c#include #include #include #include"sqlca.h" EXECSQLBEGINDECLARESECTION;char*uid=batman/batman@gexin;EXECSQLENDDEC 阅读全文

摘要： oracle数据库开发编程中，没有找到oci.dll，一般是系统的 path 设置有问题， 查找oci.dll, 然后加入到系统路径。oci.dll 可下载解压到系统盘的system32目录下。然后打开“开始-运行-输入regsvr32 oci.dll”，回车即可解决错误提示！ 阅读全文

摘要： 最近在搞C语言连接Oracle、DB2数据库，现把C连接Oracle的文章总结下：用C语言连接ORACLE数据库。有两个思路和目的思路一）本地环境：UBUNTU 7.04,ORACLE 10G目的:用C语连接本地数据库sid:umail,ip:127.0.0.1,用户名:umail，密码:umail,表tt1.显示表tt1的所有记录.思路二）远程环境服务器1：linux es3远程数据库：oracle9i目的:在远程一台服务器上，再远程连接数据库，用户名和表同上显示表tt1的所有记录.一）思路一解决办法：1) 查看/etc/profile文件export ORACLE_BASE=/share/ 阅读全文

摘要： HBITMAP girl[4],bg;HDC hdc,mdc,bufdc;HWND hWnd;DWORD tPre,tNow=0;int num,dir,x,y;void GemeCycle();void MyPaint(HDC hdc);::ZeroMemory(&msg,sizeof(msg)); //指定的内存块清零。 使用结构前清零,而不让结构的成员数值具有不确定性// 主消息循环:while (msg.message!=WM_QUIT/*GetMessage(&msg, NULL, 0, 0)*/){//if (!TranslateAccelerator(msg.hw 阅读全文

摘要： uses SysUtils,Classes;type CardType=array[0..3] of string; const CardNums=12;type RCardrecord=record CardInfo: string; end; PCard=^RCardrecord;var slist: TList; i,j: Integer; iSub,iSpare: Integer; sCardType,sCardNum: string; aCard: PCard; iRandom,iCount: Integer; tCardInfo: string; aCardType: CardTy 阅读全文

摘要： {线性的顺序查找}function seqSearch(sArr: array of Integer;aCount: Integer;const index: Integer):Integer;var i: Integer;begin Result := -1; for i := 0 to aCount do if sArr[i]=index then begin Result := i; Break; end;end;{对数性的二分查找}function binarySearch(sArr: array of Integer;aCount: Integer;const index: Inte 阅读全文

摘要： http://www.jb51.net/article/32616.htm 阅读全文

摘要： function Fuzhi135(s: string): string;var cCount,eCount,eCountNum,i,isum: Integer;begin cCount := 0; eCount := 0; eCountNum := 0; for i := 1 to length(s) do begin if ByteType(s, i) = mbSingleByte then inc(cCount) else if ByteType(s, i) = mbLeadByte then begin Inc(eCount); eCountNum := eCountNum + 2; 阅读全文