社区
数据库相关
帖子详情
ADOQUERY和DBEDIT
nb20022
2004-04-23 09:40:12
ADOQUERY 连接一个SQLSERVER的一个表,
SQL为SELECT ADDRESS FROM TEN ; ADDRESS为VARCHAR(50)
DBEDIT指向ADOQUERY 的ADDRESS 但DBEDIT 怎么每次最多输入最多3个字符
...全文
90
6
打赏
收藏
ADOQUERY和DBEDIT
ADOQUERY 连接一个SQLSERVER的一个表, SQL为SELECT ADDRESS FROM TEN ; ADDRESS为VARCHAR(50) DBEDIT指向ADOQUERY 的ADDRESS 但DBEDIT 怎么每次最多输入最多3个字符
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jacket008
2004-06-12
打赏
举报
回复
要控制长度为3
maxlength=3
jacket008
2004-06-12
打赏
举报
回复
不好意思看错题目
foxdelphi
2004-06-12
打赏
举报
回复
小弟搞錯,
可能是 maxlength<>0
foxdelphi
2004-06-12
打赏
举报
回复
procedure TForm1.Edit1Exit(Sender: TObject);
var
strs:string;
i,j:integer;
begin
j=0
strs:=trim(edit1.text);
for i=0 to len(strs)-1
begin
if substring(strs,i,1)=(a..Z,A..Z) then
j=j+1
if j>=3 then
showmessage('不能....')
result:=false;
end;
end;
小弟想思路如上:
jacket008
2004-06-12
打赏
举报
回复
应该不会吧?
看一下dbedit的属性有没有搞错!
nb20022
2004-06-12
打赏
举报
回复
d
人事管理系统实验报告书
附录:源程序 //-------------------主窗体 查询与浏览--------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" #include "Unit4.h" #include "Unit5.h" #include "Unit6.h" #pragma package(smart_init) #pragma resource "*.dfm" TFmain *Fmain; bool onshow=false; __fastcall TFmain::TFmain(TComponent* Owner) : TForm(Owner) { } void __fastcall TFmain::N5Click(TObject *Sender) { Close();//退出程序 } void __fastcall TFmain::SpeedButton3Click(TObject *Sender) { DataModule3->
ADOQuery
1->First() ; StatusBar1->Panels->Items[0]->Text="数据指向第一个"; } void __fastcall TFmain::SpeedButton1Click(TObject *Sender) { DataModule3->
ADOQuery
1->Prior() ; StatusBar1->Panels->Items[0]->Text="数据指向上一个"; } void __fastcall TFmain::SpeedButton2Click(TObject *Sender) { DataModule3->
ADOQuery
1->Next() ; StatusBar1->Panels->Items[0]->Text="数据指向下一个"; } void __fastcall TFmain::SpeedButton4Click(TObject *Sender) { DataModule3->
ADOQuery
1->Last() ; StatusBar1->Panels->Items[0]->Text="数据指向最后"; } void __fastcall TFmain::Button2Click(TObject *Sender) { //添加新的数据 Fadd->Caption="添加数据"; DataModule3->
ADOQuery
1->Append() ; Fadd->ShowModal() ; } void __fastcall TFmain::FormClose(TObject *Sender, TCloseAction &Action) { //对退出程序做确认处理 if(MessageBox(this->Handle,"确定要退出吗?","提示",MB_YESNO+MB_ICONQUESTION) == IDNO) Action=caNone; } void __fastcall TFmain::N10Click(TObject *Sender) { AboutBox->ShowModal() ; //显示关于对话框 } void __fastcall TFmain::Button4Click(TObject *Sender) { //以下为查找语句 AnsiString sql; if(Edit1->Text=="")return; if( ComboBox1->Text =="精确")sql=" ='"+Edit1->Text+"';"; else sql=" like '%"+Edit1->Text+"%';"; sql="select * from renshi where "+ComboBox2->Text+sql; StatusBar1->Panels->Items[0]->Text=sql; DataModule3->
ADOQuery
1->Active =false; DataModule3->
ADOQuery
1->SQL->Clear(); DataModule3->
ADOQuery
1->SQL->Add(sql); DataModule3->
ADOQuery
1->Active =true; if(DataModule3->
ADOQuery
1->RecordCount==0) StatusBar1->Panels->Items[1]->Text="无符合条件数据"; else StatusBar1->Panels->Items[1]->Text="符合条件数据个数为:"+IntToStr(DataModule3->
ADOQuery
1->RecordCount); } void __fastcall TFmain::Button6Click(TObject *Sender) { //以下为显示所有数据 AnsiString sql; sql="select * from renshi;"; StatusBar1->Panels->Items[0]->Text="显示全部数据"; DataModule3->
ADOQuery
1->Active =false; DataModule3->
ADOQuery
1->SQL->Clear(); DataModule3->
ADOQuery
1->SQL->Add(sql); DataModule3->
ADOQuery
1->Active =true; if(DataModule3->
ADOQuery
1->RecordCount==0) StatusBar1->Panels->Items[1]->Text="无符合条件数据"; else StatusBar1->Panels->Items[1]->Text="数据总量为:"+IntToStr(DataModule3->
ADOQuery
1->RecordCount); } void __fastcall TFmain::Button1Click(TObject *Sender) { //刷新显示 DataModule3->
ADOQuery
1->Active =false; DataModule3->
ADOQuery
1->Active =true; } void __fastcall TFmain::N9Click(TObject *Sender) { //帮助内容 ShowMessage("\ 大家好,虽然只是一个简单的程序但是也要写帮助。\n\ 简单的操作如下:\n\ 一、打开程序。\n\ 二、可以进行数据的添加、删除、浏览、查找\n\ 三、关闭。\n\ 谢谢使用!\n\ "); } void __fastcall TFmain::Button3Click(TObject *Sender) { //数据删除操作 AnsiString printstr="确定删除编号为"+DataModule3->
ADOQuery
1->FieldByName("编号")->AsString+"的数据吗?"; if(MessageDlg(printstr,mtWarning,TMsgDlgButtons() << mbOK <
ADOQuery
1->Delete() ; StatusBar1->Panels->Items[0]->Text="数据已经删除"; } } void __fastcall TFmain::N3Click(TObject *Sender) { //更改显示字体 if(FontDialog1->Execute())Fmain->Font=FontDialog1->Font; } void __fastcall TFmain::N12Click(TObject *Sender) { //更改窗体颜色 if(ColorDialog1->Execute()) { Fmain->Color=ColorDialog1->Color;//主窗体 Fadd->Color=ColorDialog1->Color; //添加、修改窗体 } } void __fastcall TFmain::N13Click(TObject *Sender) { //更改数据域颜色 if(ColorDialog1->Execute()) DBGrid1->Color=ColorDialog1->Color; } void __fastcall TFmain::N11Click(TObject *Sender) { Fshow->QuickRep1->Preview();//打印数据 } void __fastcall TFmain::Button5Click(TObject *Sender) { Fadd->Caption="修改数据"; Fadd->ShowModal() ; //修改数据 } void __fastcall TFmain::FormShow(TObject *Sender) { if(onshow==false) { Fwelcome->ShowModal() ; onshow=true; return; } } //-------------------------------------------------------------------------- //------------系统封面------------------------------------------------------ #include #pragma hdrstop #include "Unit2.h" #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" TFwelcome *Fwelcome; int logintime=15; //进入系统等待时间X秒 __fastcall TFwelcome::TFwelcome(TComponent* Owner) : TForm(Owner) { } void __fastcall TFwelcome::Timer1Timer(TObject *Sender) { if(logintime==0){ Timer1->Enabled=false; Close(); } logintime--; SpeedButton1->Caption ="进入("+IntToStr(logintime)+")"; } void __fastcall TFwelcome::SpeedButton2Click(TObject *Sender) { Application->Terminate() ; } void __fastcall TFwelcome::SpeedButton1Click(TObject *Sender) { logintime=15; Timer1->Enabled=false; Close(); } //-------------------------------------------------------------------------- //---------------------数据修改窗体----------------------------------------- #include #pragma hdrstop #include "Unit4.h" #include "Unit3.h" #pragma package(smart_init) #pragma resource "*.dfm" TFadd *Fadd; __fastcall TFadd::TFadd(TComponent* Owner) : TForm(Owner) { } void __fastcall TFadd::Button1Click(TObject *Sender) { if(
DBEdit
1->Text =="")return; DataModule3->
ADOQuery
1->Refresh() ; Close(); } void __fastcall TFadd::Button2Click(TObject *Sender) { DataModule3->
ADOQuery
1->Cancel() ; Close(); } void __fastcall TFadd::FormClose(TObject *Sender, TCloseAction &Action) { DataModule3->
ADOQuery
1->Cancel() ; } //--------------------------------------------------------------------------
delphiword编辑器
unit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection;
ADOQuery
1: T
ADOQuery
; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer;
DBEdit
1: T
DBEdit
; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure
DBEdit
1Change(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1;
用Delphi实现Word文件的预览
nit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection;
ADOQuery
1: T
ADOQuery
; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer;
DBEdit
1: T
DBEdit
; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure
DBEdit
1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function get_th(i:integer):string; var s:string; begin s:='一 二 三 四 五 六 七 八 九 十 十一 十二 十三'; s:=s+' 十四 十五 十六 十七 十八 十九 二十 二十一二十二二十三二十四二十五二十六二十七二十八二十九三十 '; result:=(trim(copy(s,i*6+1,6))); end;
ADOQuery
查询 删除 修改 插入
//利用combobox组件查询数据库表procedure TForm1.Button1Click(Sender: TObject);begin
ADOQuery
1.Close;
ADOQuery
1.SQL.Clear;
ADOQuery
1.SQL.Add('select * from '+trim(ComboBox2.Text));
ADOQuery
1.Active:=true;end; //查询记录...
dbedit
显示风格
1.T
DBEdit
在显示数据时如果源数据是字符串,则靠左显示,如果是数字(整型或浮点型)则是靠右显示,我现在想不管数据类型为何,都靠左显示, 即
DBEdit
3.Field.Alignment:=taLeftJustify;DBEdi的Field属性只在运行期可见,也就是说只能用代码,而不能再设计时访问 它对应的就是
DBEdit
所指向的数据集,如Table、Query等包含的某一个字段(双击数据集控件,打开字段编辑器可以看到)
数据库相关
2,498
社区成员
88,445
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章