是我程序的问题，还是delphi7的BUG？？？？？

[jxc163]

有一个单元文件，用来做部门资料管理，在程序刚编译完成时，可以正确添加部门信息，修改也没有问题，但在多次运行以后，就发现添加部门信息时，只能保存部门编号，而不能保存部门的其它信息，但如果编辑部门信息，则还是一切正常。不知道是我程序代码的问题还是D7本身的问题，我已经把这个单元重做过了一次，结果还是一样，所以请教！

下面是单元文件、窗体文件、以及SQL脚本


单元文件:
unit Bmzl;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, DBControl, XPMenu,
ComCtrls, dxtree, dxdbtree,dmunit;
｛DBControl是一个定义的控件，类似TDBNavigator,只是把TDBNav的事件拿出来，在程序中完成；XPMenu,dxtree,dxdbtree都是第三方控件，一个是做XP界面效果，一个是根据数据库的内容做一个TreeView；dmunit是一个程序的数据单元。
type
TfrmBmzl = class(TForm)
D1: TADODataSet;
DS: TDataSource;
DG: TDBGrid;
P: TPanel;
L5: TLabel;
L4: TLabel;
L3: TLabel;
L2: TLabel;
L1: TLabel;
E5: TEdit;
E4: TEdit;
E3: TCombobox;
E2: TEdit;
E1: TEdit;
XP: TXPMenu;
DB: TDBControl;
TV: TdxDBTreeView;
T: TADODataSet;
procedure E1KeyPress(Sender: TObject; var Key: Char);
procedure DBClick(Sender: TObject; Button: TDBBtn);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TVChange(Sender: TObject; Node: TTreeNode);
procedure E3DropDown(Sender: TObject);
private
{ Private declarations }
procedure GetCurrentRec;
procedure TSelect(S:String);
public
{ Public declarations }
end;

procedure CreateBmzl(C:String);stdcall;

var
frmBmzl: TfrmBmzl;

implementation

uses Pub_info;

{$R *.dfm}


//创建是主程序中的调用函数，来创建这个窗体
procedure CreateBmzl(C:String);
var
F:TfrmBmzl;
begin
F:=TfrmBmzl.Create(Application);
F.Caption:=C;
F.Show;
end;

procedure TfrmBmzl.E1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',char(VK_back),Char(vk_delete):;
else Key:=#0;
end;
end;

//取当前记录的各字段值，以赋给相应的控件
procedure TfrmBmzl.GetCurrentRec;
begin
if D1.FieldByName(L1.Caption).IsNull then E1.Clear else E1.Text:=D1.FieldValues[L1.Caption];
if D1.FieldByName(L2.Caption).IsNull then E2.Clear else E2.Text:=D1.FieldValues[L2.Caption];
if D1.FieldByName(L3.Caption).IsNull then E3.Clear else E3.Text:=D1.FieldValues[L3.Caption];
if D1.FieldByName(L4.Caption).IsNull then E4.Clear else E4.Text:=D1.FieldValues[L4.Caption];
if D1.FieldByName(L5.Caption).IsNull then E4.Clear else E5.Text:=D1.FieldValues[L5.Caption];
end;

//自定数据导航控件的单击事件
procedure TfrmBmzl.DBClick(Sender: TObject; Button: TDBBtn);
begin
case Button of
dbInsert://单击添加按钮
begin
P.Enabled:=true;
D1.Append;
GetCurrentRec;
end;
dbEdit://单击编辑按钮
begin
P.Enabled:=True;
D1.Edit;
end;
dbPost://单击更新按钮
begin
P.Enabled:=False;
D1.FieldByName(L1.Caption).AsString:=E1.Text;
D1.FieldByName(L2.Caption).AsString:=E2.Text;
D1.FieldByName(L3.Caption).AsString:=E3.Text;
D1.FieldByName(L4.Caption).AsString:=E4.Text;
D1.FieldByName(L5.Caption).AsString:=E5.Text;
D1.Post;
end;
dbCancel://单击取消按钮
begin
P.Enabled:=true;
D1.Cancel;
end;
dbDelete://单击删除按钮，先判断选择的部门是否包含子部门及员工，包含则停止删除
begin
TSelect('Select 序号 From P_bmzl Where 上级部门='+D1.FieldValues['部门编号']);
if T.RecordCount>0 then
ShowInfo('指定部门有下级部门存在，请先将其清空！')
else
begin
TSelect('Select 序号 From P_ygzl Where 部门编号='+D1.FieldValues['部门编号']);
if T.RecordCount>0 then
ShowInfo('指定部门包含有多个员工，请先将其清空！')
else
D1.Delete;
end;
end;
dbRefresh:E3.Tag:=0;
dbReturn:Close;
end;
end;

procedure TfrmBmzl.FormCreate(Sender: TObject);
begin
D1.Connection:=DM.DAdoCnt;
T.Connection:=DM.DAdoCnt;
D1.CommandText:='Select * From P_bmzl Order By 上级部门,序号';
D1.Prepared:=true;
D1.Active:=true;
end;

procedure TfrmBmzl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TfrmBmzl.TVChange(Sender: TObject; Node: TTreeNode);
begin
GetCurrentRec;
end;


