unit1.pas

本人编写的一户一册登记表,由于水平有限,只有基本的文本记录功能,还有一个自动统计,但打印还没有完盖

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    RadioGroup1: TRadioGroup;
    Label27: TLabel;
    Label28: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label41: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label51: TLabel;
    Label49: TLabel;
    RadioGroup6: TRadioGroup;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit36: TEdit;
    Edit35: TEdit;
    Edit34: TEdit;
    Edit33: TEdit;
    Edit37: TEdit;
    Edit38: TEdit;
    Edit39: TEdit;
    Edit40: TEdit;
    Edit44: TEdit;
    Edit43: TEdit;
    Edit42: TEdit;
    Edit41: TEdit;
    Edit45: TEdit;
    Edit46: TEdit;
    Edit47: TEdit;
    Edit48: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Panel3: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label9: TLabel;
    Label8: TLabel;
    Panel2: TPanel;
    Panel7: TPanel;
    Label93: TLabel;
    Label94: TLabel;
    Edit8: TEdit;
    Edit7: TEdit;
    Panel9: TPanel;
    Label10: TLabel;
    Label18: TLabel;
    Panel1: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DBGrid2: TDBGrid;
    Label20: TLabel;
    Panel6: TPanel;
    Label21: TLabel;
    ComboBox2: TComboBox;
    Button4: TButton;
    Bevel3: TBevel;
    Label22: TLabel;
    Edit50: TEdit;
    RadioGroup2: TRadioGroup;
    Label12: TLabel;
    RadioGroup4: TRadioGroup;
    Label15: TLabel;
    Label13: TLabel;
    Label26: TLabel;
    Label17: TLabel;
    Label29: TLabel;
    Edit14: TEdit;
    Label14: TLabel;
    Edit10: TEdit;
    Edit16: TEdit;
    Edit20: TEdit;
    RadioGroup5: TRadioGroup;
    Edit9: TEdit;
    Label42: TLabel;
    Label45: TLabel;
    Label43: TLabel;
    Edit15: TEdit;
    RadioGroup7: TRadioGroup;
    Label95: TLabel;
    Label44: TLabel;
    Label30: TLabel;
    Label33: TLabel;
    Bevel5: TBevel;
    Button5: TButton;
    Bevel1: TBevel;
    Button2: TButton;
    Button1: TButton;
    Bevel4: TBevel;
    Button3: TButton;
    Bevel2: TBevel;
    Edit19: TEdit;
    Edit18: TEdit;
    Edit17: TEdit;
    Edit51: TEdit;
    Label11: TLabel;
    RadioGroup3: TRadioGroup;
    Edit49: TEdit;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel8: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Query2: TQuery;
    ComboBox3: TComboBox;
    Query3: TQuery;
    RadioGroup8: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure Button4Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit49KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure Edit16KeyPress(Sender: TObject; var Key: Char);
    procedure Edit17KeyPress(Sender: TObject; var Key: Char);
    procedure Edit18KeyPress(Sender: TObject; var Key: Char);
    procedure Edit19KeyPress(Sender: TObject; var Key: Char);
    procedure Edit20KeyPress(Sender: TObject; var Key: Char);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure Edit22KeyPress(Sender: TObject; var Key: Char);
    procedure Edit23KeyPress(Sender: TObject; var Key: Char);
    procedure Edit26KeyPress(Sender: TObject; var Key: Char);
    procedure Edit27KeyPress(Sender: TObject; var Key: Char);
    procedure Edit30KeyPress(Sender: TObject; var Key: Char);
    procedure Edit31KeyPress(Sender: TObject; var Key: Char);
    procedure Edit34KeyPress(Sender: TObject; var Key: Char);
    procedure Edit35KeyPress(Sender: TObject; var Key: Char);
    procedure Edit38KeyPress(Sender: TObject; var Key: Char);
    procedure Edit39KeyPress(Sender: TObject; var Key: Char);
    procedure Edit42KeyPress(Sender: TObject; var Key: Char);
    procedure Edit43KeyPress(Sender: TObject; var Key: Char);
    procedure Edit46KeyPress(Sender: TObject; var Key: Char);
    procedure Edit47KeyPress(Sender: TObject; var Key: Char);
    procedure Edit50KeyPress(Sender: TObject; var Key: Char);
    procedure RadioGroup6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);

  private
    { Private declarations }
    function GetExePath:String;
    procedure searchbutton(Sender: TObject);
    procedure editclear;
    procedure keypress(var s:Char;var v:Tedit);
    procedure adddata(var g1,g2:string);
    procedure account(var s:string);
    procedure searchall;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  te:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
