会计网站源码

1、我们通过SQL事件探查器（这可真是个好东东啊！），不难跟踪到以下内容 EXEC CheckInventory2、我们进入SQL企业管理器，也不难得到CheckInventory的详细代码[K/310.1]CREATE Procedure CheckInventoryas Declare @CurYear Int, --当前年份 @CurPeriod int, --起始的会计期间 @StartPeriod SmallInt, --启用期间 @NowPeriod Smallint, --当前期间 @StartTime DateTime, --期间开始日期 @EndTime DateTime, --期间结束日期 @DiffCount Decimal(28,0) --计算是否有差异数量 --2.取出当前年份 SELECT @CurPeriod=FValue FROM t_Systemprofile WHERE FKey='CurrentPeriod' And FCategory='IC' SELECT @CurYear=FValue FROM t_Systemprofile WHERE FKey='CurrentYear' And FCategory='IC' --3.取出当前期间的起始日期 EXEC GetPeriodStartEnd @CurPeriod,@StartTime output,@EndTime output SELECT FItemID,FStockID,FBatchNo,FStockPlaceID,case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) End as FKFDate,ISNULL(FKFPeriod,'') as FKFPeriod, Sum(FBegQty) As FQty ,0 As FQtyLock Into #RealTimeQty FROM ICInvBal WHERE FPeriod=@CurPeriod And FYear=@CurYear Group By FItemID,FStockID,FBatchNo,FStockPlaceID,FKFDate,FKFPeriod Having sum(FBegQty)<>0 --SELECT FItemID,FStockID,FBatchNo,FQty FROM #RealTimeQty Insert Into #RealTimeQty SELECT t1.FItemID,t2.FDCStockID As FStockID,IsNull(t1.FBatchNO,''),ISNULL(t1.FDCSPID,'') as FStockPlaceID, case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) end ,ISNULL(t1.FKFPeriod,''), Sum(t1.FQty) As FQty,0 As FQtyLock FROM ICStockBillEntry t1,ICStockBill t2 WHERE t1.FInterID=t2.FInterID And (t2.FCheckerID>0 or t2.FCheckerID <0 or FUpStockWhenSave=1) And t2.FCancelLation=0 And t2.FTranType In (1,2,5,10,40,41) And FDate>=@StartTime Group By t1.FItemID,t2.FDCStockID,t1.FBatchNo,t1.FDCSPID,t1.FKFDate,t1.FKFPeriod ......[以下代码省略]3、我们也不难看出其中几个参数的意思 @CurYear Int, --当前年份 @CurPeriod int, --起始的会计期间 [原代码注释可能有歧义,应为当前期间，当然，也可以解释为校对即时库存的起始期间] @StartPeriod SmallInt, --启用期间 [该参数基本没有用] @NowPeriod Smallint, --当前期间 [源代码注释错了,该参数基本没有用] @StartTime DateTime, --期间开始日期 @EndTime DateTime, --期间结束日期[该参数基本没有用] @DiffCount Decimal(28,0) --计算是否有差异数量 除了几个没有使用的参数外,其他几个重要的参数就是时间节点了。 从SQL代码可以看出，“校对”即时库存的功能应该就是从当前期间的第一天开始的。4、我们是否可以经过改进，来控制校对即时库存的起始点呢？应该是可以的。CREATE Procedure CheckInventoryEX @CurYear Int=0, --起始年份 @CurPeriod int=0, --起始会计期间asDeclare @StartPeriod SmallInt, --启用期间 @NowPeriod Smallint, --当前期间 @StartTime DateTime, --期间开始日期 @EndTime DateTime, --期间结束日期 @DiffCount Decimal(28,0) --计算是否有差异数量 --2.取出当前年份 if @CurPeriod<=0 or @CurPeriod>12 begin SELECT @CurPeriod=FValue FROM t_Systemprofile WHERE FKey='CurrentPeriod' And FCategory='IC' end if @CurYear<=0 begin SELECT @CurYear=FValue FROM t_Systemprofile WHERE FKey='CurrentYear' And FCategory='IC' end --3.取出当前期间的起始日期 EXEC GetPeriodStartEnd @CurPeriod,@StartTime output,@EndTime output SELECT FItemID,FStockID,FBatchNo,FStockPlaceID,case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) End as FKFDate,ISNULL(FKFPeriod,'') as FKFPeriod, Sum(FBegQty) As FQty ,0 As FQtyLock Into #RealTimeQty FROM ICInvBal WHERE FPeriod=@CurPeriod And FYear=@CurYear Group By FItemID,FStockID,FBatchNo,FStockPlaceID,FKFDate,FKFPeriod Having sum(FBegQty)<>0 --SELECT FItemID,FStockID,FBatchNo,FQty FROM #RealTimeQty Insert Into #RealTimeQty SELECT t1.FItemID,t2.FDCStockID As FStockID,IsNull(t1.FBatchNO,''),ISNULL(t1.FDCSPID,'') as FStockPlaceID, case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) end ,ISNULL(t1.FKFPeriod,''), Sum(t1.FQty) As FQty,0 As FQtyLock FROM ICStockBillEntry t1,ICStockBill t2 WHERE t1.FInterID=t2.FInterID And (t2.FCheckerID>0 or t2.FCheckerID <0 or FUpStockWhenSave=1) And t2.FCancelLation=0 And t2.FTranType In (1,2,5,10,40,41) And FDate>=@StartTime Group By t1.FItemID,t2.FDCStockID,t1.FBatchNo,t1.FDCSPID,t1.FKFDate,t1.FKFPeriod

