【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了Frm_Trans.pas相关资料,希望对各位网友有所帮助!
unit Frm_Trans;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, ComCtrls, ToolWin, DB, ADODB, ExtCtrls, StdCtrls,JPEG;
type
TFrmTrans = class(TForm)
GBxList: TGroupBox;
ADOConn: TADOConnection;
AQList: TADOQuery;
ToolBar1: TToolBar;
TBtnFirst: TToolButton;
TBtnPrio: TToolButton;
TBtnNext: TToolButton;
TBtnLast: TToolButton;
TBtnEdit: TToolButton;
TBtnInsert: TToolButton;
TBtnDelete: TToolButton;
EDName: TEdit;
EDNumber: TEdit;
EdOld: TEdit;
EdTelePhone: TEdit;
CBxSex: TComboBox;
CBXdePartMent: TComboBox;
DTPJoinDate: TDateTimePicker;
CBxMary: TComboBox;
LBName: TLabel;
LbOld: TLabel;
LbMary: TLabel;
LbPart: TLabel;
LbNumber: TLabel;
LbPhone: TLabel;
LbSex: TLabel;
LbDate: TLabel;
TBtnSave: TToolButton;
btnClose: TButton;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBtnSaveClick(Sender: TObject);
procedure TBtnFirstClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
private
ID:Integer;
inorup:Boolean;
dir:String;
procedure MoveRecord(const Command:String);
procedure openDB;
procedure ShowField;
Procedure setText(Ena,Clr:boolean);
{ Private declarations }
public
{ Public declarations }
end;
var
FrmTrans: TFrmTrans;
implementation
{$R *.dfm}
Procedure TFrmTrans.ShowField;
begin
//
with AQlist do
if AQList.Active then
begin
EDName.Text:=FieldbYname('Name').AsString;
EDNumber.Text:=FieldbYname('Number').AsString;
EdOld.Text:=inttostr(FieldbYname('Old').AsInteger);
EdTelePhone.Text:=FieldbYname('TelePhone').AsString;
CBxSex.ItemIndex:=FieldbYname('Sex').AsInteger;
CBXdePartMent.Text:=FieldbYname('dePartMent').AsString;
DTPJoinDate.DateTime:=FieldbYname('JoinDate').AsDateTime;
CBxMary.ItemIndex:=FieldbYname('Maried').AsInteger;
id:=FieldByname('ID').AsInteger;
end;
end;
procedure TFrmTrans.FormCreate(Sender: TObject);
begin
Getdir(0,dir);
dir:=dir+'\backup.jpg';
ADOConn.ConnectionString:='Provider=SQLOLEDB.1;Pass
word="";Persist Security Info=True;User ID=sa;Initial Catalog=
DelphiClassical200';
ADOConn.Open;
end;
procedure TFrmTrans.openDB;
begin
With AQList do
begin
close;
Sql.Clear;
Sql.Add('select * from TB_Worker');
open;
end;
end;
procedure TFrmTrans.FormShow(Sender: TObject);
begin
openDB;
ShowField;
end;
procedure TFrmTrans.TBtnSaveClick(Sender: TObject);
begin
if inorup then //Editing
begin
try
try
AdoConn.BeginTrans;
with AQList do
begin
close;
sql.Clear;
AQlist.Prepared;
sql.Add('Update TB_Worker set Name=:PName,Number=:PNumber,Old=:POld,TelePhone=:TelePhone,Sex=:PSex,dePartMent=:PdePartMent,Maried=:PMaried where id=:Pid');
parameters.ParamByName('PName').Value:=EDName.Text;
parameters.ParamByName('PNumber').Value:=EDNumber.Text;
parameters.ParamByName('POld').Value:=EdOld.Text;
parameters.ParamByName('TelePhone').Value:=EdTelePhone.Text;
parameters.ParamByName('PSex').Value:=CBxSex.ItemIndex;
parameters.ParamByName('PdePartMent').Value:= CBXdePartMent.Text;
parameters.ParamByName('PMaried').Value:= CBxMary.ItemIndex;
parameters.ParamByName('PID').Value:=ID;
Execsql;
end;
Finally
AdoConn.CommitTrans;
End;
Except
AdoConn.RollbackTrans;
End;
end
else
begin //inserting
Try
AdoConn.BeginTrans;
with AQList do
begin
close;
sql.Clear;
AQlist.Prepared;
sql.Add('insert into TB_Worker (Name,Number,Old,TelePhone,Sex,dePartMent,Maried) values(:PName,:PNumber,:POld,:TelePhone,:PSex,:PdePartMent,:PMaried)');
parameters.ParamByName('PName').Value:=EDName.Text;
parameters.ParamByName('PNumber').Value:=EDNumber.Text;
parameters.ParamByName('POld').Value:=EdOld.Text;
parameters.ParamByName('TelePhone').Value:=EdTelePhone.Text;
parameters.ParamByName('PSex').Value:=CBxSex.ItemIndex;
parameters.ParamByName('PdePartMent').Value:= CBXdePartMent.Text;
parameters.ParamByName('PMaried').Value:= CBxMary.ItemIndex;
Execsql;
end;
AdoConn.CommitTrans;
Except
AdoConn.RollbackTrans;
end;
end;
tbtnsave.Enabled:=false;
opendb;
showField;
SetText(false,false);
//
end;
procedure TFrmTrans.MoveRecord(const Command:String);
begin
if AQlist.Active then
case Command[1] of
'F': AQlist.First;
'P': AQ