摘要：create proc ppas declare @n intset @n=1while @n<=100begininsert into student values('11341101320'+LTRIM(@n),'Jack'+ltrim(@n),'男',22,'上海','18272986984... 阅读全文

摘要：union alluse myDBSELECT '大于20' as scope,count(*) as 人数FROM student where age>=60union all SELECT '小于20' as scope ,count(*) as 人数FROM student where ag... 阅读全文

摘要：program yanghui1;{$APPTYPE CONSOLE}uses SysUtils; var i,j,t,n:Integer; a:array[0..14,0..14] of Integer; begin write('请输入行数：'); readln(n); for i... 阅读全文

摘要：1 use myDB; 2 insert into student values('1134110116','Tom','男',22,'上海','18272986984','上海'); 3 insert into student values('1134110117','Tom1','男',... 阅读全文

摘要：新建控制台程序： File--> New -->Other --> console Application 1 program Project1; 2 3 {$APPTYPE CONSOLE} 4 5 uses 6 SysUtils; 7 var 8 a,b,sum:Integer; 9 ... 阅读全文

摘要：程序界面：程序源码： 1 unit mydb; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, DB... 阅读全文

摘要：1 unit DateTimePicker; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, Co... 阅读全文

摘要：1 unit TrafficLight3; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, Std... 阅读全文

摘要：1 unit Unit1_test; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 ... 阅读全文