【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Author_info_Browser_u.pas”一文,供大家参考学习!
unit Author_info_Browser_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask , ADODB;
type
TAuthor_info_Browser = class(TForm)
GroupBox1: TGroupBox;
LX_checked: TCheckBox;
PanelBottom: TPanel;
Panel2: TPanel;
App_ICO: TImage;
PanelBottomText: TPanel;
ADD_Bit: TBitBtn;
Cancel_Bit: TBitBtn;
PanelTop: TPanel;
Panel_ICO: TPanel;
Fun_ICO: TImage;
PanelTopText: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label6: TLabel;
DBEdit5: TDBEdit;
Label7: TLabel;
DBEdit6: TDBEdit;
GroupBox2: TGroupBox;
DBMemo1: TDBMemo;
Panel1: TPanel;
DBImage1: TDBImage;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
Image1: TImage;
procedure ADD_BitClick(Sender: TObject);
procedure Cancel_BitClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
State: String;
UserComponent: Tcomponent;
{ Public declarations }
end;
var
Author_info_Browser: TAuthor_info_Browser;
implementation
uses Author_u;
{$R *.dfm}
procedure TAuthor_info_Browser.ADD_BitClick(Sender: TObject);
begin
if (Length(DBEdit1.Text)=0) or (Length(DBEdit5.Text)=0) then
begin
ShowMessage('请将信息填写完整!');
DBEdit1.SetFocus;
Exit;
end;
//-------------------------------------------------------------------------
//返回实例中指定控件。
UserComponent:=Author.Author_ADO;
//-------------------------------------------------------------------------
With TADOQuery(UserComponent) do
begin
if LX_checked.Checked then //连续状态
begin
Post;
Append;
DBEdit1.SetFocus;
end
else
begin
Post;
Cancel_Bit.Click;
end;
end;
end;
procedure TAuthor_info_Browser.Cancel_BitClick(Sender: TObject);
begin
//-------------------------------------------------------------------------
//返回实例中指定控件。
UserComponent:=Author.Author_ADO;
//-------------------------------------------------------------------------
if (TADOQuery(UserComponent).Modified) then
TADOQuery(UserComponent).Cancel;
close;
end;
procedure TAuthor_info_Browser.FormKeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then perForm(WM_nextdlgctl,0,0);
end;
procedure TAuthor_info_Browser.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
Author_info_Browser:=nil;
end;
procedure TAuthor_info_Browser.BitBtn1Click(Sender: TObject);
var
bitbmp: TBitMap;
begin
UserComponent:=Author.Author_ADO;
Bitbmp := tBitmap.Create;
try
if OpenDialog1.Execute then
begin
Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
DBImage1.Picture.Bitmap:=Image1.Picture.Bitmap;
end
else
TADOQuery(USerComponent).FieldByName('Im_Photo').Assign(nil);
finally
Bitbmp.Free;
end;
end;
end.