unit7.pas

人寿保险的管理信息系统

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, ComCtrls, DBCtrls, Buttons,
  RpCon, RpConDS, RpDefine, RpRave;

type
  TF_policy = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button4: TButton;
    Button8: TButton;
    Panel6: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    Splitter2: TSplitter;
    Panel3: TPanel;
    Label10: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label11: TLabel;
    ComboBox3: TComboBox;
    Label12: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label13: TLabel;
    ComboBox4: TComboBox;
    Label14: TLabel;
    ComboBox5: TComboBox;
    Label15: TLabel;
    ComboBox6: TComboBox;
    Label9: TLabel;
    Edit6: TEdit;
    Label16: TLabel;
    Button1: TButton;
    Edit7: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    SpeedButton6: TSpeedButton;
    procedure Button4Click(Sender: TObject);
    procedure Speedbutton5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(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 SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    punum:string;
  end;

var
  F_policy: TF_policy;
  change:boolean;

implementation
  uses unit11,Unit4, Unit8,  unit17,unit18,unit6,
  Unit5,unit28,unit31,unit32;
{$R *.dfm}


procedure TF_policy.Button4Click(Sender: TObject);
begin

  if ((Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'')and(edit5.Text<>'')) then
  begin
    if change=true then
    begin

      mydm.policysrc.DataSet.Delete;
    end;
    with Mydm.policyquery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('insert into policy values(:p0,:p1,:p2,:p3,:p4,:p5,:p6:,:p7,:p8,:p9,:p10,:p11,:p12,:p13) ');
      end;
      Parameters[0].Value:=edit1.Text;
      Parameters[1].Value:=edit2.Text;
      Parameters[2].Value:=edit3.Text;
      Parameters[3].value:=edit4.Text;
      Parameters[4].Value:=combobox1.Text;
      Parameters[5].Value:=combobox2.Text;
      parameters[6].Value:=edit5.Text;
      Parameters[7].Value:=datetimepicker2.Date;
      Parameters[8].Value:=combobox3.Text;
      Parameters[9].Value:=datetimepicker1.Date;
      Parameters[10].Value:=datetimepicker3.Date;
      Parameters[11].Value:=combobox4.Text;
      Parameters[12].Value:=combobox5.Text;
      Parameters[13].Value:=combobox6.Text;
      Execsql;
    end;
   //刷新表
    with Mydm.policyquery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('select*from policy');
      end;
      Open;
    end;

    if change<>true then

    change:=false;
    button8.Click;
  end
  else
  begin
    Application.MessageBox('输入必要信息。','提示',64);
    exit;
  end;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
  speedbutton6.Enabled:=true;
  Button4.Enabled:=False;
  button8.Enabled:=False;
  speedbutton2.Enabled:=True;
end;

procedure TF_policy.SpeedButton5Click(Sender: TObject);
begin

  Button8.Click;
  Close;
end;

procedure TF_policy.Button7Click(Sender: TObject);
var
  i:integer;
begin
  Combobox1.clear;
  for i:=0 to mydm.classrc.DataSet.RecordCount-1 do
  begin
    Combobox1.Items.Add(mydm.clasQuery.Fields[0].asstring);
    Mydm.classrc.DataSet.Next;
  end;
  Mydm.classrc.DataSet.First;
end;



procedure TF_policy.Button8Click(Sender: TObject);
begin
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
  speedbutton6.Enabled:=true;
  button4.Enabled:=false;
  button8.Enabled:=false;
  edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Combobox1.ItemIndex:=-1;
  combobox2.ItemIndex:=-1;
  combobox3.ItemIndex:=-1;
  combobox4.ItemIndex:=-1;
  combobox6.ItemIndex:=-1;
  Edit1.Enabled:=false;
  Edit2.Enabled:=false;
  Edit3.Enabled:=false;
  Edit4.Enabled:=false;
  Edit5.Enabled:=false;
  Combobox1.Enabled:=false;
  Combobox2.Enabled:=false;
  Datetimepicker1.Enabled:=false;
  change:=False;
end;

procedure TF_policy.SpeedButton2Click(Sender: TObject);
begin
  if (button4.Enabled=true) then
    application.MessageBox('请提交或取消！','提示',mb_ok)
  else
  begin
    Hide;
    F_customer.show;                                
  end;
end;

procedure TF_policy.SpeedButton1Click(Sender: TObject);
begin
  Hide;
  F_beneficiary.show;
end;


procedure TF_policy.Edit7Change(Sender: TObject);
begin
  button2.Enabled:=true;
end;

procedure TF_policy.FormShow(Sender: TObject);
var
  i:integer;
begin
  speedbutton1.Enabled:=true;
  speedbutton2.Enabled:=False;
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
  speedbutton5.Enabled:=true;
  button1.Enabled:=false;
  button2.Enabled:=false;
  button4.Enabled:=false;
  button8.Enabled:=false;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  edit5.Enabled:=false;
  with mydm.policyquery do
   begin
     Close;
     with SQL do
     begin
       Clear;
       Add('select*from policy');
     end;
      Open;
   end;
   if combobox1.Enabled=true then
    combobox1.SetFocus;
   Combobox1.ItemIndex:=-1;
  Combobox2.ItemIndex:=-1;
  combobox3.ItemIndex:=-1;
  combobox4.ItemIndex:=-1;
  combobox6.ItemIndex:=-1;