inoutform.pas

基本的物业管理系统

unit InoutForm;

interface

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

type
  TFrmInout = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    GroupBox4: TGroupBox;
    Label6: TLabel;
    ComboBox1: TComboBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    DBGrid1: TDBGrid;
    Timer1: TTimer;
    Label9: TLabel;
    btAdd: TButton;
    btSearch: TButton;
    Memo1: TMemo;
    DBGrid2: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure btAddClick(Sender: TObject);
    procedure btSearchClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmInout: TFrmInout;

implementation
uses DataM,MainFrm;
{$R *.dfm}

procedure TFrmInout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmMain.Show;
end;

procedure TFrmInout.Timer1Timer(Sender: TObject);
begin
  Label9.Caption:=DateTimeToStr(Now);
end;

procedure TFrmInout.RadioButton1Click(Sender: TObject);
begin
  if RadioButton3.Checked then
  begin
    Edit1.Enabled:=False;
    Edit2.Enabled:=False;
    Edit5.Enabled:=False;
    Edit3.Enabled:=False;
    Edit4.Enabled:=False;
    Edit6.ReadOnly:=True;
    Edit7.ReadOnly:=True;
  end
  else if RadioButton4.Checked then
  begin
    Edit1.Enabled:=True;
    Edit2.Enabled:=True;
    Edit5.Enabled:=True;
    Edit3.Enabled:=False;
    Edit4.Enabled:=False;
    Edit6.ReadOnly:=True;
    Edit7.ReadOnly:=True;
  end;


end;

procedure TFrmInout.RadioButton2Click(Sender: TObject);
begin
  if RadioButton3.Checked then
  begin
    Edit1.Enabled:=False;
    Edit2.Enabled:=False;
    Edit5.Enabled:=False;
    Edit3.Enabled:=False;
    Edit4.Enabled:=False;
    Edit6.ReadOnly:=True;
    Edit7.ReadOnly:=True;
  end
  else if RadioButton4.Checked then
  begin
    Edit1.Enabled:=False;
    Edit2.Enabled:=False;
    Edit5.Enabled:=False;
    Edit3.Enabled:=True;
    Edit4.Enabled:=True;
    Edit6.ReadOnly:=True;
    Edit7.ReadOnly:=True;
  end;
end;

procedure TFrmInout.FormCreate(Sender: TObject);
begin
  Data.ADOQInOut.Close;
  Data.ADOQInOut.SQL.Clear;
  Data.ADOQInOut.SQL.Add('select * from InOut');
  Data.DataSInOut.DataSet:=Data.ADOQInOut;
  Data.ADOQInOut.Open;
  Edit1.Enabled:=True;
  Edit2.Enabled:=True;
  Edit5.Enabled:=True;
  Edit6.ReadOnly:=True;
  Edit7.ReadOnly:=True;
  Edit3.Enabled:=False;
  Edit4.Enabled:=False;
  Label9.Caption:=DateTimeToStr(Now);
end;

procedure TFrmInout.RadioButton3Click(Sender: TObject);
begin
    if RadioButton1.Checked then
    begin
      Edit6.ReadOnly:=False;
      Edit7.ReadOnly:=False;
      Edit1.Enabled:=False;
      Edit2.Enabled:=False;
      Edit3.Enabled:=False;
      Edit4.Enabled:=False;
      Edit5.Enabled:=False;
    end
    else if RadioButton2.Checked then
    begin
      Edit6.ReadOnly:=False;
      Edit7.ReadOnly:=False;
      Edit1.Enabled:=False;
      Edit2.Enabled:=False;
      Edit3.Enabled:=False;
      Edit4.Enabled:=False;
      Edit5.Enabled:=False;
    end;
end;

