unit1.~pas

改源码是集合了查询

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids, ADODB,
  ComCtrls, ToolWin, ImgList;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DataSource1: TDataSource;
    Label5: TLabel;
    Label7: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery2: TADOQuery;
    Label6: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Edit8: TEdit;
    BitBtn3: TBitBtn;
    Combobox1: TComboBox;
    BitBtn4: TBitBtn;
    procedure air();
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Sname : string;
implementation

{$R *.dfm}

procedure TForm1.air;
begin
    edit1.Text := '';
    edit2.Text := '';
    edit3.Text := '';
    edit4.Text := '';
    edit5.Text := '';
    edit6.Text := '';
    edit7.Text := '';

end;

procedure TForm1.FormShow(Sender: TObject);
begin
 DateTimePicker1.Date := now();
  with ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('select * from criminal');
    open;
  end;
  if ADOQuery1.RecordCount>0 then
  begin
    edit1.Text := ADOQuery1.fieldbyname('服刑编号').AsString;
    edit2.Text := ADOQuery1.fieldbyname('姓名').AsString;
    edit3.Text := ADOQuery1.fieldbyname('性别').AsString;
    edit4.Text := ADOQuery1.fieldbyname('所犯罪行').AsString;
    edit5.Text := ADOQuery1.fieldbyname('刑期').AsString;
    edit6.Text := ADOQuery1.fieldbyname('籍贯').AsString;
    edit7.Text := ADOQuery1.fieldbyname('身份证号码').AsString;
    DateTimePicker1.Date := ADOQuery1.fieldbyname('入狱时间').AsDateTime;

  end
  else
  begin
    air();
  end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
var
  na,worder : string;
begin
  na := Trim(Edit8.Text);
  worder := Trim(combobox1.Text);
  if worder = '' then
  begin
      showmessage('查询字段不能为空');
  end
  else if na = '' then
    begin
    showmessage('查询条件不能为空');
    edit8.SetFocus;
    end
    else
    begin
      with ADOQuery1 do
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from criminal where '+worder+'='+''''+trim(na)+'''');
        open;
      end;
      if ADOQuery1.RecordCount>0 then
        showmessage('查询成功')
      else
        showmessage('查询失败');
    end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with ADOQuery2 do
  begin
    close;
    SQL.Clear;
    SQL.Add('Update criminal set 服刑编号='''+trim(edit1.Text)+''',姓名='''+trim(edit2.Text)+''',性别='''+trim(edit3.Text)+''',所犯罪行='''+trim(edit4.Text)+''',刑期='''+trim(edit5.Text)+''',籍贯='''+trim(edit6.Text)+''',身份证号码='''+trim(edit7.Text)+''',入狱时间='''+datetostr(DateTimePicker1.Date)+''' where 服刑编号='''+trim(Sname)+'''');
    ADOQuery2.ExecSQL;
  end;
  FormShow(Sender);
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := ADOQuery1.fieldbyname('服刑编号').AsString;
  edit2.Text := ADOQuery1.fieldbyname('姓名').AsString;
  edit3.Text := ADOQuery1.fieldbyname('性别').AsString;
  edit4.Text := ADOQuery1.fieldbyname('所犯罪行').AsString;
  edit5.Text := ADOQuery1.fieldbyname('刑期').AsString;
  edit6.Text := ADOQuery1.fieldbyname('籍贯').AsString;
  edit6.Text := ADOQuery1.fieldbyname('身份证号码').AsString;
  DateTimePicker1.Date := ADOQuery1.fieldbyname('入狱时间').AsDateTime;

  Sname := edit1.Text;
end;


procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form1.ADOQuery1.close;
     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('Insert into criminal( 服刑编号,姓名,性别,所犯罪行,刑期,籍贯,身份证号码,入狱时间)');
     Form1.ADOQuery1.SQL.Add('Values(:A,:B,:C,:D,:E,:F,:G,:H)');
     Form1.ADOQuery1.Parameters.ParamByName('A').Value:=Edit1.Text;
     Form1.ADOQuery1.Parameters.ParamByName('B').Value:=Edit2.Text;
     Form1.ADOQuery1.Parameters.ParamByName('C').Value:=Edit3.Text;
     Form1.ADOQuery1.Parameters.ParamByName('D').Value:=Edit4.Text;
     Form1.ADOQuery1.Parameters.ParamByName('E').Value:=Edit5.Text;
     Form1.ADOQuery1.Parameters.ParamByName('F').Value:=Edit6.Text;
     Form1.ADOQuery1.Parameters.ParamByName('G').Value:=Edit7.Text;
     Form1.ADOQuery1.Parameters.ParamByName('H').Value:=DateTimePicker1.date;
     Form1.ADOQuery1.ExecSQL;
     //Form1.ADOTable1.Close;
    // Form1.ADOTable1.Open;
end;

end.