请高手赐教!谢谢!(100分)

  • 主题发起人 主题发起人 cnpowercn
  • 开始时间 开始时间
C

cnpowercn

Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls, Menus,
ExtCtrls, DBCtrls, Mask;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ComboBox1: TComboBox;
Edit5: TEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
OpenDialog1: TOpenDialog;
ComboBox2: TComboBox;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Label21: TLabel;
N4: TMenuItem;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
DBText8: TDBText;
DBText9: TDBText;
DBText10: TDBText;
DBText11: TDBText;
DBText12: TDBText;
DBText13: TDBText;
DBText14: TDBText;
DBText15: TDBText;
DBText16: TDBText;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
bm:tbookmark;
findfield:string;
implementation

{$R *.dfm}
type llabel=array[0..15] of tlabel;
text=array[0..15] of tedit;
dbtext=array[0..15] of tdbtext;
dbedit=array[0..15] of tdbedit;
var lab:llabel;
ed:text;
dbt:dbtext;
dbe:dbedit;
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.First;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Prior;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.Next;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
table1.Last;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
table1.Append;
end;

procedure TForm1.Button6Click(Sender: TObject);
var del:integer;
begin
del:=application.messagebox('你真的要删除吗?','Powersoft',mb_yesno);
if del=idyes then
table1.Delete;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
//if edit1.text<>'' then
//table1.InsertRecord([edit1.text,edit2.text,edit3.text,edit4.text])
//else
table1.Insert;

end;

procedure TForm1.Button8Click(Sender: TObject);
begin
table1.Edit;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
table1.Post;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
table1.Cancel;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
bm:=table1.GetBookmark;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
table1.GotoBookmark(bm);
table1.FreeBookmark(bm);
end;

procedure TForm1.Button13Click(Sender: TObject);
var k:integer;
begin
case combobox1.ItemIndex of
0:findfield:=table1.Fields[0].FieldName;
1:findfield:=table1.Fields[1].FieldName;
2:findfield:=table1.Fields[2].FieldName;
3:findfield:=table1.Fields[3].FieldName;
end;
if table1.Locate(findfield,edit5.text,[locaseinsensitive]) then
for k:=0 to table1.FieldCount-1 do
ed[k].Text:=table1.FieldValues[table1.Fields[k].FieldName]
else
showmessage('没有此记录!');
end;

procedure TForm1.N2Click(Sender: TObject);
var i:integer;
p:integer;
begin
if opendialog1.Execute then
begin
table1.DatabaseName:=opendialog1.InitialDir ;
table1.TableName:=opendialog1.FileName;
combobox2.Items.Add(table1.TableName);
table1.Active:=true;
n2.Enabled:=false;
n3.Enabled:=true;
if table1.FieldCount <17 then
begin
for i:=0 to table1.FieldCount-1 do
begin
combobox1.Items.Add(table1.Fields.FieldName);
lab.Caption :=table1.Fields.FieldName;
dbt.Caption :=table1.Fields.FieldName;
dbe.DataField :=table1.Fields.FieldName ;
end;
for p:=0 to 15 do
begin
if lab[p].Caption <>'' then
begin
lab[p].show;
ed[p].Show;
dbe[p].Show;
dbt[p].Show;
end;
end;
combobox1.ItemIndex := 0;
end
else if table1.FieldCount = 0 then
showmessage('请你打开一个表!')
else
showmessage('你打开的表字段超过16个,本软件处理不了,抱歉!')
end;
end;


procedure TForm1.N3Click(Sender: TObject);
var j:integer;
begin
n3.Enabled :=false;
n2.Enabled :=true;
for j:=0 to table1.FieldCount-1 do
begin
lab[j].Caption :='';
combobox1.Items.Delete(0);
ed[j].Text:='';
ed[j].Hide;
dbt[j].Caption :='';
dbe[j].DataField :='';
dbe[j].Hide;
end;
table1.active:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
var l:integer;
begin
lab[0]:=label5;
lab[1]:=label6;
lab[2]:=label7;
lab[3]:=label8;
lab[4]:=label9;
lab[5]:=label10;
lab[6]:=label11;
lab[7]:=label12;
lab[8]:=label13;
lab[9]:=label14;
lab[10]:=label15;
lab[11]:=label16;
lab[12]:=label17;
lab[13]:=label18;
lab[14]:=label19;
lab[15]:=label20;

