shezhi.pas

一个简单的自动计算安全天数的软件

unit shezhi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SUIImagePanel, SUIGroupBox, SUIButton, Mask, DBCtrls,
  SUIDBCtrls, ExtCtrls, SUIForm, SUIComboBox;

type
  Tszform = class(TForm)
    szform: TsuiForm;
    suiDBEdit1: TsuiDBEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiGroupBox1: TsuiGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    suiComboBox1: TsuiComboBox;
    procedure FormShow(Sender: TObject);
    procedure suiComboBox1Change(Sender: TObject);
    procedure suiComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  szform: Tszform;

implementation

uses datamode, main;

{$R *.dfm}

procedure Tszform.FormShow(Sender: TObject);
var
  i:integer;
begin
  suiComboBox1.Items.Clear;
  with dm.anqqu do
  begin
    sql.Clear ;
    sql.Add('select 安全生产项目 from aqjs');
    open;
    first;
    for i:=0 to recordcount-1 do
    begin
      suiComboBox1.Items.Add(fieldbyname('安全生产项目').AsString);
      next;
    end;
    close;
  end;
end;

procedure Tszform.suiComboBox1Change(Sender: TObject);
begin
  if length(suicombobox1.Text )>0 then
  begin
    try
      with dm.anqtb do

      dm.anqtb.Active:=false;
      begin
        suidbedit1.DataField :='起始日期';
        dm.anqtb.Active:=true;
        if dm.anqtb.Locate('安全生产项目',suicombobox1.Text ,[]) then
           dm.anqtb.Edit
        else
          showmessage('not found ' );
      end;
    except
      messagedlg('数据操作出错',mtError,[mbok],0);
    end;
  end;
end;

procedure Tszform.suiComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
   suicombobox1change(sender);
end;

procedure Tszform.suiButton1Click(Sender: TObject);
begin
  dm.anqtb.Post;
  close;
end;

procedure Tszform.suiButton2Click(Sender: TObject);
begin
  close;
end;
end.