这是我的销售单的原代码,请大家看看,为什么不能输入unit xiaoshoudan;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables;type
Txiaoshoudanfrm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Panel8: TPanel;
DBEdit8: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Panel9: TPanel;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
DBText1: TDBText;
DBText2: TDBText;
DataSource2: TDataSource;
Table2: TTable;
Panel10: TPanel;
DBEdit9: TDBEdit;
DBNavigator1: TDBNavigator;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
xiaoshoudanfrm: Txiaoshoudanfrm;implementation
uses jinshouren;{$R *.DFM}procedure Txiaoshoudanfrm.FormActivate(Sender: TObject);
begin
table1.insert;
table2.insert;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货