unit5.pas

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

unit Unit5;

interface

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

type
  TF_insurant = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    ComboBox2: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Edit7: TEdit;
    Label10: TLabel;
    SpeedButton4: TSpeedButton;
    Splitter1: TSplitter;
    Button2: TButton;
    Panel6: TPanel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label11: TLabel;
    Edit8: TEdit;
    SpeedButton7: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit4DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Edit3DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Edit2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Edit5DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Edit7DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Edit4DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit3DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit2DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit5DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit7DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(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 Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_insurant: TF_insurant;
  change:boolean;//是否记录被修改
  mybookmark:string;
implementation
  uses unit11, Unit6,unit4, fselect;
{$R *.dfm}

procedure TF_insurant.SpeedButton1Click(Sender: TObject);
begin
  Datetimepicker1.Enabled:=true;
  Edit2.Enabled:=true;
  Edit3.Enabled:=true;
  Edit4.Enabled:=true;
  Edit5.Enabled:=true;
  Edit6.Enabled:=true;
  Edit7.Enabled:=true;
  Combobox1.Enabled:=true;
  Combobox2.Enabled:=true;
  Speedbutton1.Enabled:=false;
  Speedbutton2.Enabled:=false;
  button2.Enabled:=true;
  button1.Enabled:=true;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Datetimepicker1.Date;
end;

procedure TF_insurant.Button1Click(Sender: TObject);
begin
  if ((Trim(Edit1.Text)<>'') and (Trim(Edit2.Text)<>'') and (Trim(edit6.text)<>''))then
  begin
    if change=true then
    begin
      mydm.inssrc.DataSet.Bookmark:=mybookmark;
      mydm.inssrc.DataSet.Delete;
    end;
    with mydm.insquery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('insert into insurant values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9)');
      end;
      Parameters[0].Value:=edit1.Text;
      Parameters[1].value:=combobox1.Text;
      Parameters[2].Value:=edit2.Text;
      Parameters[3].Value:=edit3.Text;
      Parameters[4].Value:=datetimepicker1.Date;
      Parameters[5].Value:=combobox2.Text;
      Parameters[6].Value:=edit4.Text;
      Parameters[7].value:=edit5.Text;
      Parameters[8].Value:=edit7.Text;
      Parameters[9].Value:=edit6.Text;
      execsql;
    end;
    with mydm.insquery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('select*from insurant');
      end;
      Open;
    end;
    F_customer.guo:=(strtoint(trim(Mydm.guosrc.DataSet.FieldByName('saveguo').AsString)));
    Inc(F_customer.guo);
    Mydm.guo.Edit;
    if change<>true then
      Mydm.guosrc.DataSet.FieldByName('saveguo').AsString:=Trim(inttostr(F_customer.guo));
    MYdm.guo.Post;
    change:=false;
    button2.Click;
  end
  else
  begin
    Application.MessageBox('输入必要信息。','提示',64);
    exit;
  end;
  Speedbutton1.Enabled:=True;
  Speedbutton2.Enabled:=True;
  button2.Enabled:=False;
  button1.Enabled:=False;
  speedbutton6.Enabled:=True;
end;

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

procedure TF_insurant.SpeedButton2Click(Sender: TObject);
begin
  if mydm.insquery.RecordCount=0 then
    Exit;
  mybookmark:=mydm.inssrc.DataSet.Bookmark;
  Datetimepicker1.Enabled:=true;
  Edit2.Enabled:=true;
  Edit3.Enabled:=true;
  Edit4.Enabled:=true;
  Edit5.Enabled:=true;
  Edit6.Enabled:=true;
  Edit7.Enabled:=true;
  Combobox1.Enabled:=true;
  Combobox2.Enabled:=true;
  change:=true;
  Speedbutton1.Enabled:=false;
  Speedbutton2.Enabled:=false;
  button2.Enabled:=true;
  button1.Enabled:=true;
  Edit1.Text:=mydm.inssrc.DataSet.Fields[0].AsString;
  Combobox1.Text:=mydm.inssrc.DataSet.Fields[1].AsString;
  Edit2.Text:=mydm.inssrc.DataSet.Fields[2].AsString;
  Edit3.Text:=mydm.inssrc.DataSet.Fields[3].AsString;
  Datetimepicker1.Date:=mydm.inssrc.DataSet.Fields[4].AsDateTime;
  Combobox2.Text:=mydm.inssrc.DataSet.Fields[5].AsString;
  Edit4.Text:=mydm.inssrc.DataSet.Fields[6].AsString;
  Edit5.Text:=mydm.inssrc.DataSet.Fields[7].AsString;
  Edit7.Text:=mydm.inssrc.DataSet.Fields[8].AsString;
  Edit6.Text:=mydm.inssrc.DataSet.Fields[9].AsString;
end;

procedure TF_insurant.Button2Click(Sender: TObject);
begin
  Speedbutton1.Enabled:=true;
  Speedbutton2.Enabled:=true;
  edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Datetimepicker1.Enabled:=false;
  Edit1.Enabled:=false;
  Edit2.Enabled:=false;
  Edit3.Enabled:=false;
  Edit4.Enabled:=false;
  Edit5.Enabled:=false;
  Edit6.Enabled:=false;
  Edit7.Enabled:=false;
  Combobox1.Enabled:=false;
  Combobox2.Enabled:=false;
  button2.Enabled:=false;
  button1.Enabled:=false;
  change:=False;
end;

procedure TF_insurant.SpeedButton6Click(Sender: TObject);
begin
  if (button1.Enabled=true) and ((Trim(MYdm.guosrc.DataSet.Fields[0].asstring)<>'0') and (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)<>'5')) then
    application.MessageBox('请提交或取消！','提示',mb_ok)
  else
  begin
    if F_customer.punum<>'0' then
      F_beneficiary.edit1.Text:=trim(F_customer.punum);
    if F_beneficiary.Edit1.Text<>'' then
      F_beneficiary.speedbutton1.Click;
    Edit1.Clear;
    Self.Hide;
    F_beneficiary.Show;
  end;
