zfxx.pas

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

unit Zfxx;

interface

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

type
  TFormZfxx = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Labelbh: TLabel;
    Labelmc: TLabel;
    Label4: TLabel;
    Button5: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label6: TLabel;
    CheckBox1: TCheckBox;
    Label8: TLabel;
    CheckBox2: TCheckBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Button6: TButton;
    Label7: TLabel;
    ComboBox6: TComboBox;
    Label9: TLabel;
    Edit2: TEdit;
    Button7: TButton;
    Edit5: TEdit;
    Label10: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Edit7: 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 ComboBox1Exit(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button6Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Button7Click(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7Exit(Sender: TObject);
  private
    { Private declarations }
    nform:smallint;     //0:初始 1：增加 2：保存；
    zfbh,lybh,dyh,hxbh,lc,cxbh,djbh,ytbh,sffp,kffp,sfzh,dwbh:string;
    sqlstr:string;
    area,cost:double;
    // procedure refgrid();
  public
    { Public declarations }
  end;

var
  FormZfxx: TFormZfxx;

implementation

uses datamodl,Publicfun;

{$R *.dfm}

{
procedure TFormZfxx.refgrid();
var
  str:string;
begin
  with datamodule1 do
  begin
    if AdoQry.Active= true then AdoQry.Close;
    AdoQry.SQL.Clear;

  end;
end;
 }

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

procedure TFormZfxx.FormActivate(Sender: TObject);
begin
  //datamodule1.ChangeTab('zfxxb');
  //ZfxxView();
  datamodule1.DataS.DataSet:= datamodule1.ADOQryZF;
  sqlstr:= datamodule1.ADOQryZF.SQL.Text;
  if datamodule1.ADOQryZF.Active= false then
    datamodule1.ADOQryZF.Open;
  dbgrid1.Columns[0].Title.caption:='住房编号';
  dbgrid1.Columns[1].Title.caption:='所属楼宇';
  dbgrid1.Columns[2].Title.caption:='单元号';
  dbgrid1.Columns[3].Title.caption:='户型';
  dbgrid1.Columns[4].Title.caption:='楼层';
  dbgrid1.Columns[5].Title.caption:='朝向';
  dbgrid1.Columns[6].Title.caption:='等级';
  dbgrid1.Columns[7].Title.caption:='用途';
  dbgrid1.Columns[8].Title.caption:='是否分配';
  dbgrid1.Columns[9].Title.caption:='可否分配';
  dbgrid1.Columns[10].Title.caption:='身份证号';
  dbgrid1.Columns[11].Title.caption:='单位编号';

  nform:=0;
  edit1.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  edit6.Enabled:=false;
  edit7.Enabled:=false;

  {combobox1.Enabled:=false;
  combobox2.Enabled:=false;
  combobox3.Enabled:=false;
  combobox4.Enabled:=false;
  combobox5.Enabled:=false; }
  checkbox1.Enabled:=false;
  checkbox2.Enabled:=false;
  with datamodule1 do
  begin
    if ADOQry.Active= true then ADOQry.close;
    ADOQry.sql.Clear;
    ADOQry.sql.Add('select lybh,mc from lyxxb');
    ADOQry.open;
    ADOQry.first;
    while not ADOQry.Eof  do
    begin
      combobox1.Items.Add(ADOQry.fieldbyname('lybh').AsString+' | '
                         +ADOQry.fieldbyname('mc').AsString);
      ADOQry.Next;
    end;
    ADOQry.Close;

    ADOQry.sql.Clear;
    ADOQry.sql.Add('select bh,mc from fwhxb');
    ADOQry.open;
    ADOQry.first;
    while not ADOQry.Eof  do
    begin
      combobox2.Items.Add(ADOQry.fieldbyname('bh').AsString+' | '
                         +ADOQry.fieldbyname('mc').AsString);
      ADOQry.Next;
    end;
    ADOQry.Close;
    ADOQry.sql.Clear;
    ADOQry.sql.Add('select bh,mc from fwcxb');
    ADOQry.open;
    ADOQry.first;
    while not ADOQry.Eof  do
    begin
      combobox3.Items.Add(ADOQry.fieldbyname('bh').AsString+' | '
                         +ADOQry.fieldbyname('mc').AsString);
      ADOQry.Next;
    end;
    ADOQry.Close;

    ADOQry.sql.Clear;
    ADOQry.sql.Add('select bh,mc from fwdjb');
    ADOQry.open;
    ADOQry.first;
    while not ADOQry.Eof  do
    begin
      combobox4.Items.Add(ADOQry.fieldbyname('bh').AsString+' | '
                         +ADOQry.fieldbyname('mc').AsString);
      ADOQry.Next;
    end;
    ADOQry.Close;

    ADOQry.sql.Clear;
    ADOQry.sql.Add('select bh,mc from fwytb');
    ADOQry.open;
    ADOQry.first;
    while not ADOQry.Eof  do
    begin
      combobox5.Items.Add(ADOQry.fieldbyname('bh').AsString+' | '
                         +ADOQry.fieldbyname('mc').AsString);
      ADOQry.Next;
    end;
    combobox5.Items.Add(' ');
    ADOQry.Close;

    ADOQry.sql.Clear;
    ADOQry.sql.Add('select dwbh,dwmc from dwxxb');
    ADOQry.open;
    ADOQry.first;
    while not ADOQry.Eof  do
    begin
      combobox6.Items.Add(ADOQry.fieldbyname('dwbh').AsString+' | '
                         +ADOQry.fieldbyname('dwmc').AsString);
      ADOQry.Next;
    end;
    ADOQry.Close;

  end;
  button4.Enabled:=false;

end;

procedure TFormZfxx.Button1Click(Sender: TObject);
begin
   if copy(_userpurview,4,1)='0' then
     begin
       showmessage('对不起，您没有增加纪录的权限！');
       exit;
     end;
  edit1.Enabled:=true;
  edit3.Enabled:=true;
  edit4.Enabled:=true;
  combobox1.Enabled:=true;
  combobox2.Enabled:=true;
  combobox3.Enabled:=true;
  combobox4.Enabled:=true;
  combobox5.Enabled:=true;
  combobox6.Enabled:=true;
  checkbox1.Enabled:=true;
  checkbox2.Enabled:=true;
  combobox6.Text:='';
  checkbox1.Checked:=false;
  checkbox2.Checked:=true;
  edit1.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  combobox1.SetFocus;
  nform:=1;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button7.Enabled:=false;
  button4.Enabled:=true;
end;

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

procedure TFormZfxx.Button4Click(Sender: TObject);
var
  HD:Thandle;
begin
  if trim(combobox1.Text)='' then
    begin
      showmessage('请选择所属楼宇！');
      combobox1.SetFocus;
      exit;
    end;
  if trim(edit1.Text)='' then
    begin
      showmessage('住房编号不能为空！');
      edit1.SetFocus;
      exit;
    end;
  if length(trim(edit1.Text)) <>10 then
    begin
      showmessage('请确定住房编号位数');
      edit1.SetFocus;
      exit;
    end;
  zfbh:= trim(edit1.Text);
  dyh:=copy(zfbh,6,1);
  lybh:= copy(trim(combobox1.Text),1,5);
  if trim(combobox2.Text)='' then
    begin
      showmessage('户型不能为空！');
      combobox2.SetFocus;
      exit;
    end;
  hxbh:= copy(trim(combobox2.Text),1,2);
  lc:=trim(edit3.Text);
  if trim(combobox3.Text)='' then
    begin
      showmessage('请选择朝向！');
      combobox3.Setfocus;
      exit;
    end;
  cxbh:= copy(trim(combobox3.Text),1,2);
  if trim(combobox4.Text)='' then
    begin
      showmessage('请选择住房等级！');
      combobox4.Setfocus;
      exit;
    end;
  djbh:= copy(trim(combobox4.Text),1,2);
  if trim(combobox5.Text)='' then
    ytbh:=' '