请问各路大神，我在做大一的课程设计，就是做一个学生信息管理系统，信息头是什么意思怎么加？ delphi 7.0中做一个学生信息管理系统 如何制作打印预...
\u4e00\u9053\u5927\u4e00c\u8bed\u8a00\u8bfe\u7a0b\u8bbe\u8ba1\u7684\u9898\u76ee\uff0c\u6c42\u5927\u795e\u514d\u8d39\u7ed9\u4f60\u4e00\u4e2a\uff0c\u81ea\u5df1\u6539\u6539
#include
#include
#include
struct Student
{
char xuehao[100];
char name[100];
char sex[100];
int age;
float score;
};
void menu(int *n)
{
printf("\t\t\t*********************************************\n");
printf("\t\t\t\t\t1.\u521b\u5efa\u6570\u636e\n");
printf("\t\t\t\t\t2.\u6dfb\u52a0\u6570\u636e\n");
printf("\t\t\t\t\t3.\u5220\u9664\u6570\u636e\n");
printf("\t\t\t\t\t4.\u67e5\u627e\u6570\u636e\n");
printf("\t\t\t\t\t5.\u6309\u6210\u7ee9\u8fdb\u884c\u6392\u5e8f\n");
printf("\t\t\t\t\t6.\u9000\u51fa\n");
printf("\t\t\t*********************************************\n");
printf("\u8bf7\u8f93\u5165\u6570\u5b571-6:");
scanf("%d",n);
}
void scanfstudent(struct Student * p,int len)//\u8f93\u5165\u5b66\u751f\u7684\u4fe1\u606f \u5b66\u53f7 \u59d3\u540d \u6027\u522b \u5e74\u9f84 \u5f97\u5206
{
int i;
for(i = 0; i < len; i++)
{
printf("\u8bf7\u8f93\u5165\u7b2c%d\u5b66\u751f\u7684\u4fe1\u606f:\n",i+1);
printf("\u5b66\u53f7:");
scanf("%s",p[i].xuehao);
printf("\u59d3\u540d:");
scanf("%s",p[i].name);
printf("\u6027\u522b:");
scanf("%s",p[i].sex);
printf("\u5e74\u9f84:");
scanf("%d",&p[i].age);
printf("\u5f97\u5206:");
scanf("%f",&p[i].score);
printf("\n");
}
}
void printfstudent(struct Student *p,int len)//\u5bf9\u5b66\u751f\u7684\u4fe1\u606f\u8fdb\u884c\u8f93\u51fa
{
int i;
printf("\u5b66\u53f7\t\t\u59d3\u540d\t\t\u6027\u522b\t\t\u5e74\u9f84\t\t\u5206\u6570\n\n");
for (i = 0; i < len; i++)
{
printf("%s\t\t",p[i].xuehao);
printf("%s\t\t",p[i].name);
printf("%s\t\t",p[i].sex);
printf("%d\t\t",p[i].age);
printf("%.2f\n",p[i].score);
}
}
void createdata(struct Student *p,int *len)
{
int n;
printf("\u8bf7\u8f93\u5165\u8981\u521b\u5efa\u6570\u7ec4\u7684\u957f\u5ea6\uff1a");
scanf("%d",&n);
scanfstudent(p,n);
*len = n;
printfstudent(p,*len);
}
void add(struct Student *p,int *len)//\u589e\u52a0\u4e00\u4e2a\u5b66\u751f\u7684\u4fe1\u606f\u3002\u5e76\u4e14\u6309\u7167\u987a\u5e8f\u6392\u5217
{
// int i,j;
//int pos = 0;
int c = 1;
while(c == 1)
{
int mylen = *len;
struct Student st;
printf("\u8bf7\u8f93\u5165\u8981\u6dfb\u52a0\u5b66\u751f\u7684\u4fe1\u606f:\n");
printf("\u5b66\u53f7:");
scanf("%s",st.xuehao);
printf("\u59d3\u540d:");
scanf("%s",st.name);
printf("\u6027\u522b:");
scanf("%s",st.sex);
printf("\u5e74\u9f84:");
scanf("%d",&st.age);
printf("\u5f97\u5206:");
scanf("%f",&st.score);
printf("\n");
p[mylen] = st;
*len = mylen+1;
printfstudent(p,*len);
printf("\n");
printf("\u662f\u5426\u7ee7\u7eed\u6dfb\u52a0\uff1f\u8f93\u5165:\n1.\u7ee7\u7eed\n2.\u9000\u51fa\n");
scanf("%d",&c);
}
}
void Sort(struct Student *p,int len)//\u6309\u7167\u5206\u6570\u4ece\u5927\u5230\u5c0f\u6392\u5217\u9009\u62e9\u6392\u5e8f\u6cd5
{
struct Student st;
int i,j;
for(i = 0; i < len - 1; i++)
{
for(j = i + 1 ; j < len; j++)
if(p[i].score < p[j].score)
{
st = p[i];
p[i] = p[j];
p[j] = st;
}
}
printfstudent(p,len);
}
/*if(myp->score >= p[0].score)//
{
for(i = mylen; i > 0 ; i--)
p[i] = p[i-1];
p[0] = *myp;
}
else if(myp->score <= p[mylen-1].score)
{
p[mylen] = *myp;
}
*/
//else
//{
/*for(i = 0; i < mylen; i++)
{
if(myp->score >= p[i].score)
break;
}
pos = i;
for(j = mylen; j > pos; j--)
{
p[j] = p[j-1];
}
p[pos] = *myp;
*len = mylen+1;
}*/
void del(struct Student *p,int *len)//\u5220\u9664\u5b66\u751f\u7684\u4fe1\u606f
{
int i,j;
char p1[1024];
int c = 1;
while(c == 1)
{
int mylen=*len;
printf("\u8bf7\u8f93\u5165\u8981\u5220\u9664\u5b66\u751f\u7684\u5b66\u53f7:");
scanf("%s",p1);
for(i = 0; i < *len; i++)
{
if(strcmp(p[i].xuehao,p1)==0)
break;
}
if(i == 0)//\u5220\u9664\u7684\u662f\u7b2c\u4e00\u4e2a\u5143\u7d20
{
for(j = 0; j < (*len)-1; j++)
p[j] = p[j+1];
}
else if(i>0 && i<(*len)-1)//\u5220\u9664\u4e2d\u95f4\u7684\u5143\u7d20
{
for(j = i;j<(*len) -1;j++)
p[j] = p[j+1];
}
else if(i == (*len)-1)
;
else
printf("error,\u5b66\u53f7\u8f93\u5165\u6709\u8bef!\n");
*len =mylen-1;//\u6570\u7ec4\u957f\u5ea6\u51cf\u5c11\u4e00\u4e2a
printfstudent(p,*len);
printf("\n");
printf("\u662f\u5426\u7ee7\u7eed\u5220\u9664\uff1f\u8f93\u5165:\n1.\u7ee7\u7eed\n2.\u9000\u51fa\n");
scanf("%d",&c);
}
}
void serch(struct Student *p,int len)//\u6309\u5b66\u53f7\u6216\u8005\u59d3\u540d\u67e5\u627e\u5b66\u751f\u4fe1\u606f
{
int i,j;
int flat = 0;
char num[100];
char name1[100];
printf("\u8bf7\u8f93\u51651\u62162,1\u6309\u5b66\u53f7\u67e5\u627e,2\u6309\u59d3\u540d\u67e5\u627e:");
scanf("%d",&i);
if(i == 1)
{
printf("\u8bf7\u8f93\u5165\u8981\u67e5\u627e\u7684\u5b66\u53f7:");
scanf("%s",num);
for(j = 0; j <len; j++)
{
if(strcmp(p[j].xuehao,num) == 0)
{
flat ++;
break;
}
}
if(!flat)
{
printf("\u5b66\u53f7\u8f93\u5165\u6709\u8bef!\n");
}
else
{
printf("\u5b66\u53f7:%s,\u59d3\u540d:%s,\u6027\u522b:%s,\u5e74\u9f84:%d,\u5f97\u5206:%.2f\n",p[j].xuehao,p[j].name,p[j].sex,p[j].age,p[j].score);
}
}
else if(i == 2)
{
flat = 0;
printf("\u8bf7\u8f93\u5165\u8981\u67e5\u627e\u7684\u59d3\u540d:");
scanf("%s",name1);
for(j = 0; j <len; j++)
{
if(strcmp(p[j].name,name1) == 0)
{
flat ++;
printf("\u5b66\u53f7:%s,\u59d3\u540d:%s,\u6027\u522b:%s,\u5e74\u9f84:%d,\u5f97\u5206:%.2f\n",p[j].xuehao,p[j].name,p[j].sex,p[j].age,p[j].score);
break;
}
}
if(!flat)
{
printf("\u59d3\u540d\u8f93\u5165\u6709\u8bef!\n");
}
}
}
/*int main(void)
{
int len;
int c;
//char c;
//char xuehao11[1024];
//struct Student *p;
//\u9759\u6001\u6784\u9020\u7ed3\u6784\u6570\u7ec4
struct Student p[1024];
printf("\u8bf7\u8f93\u5165\u5b66\u751f\u7684\u4e2a\u6570\uff1a");
scanf("%d",&len);
//p = (struct Student*)malloc(sizeof(struct Student)*len);\u52a8\u6001\u6784\u9020\u4e00\u4e2a\u7ed3\u6784\u6570\u7ec4
scanfstudent(p,len);
Sort(p,len);
printfstudent(p,len);
do
{
struct Student st;
printf("\n\u8bf7\u8f93\u5165\u589e\u52a0\u7684\u5b66\u751f\u7684\u4fe1\u606f\uff1a\n");
printf("\u5b66\u53f7:");
scanf("%s",st.xuehao);
printf("\u59d3\u540d:");
scanf("%s",st.name);
printf("\u6027\u522b:");
scanf("%s",st.sex);
printf("\u5e74\u9f84:");
scanf("%d",&st.age);
printf("\u5f97\u5206:");
scanf("%f",&st.score);
//serch(p,len);
printf("\n");
//printf("\u8bf7\u8f93\u5165\u8981\u5220\u9664\u7684\u5b66\u751f\u7684\u5b66\u53f7:");
printf("\n");
//scanf("%s",xuehao11);
add(p,&st,&len);
//del(p,xuehao11,&len);\u5220\u9664\u4e00\u4e2a\u5b66\u751f\u7684\u4fe1\u606f
printfstudent(p,len);
printf("\u662f\u5426\u7ee7\u7eed\u6dfb\u52a0\uff1f\n1:\u662f\n2\u4e0d\u6dfb\u52a0\n");
scanf("%d",&c);
}
while(c==1);
}*/
int main(void)
{
int n;
struct Student p[1024];
int len = 0;
while(1)
{
menu(&n);
switch(n)
{
case 1:createdata(p,&len);break;
case 2:add(p,&len);break;
case 3:del(p,&len);break;
case 4:serch(p,len);break;
case 5:Sort(p,len);break;
case 6:printf("\u8c22\u8c22\u60a8\u7684\u4f7f\u7528!\n\n");break;
default:printf("\u8f93\u5165\u6709\u8bef\u91cd\u65b0\u8f93\u5165!\n\n");break;
}
if(n == 6)
break;
}
return 0;
}
\u5b66\u6821\u5b66\u751f\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\u7684\u7b80\u4ecb
\u5b66\u6821\u5b66\u751f\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\u662f\u9488\u5bf9\u5b66\u6821\u4eba\u4e8b\u5904\u7684\u5927\u91cf\u4e1a\u52a1\u5904\u7406\u5de5\u4f5c\u800c\u5f00\u53d1\u7684\u7ba1\u7406\u8f6f\u4ef6\uff0c\u662f\u5178\u578b\u7684\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\uff08Management Information System\uff09\u3002\u5b83\u662f\u4e00\u4e2a\u6559\u80b2\u5355\u4f4d\u4e0d\u53ef\u7f3a\u5c11\u7684\u90e8\u5206,\u5b83\u7684\u5185\u5bb9\u5bf9\u4e8e\u5b66\u6821\u7684\u51b3\u7b56\u8005\u548c\u7ba1\u7406\u8005\u6765\u8bf4\u90fd\u81f3\u5173\u91cd\u8981,\u5b83\u80fd\u591f\u4e3a\u7528\u6237\u63d0\u4f9b\u5145\u8db3\u7684\u4fe1\u606f\u548c\u5feb\u6377\u7684\u67e5\u8be2\u624b\u6bb5\u3002\u80fd\u6709\u6548\u7684\u5e2e\u52a9\u5b66\u6821\u548c\u8001\u5e08\u638c\u63e1\u5b66\u751f\u7684\u60c5\u51b5\uff0c\u4e3a\u5b66\u751f\u63d0\u4f9b\u6210\u7ee9\u8ddf\u8bfe\u7a0b\u65b9\u9762\u7684\u67e5\u8be2\u3002\u529f\u80fd\u57fa\u672c\u7b26\u5408\u6839\u636e\u5f20\u6ce2\u5c14\u8001\u5e08\u7684\u8981\u6c42\u3002
\u5b66\u751f\u7528\u6237\u901a\u8fc7\u8f93\u5165\u5b66\u751f\u57fa\u672c\u4fe1\u606f\u3001\u8bfe\u7a0b\u57fa\u672c\u4fe1\u606f\u7b49,\u7531\u7cfb\u7edf\u81ea\u884c\u751f\u6210\u76f8\u5e94\u7684\u6570\u636e\u4ee5\u4f9b\u5b66\u751f\u67e5\u8be2,\u53e6\u5916\u4eba\u4e8b\u5904\u7684\u7ba1\u7406\u7528\u6237\u8fd8\u53ef\u4ee5\u5bf9\u8fd9\u4e9b\u57fa\u672c\u4fe1\u606f\u8fdb\u884c\u66f4\u65b0\u548c\u5220\u9664, \u5b66\u6821\u5b66\u751f\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\u529b\u6c42\u7ed9\u7528\u6237\u65b9\u4fbf\u5feb\u6377\u7684\u9014\u5f84\u53bb\u7ba1\u7406\u8fd9\u4e9b\u7e41\u7410\u7684\u6570\u636e\u3002
\u5177\u4f53\u7cfb\u7edf\u529f\u80fd\u9700\u6c42\u63cf\u8ff0\u5982\u4e0b\uff1a
(1) \u5b66\u7c4d\u4fe1\u606f\u7ba1\u7406
\u6bcf\u5e74\u7684\u5927\u91cf\u65b0\u751f\u5165\u5b66\uff0c\u8001\u751f\u6bd5\u4e1a\u90fd\u9700\u8981\u5904\u7406\u5927\u91cf\u7684\u5b66\u751f\u4fe1\u606f\u3002\u901a\u8fc7\u8fd9\u4e00\u6a21\u5757\uff0c\u53ef\u4ee5\u5b9e\u73b0\u5b66\u751f\u57fa\u672c\u60c5\u51b5\u7684\u6dfb\u52a0\u3001\u5220\u9664\u3001\u66f4\u65b0\u3002\u8fd8\u80fd\u67e5\u8be2\u5404\u4e2a\u5b66\u751f\u7684\u60c5\u51b5\uff0c\u59d3\u540d\u3001\u5bb6\u5ead\u7535\u8bdd\u3001\u5bb6\u5ead\u4f4f\u5740\u3001\u5b66\u53f7\u7b49\u5404\u4e2a\u6d88\u606f
(2) \u73ed\u7ea7\u4fe1\u606f\u7ba1\u7406
\u5b9e\u73b0\u73ed\u7ea7\u7684\u6dfb\u52a0\u3001\u5220\u9664\u3001\u66f4\u65b0\u3002\u67e5\u8be2\u73ed\u7ea7\u7684\u6240\u5728\u7cfb\u522b\uff0c\u8f85\u5bfc\u5458\u7b49\u3002
(3)\u8bfe\u7a0b\u4fe1\u606f\u7ba1\u7406
\u6bcf\u4e2a\u5b66\u671f\u90fd\u4f1a\u589e\u52a0\u4e00\u4e9b\u65b0\u7684\u79d1\u76ee\uff0c\u901a\u8fc7\u672c\u6a21\u5757\u53ef\u4ee5\u8f7b\u677e\u7684\u6dfb\u52a0\u4ee5\u53ca\u66f4\u65b0\u8bfe\u7a0b\u3002\u53ef\u4ee5\u6839\u636e
\u5b66\u671f\u6761\u4ef6\u6216\u8005\u73ed\u7ea7\u6761\u4ef6\u7684\u9009\u62e9\uff0c\u4e5f\u53ef\u6839\u636e\u8bfe\u7a0b\u540d\u3001\u8bfe\u7a0b\u53f7\u6216\u8005\u73ed\u7ea7\u7684\u9009\u62e9\uff0c\u5e76\u5bf9\u503c\u7684\u8f93\u5165\uff0c\u53ef\u4ee5\u770b\u5230\u6570\u636e\u96c6\u4e2d\u663e\u793a\u7b26\u5408\u6761\u4ef6\u7684\u8bfe\u7a0b\u6570\u636e\u4fe1\u606f\uff0c\u800c\u4e14\u53ef\u4ee5\u6839\u636e\u6559\u5de5\u7684\u4fee\u6539\u8981\u6c42\u8fdb\u884c\u6570\u636e\u7684\u6dfb\u52a0\u3001\u5220\u9664\u3001\u4fee\u6539\u7684\u64cd\u4f5c\u3002
\u8be5\u9879\u7ba1\u7406\u5bf9\u8bfe\u7a0b\u7684\u5c5e\u6027\u8fdb\u884c\u4e86\u5177\u4f53\u5316\u7684\u5206\u7c7b\uff0c\u6bd4\u5982\u53ef\u4ee5\u5206\u8fa8\u662f\u8003\u8bd5\u79d1\u8fd8\u662f\u8003\u5bdf\u8bfe\uff0c\u800c\u4e14\u6839\u636e\u6761\u4ef6\u7684\u9009\u62e9\u5927\u5927\u5f97\u63d0\u9ad8\u4e86\u5bf9\u5404\u5b66\u671f\u8bfe\u7a0b\u6570\u636e\u7684\u8bb0\u5f55\u64cd\u4f5c\uff0c\u5f88\u5927\u5f97\u5e2e\u52a9\u4e86\u6559\u5de5\u4eec\u5de5\u4f5c\u6548\u7387\u7684\u63d0\u9ad8\u3002
(4)\u6210\u7ee9\u4fe1\u606f\u7ba1\u7406
\u672c\u6a21\u5757\u5b9e\u73b0\u4e86\u6210\u7ee9\u7684\u8f93\u5165\u3001\u5220\u9664\u3001\u66f4\u65b0\u3002\u8fd8\u80fd\u67e5\u8be2\u5230\u5e73\u5747\u6210\u7ee9\u4ee5\u53ca\u5355\u79d1\u6700\u9ad8\u6700\u4f4e\u6210\u7ee9\u4ee5\u53ca\u4e2a\u4eba\u6210\u7ee9\u3002\u628a\u6210\u7ee9\u7edf\u8ba1\u8fd9\u4e2a\u7e41\u7410\u7684\u5de5\u4f5c\u7b80\u5355\u5316\uff0c\u4e3a\u5b66\u751f\u6210\u7ee9\u7684\u7ba1\u7406\u65b9\u9762\u63d0\u9ad8\u5de5\u4f5c\u6548\u7387\u3002
(5)\u7cfb\u7edf\u7ba1\u7406
\u56e0\u4e3a\u672c\u7cfb\u7edf\u662f\u4f9b\u591a\u4eba\u4e00\u8d77\u4f7f\u7528\u7684\uff0c\u5fc5\u987b\u5bf9\u67d0\u4e00\u4e9b\u4eba\u8fdb\u884c\u9650\u5236\u3002\u4e8e\u662f\u8bbe\u7f6e\u4e86\u7ba1\u7406\u5458\uff0c\u975e\u7ba1\u7406\u5458\u53ea\u80fd\u8fdb\u884c\u67e5\u8be2\u64cd\u4f5c\uff0c\u4e0d\u80fd\u8fdb\u884c\u66f4\u6539\u3002
\u4e09\u3001\u5b66\u6821\u5b66\u751f\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\u7684\u5206\u6790\u548c\u8bbe\u8ba1
\uff081\uff09\u5f00\u53d1\u73af\u5883\u7684\u7b80\u4ecb
\u8bbe\u8ba1\u5e73\u53f0\uff1a DELPHI6.0
Delphi\u662f\u4e00\u4e2a\u5bf9\u8c61\u5bfc\u5411\u8bbe\u8ba1\u7684\u5e94\u7528\u7a0b\u5e8f\u8bed\u8a00\uff0c\u662f\u5f00\u53d1\u6570\u636e\u5e93\u524d\u7aef\u7684\u4f18\u79c0\u5de5\u5177\uff0c\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u7b80\u6d01\u660e\u5feb\u3001\u7ec4\u4ef6\u529f\u80fd\u5f3a\u5927\u548c\u7f16\u7a0b\u73af\u5883\u7075\u6d3b\u65b9\u4fbf\u3002\u91c7\u7528Delphi\u6765\u5f00\u53d1\u6570\u636e\u5e93\u5e94\u7528\u7a0b\u5e8f\u5177\u6709\u66f4\u5927\u7684\u7075\u6d3b\u6027\u548c\u53ef\u6269\u5c55\u6027\u3002
\u6570\u636e\u5e93\uff1a Microsoft Access
Access \u662f\u5173\u7cfb\u6570\u636e\u5e93\u5f00\u53d1\u5de5\u5177\uff0c\u6570\u636e\u5e93\u80fd\u6c47\u96c6\u5404\u79cd\u4fe1\u606f\u4ee5\u4f9b\u67e5\u8be2\u3001\u5b58\u50a8\u548c\u68c0\u7d22\u3002Access \u7684\u4f18\u70b9\u5728\u4e8e\u5b83\u80fd\u4f7f\u7528\u6570\u636e\u8868\u793a\u56fe\u6216\u81ea\u5b9a\u4e49\u7a97\u4f53\u6536\u96c6\u4fe1\u606f\u3002\u6570\u636e\u8868\u793a\u56fe\u63d0\u4f9b\u4e86\u4e00\u79cd\u7c7b\u4f3c\u4e8e Excel \u7684\u7535\u5b50\u8868\u683c\uff0c\u53ef\u4ee5\u4f7f\u6570\u636e\u5e93\u4e00\u76ee\u4e86\u7136\u3002\u53e6\u5916\uff0cAccess \u5141\u8bb8\u521b\u5efa\u81ea\u5b9a\u4e49\u62a5\u8868\u7528\u4e8e\u6253\u5370\u6216\u8f93\u51fa\u6570\u636e\u5e93\u4e2d\u7684\u4fe1\u606f\u3002Access\u4e5f\u63d0\u4f9b\u4e86\u6570\u636e\u5b58\u50a8\u5e93\uff0c\u53ef\u4ee5\u4f7f\u7528\u684c\u9762\u6570\u636e\u5e93\u6587\u4ef6\u628a\u6570\u636e\u5e93\u6587\u4ef6\u7f6e\u4e8e\u7f51\u7edc\u6587\u4ef6\u670d\u52a1\u5668\uff0c\u4e0e\u5176\u4ed6\u7f51\u7edc\u7528\u6237\u5171\u4eab\u6570\u636e\u5e93\u3002Access \u662f\u4e00\u79cd\u5173\u7cfb\u6570\u636e\u5e93\u5de5\u5177\uff0c\u5173\u7cfb\u6570\u636e\u5e93\u662f\u5df2\u5f00\u53d1\u7684\u6700\u901a\u7528\u7684\u6570\u636e\u5e93\u4e4b\u4e00\u3002Access \u591a\u7528\u4e8e\u4e2d\u5c0f\u578b\u4f01\u4e1a\u6765\u8bbe\u8ba1\u4e2d\u5c0f\u578b\u6570\u636e\u5e93\uff0c\u4e00\u822c\u7684\u5b66\u6821\u6559\u52a1\u7cfb\u7edf\u7684\u6570\u636e\u5e93\u7528Access \u6765\u8bbe\u8ba1\u5b8c\u5168\u80fd\u8fbe\u5230\u8981\u6c42\u3002\u7531\u4e8e\u8003\u8651\u5230\u672c\u7cfb\u7edf\u662f\u5e94\u7528\u5728\u5355\u673a\u7cfb\u7edf\u4e0a\uff0c\u53ea\u5efa\u7acb\u8d77\u4e00\u4e2a\u6570\u636e\u5e93\u3002
\u6570\u636e\u5e93\u8bbf\u95ee\u65b9\u5f0f\uff1aADO
ADO\uff08Active Data Objects\uff09\u5b9e\u9645\u662f\u4e00\u79cd\u63d0\u4f9b\u8bbf\u95ee\u5404\u79cd\u6570\u636e\u7c7b\u578b \u7684\u8fde\u63a5\u673a\u5236\u3002ADO\u8bbe\u8ba1\u4e3a\u4e00\u79cd\u6781\u7b80\u5355\u7684\u683c\u5f0f\uff0c\u901a\u8fc7ODBC\u7684\u65b9\u6cd5\u540c\u6570\u636e\u5e93\u63a5\u53e3\u3002\u53ef\u4ee5\u4f7f\u7528\u4efb\u4f55\u4e00\u79cdODBC\u6570\u636e\u6e90\uff0c\u5373\u4e0d\u6b62\u9002\u5408\u4e8eSQL Server\u3001Oracle\u3001Access \u7b49\u6570\u636e\u5e93\u5e94\u7528\u7a0b\u5e8f\uff0c\u4e5f\u9002\u5408\u4e8eExcel\u8868\u683c\u3001\u6587\u672c\u6587\u4ef6\u3001\u56fe\u5f62\u6587\u4ef6\u548c\u65e0\u683c\u5f0f\u7684\u6570\u636e\u6587\u4ef6\u3002ADO\u662f\u57fa\u4e8eOLE-DB\u4e4b\u4e0a\u7684\u6280\u672f\uff0c\u56e0\u6b64ADO\u901a\u8fc7\u5176\u5185\u90e8\u7684\u5c5e\u6027\u548c\u65b9\u6cd5\u63d0\u4f9b\u7edf\u4e00\u7684\u6570\u636e\u8bbf\u95ee\u63a5\u53e3\u65b9\u6cd5\u3002\u5176\u4e3b\u8981\u4f18\u70b9\u662f\u6613\u4e8e\u4f7f\u7528\u3001\u9ad8\u901f\u5ea6\u3001\u4f4e\u5185\u5b58\u652f\u51fa\u548c\u5360\u7528\u78c1\u76d8\u7a7a\u95f4\u8f83\u5c11\u3002
\uff082\uff09\u5b66\u6821\u5b66\u751f\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\u6570\u636e\u5e93\u8bbe\u8ba1
\u7531\u4e8e\u8003\u8651\u5230\u672c\u7cfb\u7edf\u662f\u5e94\u7528\u5728\u5355\u673a\u7cfb\u7edf\u4e0a\uff0c\u53e6\u5916\u6839\u636e\u5b66\u6821\u4eba\u5458\u89c4\u6a21\uff0c\u6211\u53ea\u5efa\u7acb\u8d77\u4e00\u4e2a\u6570\u636e\u5e93\uff0c\u5728\u6b64\u6570\u636e\u5e93\u57fa\u7840\u4e0a\u5efa\u7acb\u8d77\u5982\u4e0b\u516b\u4e2a\u57fa\u672c\u8868\uff1a
\u5b66\u751f\uff1a\u5b66\u53f7\uff0c\u59d3\u540d\uff0c\u51fa\u751f\u5e74\u6708\uff0c\u6027\u522b\uff0c\u7c4d\u8d2f\uff0c\u8054\u7cfb\u5730\u5740\uff0c\u8054\u7cfb\u7535\u8bdd\uff0c\u73ed\u7ea7
\u73ed\u7ea7\uff1a\u7cfb\u540d\uff0c\u73ed\u7ea7\uff0c\u4e3b\u8981\u6559\u5ba4\uff0c\u8f85\u5bfc\u5458\uff0c\u73ed\u957f
\u7cfb\u8868\uff1a\u7cfb\u540d\uff0c\u7cfb\u529e\u516c\u5ba4\uff0c\u8054\u7cfb\u7535\u8bdd
\u8bfe\u7a0b\u8868\uff1a\u8bfe\u7a0b\u53f7\uff0c\u8bfe\u7a0b\u53f7\uff0c\u73ed\u7ea7\uff0c\u7c7b\u522b\uff0c\u5b66\u65f6\uff0c\u5b66\u540d
\u5e73\u5747\u6210\u7ee9\u8868\uff1a\u73ed\u7ea7\uff0c\u5b66\u53f7\uff0c\u59d3\u540d\uff0c\u5e73\u5747\u6210\u7ee9
\u5355\u79d1\u6210\u7ee9\u8868\uff1a\u5b66\u53f7\uff0c\u59d3\u540d\uff0c\u8bfe\u7a0b\u8868\uff0c\u8bfe\u7a0b\u540d\uff0c\u6210\u7ee9
\u9009\u8bfe\u8868\uff1a\u73ed\u7ea7\uff0c\u8bfe\u7a0b\u53f7\uff0c\u5b66\u671f
\u7528\u6237\u540d\uff1a\u7528\u6237\uff0c\u5bc6\u7801
(3)\u7a97\u4f53\u8bbe\u8ba1\uff1a
\u73ed\u7ea7\u7ba1\u7406\uff08banjigl.dfm\uff09
\u73ed\u7ea7\u67e5\u8be2\uff08banjicx.dfm\uff09
\u5b66\u7c4d\u7ba1\u7406\uff08xuejigl.dfm\uff09
\u5b66\u7c4d\u67e5\u8be2\uff08xuejicha.dfm\uff09
\u8bfe\u7a0b\u7ba1\u7406\uff08kechenggl.dfm\uff09
\u8bfe\u7a0b\u67e5\u8be2\uff08kechengcha.dfm\uff09
\u6210\u7ee9\u7ba1\u7406\uff08chengjigl.dfm\uff09
\u6210\u7ee9\u67e5\u8be2\uff08chengjicha.dfm\uff09
(4)\u7cfb\u7edf\u6d41\u7a0b\u56fe\uff08Data Flow Diagram\uff09\uff1a
(5)\u6570\u636e\u5e93\u6982\u5ff5\u7ed3\u6784\u8bbe\u8ba1
\uff1a
(6)\u6570\u636e\u5e93\u903b\u8f91\u7ed3\u6784\u8bbe\u8ba1
\u5b66\u751f\u57fa\u672c\u60c5\u51b5\u8868\uff1a
\u5b57\u6bb5\u540d\u6570\u636e\u7c7b\u578b\u662f\u5426\u53ef\u7a7a\u8bf4\u660e
\u73ed\u7ea7\u6587\u672c\u5426\u5916\u5173\u952e\u5b57
\u5b66\u53f7\u6587\u672c\u5426\u4e3b\u5173\u952e\u5b57
\u59d3\u540d\u6587\u672c\u5426\u65e0
\u6027\u522b\u6587\u672c\u5426\u65e0
\u51fa\u751f\u5e74\u6708\u65e5\u671f\u5426\u65e0
\u7c4d\u8d2f\u6587\u672c\u5426\u65e0
\u8054\u7cfb\u7535\u8bdd\u6587\u672c\u662f\u65e0
\u8054\u7cfb\u5730\u5740\u6587\u672c\u662f\u65e0
\u73ed\u7ea7\u60c5\u51b5\u8868\uff1a
\u7cfb\u540d\u6587\u672c\u5426\u5916\u5173\u952e\u5b57
\u73ed\u7ea7\u6587\u672c\u5426\u5173\u952e\u5b57
\u4e3b\u8981\u6559\u5ba4\u6587\u672c\u662f\u65e0
\u8f85\u5bfc\u5458\u6587\u672c\u662f\u65e0
\u7cfb\u540d\u6587\u672c\u5426\u5916\u5173\u952e\u5b57
\u73ed\u7ea7\u6587\u672c\u5426\u5173\u952e\u5b57
\u7cfb\u8868\uff1a
\u7cfb\u540d\u6587\u672c\u5426\u5173\u952e\u5b57
\u7cfb\u529e\u516c\u5ba4\u6587\u672c\u662f\u65e0
\u8054\u7cfb\u7535\u8bdd\u6587\u672c\u662f\u65e0
\u8bfe\u7a0b\u8868\uff1a
\u8bfe\u7a0b\u53f7\u6587\u672c\u5426\u5173\u952e\u5b57
\u8bfe\u7a0b\u540d\u6587\u672c\u5426\u65e0
\u73ed\u7ea7\u6587\u672c\u662f\u5916\u5173\u952e\u5b57
\u7c7b\u522b\u6587\u672c\u662f\u65e0
\u5e73\u5747\u6210\u7ee9\u8868\uff1a
\u73ed\u7ea7\u6587\u672c\u5426\u5916\u5173\u952e\u5b57
\u5b66\u53f7\u6587\u672c\u5426\u5173\u952e\u5b57
\u59d3\u540d\u6587\u672c\u662f\u65e0
\u5e73\u5747\u6210\u7ee9\u957f\u6574\u578b\u662f\u65e0
\u5355\u79d1\u6210\u7ee9\u8868\uff1a
\u5b66\u53f7\u6587\u672c\u5426\u5173\u952e\u5b57
\u59d3\u540d\u6587\u672c\u5426\u65e0
\u8bfe\u7a0b\u53f7\u6587\u672c\u5426\u5916\u5173\u952e\u5b57
\u8bfe\u7a0b\u540d\u6587\u672c\u5426\u65e0
\u6210\u7ee9\u957f\u6574\u578b\u662f\u65e0
\u73ed\u7ea7\u9009\u8bfe\u8868\uff1a
\u73ed\u7ea7\u6587\u672c\u5426\u7ec4\u5408\u5173\u952e\u5b57
\u8bfe\u7a0b\u53f7\u6587\u672c\u5426\u7ec4\u5408\u5173\u952e\u5b57
\u8bfe\u7a0b\u540d\u6587\u672c\u662f\u65e0
\u5b66\u671f\u6587\u672c\u5426\u7ec4\u5408\u5173\u952e\u5b57
(6)\u8bfe\u7a0b\u7ba1\u7406\u90e8\u5206\u7684\u4ee3\u7801\uff1a
\u9009\u8bfe\u7ba1\u7406\uff1a
begin
ComboBox1.Items.Append(adoquery1.FieldValues['\u7cfb\u540d']); //ComboBox1\u8fde\u5230\u7cfb\u8868\u7684 \u7cfb\u540d \u5b57\u6bb5
adoquery1.Next;
end; end;
procedure TForm11.ComboBox1Select(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from class where \u7cfb\u540d='+''''+ComboBox1.Text+'''');//\u67e5\u8be2\u7cfb\u540d\u662f\u5426\u7b26\u5408
adoquery2.ExecSQL;
adoquery2.Open;
while not adoquery2.Eof do
begin
ComboBox2.Items.Append(adoquery2.FieldValues['\u73ed\u7ea7']);//\u7b26\u5408\u5c31\u8c03\u7528\u73ed\u7ea7\u8868\u7684\u5b57\u6bb5 \u73ed\u7ea7
adoquery2.Next;
end;
end;
procedure TForm11.ComboBox2Select(Sender: TObject);
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from kecheng where \u73ed\u7ea7='+''''+ComboBox2.Text+'''');//\u67e5\u8be2\u8bfe\u7a0b\u8868\u4e2d\u5b57\u6bb5 \u73ed\u7ea7 \u662f\u5426\u7b26\u5408\uff0c\u7b26\u5408\u5c31\u8c03\u5230
adoquery4.ExecSQL; //DBgiid1
adoquery4.Open;
end;
procedure TForm11.ComboBox3Select(Sender: TObject);
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from kecheng where \u73ed\u7ea7='+''''+ComboBox2.Text+''' and \u5b66\u671f='+''''+ComboBox3.Text+''''); //\u5224\u65ad\u5b66\u671f\u662f\u5426\u7b26\u5408
adoquery4.ExecSQL;
adoquery4.Open;
end;
procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
while not adoquery4.Eof do
begin
if (adoquery4.FieldValues['\u8bfe\u7a0b\u53f7']=adoquery3.FieldValues['\u8bfe\u7a0b\u53f7']) and (adoquery4.FieldValues['\u73ed\u7ea7']=Combobox2.Text) and (adoquery4.FieldValues['\u5b66\u671f']=Combobox3.Text) then
break;
adoquery4.Next;
end;
if adoquery4.Eof then
begin
adoquery4.Insert; //\u628a\u9009\u8bfe\u5185\u5bb9\u6dfb\u52a0\u5230\u9009\u8bfe\u8868\u4e2d\u3002
adoquery4.FieldValues['\u8bfe\u7a0b\u53f7']:=adoquery3.FieldValues['\u8bfe\u7a0b\u53f7'];
adoquery4.FieldValues['\u73ed\u7ea7']:=Combobox2.Text;
adoquery4.FieldValues['\u8bfe\u7a0b\u540d']:=adoquery3.FieldValues['\u8bfe\u7a0b\u540d'];
adoquery4.FieldValues['\u5b66\u671f']:=Combobox3.Text;
adoquery4.Post;
end
else
begin
showmessage('\u672c\u8bfe\u7a0b\u6b64\u73ed\u7ea7\u5df2\u7ecf\u9009\u8fc7'); //\u5982\u679c\u5df2\u7ecf\u9009\u8fc7\uff0c\u5f39\u51fa\u5bf9\u8bdd\u6846\u201c\u672c\u8bfe\u7a0b\u6b64\u73ed\u7ea7\u5df2\u7ecf\u9009\u8fc7\u201d
end;
end;
procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
if not adoquery4.Eof then
adoquery4.Delete;
end;
end.
\u8bfe\u7a0b\u7ba1\u7406:
procedure TForm9.FormCreate(Sender: TObject);
begin
ADOQuery3.Close; //\u5173\u95ed\u6570\u636e\u5e93
ADOQuery3.SQL.Clear; //\u6e05\u7a7a
ADOQuery3.SQL.Add('select * from kechengbiao');
ADOQuery3.ExecSQL;
ADOQuery3.Open;
dbedit1.DataField:='\u8bfe\u7a0b\u53f7';
dbedit2.DataField:='\u8bfe\u7a0b\u540d';
dbedit3.DataField:='\u8bfe\u65f6';
dbedit4.DataField:='\u5b66\u5206';
//DBComboBox1.DataField:='\u5b66\u671f';
DBComboBox2.DataField:='\u7c7b\u578b';
end;
procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Caption='\u6dfb\u52a0' then
begin
adoquery3.Insert; //\u6dfb\u52a0\u5230\u8bfe\u7a0b\u8868
SpeedButton1.Caption:='\u786e\u5b9a';
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=false;
SpeedButton3.Enabled:=false;
end
else
if SpeedButton1.Caption='\u786e\u5b9a' then
begin
if dbedit1.Text='' then
begin
showmessage('\u8bf7\u8f93\u5165\u8bfe\u7a0b\u53f7\uff01'); //\u5982\u679c\u8bfe\u7a0b\u53f7\u6ca1\u8f93\u5165,\u5f39\u51fa\u5bf9\u8bdd\u6846
end
else
begin
adoquery3.Post;
SpeedButton1.Caption:='\u6dfb\u52a0';
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=true;
SpeedButton3.Enabled:=true;
end;
end;
end;
procedure TForm9.SpeedButton2Click(Sender: TObject);
begin
if adoquery3.Eof then
begin
SpeedButton2.Enabled:=false;
SpeedButton3.Enabled:=false;
end;
if SpeedButton2.Caption='\u5220\u9664' then
begin
SpeedButton2.Caption:='\u786e\u5b9a';
SpeedButton4.Enabled:=true;
SpeedButton1.Enabled:=false;
SpeedButton3.Enabled:=false;
end
else
begin
adoquery3.Delete; //\u4ece\u6570\u636e\u8868\u4e2d\u5220\u6389\u6240\u9009\u8bb0\u5f55
SpeedButton2.Caption:='\u5220\u9664';
SpeedButton4.Enabled:=false;
SpeedButton1.Enabled:=true;
SpeedButton3.Enabled:=true;
end;
end;
procedure TForm9.SpeedButton4Click(Sender: TObject);
begin
adoquery3.Cancel;
SpeedButton1.Caption:='\u6dfb\u52a0';
SpeedButton2.Caption:='\u5220\u9664';
SpeedButton3.Caption:='\u4fee\u6539';
SpeedButton4.Enabled:=false;
SpeedButton1.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton3.Enabled:=true;
end;
procedure TForm9.SpeedButton3Click(Sender: TObject);
begin
if SpeedButton3.Caption='\u4fee\u6539' then
begin
adoquery3.Edit; //\u4fee\u6539\u8bfe\u7a0b\u8868\u4e2d\u7684\u8bb0\u5f55
SpeedButton3.Caption:='\u786e\u5b9a';
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
end
else
begin
adoquery3.Post;
SpeedButton3.Caption:='\u4fee\u6539';
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
end;
end;
procedure TForm9.Label1DblClick(Sender: TObject);
begin
form11:=tform11.Create(application);
form11.ShowModal;
end;
end.
\u8bfe\u7a0b\u67e5\u8be2\u90e8\u5206\uff1a
procedure Tform4.ComboBox1Select(Sender: TObject);
begin
edit1.Text:='';
button1.Enabled:=false;
end;
procedure Tform4.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then
begin
ADOQuery1.Close; //\u5148\u5c06\u6570\u636e\u5e93\u5173\u95ed
ADOQuery1.SQL.Clear; //\u6e05\u7a7aADOQuery1\u5185\u7684SQL\u503c\u6e05\u7a7a
ADOQuery1.SQL.Add('select * from kecheng where '+ComboBox1.text+' = '+''''+edit1.Text+''' and \u5b66\u671f = '+''''+ComboBox2.Text+''''); //\u5408\u5e76\u67e5\u8be2\uff0c\u7b26\u5408\u7684\u8bdd\u5728DBGrid\u4e2d\u663e\u793a\u51fa\u6765
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from kecheng where '+ComboBox1.text+' = '+''''+edit1.Text+'''');//\u5355\u4e2a\u6761\u4ef6\u67e5\u8be2
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;
end;
procedure Tform4.N2Click(Sender: TObject);
begin //\u5f00\u542f\u5176\u4ed6\u7ba1\u7406\u754c\u9762
form2.show;
form4.Close;
end;
procedure Tform4.N3Click(Sender: TObject);
begin
form3.show;
form4.Close;
end;
procedure Tform4.N4Click(Sender: TObject);
begin
form5.show;
form4.Close;
end;
procedure Tform4.N6Click(Sender: TObject);
begin
form1.show;
form4.Close;
end;
procedure Tform4.N7Click(Sender: TObject);
begin
form4.Close;
end;
procedure Tform4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
button1.Enabled:=true; //\u5f53\u8f93\u5165\u6761\u4ef6\u540e\uff0c\u201c\u786e\u5b9a\u201d\u6309\u94ae\u4e3a\u6709\u6548\u72b6\u6001
end;
procedure Tform4.CheckBox1Click(Sender: TObject);
begin
ComboBox2.Enabled:=CheckBox1.Checked;//\u628a\u67e5\u8be2\u5230\u7684\u6570\u636e\u653e\u5728DBGrid\u4e0a\u663e\u793a\u51fa\u6765
end;
end.
\u56db\u3001\u5b66\u6821\u5b66\u751f\u7ba1\u7406\u4fe1\u606f\u7cfb\u7edf\u7684\u4f7f\u7528\u8bf4\u660e
\u672c\u7cfb\u7edf\u5206\u4e3a\u5b66\u751f\u7528\u6237\u548c\u7ba1\u7406\u7528\u6237\uff0c\u5982\u679c\u4f60\u4e0d\u662f\u7ba1\u7406\u5458\uff0c\u90a3\u53ea\u80fd\u8fdb\u884c\u67e5\u8be2\uff0c\u5bf9\u6570\u636e\u6ca1\u6709\u4fee\u6539\u6743\u529b\u3002\u53ea\u80fd\u8fdb\u884c\u67e5\u8be2\uff0c\u91cc\u9762\u6709\u5404\u4e2a\u65b9\u9762\u7684\uff0c\u5982\u6210\u7ee9\u67e5\u8be2\uff0c\u8bfe\u7a0b\u67e5\u8be2\uff0c\u73ed\u7ea7\u67e5\u8be2\uff0c\u5b66\u7c4d\u67e5\u8be2\u3002\u5404\u4e2a\u754c\u9762\u90fd\u7b80\u5355\u660e\u4e86\uff0c\u53ea\u8981\u8f93\u5165\u4f60\u6240\u9700\u8981\u7684\u6761\u4ef6\uff0c\u7cfb\u7edf\u81ea\u52a8\u8c03\u51fa\u6570\u636e\u3002
\u7ba1\u7406\u5458\u767b\u9646\u70b9\u7cfb\u7edf\uff0c\u70b9\u7cfb\u7edf\uff0c\u8f93\u5165\u7ba1\u7406\u5458\u7528\u6237\u53ca\u5bc6\u7801\uff0c\u8ddf\u6570\u636e\u5e93\u7684\u7528\u6237\u8868\u6bd4\u8f83\u3002\u5982\u679c\u901a\u8fc7
\u5219\u80fd\u8fdb\u884c\u8bfe\u7a0b\uff0c\u5b66\u7c4d\uff0c\u6210\u7ee9\uff0c\u73ed\u7ea7\u7684\u7ba1\u7406\u3002
\u4e94\u3001\u7ed3\u675f\u8bed
\u5b66\u751f\u4fe1\u606f\u7ba1\u7406\u7cfb\u7edf\u6709\u5229\u4e8e\u5b66\u6821\u5bf9\u5b66\u751f\u8d44\u6599\u7684\u67e5\u8be2\uff0c\u5177\u6709\u53ef\u4f7f\u7528\u6027\u548c\u53ef\u7ef4\u62a4\u6027\uff0c\u5229\u4e8e\u5b66\u6821\u5728\u9700\u8981\u4e4b\u65f6\u5feb\u901f\u4e86\u89e3\u5b66\u751f\u7684\u60c5\u51b5\u3002\u5e76\u53ef\u4ee5\u8ba9\u5177\u6709\u6700\u9ad8\u6743\u9650\u7684\u7ba1\u7406\u5458\u66f4\u65b0\u3001\u4fee\u6539\u4fe1\u606f\uff0c\u5df2\u7ecf\u5177\u5907\u4e86\u4e00\u5b9a\u7684\u529f\u80fd\u3002\u4f46\u7531\u4e8e\u65f6\u95f4\u5173\u7cfb\u548c\u5176\u5b83\u539f\u56e0\uff0c\u672c\u7cfb\u7edf\u8fd8\u6709\u4e9b\u4e0d\u8db3\u4e4b\u5904\uff0c \u5982\u672c\u7cfb\u7edf\u6ca1\u6709\u5b9e\u73b0\u62a5\u8868\u6253\u5370\u7684\u529f\u80fd\u7b49\u7b49\uff0c \u8fd8\u6709\u5f85\u4e8e\u5b8c\u5584\u3002
\u5728\u5f20\u6ce2\u5c14\u8001\u5e08\u7684\u6307\u5bfc\u4e0b\uff0c\u7ecf\u8fc7\u4e00\u6bb5\u65f6\u95f4\u7684\u8ba8\u8bba\u548c\u4e0a\u673a\u7684\u4e0d\u65ad\u8c03\u8bd5\uff0c\u6211\u987a\u5229\u7684\u5b8c\u6210\u4e86\u5f00\u53d1\u4efb\u52a1\u3002\u5728\u5f00\u53d1\u8fc7\u7a0b\u4e2d\uff0c\u6211\u4e0d\u4ec5\u589e\u5f3a\u4e86\u81ea\u5b66\u7684\u80fd\u529b\u548c\u5f00\u53d1\u8f6f\u4ef6\u7684\u80fd\u529b\u3002\u5bf9\u4e00\u4e9b\u8f6f\u4ef6\u5f00\u53d1\u6a21\u5f0f\u6709\u4e86\u66f4\u52a0\u6df1\u523b\u7684\u8ba4\u8bc6\uff0c\u5bf9\u5e94\u7528\u8f6f\u4ef6\u7684\u719f\u7ec3\u7a0b\u5ea6\u6709\u6240\u63d0\u9ad8\uff0c\u5df2\u7ecf\u80fd\u8fd0\u7528\u8fd9\u9879\u5f00\u53d1\u8fc7\u7a0b\uff0c\u5b66\u4f1a\u4e86\u5982\u4f55\u8fdb\u884c\u5c0f\u7ec4\u5f0f\u7684\u5f00\u53d1\u4e00\u4e2a\u7efc\u5408\u7cfb\u7edf\u3002\u8fd8\u4ece\u5f20\u8001\u5e08\u8eab\u4e0a\u5b66\u5230\u4e86\u5f88\u591a\u4e1c\u897f\u3002\u5f20\u8001\u5e08\u8ba4\u771f\u8d1f\u8d23\u7684\u6001\u5ea6\u4e25\u8c28\u6cbb\u6cbb\u5b66\u7cbe\u795e\u90fd\u4f7f\u6211\u6536\u76ca\u975e\u6d45\u3002\u5728\u6b64\u6211\u7279\u5411\u7ed9\u4e86\u5f88\u591a\u6307\u5bfc\u548c\u63d0\u4f9b\u6211\u4eec\u5f00\u53d1\u5c0f\u7ec4\u5b9d\u8d35\u610f\u89c1\u7684\u5f20\u6ce2\u5c14\u8001\u5e08\u8868\u793a\u611f\u8c22\uff01\u56e0\u4e3a\u672c\u7cfb\u7edf\u6240\u6d89\u53ca\u7684\u5185\u5bb9\u975e\u5e38\u5e7f\u6cdb\u5e76\u4e14\u6bd4\u8f83\u590d\u6742\uff0c\u52a0\u4e0a\u65f6\u95f4\u7684\u4ed3\u4fc3\uff0c\u5c3d\u7ba1\u6211\u7aed\u5c3d\u5168\u529b\u6765\u4fdd\u8bc1\u7cfb\u7edf\u7684\u53ef\u9760\u6027\uff0c\u4f46\u662f\u80af\u5b9a\u8fd8\u6709\u4e0d\u8db3\u4e4b\u5904\uff0c\u6073\u8bf7\u7528\u6237\u6279\u8bc4\u6307\u6b63\u3002\u8c22\u8c22!
\u53c2\u8003\u6587\u732e\uff1a\uff081\uff09Delphi6\u6570\u636e\u5e93\u7cfb\u7edf\u5f00\u53d1\u5b9e\u4f8b\u5b50\u5bfc\u822a \u4eba\u6c11\u90ae\u7535\u51fa\u7248\u793e
\uff082\uff09\u7a0b\u5e8f\u8bbe\u8ba1\u4ece\u5165\u95e8\u5230\u7cbe\u901a \u79d1\u5b66\u51fa\u7248\u793e
(3)Delphi6.0\u7a0b\u5e8f\u8bbe\u8ba1\u6559\u7a0b \u51b6\u91d1\u5de5\u4e1a\u51fa\u7248\u793e
(4)Delphi\u6570\u636e\u5e93\u5f00\u53d1\u81ea\u5b66\u6559\u7a0b \u4eba\u6c11\u90ae\u7535\u51fa\u7248\u793e
\u5404\u6a21\u5757\u4e3b\u8981\u4ee3\u7801
1\u3001\u6210\u7ee9\u7ba1\u7406\u6a21\u5757
\u2474 \u6210\u7ee9\u7ba1\u7406
procedure TForm8.Button1Click(Sender: TObject);
var
i:boolean;
begin
i:=false;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from pjcj where '+edit2.Text+'');
ADOQuery2.ExecSQL;
ADOQuery2.Open;
if not ADOQuery2.Eof then \uff08 \u5224\u65ad\u662f\u5426\u6570\u636e\u5e93\u6700\u540e\u4e00\u9879\uff09
i:=true;
if i then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from dkcj where \u5b66\u53f7 ='+''''+ADOQuery2.FieldValues['\u5b66\u53f7']+''''); \uff08\u4f7f\u7528SQL\u8fdb\u884c\u67e5\u8be2\uff09
ADOQuery1.ExecSQL;
ADOQuery1.Open;
button1.Enabled:=false;
end
else
begin
showmessage('\u6ca1\u6709\u7b26\u5408\u67e5\u8be2\u6761\u4ef6\u7684\u8bb0\u5f55!!'); \uff08\u5982\u679c\u6ca1\u6709\u7b26\u5408\u6761ComboBox1.Text:='';
ComboBox2.Text:='';\u4ef6\u7684\uff0c\u663e\u793a\u8be5\u8bed\u53e5\uff09
ComboBox3.Text:='';
edit1.Text:='';
edit2.Text:='';
adoquery1.Close;
adoquery2.Close;
ComboBox1.Enabled:=true;
end;
dbedit6.DataField:='\u5b66\u53f7';
dbedit7.DataField:='\u59d3\u540d';
dbedit8.DataField:='\u73ed\u7ea7';
dbedit1.DataField:='\u5b66\u53f7';
dbedit2.DataField:='\u59d3\u540d';
dbedit3.DataField:='\u8bfe\u7a0b\u53f7';
dbedit4.DataField:='\u8bfe\u7a0b\u540d';
dbedit5.DataField:='\u6210\u7ee9';
end;
\uff082\uff09\u6210\u7ee9\u67e5\u8be2
procedure Tform3.Button1Click(Sender: TObject);
var
i:boolean;
begin
i:=false;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from pjcj where '+edit2.Text+'');
ADOQuery2.ExecSQL; \uff08\u6839\u636eSQL\u8fdb\u67e5\u8be2\uff09
ADOQuery2.Open;
if not ADOQuery2.Eof then
i:=true;
if i then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from dkcj where \u5b66\u53f7 ='+''''+ADOQuery2.FieldValues['\u5b66\u53f7']+'''');
ADOQuery1.ExecSQL;
ADOQuery1.Open;
button1.Enabled:=false;
end
else
begin
showmessage('\u6ca1\u6709\u7b26\u5408\u67e5\u8be2\u6761\u4ef6\u7684\u8bb0\u5f55!!');
ComboBox1.Text:=''; \uff08\u5f53\u6ca1\u6709\u7b26\u5408\u6761\u4ef6\u7684\u8bb0\u5f55\uff0c\u81ea\u52a8
ComboBox2.Text:='';\u6e05\u7a7a\u9009\u62e9\u6846\u91cc\u7684\u67e5\u8be2\u6761\u4ef6\uff09
ComboBox3.Text:='';
edit1.Text:='';
edit2.Text:='';
adoquery1.Close;
adoquery2.Close;
ComboBox1.Enabled:=true;
end;
end;
procedure Tform3.DBGrid2CellClick(Column: TColumn);
var
str:string;
begin
str:=ADOQuery2.FieldValues['\u5b66\u53f7'];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from dkcj where \u5b66\u53f7 ='+''''+str+'''');
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;
procedure Tform3.N4Click(Sender: TObject); \uff08\u7ba1\u7406\u754c\u9762\u7684\u5207\u6362\uff09
begin
form5.show;
form3.Close;
end;
procedure Tform3.N6Click(Sender: TObject);
begin
form1.show;
form3.Close;
end;
procedure Tform3.Edit1Exit(Sender: TObject);
begin
if ComboBox1.Text='\u5e73\u5747\u6210\u7ee9' then\uff08\u6839\u636e\u5e73\u5747\u6210\u7ee9\u67e5\u8be2\uff09
begin
edit2.Text:=edit2.Text+edit1.Text;
end
else
begin
edit2.Text:=edit2.Text+#39;
edit2.Text:=edit2.Text+edit1.Text;
edit2.Text:=edit2.Text+#39;
end;
end;
procedure Tform3.Button2Click(Sender: TObject);
begin\uff08\u672c\u6bb5\u4e3a\u5bf9\u67e5\u8be2\u6761\u4ef6\u7684\u5237\u65b0\uff0c\u8fdb
ComboBox1.Text:='';\u884c\u4e0d\u540c\u6761\u4ef6\u7684\u8f93\u5165\uff09
ComboBox2.Text:='';
ComboBox3.Text:='';
edit1.Text:='';
edit2.Text:='';
adoquery1.Close;
adoquery2.Close;
button1.Enabled:=false;
ComboBox1.Enabled:=true;
end;
2\u3001\u73ed\u7ea7\u7ba1\u7406\u6a21\u5757
\uff081\uff09\u73ed\u7ea7\u7ba1\u7406
procedure TForm9.ComboBox1Select(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from class where \u7cfb\u540d = '+''''+ComboBox1.Text+'''');
ADOQuery1.ExecSQL;
ADOQuery1.Open; \uff08\u6839\u636e\u7cfb\u522b\u663e\u793a\u73ed\u7ea7\u4fe1\u606f\uff09
dbedit1.DataField:='\u7cfb\u540d';\uff08\u8fd9\u4e94\u9879\u4e3a\u8868\u7684\u6570\u636e\u9879\u540d\uff09
dbedit2.DataField:='\u73ed\u7ea7';
dbedit3.DataField:='\u8f85\u5bfc\u5458';
dbedit4.DataField:='\u73ed\u957f';
dbedit5.DataField:='\u4e13\u4e1a';
button1.Enabled:=true;
button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=true;
end;
procedure TForm9.Button2Click(Sender: TObject); \uff08\u8bb0\u5f55\u7684\u5220\u9664\u64cd\u4f5c\uff09\u300a\u4fee\u6539\u4e0e\u6dfb\u52a0\u64cd\u4f5c\u4e0e\u8fd9\u7c7b\u4f3c\u300b
begin
if button2.Caption='\u5220\u9664' then
begin
button2.Caption:='\u786e\u5b9a';
button1.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=true;
1.你说的信息头，就是InfoHead结构体，其实这就是一个统计结果存放的结构，每次插入删除修改等等操作之后，都要重新统计次，将结果放入此结构体中
2.学生信息怎么保存？可用文件读写操作，或链表实现。如果链表实现STU结构体中应有指针指向下一个学生信息
typedef struct stdinfo
{
unsigned long no; //学号
char name[10]; //姓名
float score; //成绩
stdinfo *next;
}STU;
3.假设用链表。剩下的插入、查询、修改就是链表的对应操作而已，去看看链表，很简单
4.写个信息统计函数，就是遍历一遍链表，将里面的数据统计结束后，写入信息头
5、排序那么多，自己选一种合适的，排完建个新链表而已
6.界面设计无非就是printf函数自己排版的效果
绛旓細1.浣犺鐨勪俊鎭ご锛屽氨鏄疘nfoHead缁撴瀯浣擄紝鍏跺疄杩欏氨鏄竴涓粺璁＄粨鏋滃瓨鏀剧殑缁撴瀯锛屾瘡娆℃彃鍏ュ垹闄や慨鏀圭瓑绛夋搷浣滀箣鍚庯紝閮借閲嶆柊缁熻娆★紝灏嗙粨鏋滄斁鍏ユ缁撴瀯浣撲腑 2.瀛︾敓淇℃伅鎬庝箞淇濆瓨锛熷彲鐢ㄦ枃浠惰鍐欐搷浣滐紝鎴栭摼琛ㄥ疄鐜般傚鏋滈摼琛ㄥ疄鐜癝TU缁撴瀯浣撲腑搴旀湁鎸囬拡鎸囧悜涓嬩竴涓鐢熶俊鎭 typedef struct stdinfo { unsigned long no; /...
绛旓細1
绛旓細灏辨垜鑰岃█,鎴浼氬厛閫夊仛浼氳,绉疮鍑犲勾鐨勫伐浣滅粡楠,鎴栬浠婂悗鐨勫嚑骞寸殑瀛︿範涓垜鐨勮兘鍔涘嵈鐭湡瑙勫垝閭ｆ牱鍙栧緱瀹炴晥,鍚勬柟闈㈢殑鑳藉姏浣挎垜鍏峰鍗曞共鐨勮兘鍔,浣嗘槸鎴戜篃涓嶄細閫夋嫨姣曚笟鍚庨┈涓婂崟骞,鍦ㄤ綆灞傚伐浣滃嚑骞村彲浠ュ姪鎴戞洿濂界殑绠＄悊鎴戠殑鍥㈤槦銆傛瘯涓氬悗鎴戜笉浼氳浆鍚戝埆鐨勯鍩熷彂灞,鏃㈢劧閫夋嫨杩欎釜琛屼笟,灏卞簲璇ュ姫鍔涘仛鍒版渶濂,鑰屼笉鏄湞涓夋毊鍥,褰撶劧涓...
绛旓細鍙傝
绛旓細妤间富 鎴戜滑鐨勬儏鍐典竴妯′竴鏍锛屽ぇ涓澶т簩涓鐩寸帺锛屾垚缁╄櫧鐒舵病鏈夋寕绉戯紝浣嗗湪鐝噷鏄掓暟鍑犱釜锛屽ぇ涓夊紑濮嬪噯澶囪冪爺锛岄鍏堝紑濮嬪鑻辫鍜岄珮鏁扮殑澶嶄範锛屼笓涓氳鍙互閫傚綋鍚竴鐐癸紝鏈変釜澶ф浜嗚В锛屼箣鍚庤冪爺澶嶄範浼氭湁涓涓郴缁熷涔狅紝涓嶆垚闂銆傛荤殑瀹夋帓鏄爺涓変笅瀛︽湡寮濮嬪涔犻珮鏁板拰鑻辫璇嶆眹锛屼竴瀹氳姣忓ぉ鍧氭寔锛屾殤鍋囦箣鍓嶆渶濂借兘鎶婃暟瀛...
绛旓細鐜板湪鏄澶т竴鐨璇濆氨鏄笂瀛︽湡锛屽氨鐢∣PENMP锛屼笉鐞嗚В 鍩烘湰浣跨敤缂栬緫 瑕佸湪Visual C++2005 涓娇鐢∣penMP鍏跺疄涓嶉毦锛屽彧瑕佸皢 Project 鐨凱roperties涓瑿/C++閲孡anguage鐨凮penMP Support寮鍚紙鍙傛暟涓 /openmp锛夛紝灏卞彲浠ヨVC++2005 鍦ㄧ紪璇戞椂鏀寔OpenMP 鐨勮娉曚簡锛涜屽湪缂栧啓浣跨敤OpenMP 鐨勭▼搴忔椂锛屽垯闇瑕佸厛include OpenMP鐨勫ご...
绛旓細ok锛岀淇″彲浠ュ晢閲忋傛渶濂藉畬鎴愪竴涓姛鑳戒氦涓娆★紝涓婃鍥炵瓟浜嗕唬鐮侊紝棰樹富浜轰笉瑙佷簡銆
绛旓細杩欐槸涓涓钉绾剁數瀹癸紝104浠ｈ〃0.1uF锛100浠ｈ〃鑰愬帇100v锛屾尟鑽＄數璺暀绉戜功閲屾湁鍥撅紝鎸夊浘鎵鏍囩ず澶囧ソ鍣ㄤ欢锛岀収鍥捐繛缁撳氨鏄紝楂橀鐨勮闃插共鎵帮紝鎶楀共鎵
绛旓細澶т竴缈樿鏄粡甯哥殑浜,琚偣鍒扮己甯椂搴斿浼氭壘鐞嗙敱鍝,杩欐槸涓闂ㄥ繀淇銆傚洜涓哄ぇ瀛︾敓涓嶆槸姣忚妭璇鹃兘蹇呴』璁ょ湡鍚鐨勩 3.缈樿鏈変簺绐嶉棬,鍙鎵樹竴鍚嶅悓瀛︾偣鍒颁綘鏃堕珮澹板枈鈥滃埌鈥;鍙互杩欐牱鍋:棣栧厛鍦ㄨ甯綘椤剁殑鍚屽鍦ㄤ粬鏃佽竟鎵斾釜涔﹀寘,鏈濂借佸笀鐪嬬殑瑙,鐒跺悗鐐瑰埌鏃,璁╀綘鍚屽璇:浠栦笂鍘曟墍浜嗐 4澶т竴姣忎釜鍚屽閮藉澶у鐢熸椿鍏呮弧浜...
绛旓細涓銆 閮ㄩ棬閲嶇偣宸ヤ綔锛1銆佽鐪熷仛濂芥瘡娆″洟缁勭粐鐢熸椿鐨勬鏌ャ備緷娆″鍚勭彮鐨勫洟缁勭粐鐢熸椿杩涜妫鏌ャ佽瘎鍒嗐佸苟缁欏嚭涓浜涘悎鐞嗙殑鎰忚鍜屽缓璁紝浠ヤ繚璇佸悇鐝殑鍥㈢粍缁囩敓娲昏兘鍔炵殑鏇村ソ锛屾洿鏈夌壒鑹层2銆佸畾鏈熷姣忔鍥㈢粍缁囩殑鐢熸椿鍋氫簺鎬荤粨锛屾敼鎺変笉瓒冲拰涓浜涢敊璇紝鎶婃瘡娆＄殑鎶ヨ〃 鍜岃祫鏂欐敹闆嗘暣鐞嗗ソ锛屾墠鑳戒娇姣忔鐨勬椿鍔ㄥ仛鍒版湁绔犲彲寰...
