unit28.pas

人寿保险的管理信息系统

unit Unit28;

interface

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

type
  TF_cust = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_cust: TF_cust;

implementation
  uses unit11,unit5,unit6,unit7;
{$R *.dfm}

procedure TF_cust.Button1Click(Sender: TObject);

begin

    begin
         //F_insurant.Edit2.Enabled:=true;
         //F_insurant.DateTimePicker1.Enabled:=true;
        begin
           F_insurant.Edit8.Text:=mydm.cust1src.DataSet.Fields[0].AsString;
           F_insurant.Edit4.Text:=mydm.cust1src.DataSet.Fields[6].AsString;;
           F_insurant.ComboBox1.Text:=mydm.cust1src.DataSet.Fields[1].AsString;
           F_insurant.ComboBox2.Text:=mydm.cust1src.DataSet.Fields[5].AsString;
           F_insurant.edit3.Text:=mydm.cust1src.DataSet.Fields[3].AsString;
           F_insurant.Edit5.Text:=mydm.cust1src.DataSet.Fields[7].AsString;
           F_insurant.Edit7.Text:=mydm.cust1src.DataSet.Fields[8].AsString;
           F_insurant.DateTimePicker1.Date:=mydm.cust1src.DataSet.Fields[4].AsDateTime;
           F_insurant.Edit2.Text:=mydm.cust1src.DataSet.Fields[2].AsString;
           F_insurant.Edit6.Text:=mydm.cust1src.DataSet.Fields[10].AsString;
           F_insurant.edit10.Text:=mydm.cust1src.DataSet.Fields[12].AsString;
           F_insurant.Edit11.Text:=mydm.cust1src.DataSet.Fields[11].AsString;


           F_beneficiary.Edit8.Text:=mydm.cust1src.DataSet.Fields[0].AsString;
           F_beneficiary.edit2.Text:=mydm.cust1src.DataSet.Fields[6].AsString;
           F_beneficiary.ComboBox1.Text:=mydm.cust1src.DataSet.Fields[1].AsString;
           F_beneficiary.DateTimePicker1.Date:=mydm.cust1src.DataSet.Fields[4].AsDateTime;
           F_beneficiary.Edit3.Text:=mydm.cust1src.DataSet.Fields[7].AsString;
           F_beneficiary.Edit5.Text:=mydm.cust1src.DataSet.Fields[3].AsString;
           F_beneficiary.edit6.Text:=mydm.cust1src.DataSet.Fields[8].AsString;
           F_beneficiary.Edit7.Text:=mydm.cust1src.DataSet.fields[10].AsString;


           F_policy.Edit2.Text:=mydm.cust1src.DataSet.Fields[0].AsString;
           
           
       end;

   close;
  end;


end;

procedure TF_cust.FormShow(Sender: TObject);
begin
     with mydm.cust1query do
   begin
     Close;
     with SQL do
     begin
       Clear;
       Add('select * from customer');
       
     end;
      Open;
   end;
end;

procedure TF_cust.Button2Click(Sender: TObject);
begin
  close;
end;

end.