unit_maintain.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Maintain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, Menus;

type
  TFrmMaintain = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQueryCustomers: TADOQuery;
    ADOQueryInsuranceForm: TADOQuery;
    ADOQueryBenefitForm: TADOQuery;
    DataSourceCustomers: TDataSource;
    DataSourceBenefitForm: TDataSource;
    GroupBox1: TGroupBox;
    DBGridCustomers: TDBGrid;
    GroupBox2: TGroupBox;
    DBGridInsuranceForm: TDBGrid;
    GroupBox3: TGroupBox;
    DBGridBenefitForm: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    EditPECH: TEdit;
    EditYear: TEdit;
    EditMonth: TEdit;
    EditZZZ: TEdit;
    EditDay: TEdit;
    EditHourMMSS: TEdit;
    DataSourceInsuranceForm: TDataSource;
    PopupMenuCancle: TPopupMenu;
    N1: TMenuItem;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure queryinsurance();
    procedure EditYearChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ADOQueryInsuranceFormAfterScroll(DataSet: TDataSet);
    procedure N1Click(Sender: TObject);
    procedure DBGridCustomersDrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMaintain: TFrmMaintain;

implementation

uses Unit_Common, unit_DataM;

{$R *.dfm}
Procedure TFrmMaintain.queryinsurance();
 begin
 adoqueryinsuranceform.Close;
 adoqueryinsuranceform.Parameters.ParamByName('insuranceNo').Value:= EditPECH.Text
                                   + Edityear.Text+editmonth.Text+editday.Text
                                   +edithourmmss.Text+ editzzz.Text+'%';

 adoqueryinsuranceform.Open;



 end;
procedure TFrmMaintain.Button2Click(Sender: TObject);
begin
  FrmMaintain.Close;
end;

procedure TFrmMaintain.FormCreate(Sender: TObject);
begin

  EditYear.Text:=FormatDateTime('yyyy',now);
  EditMonth.Text:=FormatDatetime('MM',now);
  EditDay.Text:=FormatDatetime('dd',now);
  editHourmmss.Text:=FormatDatetime('hh',now);

end;

procedure TFrmMaintain.EditYearChange(Sender: TObject);
begin
queryinsurance;
end;

procedure TFrmMaintain.FormActivate(Sender: TObject);
begin
  queryinsurance;
end;

procedure TFrmMaintain.ADOQueryInsuranceFormAfterScroll(DataSet: TDataSet);
begin
 ADOQueryCustomers.Active:=true;
 ADOQueryBenefitForm.Active:=true;
end;

procedure TFrmMaintain.N1Click(Sender: TObject);
var sql:string;
begin
if  adoqueryinsuranceform.Active=true then
begin
     if ( formatdatetime('yyyyMMDD',adoquerycustomers.FieldByName('登机日期').AsDateTime)<formatdatetime('yyyyMMDD',Now)) then
     begin
     messageerror('现在已经超过登机日期');
     exit;


     end;

   if MessageSure('是否退该保单') then
   begin
   sql:='update insuranceform  set  status =0 where  insuranceno='+QuotedStr(trim(adoqueryinsuranceform.FieldByName('保险号').AsString));
   dtm.ExecuteSQL(sql);


   adoqueryinsuranceform.Close;
   adoqueryinsuranceform.Open;
   end;


end



end;

procedure TFrmMaintain.DBGridCustomersDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

   if (adoqueryinsuranceform.FieldByName('保单状态').AsString='无效保单')  then
  DBGridCustomers.Canvas.Brush.Color:=clRed;
  DBGridCustomers.DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

procedure TFrmMaintain.Button1Click(Sender: TObject);
begin
    N1Click(self);
end;

end.