菜鸟问题集，答对给分

Question

1：PROJECT1.DPR中：
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.2、EXE放在当前PAS文件的目录

Answer 1

1一般放在.dpr（即工程文件）中，但也可放在一般Unit中；
2是库表，但具体是什么我还要再看看；
3一般放在Delphi的Projects文件夹中，如果中途有其它文件夹操作，则会放在当前的文件夹中；
4与S/C程序有关，请查看相关资料

Answer 2

3、视图一般存在于大型数据库中
建议用数据库自带的工具创建！
以下是一个根据前面两张表建视图的例子：print " Createing table Sell-销售单主单..."
if exists (select * from sysobjects where id = object_id('dbo.Sell') and sysstat & 0xf = 3)
   drop table Sell
go 
create table Sell
(
SellCode CHAR(9) NOT NULL,
BrandCode VARCHAR(6) NOT NULL,
DepotCode VARCHAR(4) NOT NULL,
GuestCode VARCHAR(6) NOT NULL,
UserCode VARCHAR(8) NOT NULL,
Date CHAR(8) NOT NULL,
State INT NOT NULL,
Memo VARCHAR(64) NULL,
constraint PK_Sell primary key(SellCode)
)
go
print " Createing table SellList-销售单细单..."
if exists (select * from sysobjects where id = object_id('dbo.SellList') and sysstat & 0xf = 3)
   drop table SellList
go 
create table SellList
(
SellCode CHAR(9) NOT NULL,
WareCode CHAR(16) NOT NULL,
Size_XS INT NOT NULL,
Size_S INT NOT NULL,
Size_M INT NOT NULL,
Size_L INT NOT NULL,
Size_XL INT NOT NULL,
Size_XXL INT NOT NULL,
Size_Other INT NOT NULL,
Price decimal(15,2) NOT NULL
default 0.00,
FactPrice decimal(15,2) NOT NULL
default 0.00,
CostPrice decimal(15,2) NOT NULL
default 0.00,
Memo VARCHAR(64) NULL,
constraint PK_SellList primary key(SellCode,WareCode)
)
go
print 'create view SellView...'--创建视图
if exists (select * from sysobjects where id = object_id('dbo.SellView') and sysstat & 0xf = 2)
drop view dbo.SellView
GO
create view SellView
(Date,DocType,DocCode,DepotCode,BrandCode,GuestCode,UserCode,WareCode,
XS,S,M,L,XL,XXL,Other,Total,Price,SumPrice,Discount,FactPrice,SumFact,CostPrice,SumCost)
as
select 
Date,DocType='B',DocCode=b.SellCode,DepotCode,BrandCode,GuestCode,UserCode,WareCode,
Size_XS,Size_S,Size_M,Size_L,Size_XL,Size_XXL,Size_Other,
(Size_XS+Size_S+Size_M+Size_L+Size_XL+Size_XXL+Size_Other),
Price,
Price*(Size_XS+Size_S+Size_M+Size_L+Size_XL+Size_XXL+Size_Other),
FactPrice/Price*100,FactPrice,
FactPrice*(Size_XS+Size_S+Size_M+Size_L+Size_XL+Size_XXL+Size_Other),
CostPrice,
CostPrice*(Size_XS+Size_S+Size_M+Size_L+Size_XL+Size_XXL+Size_Other)
from Sell a,SellList b where a.SellCode=b.SellCode and State=0GO

Answer 3

to 千山一刀之忍者神龟
多谢大侠,你已经得30分了
我现在有事,下午一起给您分
(csdn 不能只给一半分...)

Answer 4

create view?
我前面不是有用了吗！

Answer 5

是指怎样访问吗？
select * from SellView where .....

Answer 6

我用的是delphi的database desktop
我不知道怎么执行~~~~~~
create table Sell
(
    SellCode    CHAR(9) NOT NULL,
    BrandCode    VARCHAR(6) NOT NULL,
    DepotCode    VARCHAR(4) NOT NULL,
    GuestCode    VARCHAR(6) NOT NULL,
    UserCode    VARCHAR(8) NOT NULL,
    Date        CHAR(8) NOT NULL,
    State        INT NOT NULL,
    Memo        VARCHAR(64) NULL,
    constraint PK_Sell primary key(SellCode)
)
这个都用不了，连not null都不支持~

Answer 7

我这个是MS SQL Server 的，
desktop跟本就没有视图的！