zfxx.pas

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

  else
    ytbh:= copy(trim(combobox5.Text),1,2);
  if checkbox1.Checked then
     sffp:= '1'
  else
     sffp:= '0';
  if checkbox2.Checked then
     kffp:= '1'
  else
     kffp:= '0';
  sfzh:= trim(edit4.Text);
  if trim(combobox6.Text)='' then
     dwbh:=''
  else
     dwbh:= copy(trim(combobox6.Text),1,3);

  ytbh:= copy(trim(combobox5.Text),1,2);
  area:= strtofloat(edit6.text);
  cost:= strtofloat(edit7.text);

  HD:= formZfxx.Handle;
  if datamodule1.ADOSP.Active= true then
    datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_ZFXX_Save;1';
  if nform= 0 then exit;
  if nform= 1 then
     if datamodule1.ifexist('zfxxb','zfbh',trim(edit1.Text))= true then
       if messagebox(HD,pchar('数据库中已存在编号为<'+trim(edit1.Text)+'>的纪录，是否更新？'),pchar('信息提示'),MB_YESNO)=IDYES then
         if ZfxxAdd(zfbh,lybh,dyh,hxbh,lc,cxbh,djbh,ytbh,sffp,kffp,sfzh,dwbh,area,cost)=0  then
           showmessage('更新成功！')
         else
           begin
             showmessage('更新失败！');
             exit;
           end
       else
           exit
     else
       if ZfxxAdd(zfbh,lybh,dyh,hxbh,lc,cxbh,djbh,ytbh,sffp,kffp,sfzh,dwbh,area,cost)=0  then
         showmessage('保存成功！')
       else
         begin
           showmessage('保存失败！');
           exit;
         end
  else
    if nform= 2 then
      if ZfxxAdd(zfbh,lybh,dyh,hxbh,lc,cxbh,djbh,ytbh,sffp,kffp,sfzh,dwbh,area,cost)=0  then
        showmessage('更新成功！')
      else
        begin
          showmessage('更新失败！');
          exit;
        end;
  //datamodule1.ChangeTab('zfxxb');
  //ZfxxView();
  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;
  button1.Enabled:=true;
  button2.Enabled:=true;
  button3.Enabled:=true;
  button6.Enabled:=true;
  button7.Enabled:=true;
  
  button4.Enabled:=false;
  edit1.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  dbgrid1.Enabled:=true;
  edit1.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;

  checkbox1.Checked:=false;
  checkbox2.Checked:=true;
  checkbox1.Enabled:=false;
  checkbox2.Enabled:=false;
  button1.SetFocus;

end;

procedure TFormZfxx.Button2Click(Sender: TObject);
var
  i:smallint;
begin
   if copy(_userpurview,5,1)='0' then
     begin
       showmessage('对不起，您没有修改的权限！');
       exit;
     end;    
   nform:=2;
   edit1.Enabled:=false;
   combobox1.Enabled:=false;
   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;
   with  Datamodule1.ADOQryZF do
   begin
     edit1.Text:= fieldbyname('zfbh').AsString;
     edit2.Text:= fieldbyname('dyh').AsString;
     edit3.Text:= fieldbyname('lc').AsString;
     edit4.Text:= fieldbyname('sfzh').AsString;
     combobox1.ItemIndex:=combobox1.Items.IndexOf(fieldbyname('lybh').AsString+' | '
                                                + fieldbyname('lymc').AsString);
     combobox2.ItemIndex:=combobox2.Items.IndexOf(fieldbyname('hxbh').AsString+' | '
                                                + fieldbyname('hx').AsString);
     combobox3.ItemIndex:=combobox3.Items.IndexOf(fieldbyname('cxbh').AsString+' | '
                                                + fieldbyname('cx').AsString);
     combobox4.ItemIndex:=combobox4.Items.IndexOf(fieldbyname('djbh').AsString+' | '
                                                + fieldbyname('dj').AsString);
     combobox5.ItemIndex:=combobox5.Items.IndexOf(fieldbyname('ytbh').AsString+' | '
                                                + fieldbyname('yt').AsString);
     for i:=0 to combobox6.Items.Count-1 do
        begin
         if copy(combobox6.Items[i],1,3)= trim(fieldbyname('dwbh').AsString)  then
           combobox6.ItemIndex:= i;
        end;

     if trim(fieldbyname('sffp').AsString)='已分' then
       checkbox1.Checked:= true
     else
       checkbox1.Checked:= false;
     if trim(fieldbyname('kffp').AsString)='可分' then
       checkbox2.Checked:= true
     else
       checkbox2.Checked:= false;
     edit6.Text:= floattostr(fieldbyname('area').AsFloat);
     edit7.Text:= floattostr(fieldbyname('cost').AsFloat);

   end;
   dbgrid1.Enabled:=false;
   button1.Enabled:=false;
   button2.Enabled:=false;
   button3.Enabled:=false;
   button6.Enabled:=false;    
   button7.Enabled:=false;
   button4.Enabled:=true;
