【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Kfdj.pas”一文,供大家参考学习
unit Kfdj;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask,
ExtCtrls, ADODB;
type
TkhForm = class(TForm)
Panel2: TPanel;
bitbtn1: TBitBtn;
bitbtn2: TBitBtn;
bitbtn3: TBitBtn;
bitbtn4: TBitBtn;
bitbtn5: TBitBtn;
bitbtn6: TBitBtn;
Panel4: TPanel;
DBGrid1: TDBGrid;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label6: TLabel;
Label8: TLabel;
Label9: TLabel;
Combo1: TComboBox;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit4: TEdit;
Edit6: TEdit;
Edit3: TEdit;
Edit5: TEdit;
Query1: TQuery;
DataSource1: TDataSource;
Query2: TQuery;
procedure bitbtn6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bitbtn1Click(Sender: TObject);
procedure bitbtn3Click(Sender: TObject);
procedure bitbtn4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure bitbtn2Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure bitbtn5Click(Sender: TObject);
private
{ Private declarations }
procedure cleardata;
procedure enabledAdd;
procedure enabledfalse;
public
{ Public declarations }
end;
var
khForm: TkhForm;
flag:integer;
implementation
{$R *.dfm}
procedure TkhForm.cleardata ;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
combo1.Text:='';
end;
procedure TkhForm.enabledAdd ;
begin
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
combo1.Enabled:=true;
end;
procedure TkhForm.enabledfalse ;
begin
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
combo1.Enabled:=false;
end;
procedure TkhForm.bitbtn6Click(Sender: TObject);
begin
close;
end;
procedure TkhForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TkhForm.bitbtn1Click(Sender: TObject);
begin
flag:=1;
enabledAdd;
cleardata;
Edit1.SetFocus;
end;
procedure TkhForm.bitbtn3Click(Sender: TObject);
begin
try
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('delete from custinfo where 编号=:bh');
query2.ParamByName('bh').AsString:=query1.FieldValues['编号'];
query2.ExecSQL;
except
begin
MessageBox(0,'删除操作失败!','提示',MB_OK+MB_ICONERROR);
exit;
end;
end;
end;
procedure TkhForm.bitbtn4Click(Sender: TObject);
var
sqlstr:string;
begin
try
if edit1.Text='' then
begin
Application.MessageBox('请填写用户编号','提示',MB_OK+MB_ICONINFORMATION);
Edit1.SetFocus ;
exit;
end;
if Edit2.Text='' then
begin
Application.MessageBox('请填写客户','提示',MB_OK+MB_ICONINFORMATION);
edit2.SetFocus ;
exit;
end;
if Edit3.Text='' then
begin
Application.MessageBox('请填写客户身份证号','余科华提示',MB_OK+MB_ICONINFORMATION);
edit3.SetFocus ;
exit;
end;
if Edit5.Text ='' then
begin
Application.MessageBox('请填写联系电话','提示',MB_OK+MB_ICONINFORMATION);
edit5.SetFocus ;
exit;
end;
if Edit6.Text='' then
begin
Application.MessageBox('请填写客户地址','提示',MB_OK+MB_ICONINFORMATION);
edit6.SetFocus ;
exit;
end;
query2.Close;
query2.SQL.Clear;
if flag=1 then
sqlstr:='insert into custinfo values(:bh,:xm,:xb,:sfz,:dw,:dz,:dh)'
else
if flag=2 then
begin
sqlstr:='update custinfo set 编号=:bh,=:xm,性别=:xb,身份证=:sfz,'
+'单位=:dw,地址=:dz,电话=:dh where 编号=:oldbh';
query2.ParamByName('oldbh').AsString:=query1.FieldValues['编号'];
end;
query2.ParamByName('bh').AsString:=edit1.Text;
query2.ParamByName('xm').AsString:=edit2.Text;
query2.ParamByName('xb').AsString:=combo1.Text;
query2.ParamByName('sfz').AsString:=edit3.Text;
query2.ParamByName('dw').AsString:=edit4.Text;
query2.ParamByName('dz').AsString:=edit5.Text;
query2.ParamByName('dh').AsString:=edit6.Text;
query1.ExecSQL;
if query1.Active then
query1.Close;
query1.Open;
//end
except
begin
MessageBox(0,'数据操作失败,可能有重复的用户编号!','',MB_OK+MB_ICONERROR);
exit;
end;
end;
enabledfalse;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
end;
procedure TkhForm.FormCreate(Sender: TObject);
begin
query1.Open;
end;
procedure TkhForm.bitbtn2Click(Sender: TObject);
begin
cleardata;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=false;
end;
procedure TkhForm.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=query1.FieldValues['编号'];
edit2.Text:=query1.FieldValues[''];
combo1.Text:=query1.FieldValues['性别'];
edit3.Text:=query1.FieldValues['身份证'];
edit4.Text:=query1.FieldValues['单位'];
edit5.Text:=query1.FieldValues['电话'];
edit6.Text:=query1.FieldValues['地址'];
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
end;
procedure TkhForm.bitbtn5Click(Sender: TObject);
begin
enabledfalse;
cleardata;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
end;
end.
上一篇:
KEXX1.PAS
下一篇:
那些令你为之触动的好句子,感慨万分