郁闷!

已锁定

autosimatic

  • 帖子

    86
  • 精华

    2
  • 被关注

    3

论坛等级:游民

注册时间:2004-11-24

普通 普通 如何晋级?

郁闷!

519

5

2005-04-14 17:16:13

#include "apdefap.h"
void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{
#pragma code("FGBEXCEL.dll")
BOOL FgbExcelWrite10(double cell0,int cellx0,int celly0,
double cell1,int cellx1,int celly1,
double cell2,int cellx2,int celly2,
double cell3,int cellx3,int celly3,
double cell4,int cellx4,int celly4,
double cell5,int cellx5,int celly5,
double cell6,int cellx6,int celly6,
double cell7,int cellx7,int celly7,
double cell8,int cellx8,int celly8,
double cell9,int cellx9,int celly9,
int sheet,char path[255]);
#pragma code()


#pragma code("kernel32.dll")
VOID GetLocalTime(LPSYSTEMTIME lpSystemTime);
//VOID Sleep(DWORD dwMilliseconds);
#pragma code()
SYSTEMTIME sysTime;
char FileName[20] = "";
int i;

FILE *pFile=NULL;

HWND Handle= NULL;

char szBuffer[255];
char szProjectFile[255];
char FileExist[255];
char FileSource[255];
char FileCopy[255];
char FileAttrib[255];
char haha[255];
BOOL bRet;
DM_DIRECTORY_INFO dmDirinfo;
CMN_ERROR Error;

SetPropBOOL(lpszPictureName,"静态文本1","Visible",0);
SetPropBOOL(lpszPictureName,"静态文本2","Visible",0);
SetPropBOOL(lpszPictureName,"静态文本3","Visible",0);
SetPropBOOL(lpszPictureName,"静态文本4","Visible",0);
SetPropBOOL(lpszPictureName,"静态文本5","Visible",0);

SetPropBOOL(lpszPictureName,"文本列表1","Visible",0);
SetPropBOOL(lpszPictureName,"文本列表2","Visible",0);
SetPropBOOL(lpszPictureName,"文本列表3","Visible",0);
SetPropBOOL(lpszPictureName,"文本列表4","Visible",0);

SetPropBOOL(lpszPictureName,"按钮3","Visible",0);

//确定当前班组值班报表的文件名
GetLocalTime(&sysTime);
if ((sysTime.wHour>=0)&&(sysTime.wHour<8)) i=1;
if ((sysTime.wHour>=8)&&(sysTime.wHour<16)) i=2;
if ((sysTime.wHour>=16)&&(sysTime.wHour<24)) i=3;
sprintf(FileName,"%d-%d-%d-%d.xls",sysTime.wYear,sysTime.wMonth,sysTime.wDay,i);

bRet=DMGetProjectDirectory("",szProjectFile,&dmDirinfo,&Error);
sprintf(szBuffer, "D:\\Office\\OFFICE11\\Excel.exe %s\EXCEL\\%s",dmDirinfo.szProjectDir,FileName);
sprintf(FileExist, "%s\EXCEL\\%s",dmDirinfo.szProjectDir,FileName);
sprintf(FileSource, "%s\EXCEL\\SOURCE.xls",dmDirinfo.szProjectDir);
sprintf(FileCopy, "%s\EXCEL\\copy.bat",dmDirinfo.szProjectDir);
sprintf(FileAttrib, "%s\EXCEL\\attrib.bat",dmDirinfo.szProjectDir);
sprintf(haha, "\\%s\EXCEL\\%s",dmDirinfo.szProjectDir,FileName);

//ProgramExecute( szBuffer );
//printf("%s\r\n",FileExist);

//判断文件存在否
pFile=fopen(FileExist,"r");

if (pFile==NULL)
{//文件不存在
Handle= FindWindow("XLMAIN",NULL);
if(Handle)
{
SendMessage(Handle, WM_CLOSE, 0, 0);
}

pFile=fopen(FileCopy,"w+");
fprintf(pFile,"copy %s %s",FileSource,FileExist);
fclose(pFile);
ProgramExecute(FileCopy);
//Sleep(1000);
FgbExcelWrite10(33.5 ,2,6,
44.6 ,3,6,
55.56 ,4,6,
44.2 ,5,6,
22.2 ,6,6,
11.1 ,7,6,
55.2 ,8,6,
222.0 ,9,6,
88.88 ,3,7,
99.99 ,4,7,
1,haha);


ProgramExecute(szBuffer);

}
else
{//文件存在
fclose(pFile);
Handle= FindWindow("XLMAIN",NULL);

if(Handle)
{
ShowWindow ( Handle, SW_MINIMIZE );
//ShowWindow ( Handle, SW_SHOWNORMAL );
ShowWindow ( Handle, SW_MAXIMIZE );
SetForegroundWindow(Handle);
}
else
{
pFile=fopen(FileAttrib,"w+");
fprintf(pFile,"attrib -r %s",FileExist);
fclose(pFile);
ProgramExecute(FileAttrib);
//Sleep(1000);
FgbExcelWrite10(33.5 ,2,6,
44.6 ,3,6,
55.56 ,4,6,
44.2 ,5,6,
22.2 ,6,6,
11.1 ,7,6,
55.2 ,8,6,
222.0 ,9,6,
88.88 ,3,7,
99.99 ,4,7,
1,haha);
ProgramExecute( szBuffer );
}
}

这是论谈上抄的请问要导出的变量定义在那高手帮忙指导一下,变量要对应在那个位置本人感激不尽!

郁闷! 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32575条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。