unit_sstatics.pas

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

unit Unit_Sstatics;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,DateUtils;

type
  TFrmStatics = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Label6: TLabel;
    ComboBox3: TComboBox;
    Label7: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmStatics: TFrmStatics;

implementation

uses unit_DataM, Unit_Common, Unit_Lstatics;

{$R *.dfm}

procedure TFrmStatics.Button2Click(Sender: TObject);
begin
  FrmStatics.Close;
end;

procedure TFrmStatics.FormCreate(Sender: TObject);
  var
  sqlstr:string;
begin
 label5.Visible:=false;
 label7.Visible:=false;
  sqlstr:='select DepartmentNo from Department';
  combobox1.Items:=dtm.GetQryList(sqlstr);
  combobox2.Items:=dtm.GetQryList(sqlstr);
  combobox1.ItemIndex:=1;
 combobox2.ItemIndex:=1;

 end;

procedure TFrmStatics.Button1Click(Sender: TObject);
begin
if trim(YYYYMMDDDate(DateTimePicker2.Date))<trim(YYYYMMDDDate(DateTimePicker1.Date)) then
  MessageWarning('不合法的时间段')
  else
     if combobox1.Text<>combobox2.Text then
    MessageWarning('操作员机构与签单机构必须一致!')
       else
   begin
    if (trim(YYYYMMDDDate(DateTimePicker1.Date))='') or (combobox3.Text='')  then
   MessageWarning('请填写所有条件!')
    else
    begin
   gorg:=trim(combobox1.Text);      //签单机构
   gQueryID0:=trim(formatdatetime('yyyy-MM-dd hh:mm:ss',startoftheday(DateTimePicker1.Datetime)));  //日期下限
   gQueryID1:=trim(formatdatetime('yyyy-MM-dd hh:mm:ss',endoftheday(DateTimePicker2.Datetime)));  //日期上限
   goper:=trim(combobox3.Text);
   FrmLstatics.ShowModal;
   end;
  end;
  end;
procedure TFrmStatics.ComboBox1Click(Sender: TObject);
 var
 sqlstr:string;
begin
sqlstr:='select departmentname from department where'+''''+
combobox1.Text+''''+'=departmentno';
label5.Visible:=true;
label5.Caption:=dtm.DataSetResultStr(sqlstr)+' ';
end;

procedure TFrmStatics.ComboBox2Click(Sender: TObject);
 var
 sqlstr:string;
begin
sqlstr:='select departmentname from department where'+''''+
combobox2.Text+''''+'=departmentno';
label7.Visible:=true;
label7.Caption:=dtm.DataSetResultStr(sqlstr)+' ';
end;

procedure TFrmStatics.FormActivate(Sender: TObject);
begin
    combobox3.Text:=gEmpID;
end;

end.