end;

procedure TF_insurant.SpeedButton5Click(Sender: TObject);
begin
  Hide;
  F_customer.Show;
end;

procedure TF_insurant.Edit8Change(Sender: TObject);
begin
  Speedbutton7.Enabled:=true;
end;

procedure TF_insurant.SpeedButton7Click(Sender: TObject);
begin
  with mydm.insquery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select*from insurant');
      Add('where inst_id=:p');
    end;
    Parameters[0].Value:=trim(edit8.Text);
    Prepared;
    Open;
    Button2.Enabled:=false;
  end;
end;

procedure TF_insurant.FormShow(Sender: TObject);
begin
  speedbutton5.Enabled:=False;
  speedbutton6.Enabled:=False;
  with mydm.insquery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select*from insurant');
    end;
    Open;
  end;
  if Edit4.Enabled=true then
    edit4.SetFocus;
end;

procedure TF_insurant.Edit4DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if source is Tlistbox then
    Accept:=true;
end;

procedure TF_insurant.Edit3DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if source is Tlistbox then
    Accept:=true;
end;

procedure TF_insurant.Edit2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if source is Tlistbox then
    Accept:=true;
end;

procedure TF_insurant.Edit5DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if source is Tlistbox then
    Accept:=true;
end;

procedure TF_insurant.Edit7DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if source is Tlistbox then
    Accept:=true;
end;

procedure TF_insurant.Edit4DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (sender is Tedit) and (source is Tlistbox) then
    (sender as Tedit).text:=(source as Tlistbox).Items.Strings[F_select.sel];
end;

procedure TF_insurant.Edit3DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (sender is Tedit) and (source is Tlistbox) then
    (sender as Tedit).text:=(source as Tlistbox).Items.Strings[F_select.sel];
end;

procedure TF_insurant.Edit2DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (sender is Tedit) and (source is Tlistbox) then
    (sender as Tedit).text:=(source as Tlistbox).Items.Strings[F_select.sel];
end;

procedure TF_insurant.Edit5DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (sender is Tedit) and (source is Tlistbox) then
    (sender as Tedit).text:=(source as Tlistbox).Items.Strings[F_select.sel];
end;

procedure TF_insurant.Edit7DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (sender is Tedit) and (source is Tlistbox) then
    (sender as Tedit).text:=(source as Tlistbox).Items.Strings[F_select.sel];
end;

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

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

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

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

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

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

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

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

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

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

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

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

end.