【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“uregist.pas”一文,供大家参考学习
unit uregist;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids,
Buttons, jpeg;
type
Tfrm_register = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
lbl_position: TLabel;
Label2: TLabel;
sbtn_adding: TSpeedButton;
sbtn_refresh: TSpeedButton;
sbtn_modify: TSpeedButton;
sbtn_delete: TSpeedButton;
sbtn_prior: TSpeedButton;
sbtn_first: TSpeedButton;
sbtn_next: TSpeedButton;
sbtn_last: TSpeedButton;
sbtn_exit: TSpeedButton;
edt_capitalname: TEdit;
edt_capitaltype: TEdit;
edt_producer: TEdit;
edt_country: TEdit;
edt_buydate: TEdit;
edt_value: TEdit;
edt_capitalnumber: TEdit;
edt_usedbyorg: TEdit;
edt_usedbyone: TEdit;
edt_manager: TEdit;
edt_place: TEdit;
edt_usedyears: TEdit;
edt_source: TEdit;
edt_discardyears: TEdit;
Bevel1: TBevel;
procedure FormShow(Sender: TObject);
procedure edt_capitalnameKeyPress(Sender: TObject; var Key: Char);
procedure edt_capitaltypeKeyPress(Sender: TObject; var Key: Char);
procedure edt_producerKeyPress(Sender: TObject; var Key: Char);
procedure edt_buydateKeyPress(Sender: TObject; var Key: Char);
procedure edt_countryKeyPress(Sender: TObject; var Key: Char);
procedure edt_valueKeyPress(Sender: TObject; var Key: Char);
procedure edt_capitalnumberKeyPress(Sender: TObject; var Key: Char);
procedure edt_usedbyorgKeyPress(Sender: TObject; var Key: Char);
procedure edt_usedbyoneKeyPress(Sender: TObject; var Key: Char);
procedure edt_managerKeyPress(Sender: TObject; var Key: Char);
procedure edt_placeKeyPress(Sender: TObject; var Key: Char);
procedure edt_usedyearsKeyPress(Sender: TObject; var Key: Char);
procedure edt_sourceKeyPress(Sender: TObject; var Key: Char);
procedure edt_discardyearsKeyPress(Sender: TObject; var Key: Char);
procedure sbtn_addingClick(Sender: TObject);
procedure sbtn_refreshClick(Sender: TObject);
procedure sbtn_modifyClick(Sender: TObject);
procedure sbtn_priorClick(Sender: TObject);
procedure sbtn_firstClick(Sender: TObject);
procedure sbtn_nextClick(Sender: TObject);
procedure sbtn_lastClick(Sender: TObject);
procedure sbtn_exitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure showdata;
end;
var
frm_register: Tfrm_register;
implementation
uses main;
{$R *.dfm}
procedure Tfrm_register.FormShow(Sender: TObject);
begin
edt_capitalname.SetFocus;
if frm_main.ADOTable1.Recordset.RecordCount<1 then exit;
lbl_position.Caption:=inttostr(frm_main.ADOTable1.Recordset.AbsolutePosition)+'/'+
inttostr(frm_main.ADOTable1.Recordset.RecordCount);
end;
procedure tfrm_register.showdata;
begin
with frm_main.adoTable1 do
begin
edt_capitalname.Text:=vartostr(fieldvalues['固定资产名称']);
edt_capitaltype.Text:=vartostr(fieldvalues['固定资产型号']);
edt_producer.Text:=vartostr(fieldvalues['制造商']);
edt_country.Text:=vartostr(fieldvalues['国家或地区']);
edt_buydate.Text:=vartostr(fieldvalues['购买时间']);
edt_value.Text:=vartostr(fieldvalues['单价']);
edt_capitalnumber.Text:=vartostr(fieldvalues['数量']);
edt_usedbyorg.Text:=vartostr(fieldvalues['使用单位']);
edt_usedbyone.Text:=vartostr(fieldvalues['使用人']);
edt_manager.Text:=vartostr(fieldvalues['管理员']);
edt_