为什么我的程序一运行就死了，而且鼠标不能放到任务栏区域

[capfdipoe]

oh my god ,看来我有编hack tool 的天份

[sundayboys]

xixi，你这样说，谁知道问题在哪儿啊：）

你有编hack tool的天分，好怕啊，我闪

[Pasp]

源码贴上来看看

[路人丁]

源代码！大家帮你！

[guzhigang]

提问者在那？我近视^_^

[capfdipoe]

现奉上源代码，希望大侠们能帮我忙
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "manage.h"
#include "datamodule.h"
#include "rw_tools.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmManage *frmManage;
//---------------------------------------------------------------------------
__fastcall TfrmManage::TfrmManage(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmManage::SpeedButton2Click(TObject *Sender)
{
Panel1->Hide();
Splitter2->Hide();
SpeedButton2->Hide();
SpeedButton3->Visible=true;

}
//---------------------------------------------------------------------------

void __fastcall TfrmManage::SpeedButton3Click(TObject *Sender)
{
Panel1->Visible=true;
SpeedButton2->Visible=true;
SpeedButton3->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmManage::TreeView1Change(TObject *Sender,
TTreeNode *Node)
{
AnsiString S1,S2,S3;
S1="%;";
S2=S_User_no;
S3=":%";
if(Node->Text=="收件箱"){
dmManage->qrySendInformation->Close();
dmManage->qrySendInformation->SQL->Clear();
dmManage->qrySendInformation->SQL->Add("select * from sendinformation where R_no=:user_no and reader_list not like :String and ban_reader_list not like :String and junk_reader_list not like :String");
dmManage->qrySendInformation->ParamByName("String")->AsString=StrCat(S1.c_str(),StrCat(S2.c_str(),S3.c_str()));
dmManage->qrySendInformation->ParamByName("user_no")->AsString=S_User_no;
dmManage->qrySendInformation->Prepare();
dmManage->qrySendInformation->Open();
pmuInsert->Enabled=false;
pmuDelete->Enabled=true;
pmuThrow->Enabled=true;
box=0;
}
else if(Node->Text=="发件箱"){
dmManage->qrySendInformation->Close();
dmManage->qrySendInformation->SQL->Clear();
dmManage->qrySendInformation->SQL->Add("select * from sendinformation where S_no=:user_no and ban_reader_list not like :String and junk_reader_list not like :String");
dmManage->qrySendInformation->ParamByName("String")->AsString=StrCat(S1.c_str(),StrCat(S2.c_str(),S3.c_str()));
dmManage->qrySendInformation->ParamByName("user_no")->AsString=S_User_no;
dmManage->qrySendInformation->Prepare();
dmManage->qrySendInformation->Open();
pmuInsert->Enabled=true;
pmuDelete->Enabled=false;
pmuThrow->Enabled=false;
box=1;
dmManage->dtsSendInformation->Enabled=true;
}
else if(Node->Text=="垃圾箱"){
dmManage->qrySendInformation->Close();
dmManage->qrySendInformation->SQL->Clear();
dmManage->qrySendInformation->SQL->Add("select * from sendinformation where (S_no=:user_no or R_no=:user_no) and junk_reader_list like :String");
dmManage->qrySendInformation->ParamByName("String")->AsString=StrCat(S1.c_str(),StrCat(S2.c_str(),S3.c_str()));
dmManage->qrySendInformation->ParamByName("user_no")->AsString=S_User_no;
dmManage->qrySendInformation->Prepare();
dmManage->qrySendInformation->Open();
pmuInsert->Enabled=false;
pmuDelete->Enabled=true;
pmuThrow->Enabled=false;
box=2;
dmManage->dtsSendInformation->Enabled=true;
}
else if(Node->Text=="收发信息"){
dmManage->qrySendInformation->Close();
dmManage->dtsSendInformation->Enabled=false;
dmManage->qrySendInformation->Prepare();
dmManage->qrySendInformation->Open();
}
}
//---------------------------------------------------------------------------

void __fastcall TfrmManage::DBGrid1CellClick(TColumn *Column)
{
if(Column->Title->Caption=="信件"){
frmREInformation->ShowModal();
}
}
//---------------------------------------------------------------------------

void __fastcall TfrmManage::pmuInsertClick(TObject *Sender)
{
if(TreeView1->Selected->Text=="发件箱"){
frmREInformation->ShowModal();
}
}
//---------------------------------------------------------------------------


void __fastcall TfrmManage::pmuDeleteClick(TObject *Sender)
{
AnsiString s = "";
if(DBGrid1->SelectedRows->Count > 0){
TDataSet *pDS = DBGrid1->DataSource->DataSet;
pDS->GotoBookmark((void *)DBGrid1->SelectedRows->Items[0].c_str());
s=pDS->Fields->FieldByName("Information_no")->AsString;
}
dmManage->qrySendInformation->Close();
dmManage->qrySendInformation->SQL->Clear();
if(box==0){
AnsiString S1,S2,S3;
S1="%;";
S2=S_User_no;
S3=":%";
TQuery *temp;
temp->Close();
temp->SQL->Clear();
temp->SQL->Add("select * from sendinformation where reader_list like :String");
temp->ParamByName("String")->AsString=StrCat(S1.c_str(),StrCat(S2.c_str(),S3.c_str()));
temp->Prepare();
temp->Open();
if(temp->RecordCount==0){
if(MessageDlg("您还没有阅读该信件，确信要删除吗？",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){
dmManage->qrySendInformation->SQL->Add("update sendinforamtion set ban_reader_list=ban_reader_list+';'+:user_no+':'");
}
}
else{
if(MessageDlg("删除后将无法再查阅，确信删除吗？",mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){
dmManage->qrySendInformation->SQL->Add("update sendinforamtion set ban_reader_list=ban_reader_list+';'+:user_no+':' where Information_no=:selected_info");
}
}
delete temp;
}
else if(box==1){
if(MessageDlg("删除后将无法再向其他成员发送该信件，确信删除吗？",mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){
dmManage->qrySendInformation->SQL->Add("update sendinforamtion set ban_reader_list=ban_reader_list+';'+:user_no+':' where Information_no=:selected_info");
}
}
else{
if(MessageDlg("删除后将无法再查阅，确信删除吗？",mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){
dmManage->qrySendInformation->SQL->Add("update sendinforamtion set ban_reader_list=ban_reader_list+';'+:user_no+':' where Information_no=:selected_info");
}
}
dmManage->qrySendInformation->ParamByName("user_no")->AsString=S_User_no;
dmManage->qrySendInformation->ParamByName("selected_info")->AsString=s;
dmManage->qrySendInformation->Prepare();
dmManage->qrySendInformation->Open();
}
//---------------------------------------------------------------------------


void __fastcall TfrmManage::pmuThrowClick(TObject *Sender)
{
AnsiString s = "";
if(DBGrid1->SelectedRows->Count > 0){
TDataSet *pDS = DBGrid1->DataSource->DataSet;
pDS->GotoBookmark((void *)DBGrid1->SelectedRows->Items[0].c_str());
s=pDS->Fields->FieldByName("Information_no")->AsString;
}
dmManage->qrySendInformation->Close();
dmManage->qrySendInformation->SQL->Clear();
dmManage->qrySendInformation->SQL->Add("update sendinforamtion set junk_reader_list=junk_reader_list+';'+:user_no+':' where Information_no=:String");
dmManage->qrySendInformation->ParamByName("user_no")->AsString=frmManage->S_User_no;
dmManage->qrySendInformation->ParamByName("String")->AsString=s;
dmManage->qrySendInformation->Prepare();
dmManage->qrySendInformation->Open();
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------


接下来是工程文件


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "manage.h"
USERES("kxproject.res");
USEFORM("manage.cpp", frmManage);
USEFORM("datamodule.cpp", dmManage); /* TDataModule: File Type */
USEFORM("rw_tools.cpp", frmREInformation);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "管理系统";
Application->CreateForm(__classid(TfrmManage), &frmManage);
Application->CreateForm(__classid(TdmManage), &dmManage);
Application->CreateForm(__classid(TfrmREInformation), &frmREInformation);
frmManage->S_User_no=InputBox("登陆管理系统","请输入你的用户号","00");

}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

[belecyrus]

等一会儿再看

[「已注销」]

等会再看

我现在得外面

没有BCB

@_@