cinoutaddform.~pas

简单的小区物业管理系统,户籍管理,出入管理,系统管理,收费管理,

unit cinoutaddform;

interface

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

type
  Tcinoutadd = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    btadd: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Timer1: TTimer;
    Label9: TLabel;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cinoutadd: Tcinoutadd;

implementation

uses mainform, DataM;

{$R *.dfm}

procedure Tcinoutadd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmmain.show;
end;

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

procedure Tcinoutadd.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 Tcinoutadd.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 Tcinoutadd.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 Tcinoutadd.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 Tcinoutadd.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 Tcinoutadd.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;

end.