unit6.pas

人寿保险的管理信息系统

unit Unit6;

interface

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

type
  TF_beneficiary = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    Button2: TButton;
    Panel6: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label7: TLabel;
    ComboBox1: TComboBox;
    Label8: TLabel;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    Label9: TLabel;
    Edit4: TEdit;
    Label10: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Edit7: TEdit;
    Label12: TLabel;
    Edit8: TEdit;
    Button3: TButton;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    Splitter2: TSplitter;
    Panel3: TPanel;
    Label13: TLabel;
    Edit9: TEdit;
    Button4: TButton;
    Label14: TLabel;
    Edit10: TEdit;
    Button5: TButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    punum:string;
 
  end;

var
  F_beneficiary: TF_beneficiary;
  change:boolean;

implementation
   uses unit11, Unit8, Unit4, Unit5,  Unit7, Unit28;
{$R *.dfm}

procedure TF_beneficiary.SpeedButton1Click(Sender: TObject);
var
  datefen:string;
begin
  edit4.Text:='100%';
  Datetimepicker1.Enabled:=true;
  Edit2.Enabled:=true;
  Edit3.Enabled:=true;
  Edit4.Enabled:=true;
  Edit5.Enabled:=true;
  Edit6.Enabled:=true;
  Edit7.Enabled:=true;
  edit8.Enabled:=true;
  memo1.Enabled:=true;
  Combobox1.Enabled:=true;
  Combobox2.Enabled:=true;
  Speedbutton1.Enabled:=false;
  Speedbutton2.Enabled:=false;
  speedbutton3.Enabled:=false;
  button2.Enabled:=true;
  button1.Enabled:=true;
  Edit2.Clear;
  Edit3.Clear;
  //Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  edit8.Clear;

  Datetimepicker1.Date;
  Datefen:='';
  Punum:='';
  datefen:=Formatdatetime('yyyymmdd',now());//格式化的年月日
  mydm.benesrc.DataSet.Last;
  if Trim(mydm.benesrc.DataSet.Fields[0].AsString)<>'' then
    Punum:=inttostr(strtoint(copy(Trim(mydm.benesrc.DataSet.Fields[0].AsString),9,2))+1);//Punum定义的字符串型全局变量
  if (1<=length(punum)) and (length(punum)<2) then
    punum:='0'+punum;
  if length(punum)<1 then
    punum:='01';
  if length(punum)=3 then
    punum:='01';
  Edit1.Text:=datefen+punum;
  edit1.Enabled:=false;
  edit2.SetFocus;

end;

procedure TF_beneficiary.Button1Click(Sender: TObject);
begin
  if ((Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'')
     and(edit5.Text<>'')and (edit6.text<>'')and (edit7.text<>'')) then
  begin
    if change=true then
      if (length(edit3.Text)>22) or (length(edit3.Text)<12) then
         begin
         Application.MessageBox('请输入有效的身份证号','提示',64);
         exit;
         edit3.Clear;
         edit3.SetFocus;
         end
      else
    begin

      Mydm.benesrc.DataSet.Delete;
    end;
    with Mydm.beneQuery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('insert into beneficiary values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10)');
      end;
      Parameters[0].Value:=Trim(edit1.Text);
      Parameters[1].Value:=Trim(edit2.Text);
      Parameters[2].Value:=Trim(combobox1.Text);
      Parameters[3].value:=datetimepicker1.Date;
      Parameters[4].Value:=Trim(edit3.Text);
      Parameters[5].Value:=Trim(edit5.Text);
      Parameters[6].Value:=Trim(combobox2.Text);
      Parameters[7].Value:=Trim(edit4.text);
      Parameters[8].Value:=Trim(edit6.Text);
      Parameters[9].Value:=Trim(edit7.text);
      Parameters[10].Value:=Trim(memo1.Text);
      Execsql;
    end;
    with Mydm.beneQuery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('select*from beneficiary');
      end;
      Open;
    end;

    if change<>true then
    change:=false;
    Button2.Click;
    speedbutton7.Enabled:=True;
  end
  else
  begin
    Application.MessageBox('输入必要信息。','提示',64);
    exit;
  end;
  Speedbutton1.Enabled:=true;
  Speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  Button1.Enabled:=false;
  button2.Enabled:=false;
end;

procedure TF_beneficiary.SpeedButton4Click(Sender: TObject);
begin
  Button2.Click;
  Close;
end;