学生登陆密码。

1、生成目标代码，即计算机可以识别的代码。

2、对软件进行说明，即对软件的编写进行说明。为数不少的初学者，甚至少数有经验的程序员都忽视软件说明的编写，因为这部分虽然不会在生成的程序中直接显示，也不参与编译。但是说明对软件的学习、分享、维护和软件复用都有巨大的好处。

3、因此，书写软件说明在业界被认为是能创造优秀程序的良好习惯，一些公司也硬性规定必须书写。

4、需要指出的是，源代码的修改不能改变已经生成的目标代码。如果需要目标代码做出相应的修改，必须重新编译。

可以到页面去下载或者直接复制下列地址链接，导入迅雷即可下载或者留下邮箱发送给你！

题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个 oWXvkDN 第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下 rycscE4, 的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。 \BJnJk!% 1.程序分析：采取逆向思维的方法，从后往前推断。 @Ki`g(],P 2.程序源代码： h!d#=.R main() i&_sbQ^ { 6GJ?rE E/ int day,x1,x2; -$e\m] }Z day=9; hfEGkaV._3 x2=1; o^7NZ]m while(day>0) |W#^L`!G {x1=(x2+1)*2;/*第一天的桃子数是第2天桃子数加1后的2倍*/ 7Kh+m@q. x2=x1; + FLzK( day--; N18Zsdrp } OsC1('4@ printf("the total is %d\n",x1); ={zYcVI } N|7._AR2 ----------------------------------------------------------------------------- ?+5K2Zk 【程序22】 y#x]?%m 题目：两个乒乓球队进行比赛，各出三人。甲队为a,b,c三人，乙队为x,y,z三人。已抽签决定 [=LQ,e$r7 比赛名单。有人向队员打听比赛的名单。a说他不和x比，c说他不和x,z比，请编程序找出 \J1Jn~ 三队赛手的名单。 0Q>Yoa 11 1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除， *7-uQKp 则表明此数不是素数，反之是素数。 p&ZD1qa 2.程序源代码： aI( for(k='x';k<='z';k++) n{UB^-}5 { if(i!=k&&j!=k) w/Q'T&>b/ { if(i!='x'&&k!='x'&&k!='z') L TO1LAac printf("order is a--%c\tb--%c\tc--%c\n",i,j,k); [>6:xGSe9X } 'f5,%e2# } r[~K m5 } ]LP&v3 } 4'_uN$${$ ----------------------------------------------------------------------------- x2K.5q> 【程序23】 vsES` 题目：打印出如下图案（菱形） QEtZ]p1H@ 5$zC,g*# * j7uiZU;3Rx *** bCE[oi6hb ****** 2&5"m;< ******** "4L' 2w+ ****** BIX%Bu0'f *** Y+WOU._46I * 59ro-nA9v 1.程序分析：先把图形分成两部分来看待，前四行一个规律，后三行一个规律，利用双重 xt40hZ$ for循环，第一层控制行，第二层控制列。 mDj:w#q 2.程序源代码： 6)DYQ^4y main() &AlVJEI+ { #nn2odR int i,j,k; SRj|XCd for(i=0;i<=3;i++) JNk ]$xz { eK3J9 ;X for(j=0;j<=2-i;j++) | \Qr cf printf(" "); knF *~O :y for(k=0;k<=2*i;k++) "K~+T\^|k printf("*"); f'R^MX2 printf("\n"); m"@M~~bh } $Ne#F+M9x for(i=0;i<=2;i++) Yc\;`C { :E'38~ for(j=0;j<=i;j++) oREZ^pE@ printf(" "); H}JH339 for(k=0;k<=4-2*i;k++) &87D.Yy^ printf("*"); cdzMao printf("\n"); 'J]V"Z) } vNi7=3 } j}S ----------------------------------------------------------------------------- Jp_{PR:& 【程序24】 0(-'L\<>x 题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。 }q27M 1.程序分析：请抓住分子与分母的变化规律。 b)'Ew27 2.程序源代码： u`K+0^)T` main() Bn47O~ { [0F+t,` int n,t,number=20; /gXli) float a=2,b=1,s=0; :]e:-JbT4z for(n=1;n<=number;n++) 5GT,:0 { eGn s=s+a/b; t`H^! b t=a;a=a+b;b=t;/*这部分是程序的关键，请读者猜猜t的作用*/ ]#))#-&1 } #`v`e" printf("sum is %9.6f\n",s); =@V4V}? } esbxx##\ ----------------------------------------------------------------------------- NzNAhlXj3 【程序25】 Yy>%dL 题目：求1+2!+3!+...+20!的和 qs 52)$ 1.程序分析：此程序只是把累加变成了累乘。 #qm<4]9 1 2.程序源代码： u\&oiwSIP main() QRw3 06 { x-CY G?-x float n,s=0,t=1; fx%'7/+ for(n=1;n<=20;n++) M1Od%nz3 { H*EQ%BLW^, t*=n; `k _5Pz\ s+=t; [WX+/pm7> } =EsKFt" printf("1+2!+3!...+20!=%e\n",s); KW^s~j } f1hi\p0q ----------------------------------------------------------------------------- l yO_rZT 【程序26】 I?s)^' 题目：利用递归方法求5!。 X f!Bsp#\g 1.程序分析：递归公式：fn=fn_1*4! _Vj O [hx 2.程序源代码： 9! gmS?f #include "stdio.h" o9q%=/@, main() n*@^c$&P { C<6u}czA int i; 5j{o0&=_$ int fact(); cJj0`@0f for(i=0;i<5;i++) T!(I\wz;Bo printf("\40:%d!=%d\n",i,fact(i)); $7O[|:Yv } Xdq2.:\ int fact(j) V*U"OJ% int j; Rj+}L ~" { CH`4FR.- int sum; +=$]fjE? if(j==0) JWlH(-U4| sum=1; 8[(c'rl|)| else E J q=MP sum=j*fact(j-1); {nm#aA%, return sum; x #BUIi } ;9=9D{-4+ NAx( Qi3 ----------------------------------------------------------------------------- b;9v.MZ4>g 【程序27】 08yTTt76t 题目：利用递归函数调用方式，将所输入的5个字符，以相反顺序打印出来。 K34ca-~ 1.程序分析： FspI[g UN, 2.程序源代码： *=~ 9? #include "stdio.h" j=PQoEtU'< main() H8P il H { B/i,QBPF] int i=5; W\N-~9UA void palin(int n); &tLg}7?iB printf("\40:"); fnL!@WF palin(i); K )KE0/ n printf("\n"); Ucc/ char next; VskyRxfdW3 if(n<=1) 3M+hjc. { rM=Q.By+\ next=getchar(); 9i,QCA printf("\n\0:"); +3]@0VM26; putchar(next); 0-l @U{ } TcO@q ]+S else (+CB)nV0IA { Z&JW}''n|F next=getchar(); x4.-7%VV% palin(n-1); <3Co/.VQd putchar(next); w/h?, L| } c}g^wLa } k else if (d!=0) printf("there are 2, %ld %ld\n",e,d); bJx{mq else if (e!=0) printf(" there are 1,%ld\n",e); >]&LbUW+ } 600-e;p s@jzu ----------------------------------------------------------------------------- k8GcHqNHx 【程序30】 j_o6+R k 题目：一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。 ?Q]&d!U Cs 1.程序分析：同29例 DSM,dO' 2.程序源代码： n-#?6`>a main( ) oi::/W|A+ { S5-}u)XnH long ge,shi,qian,wan,x; )z=`,\&p: scanf("%ld",&x); ]mn(lK wan=x/10000; 2(\~z@g qian=x%10000/1000; lw\OsB$ shi=x%100/10; 0N;Pb(%7UU ge=x%10; (=j]fnH? if (ge==wan&&shi==qian)/*个位等于万位并且十位等于千位*/ OU]!2[7c printf("this number is a huiwen\n"); j;=+5PY else l=Jbuc printf("this number is not a huiwen\n"); vh"zYl` }

不免费是否接受

//=================================[说明]=======================================*///学生成绩管理//文件名：main.cpp//------！！！！！！---------BOF-[程序代码开始]-------------------#include#includeusing namespace std;//=============<开始定义结构体>===================================================struct combox{ int num; int mark; string name; combox *next;};//=============<结束定义结构体>===================================================//=============<开始定义Commonbox类>==============================================//-----类体开始------------------------class Commonbox{private: combox *head; void Swap(combox *,combox *); //交换两个combox变量的数据域 void Print(combox *); //输出一combox指定的记录 combox *Find(int); //查找条例条件的记录，并返回该记录的指针public: Commonbox() { head=NULL; } int ListCount(); //统计当前链表的记录总数，返回一个整数 void AddItem(int num, string name, int mark); //添加一条记录到表尾 void RemoveItem(int); //删除一条指定的记录 void List(); //列出当前链表中的所有记录 void Sort(); //对当前链表进行排序 void Search(int); //在当前链表查找指定记录并输出 float Average(); //计算平均成绩};//-----类体结束------------------------//-----类成员函数开始----------------------------------int Commonbox::ListCount() //统计当前链表的记录总数，返回一个整数{ if (! head)return 0; combox *p=head; int n=0; while (p) { n++; p=p->next; } return n;}void Commonbox::AddItem(int num, string name, int mark) //添加一条记录到表尾{ if (! head) { head=new combox; head->mark=mark; head->num=num; head->name=name; head->next=NULL; return; } combox *t=head; while (t && t->num!=num) t=t->next; if (t) { cout<<"操作失败：学号为"<next)p=p->next; combox *p1=new combox; p1->num=num; p1->mark=mark; p1->name=name; p1->next=NULL; p->next=p1; return;}void Commonbox::RemoveItem(int num) //删除一条指定的记录{ combox *t=Find(num); if (! t)return; combox *p=head;//如果要删除的记录位于表头 if (head==t) { head=head->next; delete p; cout <<"成功删除学号为 "<next!=t)p=p->next; combox *p1=p->next; p->next=p1->next; delete p1; cout <<"成功删除学号为 "<num<<"\t\t"; cout<name<<"\t\t"; cout<mark<next; } cout <num==num)break; p=p->next; } if (! p) { cout <<"错误：找不到该记录!\n"; return NULL; } return p;}void Commonbox::Swap(combox *p1, combox *p2) //交换两个combox变量的数据域{ combox *temp=new combox; temp->num=p1->num; temp->mark=p1->mark; temp->name=p1->name; p1->num=p2->num; p1->mark=p2->mark; p1->name=p2->name; p2->num=temp->num; p2->mark=temp->mark; p2->name=temp->name;}void Commonbox::Sort() //对当前链表进行排序{ cout <<"Sorting..."<next; for (j=0;jnum > p1->num) { k=p1; } p1=p1->next; } if (p!=k)Swap(k,p); p=p->next; } cout <<"Complete successfully!"<mark; p=p->next; n++; } return float(sum)/n;}//-----类成员函数结束----------------------------------//=============<结束定义Commonbox类>==============================================Commonbox student; //定义全局变量int Menu(){ cout <<"===========[主选单:]==========="<>select; return select;}char Exit() //返回一个字符患,用于确认退出{ char s; cout<<"确定要退出程序吗?[Y/N]:"; cin >>s; return s;}void Input(int *num, string *name, int *mark) //输入学生信息{ cout <<"请输入 学号 姓名 分数:"; cin >>*num; if (*num==-1)return; cin >>*name>>*mark; return;}void AddNew() //增加记录{ int num=0,mark=0; string name=""; cout<>num; if (num==-1)continue; student.Search(num); } while (num!=-1); return;}void DoDelete() //删除记录{ cout<>num; if (num==-1)continue; student.RemoveItem(num); } while (num!=-1); return;}void ShowAverage() //输出平均数{ float avr=student.Average(); if (avr>0) { cout<<"共有记录:\t"<******-------int main(){ cout<<"Welcome!\n学生成绩管理系统\nVer 1.01\nBy FondBoy\n\n"; int select; char s; while (1) { select=Menu(); switch (select) { case 0: //退出程序 s=Exit(); if (s=='y' || s=='Y')return 0; break; case 1: //输入学生成绩 AddNew(); break; case 2: //按学号排序 student.Sort(); break; case 3: //按学号查找记录 DoFind(); break; case 4: //删除由学号指定的记录 DoDelete(); break; case 5: //列出所有记录 student.List(); break; case 6: //输出平均成绩 ShowAverage(); break; default: cout<<"无效输入!"<******-------//------！！！！！！---------EOF-[程序代码结束]-------------------