dwxx.pas

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

unit Dwxx;

interface

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

type
  TFormDwxx = 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;
    Label2: TLabel;
    Edit4: TEdit;
    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 Edit1Exit(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    nform:smallint;     //0:初始 1：增加 2：保存；
    dwbh,dwmc:string;
    kfts,yfts:smallint;
  public
    { Public declarations }
  end;

var
  FormDwxx: TFormDwxx;

implementation

uses datamodl,Publicfun;

{$R *.dfm}

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

procedure TFormDwxx.FormActivate(Sender: TObject);
begin
  datamodule1.ChangeTab('dwxxb');
  datamodule1.DataS.DataSet:= datamodule1.ADOTab;
  dbgrid1.Columns[0].Title.caption:='单位编号';
  dbgrid1.Columns[1].Title.caption:='单位名称';
  dbgrid1.Columns[2].Title.caption:='可分套数';
  dbgrid1.Columns[3].Title.caption:='已分套数';

  nform:=0;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  button4.Enabled:=false;

end;

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

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

procedure TFormDwxx.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;
  dwbh:=trim(edit1.Text);
  dwmc:=trim(edit2.Text);
  if trim(edit3.Text)='' then
    kfts:=0
  else
    kfts:=strtoint(trim(edit3.Text));
  if trim(edit4.Text)='' then
    yfts:=0
  else
    yfts:=strtoint(trim(edit4.Text));

  HD:= formDWXX.Handle;
  if datamodule1.ADOSP.Active= true then
    datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_DWXX_Save;1';
  if nform= 0 then exit;
  if nform= 1 then
     if datamodule1.ifexist('dwxxb','DWBH',dwbh)= true then
       if messagebox(HD,pchar('数据库中已存在编号为<'+dwbh+'>的纪录，是否修改？'),pchar('信息提示'),MB_YESNO)=IDYES then
         if DwxxAdd(dwbh,dwmc,kfts,yfts)=0  then
           showmessage('修改成功！')
         else
           begin
             showmessage('修改失败！');
             exit;
           end
       else
           exit
     else
       if DwxxAdd(dwbh,dwmc,kfts,yfts)=0  then
         showmessage('保存成功！')
       else
         begin
           showmessage('保存失败！');
           exit;
         end
  else
    if nform= 2 then
      if DwxxAdd(dwbh,dwmc,kfts,yfts)=0  then
        showmessage('修改成功！')
      else
        begin
          showmessage('修改失败！');
          exit;
        end;
  datamodule1.ChangeTab('dwxxb');
  dbgrid1.Columns[0].Title.caption:='单位编号';
  dbgrid1.Columns[1].Title.caption:='单位名称';
  dbgrid1.Columns[2].Title.caption:='可分套数';
  dbgrid1.Columns[3].Title.caption:='已分套数';
  nform:=0;
  button1.Enabled:=true;
  button2.Enabled:=true;
  button4.Enabled:=false;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  dbgrid1.Enabled:=true;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;

end;

procedure TFormDwxx.Button2Click(Sender: TObject);
begin
   nform:=2;
   edit1.Text:= Datamodule1.ADOTab.fieldbyname('dwbh').AsString;
   edit2.Text:= Datamodule1.ADOTab.fieldbyname('dwmc').AsString;
   edit3.Text:= Datamodule1.ADOTab.fieldbyname('kfts').AsString;
   edit4.Text:= Datamodule1.ADOTab.fieldbyname('yfts').AsString;
   edit1.Enabled:=false;
   edit2.Enabled:=true;
   edit3.Enabled:=true;
   edit4.Enabled:=true;
   dbgrid1.Enabled:=false;
   button1.Enabled:=false;
   button2.Enabled:=false;
   button4.Enabled:=true;
end;

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

end;

procedure TFormDwxx.Edit1Exit(Sender: TObject);
begin
  if length(edit1.Text)<>3 then
    begin
      showmessage('请确定单位编号是否为3位！');
      edit1.SetFocus;
      exit;
    end;
end;

procedure TFormDwxx.Edit4Exit(Sender: TObject);
begin
    button4.SetFocus;
end;

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

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

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

end.