xqxx.pas

北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql

unit Xqxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ExtCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type
  TFormXqxx = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Labelbh: TLabel;
    Labelmc: TLabel;
    Label4: TLabel;
    Button5: TButton;
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    nform:smallint;     //0:初始 1：增加 2：保存；
  public
    { Public declarations }
  end;

var
  FormXqxx: TFormXqxx;

implementation

uses datamodl,Publicfun;

{$R *.dfm}

procedure TFormXqxx.Button5Click(Sender: TObject);
begin
   close;
end;

procedure TFormXqxx.FormActivate(Sender: TObject);
begin
  datamodule1.ChangeTab('xqxxb');
  datamodule1.DataS.DataSet:= datamodule1.ADOTab;
  dbgrid1.Columns[0].Title.caption:='小区编号';
  dbgrid1.Columns[1].Title.caption:='小区名称';
  dbgrid1.Columns[2].Title.caption:='小区地址';
  nform:=0;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  button4.Enabled:=false;

end;

procedure TFormXqxx.Button1Click(Sender: TObject);
begin
  edit1.Enabled:=true;
  edit2.Enabled:=true;
  edit3.Enabled:=true;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit1.SetFocus;
  nform:=1;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button4.Enabled:=true;
end;

procedure TFormXqxx.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TFormXqxx.Button4Click(Sender: TObject);
var
  HD:Thandle;
begin
  if trim(edit1.Text)='' then
    begin
      showmessage('小区编号不能为空！');
      edit1.SetFocus;
      exit;
    end;
  if trim(edit2.Text)='' then
    begin
      showmessage('小区名称不能为空！');
      edit2.SetFocus;
      exit;
    end;

  HD:= formxqxx.Handle;
  if datamodule1.ADOSP.Active= true then
    datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_Xqxx_Save;1';
  if nform= 0 then exit;
  if nform= 1 then
     if datamodule1.ifexist('xqxxb','XQBH',trim(edit1.Text))= true then
       if messagebox(HD,pchar('数据库中已存在编号为<'+trim(edit1.Text)+'>的纪录，是否更新？'),pchar('信息提示'),MB_YESNO)=IDYES then
         if XqxxAdd(trim(edit1.Text),trim(edit2.Text),trim(edit3.Text))=0  then
           showmessage('更新成功！')
         else
           begin
             showmessage('更新失败！');
             exit;
           end
       else
           exit
     else
       if XqxxAdd(trim(edit1.Text),trim(edit2.Text),trim(edit3.Text))=0  then
         showmessage('保存成功！')
       else
         begin
           showmessage('保存失败！');
           exit;
         end
  else
    if nform= 2 then
      if XqxxAdd(trim(edit1.Text),trim(edit2.Text),trim(edit3.Text))=0  then
        showmessage('更新成功！')
      else
        begin
          showmessage('更新失败！');
          exit;
        end;
  datamodule1.ChangeTab('xqxxb');
  dbgrid1.Columns[0].Title.caption:='小区编号';
  dbgrid1.Columns[1].Title.caption:='小区名称';
  dbgrid1.Columns[2].Title.caption:='小区地址';  
  nform:=0;
  button1.Enabled:=true;
  button2.Enabled:=true;
  button4.Enabled:=false;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  dbgrid1.Enabled:=true;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
end;

procedure TFormXqxx.Button2Click(Sender: TObject);
begin
   nform:=2;
   edit1.Text:= Datamodule1.ADOTab.fieldbyname('xqbh').AsString;
   edit2.Text:= Datamodule1.ADOTab.fieldbyname('xqmc').AsString;
   edit3.Text:= Datamodule1.ADOTab.fieldbyname('dz').AsString;
   edit1.Enabled:=false;
   edit2.Enabled:=true;
   edit3.Enabled:=true;
   dbgrid1.Enabled:=false;
   button2.Enabled:=false;
   button2.Enabled:=false;
   button4.Enabled:=true;
end;

procedure TFormXqxx.Button3Click(Sender: TObject);
begin
  datamodule1.ADOTab.Delete;

end;

procedure TFormXqxx.Edit3Exit(Sender: TObject);
begin
    button4.SetFocus;
end;

procedure TFormXqxx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

end.