unit4.pas

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

unit Unit4;

interface

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

type
  Tf_customer = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Edit6: TEdit;
    Button1: TButton;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Button2: TButton;
    Label11: TLabel;
    Label12: TLabel;
    Edit9: TEdit;
    Button3: TButton;
    Edit2: TEdit;
    SpeedButton5: TSpeedButton;
    Splitter1: TSplitter;
    Button4: TButton;
    DBGrid2: TDBGrid;
    Panel6: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel5: TPanel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit6Exit(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    guo:integer;
    punum:string;//编号
    { Public declarations }
  end;

var
  f_customer: Tf_customer;
  change:boolean; //数据是否变动
  mybookmark:string;
implementation
  uses unit11, Unit5, fselect, Unit6, Unit8, Unit7;
{$R *.dfm}

procedure Tf_customer.SpeedButton1Click(Sender: TObject);
var
  datefen:string;
begin
  F_select.ListBox1.Clear;
  guo:=0;
  Edit2.Enabled:=True;
  Edit3.Enabled:=True;
  Edit4.Enabled:=True;
  Edit5.Enabled:=True;
  Datetimepicker1.Enabled:=True;
  Edit6.Enabled:=True;
  Edit7.Enabled:=True;
  Combobox1.Enabled:=True;
  Combobox2.Enabled:=True;
  Button1.Enabled:=True;
  Button4.Enabled:=True;
  Speedbutton1.Enabled:=False;
  Speedbutton2.Enabled:=False;
  Speedbutton3.Enabled:=False;
  Mydm.custquery.Last;
  Datefen:='';
  Punum:='';
  datefen:=Formatdatetime('yyyymmdd',now());//格式化的年月日
  if Trim(mydm.custsrc.DataSet.Fields[0].AsString)<>'' then
    Punum:=inttostr(strtoint(copy(Trim(mydm.custsrc.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;//日期+两位编号
  Punum:=Edit1.Text;
  Mydm.guo.Edit;//存编号
  Mydm.guosrc.DataSet.FieldByName('savepunum').AsString:=Trim(punum);
  MYdm.guo.Post;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Datetimepicker1.Date;
  if Edit2.Enabled=True then
    Edit2.SetFocus;
 end;

procedure Tf_customer.Button1Click(Sender: TObject);
begin
  punum:=trim(edit1.Text);
  if ((Edit1.text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') ) then
  begin
    if Change=true then
    begin
      mydm.custsrc.DataSet.Bookmark:=mybookmark;
      mydm.custsrc.DataSet.Delete;
    end;
    with mydm.custquery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('insert into customer values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9)');
      end;
      Parameters[0].Value:=Trim(edit1.Text);
      Parameters[1].Value:=Trim(combobox1.Text);
      Parameters[2].Value:=Trim(edit4.Text);
      Parameters[3].value:=Trim(edit5.Text);
      Parameters[4].Value:=datetimepicker1.Date;
      Parameters[5].Value:= Trim(combobox2.Text);
      parameters[6].Value:=Trim(edit2.Text);
      Parameters[7].Value:=Trim(edit3.Text);
      Parameters[8].Value:=Trim(edit6.Text);
      Parameters[9].Value:=Trim(edit7.Text);
      Execsql;
    end;
    with mydm.custquery do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('select*from customer');
      end;
      Open;
      guo:=guo+1;//第几个窗体
      Mydm.guo.Edit;
      if change<>true then
        Mydm.guosrc.DataSet.FieldByName('saveguo').AsString:=Trim(inttostr(guo));
      MYdm.guo.Post;
      Change:=false;
    end;
  end
  else
  begin
    Application.MessageBox('输入必要信息。','提示',64);
    exit;
  end;
  Button1.Enabled:=false;
  button4.Enabled:=false;
  Speedbutton1.Enabled:=false;
  Speedbutton2.Enabled:=true;
  Speedbutton3.Enabled:=true;
  Speedbutton5.Enabled:=true;
  edit1.Clear;
  edit2.clear;
  edit3.clear;
  edit4.Clear;
  edit5.clear;
  datetimepicker1.Date;
  edit6.Clear;
  edit7.clear;
  speedbutton6.Enabled:=True;
end;

procedure Tf_customer.Button2Click(Sender: TObject);
begin
  with mydm.custquery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select*from customer where cust_id=:p0');
    end;
    Parameters[0].Value:=Trim(Edit8.Text);//Trim()为去空格函数
    Prepared;
    Open;
    Button2.Enabled:=False;
  end;
end;

procedure Tf_customer.Button3Click(Sender: TObject);
begin
  with mydm.custquery do
  begin
    Close;
      with SQL do
      begin
        Clear;
        Add('select*from customer');
        Add('where cust_idcard=:p');
      end;
    Parameters[0].Value:=trim(edit9.Text);
    Prepared;
    Open;
    Button3.Enabled:=false;
  end;
end;

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