ed[0]:=edit6;
ed[1]:=edit7;
ed[2]:=edit8;
ed[3]:=edit9;
ed[4]:=edit10;
ed[5]:=edit11;
ed[6]:=edit12;
ed[7]:=edit13;
ed[8]:=edit14;
ed[9]:=edit15;
ed[10]:=edit16;
ed[11]:=edit17;
ed[12]:=edit18;
ed[13]:=edit19;
ed[14]:=edit20;
ed[15]:=edit21;

dbt[0]:=dbtext1;
dbt[1]:=dbtext2;
dbt[2]:=dbtext3;
dbt[3]:=dbtext4;
dbt[4]:=dbtext5;
dbt[5]:=dbtext6;
dbt[6]:=dbtext7;
dbt[7]:=dbtext8;
dbt[8]:=dbtext9;
dbt[9]:=dbtext10;
dbt[10]:=dbtext11;
dbt[11]:=dbtext12;
dbt[12]:=dbtext13;
dbt[13]:=dbtext14;
dbt[14]:=dbtext15;
dbt[15]:=dbtext16;

dbe[0]:=dbedit1;
dbe[1]:=dbedit2;
dbe[2]:=dbedit3;
dbe[3]:=dbedit4;
dbe[4]:=dbedit5;
dbe[5]:=dbedit6;
dbe[6]:=dbedit7;
dbe[7]:=dbedit8;
dbe[8]:=dbedit9;
dbe[9]:=dbedit10;
dbe[10]:=dbedit11;
dbe[11]:=dbedit12;
dbe[12]:=dbedit13;
dbe[13]:=dbedit14;
dbe[14]:=dbedit15;
dbe[15]:=dbedit16;

for l:=0 to 15 do
begin
lab[l].Hide;
ed[l].Hide;
dbt[l].Hide;
dbe[l].Hide;

end;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var i:integer;
var j:integer;
var q:integer;
begin
for j:=0 to table1.FieldCount -1 do
begin
combobox1.Items.Delete(0);
lab[j].Caption :='';
ed[j].Hide;
dbt[j].Caption :='';
dbe[j].Hide;
end;
table1.Active :=false;
table1.TableName :=combobox2.Text;
table1.Active :=true;
for i:=0 to table1.FieldCount-1 do
begin
combobox1.Items.Add(table1.Fields.FieldName);
lab.Caption :=table1.Fields.FieldName;
end;
for q:=0 to 15 do
begin
if lab[q].Caption <>'' then
begin
lab[q].show;
ed[q].Show;
dbt[q].Show;
dbe[q].Show;
end;
end;
combobox1.ItemIndex :=0;
end;

procedure TForm1.N4Click(Sender: TObject);
var button:integer;
begin
button:=Application.MessageBox('你真的要退出吗?','powersoft',Mb_YesNo);
if button = Idyes then
begin
close;
table1.Active :=false;
end;
end;
end.
问题:
1、以上程序在table1里移动指针时,dbtext为什么会消失?
2、指定查询时如果有多个字段值相同,要怎么把记录一个一个查找出来?
3、为什么在运行时会说tbookmark是unsaft type?
 
将你的*.dfm文件内容也传上来
 
请问要怎么传?
 
用记事本打开*.dfm文件,将内容粘贴拷贝就可以了
 
