⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 housefrm.pas

📁 房屋中介管理系统.支持多用户有不同的权限 采用MDI界面 由于没有打包
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
begin
mainform.N11Click(sender);
end;

procedure Thouseform.ToolButton4Click(Sender: TObject);
begin
mainform.N12Click(sender);
end;

procedure Thouseform.ToolButton5Click(Sender: TObject);
begin
mainform.N13Click(sender);
end;

procedure Thouseform.FormCreate(Sender: TObject);
var
  s:string;
begin
self.width:=800;
self.height:=600;
self.left:=10;
self.top:=20;



with datamodule2 do
begin
usertable.First;
s:=userTable.FieldByName('username').asstring;
if s='普通用户' then
begin
toolbutton2.Enabled:=false;
toolbutton3.enabled:=false;
toolbutton4.enabled:=false;
toolbutton5.enabled:=false;
binput2.enabled:=false;
binput3.enabled:=false;
binput4.enabled:=false;
binput14.enabled:=false;
binput15.enabled:=false;
binput16.enabled:=false;
binput17.enabled:=false;
binput18.enabled:=false;
binput45.enabled:=false;
binput2.color:=clmenu;
binput3.color:=clmenu;
binput4.color:=clmenu;
binput14.color:=clmenu;
binput15.color:=clmenu;
binput16.color:=clmenu;
binput17.color:=clmenu;
binput18.color:=clmenu;
binput45.color:=clmenu;
binput2.datafield:='';
binput3.datafield:='';
binput4.datafield:='';
binput14.datafield:='';
binput15.datafield:='';
binput16.datafield:='';
binput17.datafield:='';
binput18.datafield:='';
binput45.datafield:='';


end;


ainput40.date:=date;
button1.enabled:=true;
button2.enabled:=false;
//datamodule2.inputtable.active:=true;
end;
//self.formstyle:=fsmdichild;

  self.windowstate:=wsmaximized;
end;
procedure Thouseform.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
var

  j:integer;

begin
j:=datamodule2.housequery1.RecordCount;
if button=nbfirst then   number:=1
else if button=nbprior then number:=number-1
else if button=nbnext then number:=number+1
else number:=j;
numberlabel.caption:='第'+inttostr(number)+'条记录，共'+inttostr(j)+'条记录';
end;

procedure Thouseform.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  s:string;
begin
s:=edit3.text ;
if key=13 then
datamodule2.inputtable.FindKey([s]);


end;

procedure Thouseform.ainput9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//Perform(WM_NEXTDLGCTL,0,0);
       // key:=#0;
//if key=13 then ainput10.SetFocus;
end;

procedure Thouseform.ainput10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput11.SetFocus;
end;

procedure Thouseform.ainput11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput12.SetFocus;
end;

procedure Thouseform.ainput12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput43.SetFocus;
end;

procedure Thouseform.ainput43KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput7.SetFocus;
end;

procedure Thouseform.ainput24KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput5.SetFocus;
end;

procedure Thouseform.ainput25KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput24.SetFocus;
end;

procedure Thouseform.ainput20KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput21.SetFocus;
end;

procedure Thouseform.ainput21KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput22.SetFocus;
end;

procedure Thouseform.ainput8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then ainput5.SetFocus;
end;

procedure Thouseform.ainput5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput6.SetFocus;
end;

procedure Thouseform.ainput6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput44.SetFocus;
end;

procedure Thouseform.ainput19KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then   if acombobox.text='非详细数据' then
ainput40.SetFocus else ainput14.setfocus;

end;

procedure Thouseform.ainput15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput16.SetFocus;
end;

procedure Thouseform.ainput16KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput17.SetFocus;
end;

procedure Thouseform.ainput40KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then if acombobox.text='非详细数据' then
//ainput13.SetFocus else ainput18.SetFocus;
end;

procedure Thouseform.ainput18KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput2.SetFocus;
end;

procedure Thouseform.ainput2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput3.SetFocus;
end;

procedure Thouseform.ainput3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput4.SetFocus;
end;

procedure Thouseform.ainput42KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then if acombobox.text='非详细数据' then
 ainput13.SetFocus else ainput4.SetFocus;
end;

procedure Thouseform.ainput4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput13.SetFocus;
end;

procedure Thouseform.ainput13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput39.SetFocus;
end;

procedure Thouseform.ainput39KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then button1.SetFocus;
end;

procedure Thouseform.ainput17KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput40.SetFocus;
end;

procedure Thouseform.ainput14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput15.SetFocus;
end;

procedure Thouseform.Button1Click(Sender: TObject);
var
  s:string;