end;

procedure TFormZfxx.Button3Click(Sender: TObject);
var
  zfbh:string;
begin
   if copy(_userpurview,5,1)='0' then
     begin
       showmessage('对不起，您没有删除纪录的权限！');
       exit;
     end;
  //datamodule1.ADOTab.Delete;
  zfbh:= datamodule1.ADOQryZF.FieldByName('zfbh').AsString;
  if datamodule1.ADOSP.Active= true then
    datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_Zfxx_del;1';
  if ZfxxDel(zfbh)=0  then
    showmessage('纪录已删除，请刷新纪录集！')
  else
    begin
      showmessage('删除失败！');
      exit;
    end;
end;

procedure TFormZfxx.ComboBox1Exit(Sender: TObject);
begin
  if trim(combobox1.Text)<>'' then
    begin
      zfbh:= copy(trim(combobox1.Text),1,5);
      edit1.Text:=zfbh+copy(trim(edit1.Text),6,5);
    end;

end;

procedure TFormZfxx.Edit1Exit(Sender: TObject);
var
  zbh:string;
begin
  if length(edit1.Text)<>10 then
    begin
      showmessage('请确定编号是否为10位！');
      edit1.SetFocus;
      exit;
    end;
  zbh:= trim(edit1.Text);
  if strtoint(copy(zbh,7,2)) =0 then
    begin
      showmessage('楼层不能为00！');
      edit1.SetFocus;
      exit;
    end;
  if (strtoint(copy(zbh,9,2))=0) then
    begin
      showmessage('楼号不能为00');
      edit1.SetFocus;
      exit;
    end;
  edit2.Text:=copy(trim(edit1.Text),6,1);
  edit3.Text:=inttostr(strtoint(copy(trim(edit1.Text),7,2)));
end;

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

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

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

procedure TFormZfxx.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  datamodule1.DataS.DataSet:=datamodule1.ADOTab;
   if datamodule1.ADOQryZF.Active=true then
   datamodule1.ADOQryZF.Close;
   datamodule1.ADOQryZF.SQL.Clear;
   datamodule1.ADOQryZF.SQL.Add(sqlstr);
end;

procedure TFormZfxx.Button6Click(Sender: TObject);
begin
   if datamodule1.ADOQryZF.Active=true then
   datamodule1.ADOQryZF.Close;
   datamodule1.ADOQryZF.SQL.Clear;
   datamodule1.ADOQryZF.SQL.Add(sqlstr);
   datamodule1.ADOQryZF.Open;
   button1.Enabled:=true;
   button2.Enabled:=true;
   button3.Enabled:=true;
end;

procedure TFormZfxx.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
  if (length(edit5.Text) = 10) and (key <> #8) then
    key:=char(0);    
end;

procedure TFormZfxx.Button7Click(Sender: TObject);
begin
  if length(edit5.Text)<>10 then
    begin
      showmessage('请确定编号是否为10位！');
      edit5.SetFocus;
      exit;
    end;
  if datamodule1.ADOQryZF.Active= true then
    datamodule1.ADOQryZF.Close;
  datamodule1.ADOQryZF.SQL.Clear;
  datamodule1.ADOQryZF.SQL.Add(sqlstr+' and a.zfbh=:zfbh');
  datamodule1.ADOQryZF.Parameters.ParamByName('zfbh').Value:=trim(edit5.Text);
  datamodule1.ADOQryZF.open;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button3.Enabled:=false;
  
end;

procedure TFormZfxx.Edit5Exit(Sender: TObject);
begin
  button7.SetFocus;
end;

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

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

procedure TFormZfxx.Edit7Exit(Sender: TObject);
begin
  button4.SetFocus;
end;

end.