【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:main_sjwh_bjwhform.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit main_sjwh_bjwhform;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Grids, DBGrids, DBCtrls, Buttons, ExtCtrls;
type
Tmain_sjwh_bjwh = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
Edit1: TEdit;
Table1: TTable;
DataSource1: TDataSource;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Table1Xm: TStringField;
Table1Bj: TStringField;
Table1Yj: TStringField;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
main_sjwh_bjwh: Tmain_sjwh_bjwh;
implementation
{$R *.DFM}
procedure Tmain_sjwh_bjwh.SpeedButton1Click(Sender: TObject);
begin
label1.Enabled:=true;
edit1.Enabled:=true;
label2.Enabled:=true;
edit2.Enabled:=true;
label3.Enabled:=true;
edit3.Enabled:=true;
edit1.SetFocus;
table1.Append;
end;
procedure Tmain_sjwh_bjwh.SpeedButton2Click(Sender: TObject);
begin
if messagebox(main_sjwh_bjwh.Handle,'确定要删除本条记录吗?','请确认',mb_okcancel)=idok then
begin
table1.delete;
end;
end;
procedure Tmain_sjwh_bjwh.SpeedButton3Click(Sender: TObject);
begin
table1.edit;
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
label1.Enabled:=true;
label2.Enabled:=true;
label3.Enabled:=true;
edit1.Text:=table1.Fields[1].value;
edit2.Text:=table1.Fields[0].value;
edit3.Text:=table1.Fields[2].value;
edit1.SetFocus;
end;
procedure Tmain_sjwh_bjwh.SpeedButton4Click(Sender: TObject);
begin
table1.Fields[1].Value:=edit1.Text;
table1.Fields[0].Value:=edit1.Text;
table1.Fields[2].Value:=edit3.Text;
table1.Post;
edit1.Text:='';
label1.Enabled:=false;
edit1.Enabled:=false;
label2.Enabled:=false;
edit2.Enabled:=false;
label3.Enabled:=false;
edit3.Enabled:=false;
end;
procedure Tmain_sjwh_bjwh.SpeedButton5Click(Sender: TObject);
begin
table1.cancel;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
label1.Enabled:=false;
edit1.Enabled:=false;
label2.Enabled:=false;
edit2.Enabled:=false;
label3.Enabled:=false;
edit3.Enabled:=false;
end;
procedure Tmain_sjwh_bjwh.SpeedButton6Click(Sender: TObject);
begin
close;
end;
procedure Tmain_sjwh_bjwh.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
edit2.SetFocus;
end;
end;
procedure Tmain_sjwh_bjwh.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
edit3.SetFocus;
end;
end;
end.
上一篇:
GraphicView.cpp
下一篇:
浅析普外科围手术期抗菌药物的应用