object Form1: TForm1
Left = 188
Top = 25
Width = 539
Height = 527
Caption = #25968#25454#24211#25805#20316'--powersoft'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label21: TLabel
Left = 264
Top = 128
Width = 97
Height = 16
AutoSize = False
Caption = #25968#25454#24211#21015#34920':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 241
Height = 113
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button1: TButton
Left = 264
Top = 8
Width = 50
Height = 25
Caption = #39318#35760#24405
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 320
Top = 8
Width = 50
Height = 25
Caption = #19978#19968#26465
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 376
Top = 8
Width = 50
Height = 25
Caption = #19979#19968#26465
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 432
Top = 8
Width = 50
Height = 25
Caption = #26411#35760#24405
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 264
Top = 48
Width = 50
Height = 25
Caption = #28155#21152
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 320
Top = 48
Width = 50
Height = 25
Caption = #21024#38500
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 376
Top = 48
Width = 50
Height = 25
Caption = #25554#20837
TabOrder = 7
OnClick = Button7Click
end
object Button8: TButton
Left = 432
Top = 48
Width = 50
Height = 25
Caption = #20462#25913
TabOrder = 8
OnClick = Button8Click
end
object Button9: TButton
Left = 264
Top = 88
Width = 50
Height = 25
Caption = #25552#20132
TabOrder = 9
OnClick = Button9Click
end
object Button10: TButton
Left = 320
Top = 88
Width = 50
Height = 25
Caption = #21462#28040
TabOrder = 10
OnClick = Button10Click
end
object Button11: TButton
Left = 376
Top = 88
Width = 50
Height = 25
Caption = #35774#32622#20070#31614
TabOrder = 11
OnClick = Button11Click
end
object Button12: TButton
Left = 432
Top = 88
Width = 50
Height = 25
Caption = #36820#22238
TabOrder = 12
OnClick = Button12Click
end
object Button13: TButton
Left = 8
Top = 128
Width = 50
Height = 25
Caption = #26597#35810
TabOrder = 13
OnClick = Button13Click
end
object PageControl1: TPageControl
Left = 8
Top = 160
Width = 513
Height = 313
ActivePage = TabSheet2
TabOrder = 14
object TabSheet1: TTabSheet
Caption = #25968#25454#24211#34920
object DBText1: TDBText
Left = 40
Top = 48
Width = 42
Height = 13
AutoSize = True
DataSource = DataSource1
end
object DBText2: TDBText
Left = 40
Top = 112
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText3: TDBText
Left = 40
Top = 176
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText4: TDBText
Left = 40
Top = 232
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText5: TDBText
Left = 144
Top = 48
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText6: TDBText
Left = 144
Top = 112
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText7: TDBText
Left = 144
Top = 176
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText8: TDBText
Left = 144
Top = 232
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText9: TDBText
Left = 248
Top = 48
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText10: TDBText
Left = 248
Top = 112
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText11: TDBText
Left = 248
Top = 176
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText12: TDBText
Left = 248
Top = 232
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText13: TDBText
Left = 352
Top = 48
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText14: TDBText
Left = 352
Top = 112
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText15: TDBText
Left = 352
Top = 176
Width = 65
Height = 17
DataSource = DataSource1
end
object DBText16: TDBText
Left = 352
Top = 232
Width = 65
Height = 17
DataSource = DataSource1
end
object DBEdit1: TDBEdit
Left = 40
Top = 72
Width = 47
Height = 21
BiDiMode = bdLeftToRight
DataSource = DataSource1
ParentBiDiMode = False
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 40
Top = 136
Width = 47
Height = 21
BiDiMode = bdLeftToRight
DataSource = DataSource1
ParentBiDiMode = False
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 40
Top = 200
Width = 47
Height = 21
BiDiMode = bdLeftToRight
DataSource = DataSource1
ParentBiDiMode = False
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 40
Top = 256
Width = 47
Height = 21
BiDiMode = bdLeftToRight
DataSource = DataSource1
ParentBiDiMode = False
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 144
Top = 72
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 144
Top = 136
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 144
Top = 200
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 6
end
object DBEdit8: TDBEdit
Left = 144
Top = 256
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 7
end
object DBEdit9: TDBEdit
Left = 248
Top = 72
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 8
end
object DBEdit10: TDBEdit
Left = 248
Top = 136
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 9
end
object DBEdit11: TDBEdit
Left = 248
Top = 200
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 10
end
object DBEdit12: TDBEdit
Left = 248
Top = 256
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 11
end
object DBEdit13: TDBEdit
Left = 352
Top = 72
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 12
end
object DBEdit14: TDBEdit
Left = 352
Top = 136
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 13
end
object DBEdit15: TDBEdit
Left = 352
Top = 200
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 14
end
object DBEdit16: TDBEdit
Left = 352
Top = 256
Width = 47
Height = 21
DataSource = DataSource1
TabOrder = 15
end
object DBNavigator1: TDBNavigator
Left = 40
Top = 8
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 16
end
end
object TabSheet2: TTabSheet
Caption = #26597#35810
ImageIndex = 1
object Label5: TLabel
Left = 8
Top = 40
Width = 3
Height = 13
end
object Label6: TLabel
Left = 8
Top = 104
Width = 3
Height = 13
end
object Label7: TLabel
Left = 8
Top = 168
Width = 3
Height = 13
end
object Label8: TLabel
Left = 8
Top = 240
Width = 3
Height = 13
end
object Label9: TLabel
Left = 136
Top = 40
Width = 3
Height = 13
end
object Label10: TLabel
Left = 136
Top = 104
Width = 3
Height = 13
end
object Label11: TLabel
Left = 136
Top = 168
Width = 3
Height = 13
end
object Label12: TLabel
Left = 139
Top = 240
Width = 3
Height = 13
end
object Label13: TLabel
Left = 267
Top = 40
Width = 3
Height = 13
end
object Label14: TLabel
Left = 267
Top = 104
Width = 3
Height = 13
end
object Label15: TLabel
Left = 267
Top = 168
Width = 3
Height = 13
end
object Label16: TLabel
Left = 270
Top = 232
Width = 3
Height = 13
end
object Label17: TLabel
Left = 400
Top = 40
Width = 3
Height = 13
end
object Label18: TLabel
Left = 403
Top = 104
Width = 3
Height = 13
end
object Label19: TLabel
Left = 403
Top = 168
Width = 3
Height = 13
end
object Label20: TLabel
Left = 403
Top = 232
Width = 3
Height = 13
end
object ComboBox1: TComboBox
Left = 8
Top = 8
Width = 73
Height = 21
ItemHeight = 13
TabOrder = 0
end
object Edit5: TEdit
Left = 96
Top = 8
Width = 81
Height = 21
TabOrder = 1
end
object Edit6: TEdit
Left = 8
Top = 64
Width = 57
Height = 21
TabOrder = 2
end
object Edit7: TEdit
Left = 8
Top = 128
Width = 57
Height = 21
TabOrder = 3
end
object Edit8: TEdit
Left = 8
Top = 192
Width = 57
Height = 21
TabOrder = 4
end
object Edit9: TEdit
Left = 8
Top = 256
Width = 57
Height = 21
TabOrder = 5
end
object Edit10: TEdit
Left = 136
Top = 64
Width = 57
Height = 21
TabOrder = 6
end
object Edit11: TEdit
Left = 136
Top = 128
Width = 57
Height = 21
TabOrder = 7
end
object Edit12: TEdit
Left = 136
Top = 192
Width = 57
Height = 21
TabOrder = 8
end
object Edit13: TEdit
Left = 136
Top = 256
Width = 57
Height = 21
TabOrder = 9
end
object Edit14: TEdit
Left = 272
Top = 64
Width = 57
Height = 21
TabOrder = 10
end
object Edit15: TEdit
Left = 272
Top = 128
Width = 57
Height = 21
TabOrder = 11
end
object Edit16: TEdit
Left = 272
Top = 192
Width = 57
Height = 21
TabOrder = 12
end
object Edit17: TEdit
Left = 272
Top = 256
Width = 57
Height = 21
TabOrder = 13
end
object Edit18: TEdit
Left = 400
Top = 64
Width = 57
Height = 21
TabOrder = 14
end
object Edit19: TEdit
Left = 400
Top = 128
Width = 57
Height = 21
TabOrder = 15
end
object Edit20: TEdit
Left = 400
Top = 192
Width = 57
Height = 21
TabOrder = 16
end
object Edit21: TEdit
Left = 400
Top = 256
Width = 57
Height = 21
TabOrder = 17
end
end
end
object ComboBox2: TComboBox
Left = 360
Top = 128
Width = 113
Height = 21
ItemHeight = 13
TabOrder = 15
OnChange = ComboBox2Change
end
object DataSource1: TDataSource
DataSet = Table1
Left = 488
Top = 8
end
object Table1: TTable
Left = 488
Top = 40
end
object MainMenu1: TMainMenu
Left = 8
Top = 72
object N1: TMenuItem
Caption = #25991#20214
object N2: TMenuItem
Caption = #25171#24320
OnClick = N2Click
end
object N3: TMenuItem
Caption = #20851#38381
Enabled = False
OnClick = N3Click
end
end
object N4: TMenuItem
Caption = #36864#20986
OnClick = N4Click
end
end
object OpenDialog1: TOpenDialog
FileName = '../'#25968#25454#24211#25805#20316'/Student.db'
Filter = #25968#25454#24211#25991#20214'(*.db)|*.db|'#25152#26377#25991#20214'(*.*)|*.*'
Left = 8
Top = 8
end
end
 
