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

📄 unit1.pas

📁 本人编写的一户一册登记表,由于水平有限,只有基本的文本记录功能,还有一个自动统计,但打印还没有完盖
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
i2:=query2.RecordCount;

    for i:=0 to query2.RecordCount-1 do
      begin
          if query2.FieldValues['A5']='有' then  i3:=i3+1;
          i1:= strtoint(query2.FieldValues['A8']);
          if i1<=10 then   i4:=i4+1
          else if (i1>10) and (i1<=20 )then i5:=i5+1
          else if (i1>20) and (i1<=30) then i6:=i6+1
          else if (i1>30) and (i1<=40) then i7:=i7+1
          else if (i1>40) and (i1<=50) then i8:=i8+1
          else if (i1>50) and (i1<=100) then i9:=i9+1
          else i10:=i10+1;
          if query2.FieldValues['A7']='有' then  i11:=i11+1;
          if query2.FieldValues['A6']='是' then  i12:=i12+1;
          i1:=strtoint(query2.FieldValues['A11']);
          if (i1<2) and (i1>0) then  i13:=i13+1
          else if i1>1 then i14:=i14+1;
          query2.next;
      end;

           Query1.Close;
           Query1.SQL.Clear;
           Query1.SQL.Add('insert into "temp.db" (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14)  values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14)');
           Query1.ParamByName('s1').asstring:=s;
           Query1.ParamByName('s2').assmallint:=i2;
           Query1.ParamByName('s3').assmallint:=i3;
           Query1.ParamByName('s4').assmallint:=i4;
           Query1.ParamByName('s5').assmallint:=i5;
           Query1.ParamByName('s6').assmallint:=i6;
           Query1.ParamByName('s7').assmallint:=i7;
           Query1.ParamByName('s8').assmallint:=i8;
           Query1.ParamByName('s9').assmallint:=i9;
           Query1.ParamByName('s10').assmallint:=i10;
           Query1.ParamByName('s11').assmallint:=i11;
           Query1.ParamByName('s12').assmallint:=i12;
           Query1.ParamByName('s13').assmallint:=i13;
           Query1.ParamByName('s14').assmallint:=i14;
           Query1.ExecSQL;




end;



procedure TForm1.Button4Click(Sender: TObject);
var s:string;
begin   //统计数字
s:=' ';
 if combobox2.ItemIndex=0 then
   begin


   end//统计全镇;
   else if combobox2.ItemIndex=1    then
      begin

        if MessageDlg('现在是删除统计记录,是否删除？',mtInformation, [mbYes, mbNo],0) =
          mryes then
           begin
           Query1.Close;
           Query1.SQL.Clear;
           Query1.SQL.Add('delete from temp.db ');
           Query1.ExecSQL;
       end;
     end  //删除所有记录;
  else  begin
  case combobox2.ItemIndex of
  2:	 s:='1 竹山';
  3:	 s:='2 高英';
  4:	 s:='3 巷头';
  5:	 s:='4 巷尾';
  6:	 s:='5 求富路';
  7:	 s:='6 长塘';
  8:	 s:='7 大井头';
  9:	 s:='8 圣堂';
  10:	 s:='9 蔡边';
  11:	 s:='10 水口';
  12:	 s:='11 洋乌';
  13:	 s:='12 洋坑塘';
  14:	 s:='13 松柏朗';
  15:	 s:='14 黄草朗';
  16:	 s:='15 黎贝岭';
  17:	 s:='16 佛子凹';
  18:	 s:='17 佛新';
  19:	 s:='18 松木山';
  20:	 s:='19 犀牛陂';
  21:	 s:='20 水平';
  22:	 s:='21 屏山';
  23:	 s:='22 宝陂';
  24:	 s:='23 石厦';
  25:	 s:='24 杨涌';
  26:	 s:='25 沙步';
  27:	 s:='26 新马莲';
  28:	 s:='27 居民';
  29:	 s:='28 长富公司';
  30:	 s:='29 工业公司';
  31:	 s:='30 物资公司';
  32:	 s:='31 发展公司';
  33:	 s:='32 文化站';
  34:	 s:='33 供销社';
  35:	 s:='34 房地产';
  36:	 s:='35 食品公司';
  37:	 s:='36 福利院';
  38:	 s:='37 大有园';
  end; //END CASE;
  account(s)  ;

  end;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from temp.db');
  Query1.Open;

