admbase.h

一个图书馆信息查询系统。是根据学校图书馆的实际情况调查后开发

#include <windows.h>
#include "datas.h"
#include "AdoConnect.h"
#include "resource.h"

static USERINFO * admab;
void AdmBase(HWND, USERINFO *);	//管理员的信息:普管和系管
LRESULT CALLBACK dpAdmBase(HWND, UINT, WPARAM, LPARAM);

void AdmBase(HWND hWnd, USERINFO * ui)
{
	admab = ui;
	DialogBox((HINSTANCE)GetWindowLong(hWnd, GWL_HINSTANCE), 
		(LPCTSTR)IDD_ADM_INFO, hWnd, (DLGPROC)dpAdmBase);
}

LRESULT CALLBACK dpAdmBase(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
	AdoConnect ado;
	TCHAR lisence[MAX_STRING];
	TCHAR password[MAX_STRING];
	TCHAR name[MAX_STRING];
	TCHAR str1[MAX_STRING];
	TCHAR str2[MAX_STRING];
	_bstr_t bstr;
	_RecordsetPtr pr;
	
	switch (message)
	{
		case WM_INITDIALOG:
 			if(UT_SYSADM == admab->ut)
				lstrcpy(str1, "select * from sysadm ");
			if(UT_COMADM == admab->ut)
				lstrcpy(str1, "select * from comadm ");

			wsprintf(str2, " where id=%d;", admab->id);

			UniteBSTR(bstr, var str1 , var str2, var ";");
			ado.OnInitDBConnect();
			pr = ado.GetRecordset(bstr);
			lstrcpy(lisence, lpstr pr->GetCollect("lisence"));
			lstrcpy(password, lpstr pr->GetCollect("password"));
			lstrcpy(name, lpstr pr->GetCollect("name"));
			ado.ExitConnect();

			SendMessage(GetDlgItem(hDlg, IDC_AI_LISENCE), WM_SETTEXT, 0, (LPARAM)lisence);
			SendMessage(GetDlgItem(hDlg, IDC_AI_PASSWORD), WM_SETTEXT, 0, (LPARAM)password);
			SendMessage(GetDlgItem(hDlg, IDC_AI_NAME), WM_SETTEXT, 0, (LPARAM)name);

 			return TRUE;

		case WM_COMMAND:
			if (LOWORD(wParam) == ID_AI_ALTER) //更改管理员信息
			{
 				SendMessage(GetDlgItem(hDlg, IDC_AI_PASSWORD), WM_GETTEXT, MAX_STRING-1, (LPARAM)password);
				SendMessage(GetDlgItem(hDlg, IDC_AI_NAME), WM_GETTEXT, MAX_STRING-1, (LPARAM)name);
				if(0 == lstrcmp(password, ""))
				{
					MessageBox(hDlg, "Password can't be empty!", "Fail!", MB_ICONSTOP);
					return TRUE;
				}

				if(UT_SYSADM == admab->ut)
					lstrcpy(str1, "update sysadm set password='");
				if(UT_COMADM == admab->ut)
					lstrcpy(str1, "update comadm set password='");
 
				wsprintf(str2, "' where id=%d;", admab->id);
				UniteBSTR(bstr, var str1, var password, var "' , name='", var name, var str2);
				
				ado.OnInitDBConnect();
				ado.ExecuteSQL(bstr);
				ado.ExitConnect();
				
				UniteBSTR(bstr, var "更新为：", var "密码=", var password, var ", ", var "名字=", var name, var ";");
				MessageBox(hDlg, lpstr bstr, "Successed!", MB_OK);
			}
			
			if(LOWORD(wParam) == IDCANCEL) 
			{
				EndDialog(hDlg, LOWORD(wParam));
			}
			return TRUE;//WM_COMMAND end

		default:
			return FALSE;
	}
}