editclear;
end;


procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin

keypress( key, edit4);

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit2);
end;

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit6);
end;



procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit8);
end;



procedure TForm1.Edit49KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit49);
end;

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit10);
end;



procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit11);
end;


procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit12);
end;



procedure TForm1.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit14);
end;

procedure TForm1.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit15);
end;

procedure TForm1.Edit16KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit16);
end;



procedure TForm1.Edit17KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit17);
end;


procedure TForm1.Edit18KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit18);
end;

procedure TForm1.Edit19KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit19);
end;

procedure TForm1.Edit20KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit20);
end;

procedure TForm1.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit13);
end;

procedure TForm1.Edit22KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit22);
end;

procedure TForm1.Edit23KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit23);
end;

procedure TForm1.Edit26KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit26);
end;

procedure TForm1.Edit27KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit27);
end;

procedure TForm1.Edit30KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit30);
end;

procedure TForm1.Edit31KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit31);
end;

procedure TForm1.Edit34KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit34);
end;

procedure TForm1.Edit35KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit35);

end;

procedure TForm1.Edit38KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit38);
end;

procedure TForm1.Edit39KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit39);
end;

procedure TForm1.Edit42KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit42);
end;

procedure TForm1.Edit43KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit43);
end;

procedure TForm1.Edit46KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit46);
end;

procedure TForm1.Edit47KeyPress(Sender: TObject; var Key: Char);
begin
keypress( key, edit47);
end;



function TForm1.GetExePath:String;
begin
  Result:=ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\' then
    Result:=Result+'\';
end;

procedure TForm1.keypress(var s:Char;var v:Tedit);
begin
if v.readonly=false then
begin
if ((s<#48)or(s>#57))and (s<>#8) and (s<>#13) then
begin
v.ReadOnly:=true;
MessageDlg('请输入正确的数字',mtwarning,[mbok],0)
end
end
else if ((s>#48)and(s<#57)) OR (S=#8) or (s=#13) then v.readonly:=false
end;

procedure TForm1.editclear;
begin
edit1.text:='	';
edit2.text:='	';
edit4.Text:='001';
edit3.text:='	';
edit5.text:='	';
edit6.text:='	';
edit7.text:='	';
edit8.text:='	';
edit9.text:='	';
edit10.text:='	';
edit11.text:='	';
edit12.text:='	';
edit13.text:='	';
edit14.text:='	';
edit15.text:='	';
edit16.text:='	';
edit17.text:='	';
edit18.text:='	';
edit19.text:='	';
edit20.text:='	';
edit21.text:='	';
edit22.text:='	';
edit23.text:='	';
edit24.text:='	';
edit25.text:='	';
edit26.text:='	';
edit27.text:='	';
edit28.text:='	';
edit29.text:='	';
edit30.text:='	';
edit31.text:='	';
edit32.text:='	';
edit33.text:='	';
edit34.text:='	';
edit35.text:='	';
edit36.text:='	';
edit37.text:='	';
edit38.text:='	';
edit39.text:='	';
edit40.text:='	';
edit41.text:='	';
edit42.text:='	';
edit43.text:='	';
edit44.text:='	';
edit45.text:='	';
edit46.text:='	';
edit47.text:='	';
edit48.text:='	';
edit49.text:='	';
edit50.text:='2005-01-01';
edit51.text:='	';

RadioGroup1.ItemIndex :=0;
RadioGroup2.ItemIndex :=0;
RadioGroup3.ItemIndex :=0;
RadioGroup4.ItemIndex :=0;
RadioGroup5.ItemIndex :=0;
RadioGroup7.ItemIndex :=2;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.tableName:=GetExePath+'data.db';
table1.Active :=true;
query1.DatabaseName:=GetExePath;
query2.DatabaseName:=GetExePath;
query3.DatabaseName:=GetExePath;
editclear;
end;

procedure TForm1.account(var s:string);
//统计函数;
var i,I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11,I12,I13,I14:integer;
begin
i2:=0;
i3:=0;
i4:=0;
i5:=0;
i6:=0;
i7:=0;
i8:=0;
i9:=0;
i10:=0;
i11:=0;
i12:=0;
i13:=0;
i14:=0;
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('select * from "data.db" WHERE ssdw=:V1 ');
    Query2.ParamByName('v1').AsString:=s;
    Query2.Open;