unit25.pas

人寿保险的管理信息系统

unit Unit25;

interface

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

type
  TF_compres = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Splitter1: TSplitter;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    DateTimePicker2: TDateTimePicker;
    Button3: TButton;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker1Click(Sender: TObject);
    procedure DateTimePicker2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_compres: TF_compres;

implementation
  uses unit11;
{$R *.dfm}



procedure TF_compres.Button1Click(Sender: TObject);
begin
  with mydm.compquery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select*from compensation where comp_id=:p0');
    end;
    Parameters[0].Value:=Trim(Edit1.Text);//Trim()为去空格函数
    Prepared;
    Open;

  end;
  edit1.Clear;
end;

procedure TF_compres.Button2Click(Sender: TObject);
begin
  with mydm.compquery do
  begin
    Close;
      with SQL do
      begin
        Clear;
        Add('select*from compensation');
        Add('where policy_id=:p');
      end;
    Parameters[0].Value:=trim(edit2.Text);
    Prepared;
    Open;

  end;
  Edit2.clear;
end;

procedure TF_compres.FormShow(Sender: TObject);
begin
     button1.Enabled := false;
     button2.Enabled := false;
     button3.Enabled := false;
     edit1.Clear;
     edit2.Clear;
  with mydm.compquery do
   begin
     Close;
     with SQL do
     begin
       Clear;
       Add('select*from compensation');
     end;
      Open;
    end;  
end;

procedure TF_compres.Button3Click(Sender: TObject);

begin

    with  mydm.compQuery do
     begin
      close;
      sql.clear;
      sql.Add('select * from compensation where comp_date>=:p1 and comp_date<=:p2');
      Parameters.ParamByName('p1').Value:=datetostr(datetimepicker1.Date);
      Parameters.ParamByName('p2').Value:=datetostr(datetimepicker2.Date);
      {sql.Add('select * from compensation');
      sql.Add('where comp_date between:p1and:p2 ');
      Parameters[0].Value:=datetimepicker1.date;
      Parameters[1].Value:=datetimepicker2.date;}
      prepared;
      Open;
    end;

end;

procedure TF_compres.Edit1Change(Sender: TObject);
begin
     button1.Enabled:=true;
end;

procedure TF_compres.Edit2Change(Sender: TObject);
begin
   button2.Enabled:=true;
end;

procedure TF_compres.DateTimePicker1Change(Sender: TObject);
begin
     button3.Enabled:=true;
end;

procedure TF_compres.DateTimePicker1Click(Sender: TObject);
begin
     button3.Enabled:=true;
end;

procedure TF_compres.DateTimePicker2Click(Sender: TObject);
begin
      button3.Enabled:=true;
end;

procedure TF_compres.SpeedButton1Click(Sender: TObject);
begin
 if Application.MessageBox('是否删除？','提示',mb_yesno)=6 then
  begin
    try
      mydm.compsrc.DataSet.Delete;
    except//如果删除不成功将弹出以下对会框
      Application.MessageBox('删除不成功!','提示',mb_ok);
    end;
  end;
end;

procedure TF_compres.SpeedButton2Click(Sender: TObject);
begin
     close;
end;

procedure TF_compres.DateTimePicker2Change(Sender: TObject);
begin
      button3.Enabled:=true;
end;

end.