mc_xqxxdj.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_XQXXDJ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, DBActns, ActnList,
  Buttons, ExtCtrls, Db, DBCtrls, Mask, ExtDlgs, ComCtrls;

type
  Txqxxdj = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBMemo1: TDBMemo;
    GroupBox2: TGroupBox;
    DBImage1: TDBImage;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    Shape1: TShape;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    OpenPictureDialog1: TOpenPictureDialog;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    BitBtn5: TBitBtn;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Ddtp1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xqxxdj: Txqxxdj;

implementation

uses MC_Data, MC_XQLL, MC_MainForm;

{$R *.DFM}

procedure Txqxxdj.BitBtn1Click(Sender: TObject); //添加或取消数据
begin
  if BitBtn1.Caption='添加[&I]' then //添加数据
  begin
    Data.XQXXB.Append;    //添加
    GroupBox1.Enabled:=True;  //小区信息栏有效
    BitBtn1.Caption:='取消[&U]';
    BitBtn2.Caption:='保存[&S]';
    BitBtn4.Enabled:=False;  // “删除“按钮不可用
    BitBtn3.Enabled:=False;  //“浏览“按钮不可用
    DBNavigator1.Enabled:=False;  //数据导航按钮不可用
    DBEdit6.SetFocus;
  End
  else  //取消数据添加
  begin
    GroupBox1.Enabled:=False;  //小区信息栏不可用
    BitBtn1.Caption:='添加[&I]';
    BitBtn2.Caption:='修改[&E]';
    BitBtn4.Enabled:=True;
    BitBtn3.Enabled:=True;
    DBNavigator1.Enabled:=True;
    Data.XQXXB.Cancel;   //取消数据添加
  end;
end;

procedure Txqxxdj.BitBtn2Click(Sender: TObject);  //修改或保存
begin
  if BitBtn2.Caption='修改[&E]' then   //修改数据
  begin
   Data.XQXXB.Edit;   //编辑数据
   GroupBox1.Enabled:=True; //小区信息栏有效
   BitBtn1.Caption:='取消[&U]';
   BitBtn2.Caption:='保存[&S]';
   BitBtn4.Enabled:=False;
   BitBtn3.Enabled:=False;
   DBNavigator1.Enabled:=False;
   DBEdit6.SetFocus;
  End
  Else
  begin
  if (Length(Data.XQXXB.FieldByName('小区编号').AsString)=0) or
     (Length(Data.XQXXB.FieldByName('小区名').AsString)=0) or
     (Length(Data.XQXXB.FieldByName('小区说明').AsString)=0) or
     (Length(Data.XQXXB.FieldByName('负责人').AsString)=0) or
     (Length(Data.XQXXB.FieldByName('地址').AsString)=0) then
     begin
          ShowMessage('请将数据信息填写全!!');
     End
   Else
     begin
       GroupBox1.Enabled:=False;
       BitBtn1.Caption:='添加[&I]';
       BitBtn2.Caption:='修改[&E]';
       BitBtn4.Enabled:=True;
       BitBtn3.Enabled:=True;
       DBNavigator1.Enabled:=True;
       Data.XQXXB.Post;
     end;
  end;
end;

procedure Txqxxdj.BitBtn4Click(Sender: TObject);
begin
  If Data.XQXXB.RecordCount <> 0 Then
  if MessageDlg('确认删除['+Data.XQXXB.FieldByName('小区名').AsString+']的信息吗？'
                ,mtCustom,[mbYes,mbNo],0)=mrYes then Data.XQXXB.Delete;
end;

procedure Txqxxdj.FormShow(Sender: TObject);
begin
  if Data.XQXXB.Active=False then Data.XQXXB.Open;
  if MainForm.Query1.Locate('使用选项','小区信息登记',[loCaseInsensitive]) then
  begin
    if MainForm.Query1.FieldByName('读写').asString='读' then
    begin
      bitBtn1.Enabled:=False;
      BitBtn2.Enabled:=false;
      BitBtn4.Enabled:=False;
    end;
  end;
end;

procedure Txqxxdj.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

procedure Txqxxdj.BitBtn6Click(Sender: TObject);  //添加小区图片
var Picture1:Tpicture;
begin
  Picture1:=TPicture.Create;
  If OpenPictureDialog1.Execute Then
  begin
     Picture1.LoadFromFile(OpenPictureDialog1.Filename);  //选择图片
     Data.XQXXB.FieldByName('照片').Assign(Picture1);   
  end;
end;

procedure Txqxxdj.BitBtn8Click(Sender: TObject);
begin
  Data.XQXXB.FieldByName('照片').Assign(Nil);  //清除图片
end;
procedure Txqxxdj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Assigned(XQLL) then XQLL.Close;
   XQXXDJ.Release;
   XQXXDJ:=Nil;
   Data.XQXXB.Close;//关闭小区信息表
end;
procedure Txqxxdj.BitBtn5Click(Sender: TObject);
begin
  Close;
end;

procedure Txqxxdj.Ddtp1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

end.