老鱼，系统报错如下//牛虻

Question

可以下了吗？
单元代码：
unit Unit_srbzyw;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, DBCtrls, Mask;type
  Tf_srbzyw = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label6: TLabel;
    ComboBox3: TComboBox;
    Label7: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    ComboBox4: TComboBox;
    Label8: TLabel;
    Edit5: TEdit;
    Label10: TLabel;
    Edit3: TEdit;
    Edit6: TEdit;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  f_srbzyw: Tf_srbzyw;implementationuses Unit_data;{$R *.DFM}procedure Tf_srbzyw.Button1Click(Sender: TObject);
begin
if  (edit1.text='') or (edit2.text='') or (combobox1.text='')
 or (edit3.text='')  or (combobox3.text='')
 or (edit4.text='') or (edit5.text='') or (combobox4.text='')
 or (label10.caption='')  then
 begin
 application.messagebox('没有填完！','提示',mb_ok);
 exit;
 end
else
 with data.tbl_srbzyw do
begin
 insert;
 fieldbyname('广告序号').asstring:=edit1.text;
 fieldbyname('广告内容').asstring:=edit2.text;
 fieldbyname('广告类型').asstring:=combobox1.text;
 fieldbyname('广告客户').asstring:=combobox3.text;
 fieldbyname('见报时间').asstring:=edit4.text;
 fieldbyname('结款时间').asstring:=edit5.text;
 fieldbyname('业务员').asstring:=combobox4.text;
 fieldbyname('录入人员').asstring:=label10.caption;
 fieldbyname('广告金额').asstring:=edit3.text;
 fieldbyname('见报刊号').asstring:=edit6.text;
 post;
end;
end;procedure Tf_srbzyw.Button2Click(Sender: TObject);
begin
data.tbl_srbzyw.delete;
end;procedure Tf_srbzyw.Button3Click(Sender: TObject);
begin
close;
end;procedure Tf_srbzyw.FormShow(Sender: TObject);
begin
combobox1.items.clear;
while not data.qu_gglx.eof do
begin
combobox1.items.add(data.qu_gglx.fieldbyname('广告类型').asstring);
data.qu_gglx.next;
end;combobox3.items.clear;
while not data.qu_ggkh.eof do
begin
combobox3.items.add(data.qu_ggkh.fieldbyname('客户名称').asstring);
data.qu_ggkh.next;
end;combobox4.items.clear;
while not data.qu_ywy.eof do
begin
combobox4.items.add(data.qu_ywy.fieldbyname('业务员').asstring);
data.qu_ywy.next;
end;
end;
procedure Tf_srbzyw.ComboBox1Click(Sender: TObject);
begin
data.qu_ggje.close;
data.qu_ggje.parambyname('广告类型').value:=combobox1.text;
data.qu_ggje.open;
edit3.text:=data.qu_ggje.fieldbyname('广告金额').asstring;
end;end.

Answer 1

光标停在哪一句上
是不是在show事件中

Answer 2

光标停在 
Application.CreateForm(Tf_srbzyw, f_srbzyw);这一行在proj_mis单元里

Answer 3

老鱼
有戏了
走到数据模块时说：
invalid field descreptorf7偶还有用过，看来偶对delphi还要
全面看看 

Answer 4

还有，那些代码先不要下，偶好像中了尼姆达
网页一个劲的错误
硬盘里有readme不明文件