end;



procedure TForm1.Edit50KeyPress(Sender: TObject; var Key: Char);
begin
if Edit50.readonly=false then
begin
if ((key<#48)or(key>#57))and (key<>#8) and (key<>#13)and (key<>#45)  then
begin
edit50.ReadOnly:=true;
MessageDlg('请输入正确时间，例：2005-01-01 ',mtwarning,[mbok],0)
end
end
else if ((key>#48)and(key<#57)) or (key=#45) OR (key=#8)  then edit50.readonly:=false
end;

procedure TForm1.adddata(var g1,g2:string);
var ye,yz,yx,R1,R2,R3,R4,R5,R7,i:string;
begin
 if radiogroup6.ItemIndex =0 then
 begin
 case combobox1.ItemIndex of
   0: edit4.Text :='';
   1: edit4.Text :='01'+edit4.Text ;
   2: edit4.Text :='02'+edit4.Text ;
   3: edit4.Text :='03'+edit4.Text ;
   4: edit4.Text :='04'+edit4.Text ;
   5: edit4.Text :='05'+edit4.Text ;
   6: edit4.Text :='06'+edit4.Text ;
   7: edit4.Text :='07'+edit4.Text ;
   8: edit4.Text :='08'+edit4.Text ;
   9: edit4.Text :='09'+edit4.Text ;
   10: edit4.Text :='10'+edit4.Text ;
   11: edit4.Text :='11'+edit4.Text ;
   12: edit4.Text :='12'+edit4.Text ;
   13: edit4.Text :='13'+edit4.Text ;
   14: edit4.Text :='14'+edit4.Text ;
   15: edit4.Text :='15'+edit4.Text ;
   16: edit4.Text :='16'+edit4.Text ;
   17: edit4.Text :='17'+edit4.Text ;
   18: edit4.Text :='18'+edit4.Text ;
   19: edit4.Text :='19'+edit4.Text ;
   20: edit4.Text :='20'+edit4.Text ;
   21: edit4.Text :='21'+edit4.Text ;
   22: edit4.Text :='22'+edit4.Text ;
   23: edit4.Text :='23'+edit4.Text ;
   24: edit4.Text :='24'+edit4.Text ;
   25: edit4.Text :='25'+edit4.Text ;
   26: edit4.Text :='26'+edit4.Text ;
   27: edit4.Text :='27'+edit4.Text ;
   28: edit4.Text :='28'+edit4.Text ;
   29: edit4.Text :='29'+edit4.Text ;
   30: edit4.Text :='30'+edit4.Text ;
   31: edit4.Text :='31'+edit4.Text ;
   32: edit4.Text :='32'+edit4.Text ;
   33: edit4.Text :='33'+edit4.Text ;
   34: edit4.Text :='34'+edit4.Text ;
   35: edit4.Text :='35'+edit4.Text ;
   36: edit4.Text :='36'+edit4.Text ;
   37: edit4.Text :='37'+edit4.Text ;

   end;

 end;  {在编号前加单位编号}


if ((radiogroup6.ItemIndex =0)and(edit4.text<>'') and (edit1.text<>'')) or ((radiogroup6.ItemIndex =1)and(edit4.text<>'')) then
begin
query1.close;
query1.sql.clear;
query1.sql.Add('select nu from "data.db" where nu =:v1');
query1.ParamByName('v1').asstring:=edit4.text;
query1.open;
if ((radiogroup6.ItemIndex =0)and (query1.RecordCount=0) )or((radiogroup6.ItemIndex =1)and (query1.RecordCount=1) ) then
 begin
 if MessageDlg('现在是'+g1+'一户一册记录,是否增加？',mtInformation, [mbYes, mbNo],0) =
  mryes then
  begin
  if radiogroup6.ItemIndex =0 then
   begin
   ye:=' insert into "data.db" (Nu,Dwmc,ssdw,tel,cxdz,wzxm,wztel,lbxm,lbtel,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,';
   yz:='A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17,';
   yx:=':s18,:s19,:s20,:s21,:s22,:s23,:s24,:s25,:s26,:s27,:s28,:s29,:s30,:s31,:s32,:s33,:s34,:s35,:s36,:s37,:s38,:s39,:s40,:s41,:s42,:s43,:s44,:s45,:s46,:s47,:s48,:s49,:s50,:s51,:s52,:s53,:s54,:s55,:s56,:s57,:s58)';
   end else begin
     //  updata  "data.db" set A1=:v1,A2=:v2, where nu=:s1

     ye:='update "data.db" set Dwmc=:s2,ssdw=:s3,tel=:s4,cxdz=:s5,wzxm=:s6,wztel=:s7,lbxm=:s8,lbtel=:s9,A1=:s10,A2=:s11,A3=:s12,A4=:s13,A5=:s14,A6=:s15,A7=:s16,A8=:s17,A9=:s18,A10=:s19,A11=:s20,A12=:s21,A13=:s22,A14=:s23,A15=:s24,A16=:s25,A17=:s26,';
     yz:='A18=:s27,A19=:s28,A20=:s29,A21=:s30,A22=:s31,A23=:s32,A24=:s33,A25=:s34,A26=:s35,A27=:s36,A28=:s37,A29=:s38,A30=:s39,A31=:s40,A32=:s41,A33=:s42,A34=:s43,A35=:s44,A36=:s45,A37=:s46,A38=:s47,A39=:s48,A40=:s49,A41=:s50,A42=:s51,A43=:s52,A44=:s53,';
     yx:='A45=:s54,A46=:s55,A47=:s56,A48=:s57,A49=:s58  where Nu=:s1 ';
   end;
   case radiogroup1.ItemIndex of
     0:  R1:='有';
     1:  R1:='无';
    end;
   case radiogroup2.ItemIndex of
     0:  R2:='符合要求';
     1:  R2:='基本符合要求';
     2:  R2:='不符合要求';
     end;
   case radiogroup3.ItemIndex of
     0:  R3:='有';
     1:  R3:='无';
     end;
    case radiogroup4.ItemIndex of
     0:  R4:='是';
     1:  R4:='否';
     end;
   case radiogroup5.ItemIndex of
     0:  R5:='有';
     1:  R5:='无';
    end;
   case radiogroup7.ItemIndex of
     0:  R7:='砖木';
     1:  R7:='混合';
     2:  R7:='钢筋混凝土';
     3:  R7:='钢结';
     5:  R7:='其他';
     end;

   case radiogroup1.ItemIndex of
     0:  R1:='有';
     1:  R1:='无';
     end;


   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add(ye + yz +yx );
   Query1.ParamByName('s1').AsString:=edit4.text;
Query1.ParamByName('s2').AsString:=edit1.text;
Query1.ParamByName('s3').AsString:=combobox1.Text;
Query1.ParamByName('s4').AsString:=edit2.text;
Query1.ParamByName('s5').AsString:=edit3.text;
Query1.ParamByName('s6').AsString:=edit5.text;
Query1.ParamByName('s7').AsString:=edit6.text;
Query1.ParamByName('s8').AsString:=edit7.text;
Query1.ParamByName('s9').AsString:=edit8.text;
Query1.ParamByName('s10').AsString:=edit49.text;
Query1.ParamByName('s11').AsString:=edit50.text;
Query1.ParamByName('s12').AsString:=R3;
Query1.ParamByName('s13').AsString:=edit9.text;
Query1.ParamByName('s14').AsString:=R5;
Query1.ParamByName('s15').AsString:=R4;
Query1.ParamByName('s16').AsString:=R1;
Query1.ParamByName('s17').AsString:=edit10.text;
Query1.ParamByName('s18').AsString:=edit16.text;
Query1.ParamByName('s19').AsString:=R2;
Query1.ParamByName('s20').AsString:=EDIT11.text;
Query1.ParamByName('s21').AsString:=edit12.text;
Query1.ParamByName('s22').AsString:=edit14.text;
Query1.ParamByName('s23').AsString:=edit17.text;
Query1.ParamByName('s24').AsString:=edit18.text;
Query1.ParamByName('s25').AsString:=R7;
Query1.ParamByName('s26').AsString:=edit15.text;
Query1.ParamByName('s27').AsString:=edit19.text;
Query1.ParamByName('s28').AsString:=edit20.text;
Query1.ParamByName('s29').AsString:=edit13.text;
Query1.ParamByName('s30').AsString:=edit51.text;
Query1.ParamByName('s31').AsString:=edit21.text;
Query1.ParamByName('s32').AsString:=edit22.text;
Query1.ParamByName('s33').AsString:=edit23.text;
Query1.ParamByName('s34').AsString:=edit24.text;
Query1.ParamByName('s35').AsString:=edit25.text;
Query1.ParamByName('s36').AsString:=edit26.text;
Query1.ParamByName('s37').AsString:=edit27.text;
Query1.ParamByName('s38').AsString:=edit28.text;
Query1.ParamByName('s39').AsString:=edit29.text;
Query1.ParamByName('s40').AsString:=edit30.text;
Query1.ParamByName('s41').AsString:=edit31.text;
Query1.ParamByName('s42').AsString:=edit32.text;
Query1.ParamByName('s43').AsString:=edit33.text;
Query1.ParamByName('s44').AsString:=edit34.text;
Query1.ParamByName('s45').AsString:=edit35.text;
Query1.ParamByName('s46').AsString:=edit36.text;
Query1.ParamByName('s47').AsString:=edit37.text;
Query1.ParamByName('s48').AsString:=edit38.text;
Query1.ParamByName('s49').AsString:=edit39.text;
Query1.ParamByName('s50').AsString:=edit40.text;
Query1.ParamByName('s51').AsString:=edit41.text;
Query1.ParamByName('s52').AsString:=edit42.text;
Query1.ParamByName('s53').AsString:=edit43.text;
Query1.ParamByName('s54').AsString:=edit44.text;
Query1.ParamByName('s55').AsString:=edit45.text;
Query1.ParamByName('s56').AsString:=edit46.text;
Query1.ParamByName('s57').AsString:=edit47.text;
Query1.ParamByName('s58').AsString:=edit48.text;
Query1.ExecSQL;
 TABLE1.Active :=FALSE;
 TABLE1.Active :=TRUE;
 end;
 end else
  begin
  if radiogroup6.ItemIndex =0 then
  showmessage('该编号已经存在,请输入其他编号')
  else ShowMessage('请输入要'+g1+'的编号');
  end;
  end else ShowMessage('请输入要'+g1+'的编号和单位名称');
end;

procedure TForm1.RadioGroup6Click(Sender: TObject);
begin
case radiogroup6.ItemIndex of
   0:
      begin
       editclear;
       button1.Caption :='添加';
       button2.Caption :='确定添加';
       button2.OnClick :=Button2Click;
       button3.Visible :=false;
       BUTTON5.Visible :=FALSE;

      end;
    1:
      begin
       editclear;
       button1.Caption :='清空';
       button2.Caption :='查找';
       button2.OnClick :=searchbutton;
       button3.Visible :=true;

     end;
   end;

end;

procedure TForm1.searchbutton(Sender: TObject);
var i:integer;
    R:string;
begin
 BUTTON5.Visible :=TRUE;
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * from "data.db" WHERE nu=:V1 ');
 Query1.ParamByName('v1').AsString:=edit4.text;
 Query1.ExecSQL;
 query1.Open;
 if query1.RecordCount=1 then
   begin
     edit1.text:=Query1.FieldValues['Dwmc'];
     combobox1.Text:=Query1.FieldValues['ssdw'];
     edit2.text:=Query1.FieldValues['tel'];
     edit3.text:=Query1.FieldValues['cxdz'];
     edit5.text:=Query1.FieldValues['wzxm'];
     edit6.text:=Query1.FieldValues['wztel'];
     edit7.text:=Query1.FieldValues['lbxm'];
     edit8.text:=Query1.FieldValues['lbtel'];
     edit49.text:=Query1.FieldValues['A1'];
     edit50.text:=Query1.FieldValues['A2'];
     edit9.text:=Query1.FieldValues['A4'];
     i:=0;
       if Query1.FieldValues['A5']='无' then i:=1;
//     R5:=Query1.FieldValues['A5'];
     radiogroup5.ItemIndex:=i;
     i:=0;
       if Query1.FieldValues['A6']='否' then i:=1;
    //  R4:=Query1.FieldValues['A6'];
     radiogroup4.ItemIndex:=i;

      i:=0;
        if Query1.FieldValues['A7']='无' then i:=1;
   //    R1:=Query1.FieldValues['A7'];
     radiogroup4.ItemIndex:=i;

     i:=0;
         if Query1.FieldValues['A3']='无' then i:=1;
   //    R3:=Query1.FieldValues['A3'];
     radiogroup3.ItemIndex:=i;

      i:=0;
      if Query1.FieldValues['a10']='基本符合要求' then i:=1
      else if Query1.FieldValues['a10']='不符合要求' then i:=2;
   //  R2:=Query1.FieldValues['A10'];
       radiogroup2.ItemIndex:=i;

     i:=0;
     if Query1.FieldValues['a16']='混合' then i:=1
     else if Query1.FieldValues['a16']='钢筋混凝土' then i:=2
     else if Query1.FieldValues['a16']='钢结' then i:=3
     else if Query1.FieldValues['a16']='其他' then i:=4;
//     R7:=Query1.FieldValues['A16'];
     radiogroup7.ItemIndex:=i;

     edit10.text:=Query1.FieldValues['A8'];
     edit16.text:=Query1.FieldValues['A9'];
     EDIT11.text:=Query1.FieldValues['A11'];
     edit12.text:=Query1.FieldValues['A12'];
     edit14.text:=Query1.FieldValues['A13'];
     edit17.text:=Query1.FieldValues['A14'];
     edit18.text:=Query1.FieldValues['A15'];
     edit15.text:=Query1.FieldValues['A17'];
     edit19.text:=Query1.FieldValues['A18'];
     edit20.text:=Query1.FieldValues['A19'];
     edit13.text:=Query1.FieldValues['A20'];
     edit51.text:=Query1.FieldValues['A21'];
     edit21.text:=Query1.FieldValues['A22'];
     edit22.text:=Query1.FieldValues['A23'];
     edit23.text:=Query1.FieldValues['A24'];
     edit24.text:=Query1.FieldValues['A25'];
     edit25.text:=Query1.FieldValues['A26'];
     edit26.text:=Query1.FieldValues['A27'];
     edit27.text:=Query1.FieldValues['A28'];
     edit28.text:=Query1.FieldValues['A29'];
     edit29.text:=Query1.FieldValues['A30'];
     edit30.text:=Query1.FieldValues['A31'];
     edit31.text:=Query1.FieldValues['A32'];
     edit32.text:=Query1.FieldValues['A33'];
     edit33.text:=Query1.FieldValues['A34'];
     edit34.text:=Query1.FieldValues['A35'];
     edit35.text:=Query1.FieldValues['A36'];
     edit36.text:=Query1.FieldValues['A37'];
     edit37.text:=Query1.FieldValues['A38'];
     edit38.text:=Query1.FieldValues['A39'];
     edit39.text:=Query1.FieldValues['A40'];
     edit40.text:=Query1.FieldValues['A41'];
     edit41.text:=Query1.FieldValues['A42'];
     edit42.text:=Query1.FieldValues['A43'];
     edit43.text:=Query1.FieldValues['A44'];
     edit44.text:=Query1.FieldValues['A45'];
     edit45.text:=Query1.FieldValues['A46'];
     edit46.text:=Query1.FieldValues['A47'];
     edit47.text:=Query1.FieldValues['A48'];
     edit48.text:=Query1.FieldValues['A49'];

   end
   else  showmessage('该编号存在,请输入其他编号');     ;
end;

procedure TForm1.Button2Click(Sender: TObject);
var f1,f2:string;
begin
f1:='增加';
f2:='insert into ';
adddata(f1,f2);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if MessageDlg('现在是删除编号:'+edit4.Text +'的登记表,是否删除？',mtInformation, [mbYes, mbNo],0) =
  mryes then   begin

 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('delete from data.db WHERE ru=:V1 ');
 Query1.ParamByName('v1').AsString:=edit4.text;
 Query1.ExecSQL;
 TABLE1.Active :=FALSE;
 TABLE1.Active :=TRUE;

 end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
;
end;

procedure TForm1.Button3Click(Sender: TObject);
//UpDateRecord;
var f1,f2:string;
begin
f1:='修改';
f2:='UpDateRecord';
adddata(f1,f2);


end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
;
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
datasource2.DataSet :=query3;
if combobox3.ItemIndex=0 then
begin
 datasource2.DataSet :=table1;

end else searchall;
end;

procedure Tform1.searchall;
begin
 Query3.Close;
 Query3.SQL.Clear;
 Query3.SQL.Add('select * from "data.db" WHERE ssdw=:V1');
 Query3.ParamByName('v1').AsString:=combobox3.Text ;
 Query3.ExecSQL;
 query3.Open;
end;

end.
12

⌨️ 快捷键说明

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