begin
with datamodule2 do
if acombobox.text='非详细数据' then
begin
 inputtable.Append;
 input5.asstring:=ainput5.Text;
 input6.asstring:=ainput6.Text;
 input7.asstring:=ainput7.Text;
 input8.asstring:=ainput8.Text;
 input9.asstring:=ainput9.Text;
 input10.asstring:=ainput10.Text;
 input11.asstring:=ainput11.Text;
 input12.asstring:=ainput12.Text;
 input13.asstring:=ainput13.Text;
 input19.asstring:=ainput19.Text;
 input20.asstring:=ainput20.Text;
 input21.asstring:=ainput21.Text;
 input22.asstring:=ainput22.Text;
  input23.AsString:=ainput20.text+ainput21.text+ainput22.Text;
 input24.asstring:=ainput24.Text;
 input25.asstring:=ainput25.Text;
 input39.asstring:=ainput39.Text;
 input40.asstring:=datetostr(ainput40.date);
 input43.asstring:=ainput43.Text;
 input44.asstring:=ainput44.Text;
 input45.asstring:='0';
 input26.asstring:=s;
 input26.value:=ainput26.Checked;
 input27.value:=ainput27.Checked;
 input29.value:=ainput29.Checked;
 input28.value:=ainput28.Checked;
 input30.value:=ainput30.Checked;
 input31.value:=ainput31.Checked;
 input33.value:=ainput33.Checked;
 input32.value:=ainput32.Checked;
 input34.value:=ainput34.Checked;
 input35.value:=ainput35.Checked;
 input36.value:=ainput36.Checked;
 input37.value:=ainput37.Checked;
 input38.value:=ainput38.Checked;
 input41.value:=ainput41.Checked;
 inputtable.Post;

 end
else
begin
 inputtable.Append;
 input2.asstring:=ainput2.Text;
 input3.asstring:=ainput3.Text;
 input4.asstring:=ainput4.Text;
 input5.asstring:=ainput5.Text;
 input6.asstring:=ainput6.Text;
 input7.asstring:=ainput7.Text;
 input8.asstring:=ainput8.Text;
 input9.asstring:=ainput9.Text;
 input10.asstring:=ainput10.Text;
 input11.asstring:=ainput11.Text;
 input12.asstring:=ainput12.Text;
 input13.asstring:=ainput13.Text;
 input14.asstring:=ainput14.Text;
 input15.asstring:=ainput15.Text;
 input16.asstring:=ainput16.Text;
 input17.asstring:=ainput17.Text;
 input18.asstring:=ainput18.Text;
 input19.asstring:=ainput19.Text;
 input20.asstring:=ainput20.Text;
 input21.asstring:=ainput21.Text;
 input22.asstring:=ainput22.Text;
 input23.AsString:=ainput20.text+ainput21.text+ainput22.Text;
 input24.asstring:=ainput24.Text;
 input25.asstring:=ainput25.Text;
 input39.asstring:=ainput39.Text;
 input40.asstring:=datetostr(ainput40.date);
 input43.asstring:=ainput43.Text;
 input44.asstring:=ainput44.Text;
 if acombobox.text='详细数据' then input45.asstring:='1'
   else if acombobox.text='共享数据' then input45.asstring:='2';
 input26.value:=ainput26.Checked;
 input27.value:=ainput27.Checked;
 input29.value:=ainput29.Checked;
 input28.value:=ainput28.Checked;
 input30.value:=ainput30.Checked;
 input31.value:=ainput31.Checked;
 input33.value:=ainput33.Checked;
 input32.value:=ainput32.Checked;
 input34.value:=ainput34.Checked;
 input35.value:=ainput35.Checked;
 input36.value:=ainput36.Checked;
 input37.value:=ainput37.Checked;
 input38.value:=ainput38.Checked;
 input41.value:=ainput41.Checked;
 inputtable.Post;
end;
ainput2.text:='';
ainput3.text:='';
ainput4.text:='';
ainput5.text:='';
ainput6.text:='';
ainput7.text:='';
ainput8.text:='';
ainput9.text:='买卖';
ainput10.text:='居住用房';
ainput11.text:='新房';
ainput12.text:='商品房';
ainput13.text:='';
ainput14.text:='';
ainput15.text:='';
ainput16.text:='';
ainput17.text:='';
ainput18.text:='';
ainput19.text:='';
ainput20.text:='';
ainput21.text:='';
ainput22.text:='';
ainput24.text:='';
ainput25.text:='';
ainput39.text:='';
ainput43.text:='中套';
ainput44.text:='';
ainput19.text:='南';
ainput9.SetFocus;
countlabel.caption:='当前记录总数为：'+inttostr(datamodule2.inputtable.recordcount);
end;

procedure Thouseform.Button4Click(Sender: TObject);
begin
if messagedlg('确实要删除这条记录吗？',mtinformation,[mbyes,mbno],0)=mryes
then
datamodule2.inputtable.delete ;
end;

procedure Thouseform.ainput20KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9'])) and (key>#31) then

  key:=#0;
  if Key=#13 then
begin
        Perform(WM_NEXTDLGCTL,0,0);
        key:=#0;
end;


end;

procedure Thouseform.ainput7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput8.SetFocus;
end;

procedure Thouseform.input8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput20.SetFocus;
end;

procedure Thouseform.ainput22KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput25.SetFocus;
end;

procedure Thouseform.ainput44KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then ainput19.SetFocus;
end;

procedure Thouseform.name19KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=13 then if acombobox.text='非详细数据' then
//ainput40.setfocus else ainput14.SetFocus  ;
end;

procedure Thouseform.aComboBoxChange(Sender: TObject);
begin

if  acombobox.text='详细数据' then
begin
ainput2.enabled:=true;
ainput3.enabled:=true;
ainput4.enabled:=true;
ainput14.enabled:=true;
ainput15.enabled:=true;
ainput16.enabled:=true;
ainput17.enabled:=true;
ainput18.enabled:=true;
ainput3.color:=clwindow;
ainput4.color:=clwindow;
ainput14.color:=clwindow;
ainput15.color:=clwindow;
ainput16.color:=clwindow;
ainput17.color:=clwindow;
ainput18.color:=clwindow;
ainput2.color:=clwindow;

end
ELSE  if  acombobox.text='非详细数据' then
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -