unit dbtest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, ADODB, DBCtrls, Buttons, ExtCtrls, Mask,
DBTables, ComCtrls, QuickRpt, Qrctrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Button3: TButton;
Button2: TButton;
Button4: TButton;
Button5: TButton;
DBNavigator1: TDBNavigator;
Button1: TButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit8: TDBEdit;
DBEdit10: TDBEdit;
GroupBox1: TGroupBox;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn5: TBitBtn;
Panel3: TPanel;
Label6: TLabel;
Label13: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button8: TButton;
Button6: TButton;
Button7: TButton;
Button9: TButton;
Button12: TButton;
Button13: TButton;
GroupBox2: TGroupBox;
Edit3: TEdit;
Edit4: TEdit;
Label14: TLabel;
Label15: TLabel;
Button14: TButton;
Edit5: TEdit;
Label16: TLabel;
TabSheet3: TTabSheet;
QuickRep1: TQuickRep;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
//procedure setenabled();
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure updatedatetime;
implementation
{$R *.DFM}
procedure updatedatetime;
begin
DateTimePicker1.datetime:=table1.fieldbyname('ship date').asdatetime;
DateTimePicker2.datetime:=table1.fieldbyname('required date').asdatetime;
end;提示出錯:Undeclare identifier :'datetimepicker1'
不知為何?
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, ADODB, DBCtrls, Buttons, ExtCtrls, Mask,
DBTables, ComCtrls, QuickRpt, Qrctrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Button3: TButton;
Button2: TButton;
Button4: TButton;
Button5: TButton;
DBNavigator1: TDBNavigator;
Button1: TButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit8: TDBEdit;
DBEdit10: TDBEdit;
GroupBox1: TGroupBox;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn5: TBitBtn;
Panel3: TPanel;
Label6: TLabel;
Label13: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button8: TButton;
Button6: TButton;
Button7: TButton;
Button9: TButton;
Button12: TButton;
Button13: TButton;
GroupBox2: TGroupBox;
Edit3: TEdit;
Edit4: TEdit;
Label14: TLabel;
Label15: TLabel;
Button14: TButton;
Edit5: TEdit;
Label16: TLabel;
TabSheet3: TTabSheet;
QuickRep1: TQuickRep;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
//procedure setenabled();
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure updatedatetime;
implementation
{$R *.DFM}
procedure updatedatetime;
begin
DateTimePicker1.datetime:=table1.fieldbyname('ship date').asdatetime;
DateTimePicker2.datetime:=table1.fieldbyname('required date').asdatetime;
end;提示出錯:Undeclare identifier :'datetimepicker1'
不知為何?
解决方案 »
- 怎么创建一个tiff的文件?
- 关于leftBStr函数的问题,急急急
- 能动态增加变量吗?如动态地增加Lable1,Lable2,...Lable30.目的是能关联动态的对象.
- 如何从一个一定记录格式的字符串中读出格式?
- 你们遇到过这种情况吗?
- 在Delphi中如何获取连接数据库的类型?
- 安装dbgrideh 的问题。
- 可以子窗体左右下突破主窗体,但不能向上突破,怎么做到?
- Params.WndParent := GetDesktopWindow;导致的问题
- IBM 送给我 DeveloperWorks 光盘让,邮政的人在发送的时候给弄断了伤心,法分
- 高手救命,简单数据库规划问题!!!价值50分!!!
- 我想用delphi在前端输入7位小数点,怎幺做?
DateTimePicker1: TDateTimePicker;
var
Form1: TForm1;
procedure updatedatetime;那么实现的时候,你能告诉它DateTimePicker1在什么地方
procedure updatedatetime;
begin
//Form1.XXXX
Form1.DateTimePicker1.datetime:=Form1.table1.fieldbyname('ship date').asdatetime;
Form1.DateTimePicker2.datetime:=Form1.table1.fieldbyname('required date').asdatetime;
end;//总感觉有点怪
你还不如把定义的地方移到
.....
public
{ Public declarations }
procedure updatedatetime;
end;
begin
DateTimePicker1.datetime:=table1.fieldbyname('ship date').asdatetime;
DateTimePicker2.datetime:=table1.fieldbyname('required date').asdatetime;
end;它说没有定义的标识,你不要告诉我说上面以定义了。你的这个过程不属于Tform1 ,而 DateTimePicker1 是属于 TForm1 的,为什么这样写!!为什么???真是想不通你要做什么??你为什么不将它写在单元的每一行,真是怪事,看看基本概念好不好。
procedure updatedatetime;
begin
//Form1.XXXX
Form1.DateTimePicker1.datetime:=Form1.table1.fieldbyname('ship date').asdatetime;
Form1.DateTimePicker2.datetime:=Form1.table1.fieldbyname('required date').asdatetime;
end;