ucustomer.pas

ＤＥＬＰＨＩ开发的寝室管理系统

unit Ucustomer;

interface

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

type
  Tfrmcustomer = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcustomer: Tfrmcustomer;

implementation

uses Umovement;

{$R *.dfm}

procedure Tfrmcustomer.Button1Click(Sender: TObject);
begin
  // edit1.setfocus;
  if (edit1.text)=''  then
  begin
    showmessage('请输入访问编号');
    exit;
    ADOQuery1.SQL.Add('Select * from visiting');
  end
  else
  begin
    ADOQuery1.close;
    ADOQuery1.sql.clear;
    ADOQuery1.sql.add('select *  from visiting  where visit_no='+#39+edit1.text+#39);
    ADOQuery1.open;
    edit1.Text:='';
  end;
  edit1.setfocus;

end;

procedure Tfrmcustomer.Button2Click(Sender: TObject);
begin
 frmcustomer.close;
end;

procedure Tfrmcustomer.Button3Click(Sender: TObject);
begin
 if (edit2.text)=''  then
  begin
    showmessage('请输入访问编号');
    exit;
  end
  else
  begin
  ADOQuery2.close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select * from visiting');
  ADOQuery2.open;
  ADOQuery2.First;
  ADOQuery2.Insert;
  ADOQuery2.FieldByName('visit_no').AsString:=Edit2.Text;
  ADOQuery2.FieldByName('visit_time').AsString:=Edit3.Text;
  ADOQuery2.FieldByName('visitor_name').AsString:=Edit4.Text;;
  ADOQuery2.FieldByName('interviewee_no').AsString:=Edit5.Text;;
  ADOQuery2.FieldByName('leave_time').AsString:=Edit6.Text;;

  ADOQuery2.post;
  showmessage('添加成功！');
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  Edit2.Text:='';
  edit2.setfocus;
  ADOQuery2.close;
  ADOQuery2.sql.Clear;
  ADOQuery2.sql.Add('select * from visiting');
  ADOQuery2.open;
    ADOQuery1.close;
    ADOQuery1.sql.clear;

    ADOQuery1.sql.Add('select * from visiting');
    ADOQuery1.open;
   //edit2.setfocus;
  end;

end;

end.