procedure TFrmInout.RadioButton4Click(Sender: TObject);
begin
    if RadioButton1.Checked then
    begin
      Edit6.ReadOnly:=True;
      Edit7.ReadOnly:=True;
      Edit1.Enabled:=True;
      Edit2.Enabled:=True;
      Edit3.Enabled:=False;
      Edit4.Enabled:=False;
      Edit5.Enabled:=True;
    end
    else if RadioButton2.Checked then
    begin
      Edit6.ReadOnly:=True;
      Edit7.ReadOnly:=True;
      Edit1.Enabled:=False;
      Edit2.Enabled:=False;
      Edit3.Enabled:=True;
      Edit4.Enabled:=True;
      Edit5.Enabled:=False;
    end;
end;

procedure TFrmInout.btAddClick(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    if RadioButton3.Checked then
    begin
      Data.ADOQInOut.Close;
      Data.ADOQInOut.SQL.Clear;
      Data.ADOQInOut.SQL.Add('select * from InOut where ID='+Edit6.Text);
      Data.ADOQInOut.Open;
      if Data.ADOQInOut.RecordCount=1 then
      begin
        Data.ADOQInOut.Edit;
        Data.ADOQInOut['OutTime']:=Now;
        Data.ADOQInOut.Post;
      end
      else MessageDlg('Error! Can not Find No',mtError,[mbOK],0);
    end
    else if RadioButton4.Checked then
    begin
      Data.ADOQInOut.Append;
      Data.ADOQInOut['Name']:=Edit1.Text;
      Data.ADOQInOut['IDCardNo']:=Edit2.Text;
      Data.ADOQInOut['CarNo']:='人';
      Data.ADOQInOut['FindWho']:=Edit5.Text;
      Data.ADOQInOut['InTime']:=Now;
      Data.ADOQInOut['OutTime']:=Now;
      Data.ADOQInOut['InDoorNo']:=ComboBox1.Text;
      Data.ADOQInOut.Post;
    end
  end
  else if RadioButton2.Checked then
          if RadioButton3.Checked then
          begin
            Data.ADOQInOut.Close;
            Data.ADOQInOut.SQL.Clear;
            Data.ADOQInOut.SQL.Add('select * from InOut where ID='+Edit7.Text);
            Data.ADOQInOut.Open;
            if Data.ADOQInOut.RecordCount=1 then
            begin
              Data.ADOQInOut.Edit;
              Data.ADOQInOut['OutTime']:=Now;
              Data.ADOQInOut.Post;
            end
            else MessageDlg('Error! Can not Find No',mtError,[mbOK],0);
          end
          else if RadioButton4.Checked then
                begin
                  Data.ADOQInOut.Append;
                  Data.ADOQInOut['Name']:='车';
                  Data.ADOQInOut['IDCardNo']:='车';
                  Data.ADOQInOut['CarNo']:=Edit3.Text;
                  Data.ADOQInOut['FindWho']:=Edit4.Text;
                  Data.ADOQInOut['InTime']:=Now;
                  Data.ADOQInOut['OutTime']:=Now;
                  Data.ADOQInOut['InDoorNo']:=ComboBox1.Text;
                  Data.ADOQInOut.Post;
                end;
  Data.ADOQInOut.Close;
  Data.ADOQInOut.SQL.Clear;
  Data.ADOQInOut.SQL.Add('select * from InOut');
  Data.DataSInOut.DataSet:=Data.ADOQInOut;
  Data.ADOQInOut.Open;
end;

procedure TFrmInout.btSearchClick(Sender: TObject);
begin

  Data.ADOQInOut.Close;
  Data.ADOQInOut.SQL.Clear;
  Data.ADOQInOut.SQL.Add(Memo1.Lines.GetText);
  try
  Data.ADOQInOut.Open;
  except
    MessageDlg('SQL Error',mtError,[mbOK],0);
  end;
end;

procedure TFrmInout.PageControl1Change(Sender: TObject);
begin
  Data.ADOQInOut.Close;
  Data.ADOQInOut.SQL.Clear;
  Data.ADOQInOut.SQL.Add('select * from InOut');
  Data.DataSInOut.DataSet:=Data.ADOQInOut;
  Data.ADOQInOut.Open;
end;

end.