【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-dwxx.pas,希望本篇文章对您学习有所帮助。
unit dwxx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, Mask, StdCtrls, Buttons;
type
Tdwxx_form = class(TForm)
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
MaskEdit1: TMaskEdit;
Label8: TLabel;
Edit7: TEdit;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure BitBtn3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure clearedit;
procedure display;
public
{ Public declarations }
end;
var
dwxx_form: Tdwxx_form;
oldcode:string;
implementation
{$R *.dfm}
procedure tdwxx_form.clearedit;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
MaskEdit1.Text:='';
end;
procedure tdwxx_form.display;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from dwxx');
adoquery1.Open;
end;
procedure Tdwxx_form.FormCreate(Sender: TObject);
var
sqlstr,vProvider,vDataSource,vPersistSecurityInfo:string;
begin
vProvider:='Provider=Microsoft.Jet.OLEDB.4.0;';
vDataSource:='Data Source=.\dbs\rlzy.mdb;';
vPersistSecurityInfo:='Persist Security Info=False';
ADOQuery1.ConnectionString:=vProvider+vDataSource+vPersistSecurityInfo;
sqlstr:='select * from dwxx';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADOQuery1.Open;
ADOQuery1.Active:=True;
DataSource1.DataSet:=ADOQuery1;
end;
procedure Tdwxx_form.BitBtn1Click(Sender: TObject);
var
SQLStr:string;
begin
SQLStr:='insert into dwxx(序号,法人代表,单位名称,成立日期,联系电话,传真号码,电子邮件,单位地址) values(:xh,:frxm,:dwmc,:clrq,:lxdh,:czhm,:dzyj,:dwdz)';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(SQLStr);
adoquery1.Parameters.ParamByName('xh').Value:=edit7.Text;
adoquery1.Parameters.ParamByName('frxm').Value:=edit1.Text;
adoquery1.Parameters.ParamByName('frxm').Value:=edit1.Text;
adoquery1.Parameters.ParamByName('dwmc').Value:=edit2.Text;
adoquery1.Parameters.ParamByName('clrq').Value:=maskedit1.Text;
adoquery1.Parameters.ParamByName('lxdh').Value:=edit3.Text;
adoquery1.Parameters.ParamByName('czhm').Value:=edit4.Text;
adoquery1.Parameters.ParamByName('dzyj').Value:=edit5.Text;
adoquery1.Parameters.ParamByName('dwdz').Value:=edit6.Text;
adoquery1.ExecSQL;
display;
clearedit;
end;
procedure Tdwxx_form.BitBtn2Click(Sender: TObject);
var
SQLStr:string;
begin
SQLStr:='update dwxx set 序号=:xh,法人代表=:frxm,单位名称=:dwmc,成立日期=:clrq,联系电话=:lxdh,传真号码=:czhm,电子邮件=:dzyj,单位地址=:dwdz where 序号=:oldcode';
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add(SQLStr);
Parameters.ParamByName('xh').Value:=edit7.Text;
Parameters.ParamByName('frxm').Value:=edit1.Text;
Parameters.ParamByName('dwmc').Value:=edit2.Text;
Parameters.ParamByName('clrq').Value:=maskedit1.Text;
Parameters.ParamByName('lxdh').Value:=edit3.Text;
Parameters.ParamByName('czhm').Value:=edit4.Text;
Parameters.ParamByName('dzyj').Value:=edit5.Text;
Parameters.ParamByName('dwdz').Value:=edit6.Text;
Parameters.ParamByName('oldcode').Value:=oldcode;
ExecSQL;
end;
display;
end;
procedure Tdwxx_form.DBGrid1CellClick(Column: TColumn);
begin
edit7.Text:=adoquery1.FieldValues['序号'];
edit1.Text:=adoquery1.FieldValues['法人代表'];
edit2.Text:=adoquery1.FieldValues['单位名称'];
edit3.Text:=adoquery1.FieldValues['联系电话'];
edit4.Text:=adoquery1.FieldValues['传真号码'];
edit5.Text:=adoquery1.FieldValues['电子邮件'];
edit6.Text:=adoquery1.FieldValues['单位地址'];
MaskEdit1.Text:=adoquery1.FieldValues['成立日期'];
oldcode:=edit7.Text;
end;
procedure Tdwxx_form.BitBtn3Click(Sender: TObject);
var
SQLStr:string;
begin
SQLStr:='delete from dwxx where 序号=:xh';
with adoquery1 do
begin
close;
SQL.Clear;
SQL.Add(SQLStr);
Parameters.ParamByName('xh').Value:=edit7.Text;
ExecSQL;
end;
display;
clearedit;
end;
procedure Tdwxx_form.FormShow(Sender: TObject);
begin
Edit7.SetFocus ;
end;
end.
上一篇:
dutyinfo.pas
下一篇:
餐饮管理系统