baiandj.pas

这是一个小区物业管理系统

unit baiandj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, ComCtrls, DB, ADODB;

type
  Tfrmbaoandj = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    BitBtn7: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    edtshenfen: TEdit;
    Label5: TLabel;
    edtname: TEdit;
    Label6: TLabel;
    edtVisitor: TEdit;
    Label7: TLabel;
    dtpDate: TDateTimePicker;
    Label8: TLabel;
    cbField: TComboBox;
    Label9: TLabel;
    Label10: TLabel;
    cbCondition: TComboBox;
    Label11: TLabel;
    edtvalue: TEdit;
    Bevel9: TBevel;
    DBGrid1: TDBGrid;
    Bevel10: TBevel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbaoandj: Tfrmbaoandj;

implementation

{$R *.dfm}

procedure Tfrmbaoandj.FormCreate(Sender: TObject);
begin
 edtshenfen.Clear;
 edtname.Clear;
 edtvisitor.Clear;
 dtpdate.DateTime:=now;
 edtvalue.Clear;
end;

procedure Tfrmbaoandj.BitBtn1Click(Sender: TObject);
var
 str:string;
begin
if (edtshenfen.Text<>'')and (edtname.Text<>'')and(edtvisitor.Text<>'') then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
str:='insert into baoandj (shfzheng,name,beifangze,riqi) values(:a,:b,:c,:d)';
ADOQuery1.SQL.Add(str);
ADOQuery1.Parameters.ParamByName('a').Value:=strtoint(edtshenfen.Text);
ADOQuery1.Parameters.ParamByName('b').Value:=edtname.Text;
ADOQuery1.Parameters.ParamByName('c').Value:=edtvisitor.Text;
ADOQuery1.Parameters.ParamByName('d').Value:=dtpdate.DateTime;
ADOQuery1.ExecSQL;
showmessage('登记成功！');
end
else
 showmessage('登记不完整！');
end;

procedure Tfrmbaoandj.BitBtn2Click(Sender: TObject);
var
 str:string;
begin
if edtvalue.Text<>'' then
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 if cbcondition.Text='=' then
   begin
    str:='select building as 楼栋号,doorNumber as  门牌号,name as 姓名,telphone as 电话';
    str:=str+' '+'from juminTable where '+' '+cbField.Text+cbcondition.Text+''''+edtvalue.Text+'''';
   end
 else
   begin
     str:='select building as 楼栋号,doorNumber as 门牌号,name as 姓名,telphone as 电话';
     str:=str+' '+'from juminTable where '+' '+cbField.Text +' '+cbcondition.Text+' '+''''+edtvalue.Text+'%'+ '''';
   end;
  ADOQuery1.SQL.Add(str);
  ADOQuery1.Open;
 end
 else
  showmessage('请输入查询值！');


    
end;

procedure Tfrmbaoandj.BitBtn7Click(Sender: TObject);
begin
self.Close;
end;

procedure Tfrmbaoandj.BitBtn3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select building as 楼栋,doorNumber as 门牌号,name as 姓名, telphone as 电话 from juminTable');//ADOQuery1.Open;
ADOQuery1.First;
end;

end.