//填充下接列表框
procedure TfrmBmzl.E3DropDown(Sender: TObject);
begin
If E3.Tag=0 then
begin
E3.Items.Clear;
TSelect('Select 部门编号,部门名称 From P_bmzl Order By 部门编号');
with T do
while Not Eof do
begin
E3.Items.Add(FieldValues['部门编号']+' '+Trim(FieldValues['部门名称']));
Next;
end;
E3.Tag:=1;
end;//End of If
end;

procedure TfrmBmzl.TSelect(S: String);
begin
T.Active:=False;
T.CommandText:=S;
T.Prepared:=True;
T.Active:=True;
end;

end.

[jxc163]

//窗体文件
object frmBmzl: TfrmBmzl
Left = 213
Top = 140
Width = 444
Height = 386
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 15
object DG: TDBGrid
Left = 0
Top = 0
Width = 436
Height = 128
Align = alTop
DataSource = DS
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
end
object P: TPanel
Left = 146
Top = 128
Width = 290
Height = 184
Align = alRight
Enabled = False
TabOrder = 2
object L5: TLabel
Left = 30
Top = 165
Width = 48
Height = 15
Caption = '部门说明'
end
object L4: TLabel
Left = 30
Top = 130
Width = 60
Height = 15
Caption = '部门负责人'
end
object L3: TLabel
Left = 30
Top = 95
Width = 48
Height = 15
Caption = '上级部门'
end
object L2: TLabel
Left = 30
Top = 60
Width = 48
Height = 15
Caption = '部门名称'
end
object L1: TLabel
Left = 29
Top = 24
Width = 48
Height = 15
Caption = '部门编号'
end
object E5: TEdit
Left = 106
Top = 155
Width = 152
Height = 23
MaxLength = 128
TabOrder = 4
end
object E4: TEdit
Left = 106
Top = 120
Width = 152
Height = 23
MaxLength = 14
TabOrder = 3
end
object E3: TComboBox
Left = 106
Top = 85
Width = 152
Height = 23
ItemHeight = 15
MaxLength = 3
TabOrder = 2
OnDropDown = E3DropDown
OnKeyPress = E1KeyPress
end
object E2: TEdit
Left = 106
Top = 50
Width = 152
Height = 23
MaxLength = 12
TabOrder = 1
end
object E1: TEdit
Left = 106
Top = 14
Width = 152
Height = 23
MaxLength = 3
TabOrder = 0
OnKeyPress = E1KeyPress
end
end
object DB: TDBControl
Left = 0
Top = 312
Width = 436
Height = 47
Align = alBottom
BevelOuter = bvNone
FullRepaint = False
TabOrder = 3
OnClick = DBClick
DataSource = DS
end
object TV: TdxDBTreeView
Left = 0
Top = 128
Width = 146
Height = 184
ShowNodeHint = True
DataSource = DS
KeyField = '部门编号'
ListField = '部门名称'
ParentField = '上级部门'
SeparatedSt = ' - '
RaiseOnError = True
ReadOnly = True
Indent = 19
OnChange = TVChange
Align = alClient
ParentColor = False
Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
SelectedIndex = -1
TabOrder = 1
end
object D1: TADODataSet
CacheSize = 100
CursorType = ctStatic
CommandText = 'select * from P_bmzl'
Parameters = <>
Left = 102
Top = 64
end
object DS: TDataSource
DataSet = D1
Left = 139
Top = 64
end
object XP: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = DEFAULT_CHARSET
Font.Color = clMenuText
Font.Height = -12
Font.Name = '宋体'
Font.Pitch = fpVariable
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = True
AutoDetect = True
Active = True
ControlUseTrueXPStyle = True
BtnRoundArc = 5
BtnOutLineBorderColor = 7552000
BtnInnerBorderMoveColor = 3257087
BtnInnerBorderFocusColor = 15183500
BtnSurfaceNormalColor = 16251903
BtnSurfaceDownColor = 14608359
BtnSurfaceBottomLineColor = 14608359
BtnSurfaceDownBottomLineColor = 15199215
RdoChkControlChkColor = 41472
ComboBoxChkColor = 9201994
ComboboxSurfaceMoveColor = 16771030
ControlDisabledBorderColor = 11913158
Left = 176
Top = 65
end
object T: TADODataSet
Parameters = <>
Left = 104
Top = 97
end
end


//创建部门表的SQL脚本（MS_Sql 2000桌面版）
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_bmzl]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[P_bmzl]
GO

/****** Object: User dbo Script Date: 03-8-23 10:45:06 ******/
/****** Object: Table [dbo].[P_bmzl] Script Date: 03-8-23 10:45:18 ******/
CREATE TABLE [dbo].[P_bmzl] (
[序号] [int] IDENTITY (1, 1) NOT NULL ,
[部门编号] [char] (3) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[部门名称] [char] (24) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[上级部门] [char] (3) COLLATE Chinese_PRC_CI_AS NULL ,
[部门负责人] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,
[部门说明] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

ALTER TABLE [dbo].[P_bmzl] WITH NOCHECK ADD
CONSTRAINT [PK_P_bmzl] PRIMARY KEY CLUSTERED
(
[序号]
) ON [PRIMARY]
GO

CREATE UNIQUE INDEX [UK_P_bmzl] ON [dbo].[P_bmzl]([部门编号], [部门名称]) ON [PRIMARY]
GO

[jxc163]

看来没有愿意把这么长的东西看完

[xiaoqlj]

一句话：人的问题。

[dawangzi16]

机器不会骗人的.

[jxc163]

这个问题已然存在，而且我在取数据时又遇到这个问题了