procedure TF_beneficiary.SpeedButton2Click(Sender: TObject);
begin
  if mydm.beneQuery.RecordCount=0 then
    Exit;

  Edit2.Enabled:=true;
  Edit3.Enabled:=true;
  Edit4.Enabled:=true;
  edit5.Enabled:=true;
  edit6.Enabled:=true;
  edit7.Enabled:=true;
  edit8.Enabled:=true;
  combobox1.Enabled:=true;
  combobox2.Enabled:=true;
  Datetimepicker1.Enabled:=true;
  Memo1.Enabled:=true;
  Change:=true;
  Speedbutton1.Enabled:=false;
  Speedbutton2.Enabled:=false;
  speedbutton3.Enabled:=false;
  Button1.Enabled:=true;
  Button2.Enabled:=true;


  Edit1.Text:=mydm.benesrc.DataSet.Fields[0].asstring;
  Edit2.Text:=mydm.benesrc.DataSet.Fields[1].AsString;
  combobox1.Text:=mydm.benesrc.DataSet.Fields[2].AsString;
  datetimepicker1.Date:=mydm.benesrc.DataSet.Fields[3].AsDateTime;
  edit3.Text:=mydm.benesrc.DataSet.Fields[4].AsString;
  edit5.Text:=mydm.benesrc.DataSet.Fields[5].AsString;
  combobox2.Text:=mydm.benesrc.DataSet.Fields[6].AsString;
  edit4.Text:=mydm.benesrc.DataSet.Fields[7].AsString;
  edit6.Text:=mydm.benesrc.DataSet.Fields[8].AsString;
  edit7.Text:=mydm.benesrc.DataSet.Fields[9].AsString;
  memo1.Text:=mydm.benesrc.DataSet.Fields[10].AsString;
end;

procedure TF_beneficiary.Button2Click(Sender: TObject);
begin
  Speedbutton1.Enabled:=true;
  Speedbutton2.Enabled:=true;
  speedbutton3.Enabled:=true;
  edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  edit5.Clear;
  edit6.Clear;
  edit7.Clear;
  edit8.Clear;
  Datetimepicker1.Date;
  Memo1.Clear;
  combobox2.Clear;
  Edit1.Enabled:=false;
  Edit2.Enabled:=false;
  Edit3.Enabled:=false;
  Edit4.Enabled:=false;
  edit5.Enabled:=false;
  edit6.Enabled:=false;
  edit7.Enabled:=false;
  Datetimepicker1.Enabled:=false;
  Memo1.Enabled:=false;
  button1.Enabled:=false;
  button2.Enabled:=false;
  change:=False;
end;



procedure TF_beneficiary.SpeedButton7Click(Sender: TObject);
begin
  if (button1.Enabled=true)  then
    application.MessageBox('请提交或取消！','提示',mb_ok)
  else

    hide;
    f_policy.Show;

end;

procedure TF_beneficiary.SpeedButton6Click(Sender: TObject);
begin
  Hide;
  F_insurant.Show;
end;



procedure TF_beneficiary.Edit9Change(Sender: TObject);
begin
  button4.Enabled:=true;
end;

procedure TF_beneficiary.FormShow(Sender: TObject);
var
  i:integer;
begin
  speedbutton1.Enabled:=true;
  speedbutton6.Enabled:=true;
  speedbutton7.Enabled:=False;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button4.Enabled:=false;
  button5.Enabled:=false;
  with mydm.beneQuery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select*from beneficiary');
    end;
    Open;
  end;
     if combobox2.Enabled=true then
    combobox2.SetFocus;
   Combobox2.ItemIndex:=-1;
   Combobox2.clear;
    for i:=0 to mydm.resrc.DataSet.RecordCount-1 do
   begin
      Combobox2.Items.Add(mydm.reQuery.Fields[1].asstring);
      mydm.resrc.DataSet.Next;
    end;
   mydm.resrc.DataSet.First;

 edit1.Enabled:=false;
 edit2.Enabled:=false;
 edit3.Enabled:=false;
 edit4.Enabled:=false;
 edit5.Enabled:=false;
 edit6.Enabled:=false;
 edit7.Enabled:=false;
 edit8.Enabled:=false;
end;



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

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

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

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

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

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

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

procedure TF_beneficiary.Button4Click(Sender: TObject);
begin
       with Mydm.beneQuery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select*from beneficiary');
      Add('where bene_id=:p');
    end;
    Parameters[0].Value:=trim(edit9.Text);
    Prepared;
    Open;
  edit9.Clear;
  button4.Enabled:=false;
  end;
end;

procedure TF_beneficiary.Button5Click(Sender: TObject);
begin
  with mydm.benequery do
  begin
    Close;
      with SQL do
      begin
        Clear;
        Add('select*from beneficiary');
        Add('where bene_name=:p');
      end;
    Parameters[0].Value:=trim(edit10.Text);
    Prepared;
    Open;
    end;
    edit10.Clear;
    button5.enabled:=false;
end;

procedure TF_beneficiary.Edit10Change(Sender: TObject);
begin
   button5.Enabled:=true;
end;

procedure TF_beneficiary.Button3Click(Sender: TObject);
begin

     F_cust.show;
end;



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

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

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

end.