你上传的代码中的汉字都变成了编码,打不开了。你再试试将这些代码拷贝下来看能不能打开?
还有在你上传的代码中有
   dbt.[red]Caption[/red]其中dbt:dbtext=array[0..15] of tdbtext;好象tdbtext没有caption属性。

如果可以,你将原来的文件压缩寄过来,应当包括student.db这个库,运行调试
xzlzq@163.com

我已经将调试通过的程序给你寄出了,看收到没有?
 
你好,我已经用rar压缩后发到你邮箱去了,谢谢你!
 
上周我调试过了,给你发送的被退回了,不知为什么?再给你发一遍![:(]
This is the Postfix program at host sm212.163.com.

I'm sorry to have to inform you that the message returned
below could not be delivered to one or more destinations.

For further assistance, please contact <postmaster@163.com>

If you do so, please include this problem report. You can
delete your own text from the message returned below.

The Postfix program

亲爱的网易邮箱用户:

抱歉的通知您,您的邮件无法投递到目的地址.
可能的原因有:
1.您投递的用户不存在,或者不在系统中.请检查收信人地址.
<abc@vip.163.com>: User abc@vip.163.com is not found ...
<abc@yahoo.com>: Invalid User
<abc@163.com>: User unknown
2.您投递的信箱空间已满,请采用其他方式联系.
<abc@163.com>: Quota exceed the hard limit for user
3.您的信件被拒收了,请不要发送不受欢迎的信件.
<abc@163.com>: host ***.163.com said: 552 Error: content rejected
<abc@163.com>: host ***.163.com said: This Message is not welcome
4.您的信件太大了,被对方拒收退回了。
said: 552 Message size exceeds fixed limit

欢迎您注册使用网易VIP邮箱. http://vip.163.com/

<power622@cmmail.com>: connect to cmmail.com: Connection timed out


------------------------------------------------------------
From: "windbell" <xzlzq@163.com>
To: power622 <power622@cmmail.com>
Subject: Re: 你好
Date: Wed27 Nov 2002 13:48:9 +0800

power622,您好!

数据已经收到,我试试!

======= 2002-11-27 13:45:00 您在来信中写道:=======

>---------------------------------------------
>欢迎光临 http://www.cmmail.com

= = = = = = = = = = = = = = = = = = = =


        致
礼!


        windbell
        xzlzq@163.com
          2002-11-27
------------------------------------------------------------
 
我已经收到了,谢谢你!
 
后退
顶部