u1_4.pas

前言 随着旅游业的发展

unit U1_4;

interface

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

type
  TF1_4 = class(TForm)
    ImageList1: TImageList;
    Panel1: TPanel;
    Panel2: TPanel;
    LBbumen: TLabel;
    CBoxbumen: TComboBox;
    Panel3: TPanel;
    LBdingwei: TLabel;
    EDdingwei: TEdit;
    Bevel1: TBevel;
    LBnumber: TLabel;
    Label1: TLabel;
    Panel4: TPanel;
    LBname: TLabel;
    LBsex: TLabel;
    LBcountry: TLabel;
    LBsfz: TLabel;
    LBwork: TLabel;
    LBaddress: TLabel;
    LBshiyou: TLabel;
    LBrenshu: TLabel;
    LBfangshi: TLabel;
    LBleixing: TLabel;
    LBjibie: TLabel;
    EDsfz: TEdit;
    EDwork: TEdit;
    EDaddress: TEdit;
    EDrenshu: TEdit;
    EDname: TEdit;
    CBoxcountry: TComboBox;
    CBoxfangshi: TComboBox;
    CBoxjibie: TComboBox;
    CBoxleixing: TComboBox;
    CBoxsex: TComboBox;
    CBoxshiyou: TComboBox;
    SBTsave: TSpeedButton;
    SBTcancel: TSpeedButton;
    SBTback: TSpeedButton;
    LBdengjihao: TLabel;
    DBGrid1: TDBGrid;
    procedure SBTbackClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F1_4: TF1_4;

implementation

uses UDmo;

{$R *.dfm}

procedure TF1_4.SBTbackClick(Sender: TObject);
begin
  Close;
end;

procedure TF1_4.FormShow(Sender: TObject);
begin
  with Dmo.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    Sql.Add('select Distinct dengjiID, names from Vinfo');
    sql.Add('where zhuangtai=1');
    open;
  end;
  Dbgrid1.Columns.Items[0].Width:=40;
  DBGrid1.Columns.Items[1].Width:=50;
end;

procedure TF1_4.DBGrid1CellClick(Column: TColumn);
var
  ID:Integer;
  sfz:string;
  names:string;
  sex:string;
  work:string;
  country:string;
  address:string;
  count:integer;
  jibie:string;
begin
  ID:=DBgrid1.Fields[0].AsInteger;
  LBdengjihao.Caption:=intTostr(ID);
  with Dmo.ADOQuery1 do
  begin
    Close;
    sql.Clear;
    sql.Add('select sfz,renshu from dengji');
    sql.Add('where dengjiID=:dengjiID');
    parameters.ParamByName('dengjiID').Value:=id;
    open;
    sfz:=fields.Fields[0].AsString;
    count:=fields.Fields[1].AsInteger;
  end;
  with Dmo.ADOQuery3 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from binkeinfo');
    sql.Add('where sfz=:sfz');
    parameters.ParamByName('sfz').Value:=sfz;
    open;
    names:=Fields.Fields[1].AsString;
    sex:=Fields.Fields[2].AsString;
    country:=fields.Fields[3].AsString;
    Work:=fields.Fields[4].AsString;
    address:=fields.Fields[5].AsString;
    jibie:=fields.Fields[9].AsString;
    EDname.Text:=names;
    EDsfz.Text:=sfz;
    Cboxsex.Text:=sex;
    CboxCountry.Text:=country;
    EDwork.Text:=work;
    EDaddress.Text:=address;
    EDrenshu.Text:=intTostr(count);
    CBoxjibie.Text:=jibie;
  end;
end;

end.