unit4.pas

数据库人寿保险通用系统 本系统主要负责保险资料的管理

procedure Tf_customer.SpeedButton3Click(Sender: TObject);
begin
  Button1.Enabled:=True;
  Button2.Enabled:=True;
  Edit1.Text:=mydm.custsrc.DataSet.Fields[0].AsString;
  PUnum:='';
  PUnum:=Trim(Edit1.Text);
  if Application.MessageBox('是否删除?','提示',mb_yesno)=6 then//6为yes7为no
  begin
    try
      If mydm.custsrc.DataSet.IsEmpty<>true then
      begin
        Mydm.custsrc.DataSet.Delete;
      end;
      Mydm.guo.Edit;
      Mydm.guosrc.DataSet.FieldByName('saveguo').AsString:='0';
      MYdm.guo.Post;
      with Mydm.insquery do //删除客户对应的被保险人记录
      begin
        Close;
        with SQL do
        begin
          Clear;
          Add('select*from insurant');
          Add('where inst_id=:p');
        end;
        Parameters[0].Value:=punum;
        Prepared;
        Open;
        if Mydm.inssrc.DataSet.IsEmpty<>true then
          Mydm.inssrc.DataSet.Delete;
      end;
      with Mydm.beneQuery do//删除客户对应的受益人记录
      begin
        Close;
        with SQL do
        begin
          Clear;
          Add('select*from beneficiary');
          Add('where bene_id=:p');
        end;
        Parameters[0].Value:=punum;
        Prepared;
        Open;
        If Mydm.benesrc.DataSet.IsEmpty<>true then
          Delete;
      end;
      with Mydm.billQuery do //删除客户对应的缴费单记录
      begin
        Close;
        with SQL do
        begin
          Clear;
          Add('select*from bill');
          Add('where bill_id=:p');
        end;
        Parameters[0].Value:=punum;
        Prepared;
        Open;
        If mydm.Billsrc.DataSet.IsEmpty<>true then
          Delete;
      end;
      with mydm.policyquery do  //删除客户的保单信息记录
      begin
        Close;
        with SQL do
        begin
          Clear;
          Add('select * from policy');
          Add('where policy_id=:p' );
          Prepared;
        end;
        Parameters[0].Value:=punum;
        Open;
        If mydm.policysrc.DataSet.IsEmpty<>true then
          mydm.policysrc.DataSet.Delete;
      end ;
      PUnum:='';
    except
      Application.MessageBox('无记录。','提示',mb_ok);
    end;
  end;
  Button4.Click;
end;


procedure Tf_customer.Edit8Change(Sender: TObject);
begin
  button2.Enabled:=true;
end;

procedure Tf_customer.Edit9Change(Sender: TObject);
begin
  button3.Enabled:=true;
end;

procedure Tf_customer.Button4Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.clear;
  edit3.clear;
  edit4.Clear;
  edit5.clear;
  datetimepicker1.Date;
  edit6.Clear;
  edit7.clear;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  edit5.Enabled:=false;
  datetimepicker1.Enabled:=false;
  edit6.Enabled:=false;
  edit7.Enabled:=false;
  combobox1.Enabled:=false;
  combobox2.Enabled:=false;
  button1.Enabled:=false;
  button4.Enabled:=false;
  speedbutton1.Enabled:=true;
  speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  speedbutton5.Enabled:=true;
  punum:='0';
  change:=False;
end;

procedure Tf_customer.SpeedButton5Click(Sender: TObject);
begin
  button4.Click;
  close;
end;

procedure Tf_customer.SpeedButton6Click(Sender: TObject);
begin
  if (button1.Enabled=true)  then
    application.MessageBox('请提交或取消！','提示',mb_ok)
  else
  begin
    if F_customer.punum<>'0' then
      F_insurant.Edit1.Text:=trim(punum);
    if F_insurant.Edit1.Text<>'' then
      f_insurant.SpeedButton1.Click;
    close;
    hide;
    f_insurant.Show;
  end;
end;

procedure Tf_customer.FormShow(Sender: TObject);
begin
  speedbutton4.Enabled:=False;
  speedbutton6.Enabled:=False;
  If  (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)='0') or (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)='5') then
  begin
    speedbutton1.Enabled:=true;
    speedbutton2.Enabled:=true;
  end;
  if edit2.Enabled=true then
    edit2.SetFocus;
  with mydm.custquery do
  begin
    close;
    with sql do
    begin
      clear;
      add('select*from customer');
    end;
    open;
  end;
end;

procedure Tf_customer.Edit2Exit(Sender: TObject);
begin
  F_select.listbox1.items.add(edit2.text);
end;

procedure Tf_customer.Edit3Exit(Sender: TObject);
begin
  F_select.listbox1.items.add(edit3.text);
end;

procedure Tf_customer.Edit4Exit(Sender: TObject);
begin
  F_select.listbox1.items.add(edit4.text);
end;

procedure Tf_customer.Edit5Exit(Sender: TObject);
begin
  F_select.listbox1.items.add(edit5.text);
end;

procedure Tf_customer.Edit6Exit(Sender: TObject);
begin
  F_select.listbox1.items.add(edit6.text);
end;

procedure Tf_customer.Edit7Exit(Sender: TObject);
begin
  F_select.listbox1.items.add(edit7.text);
  F_select.show;
end;

procedure Tf_customer.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);

end;

procedure Tf_customer.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);

end;

procedure Tf_customer.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.DateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tf_customer.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  //if not (key in['0'..'9',#8]) then key:=#0;
end;

procedure Tf_customer.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9','-',#8]) then
    key:=#0;
end;

procedure Tf_customer.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9','-',#8]) then
    key:=#0;
end;

end.