哪个大哥有汽车,或电动车维修管理软件啊,能给我源代码吗??????????????????????????????????
万分感谢啊·········!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
万分感谢啊·········!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
解决方案 »
- delphi 数据库编程创建数据表,表名可以是变量吗?变量应该怎么表示阿。谢谢
- 关于Delphi调用外部程序延伸问题
- delphi利用纯真IP数据库访问网页 高分求解
- addTag(),getAv(),getDataPack()是什么意思?
- 我因工作要求,要做一个类似防火墙的程序,要求只充许指定的网址访问.其它不行.请问应点做呀.请指教
- 请问windows的"显示桌面"在程序中怎么做
- mshtml_tlb使用问题
- 一个关于commandtext动态赋值的问题
- 请问如何使程序打开时便进入上一次关闭时的状态(上一次关闭时dbgrid中有数据)?
- 关于集合的问题
- 怎样将二进制文件读出来后仍以二进制的"0","1"形式或十六进制等显示出来.
- 请问????????如何将子窗体的标题栏隐藏掉。
我界面不是用mdi 的啊procedure TForm2.ShowFrame(FrameNo:Integer);
var
i: integer;
begin
if (UserType<>'管理员') and (FrameNo<>3) then
begin
messagebox(handle,'没有足够的权限!','权限不足',MB_ICONWARNING+mb_ok);
exit;
end;
{清除所有的Frame}
for i:=0 to self.ComponentCount-1 do
if (self.Components[i] is Tframe) then (self.Components[i] as Tframe).Free;
{建立相应的Frame}
case FrameNo of
1:
begin
with TFrameUserList.Create(self) do
begin
Parent := Form2;
Left := 212;
Top := 174;
ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
ADOQuery1.Active := True;
Show;
end;
end;
2:
begin
with TFramecustomer.Create(self) do
begin
Parent := Form2;
Left :=212;
Top := 174;
ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
ADOQuery1.Active := True;
Show;
end;
end; 6:
begin
with TForm3.Create(self) do
begin
Parent := Form2;
Left := 212;
Top := 174;
//ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
// ADOQuery1.Active := True;
Show;
end;
end;
end;
end;可是为什么我调用
ShowFrame(3);其他的时候,背景上怎么还有TForm3啊 我不是写了{清除所有的Frame}
for i:=0 to self.ComponentCount-1 do
if (self.Components[i] is Tframe) then (self.Components[i] as Tframe).Free; 为什么啊???不明白啊