⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit27.~pas

📁 一个简单的旅游管理系统
💻 ~PAS
字号:
🔍 
unit Unit27;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, DB, ADODB, DBActns, ActnList,
  Grids, DBGrids, Mask, DBCtrls;

type
  TForm27 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit8: TEdit;
    Label8: TLabel;
    Edit9: TEdit;
    Label9: TLabel;
    Edit10: TEdit;
    Button3: TButton;
    Button2: TButton;
    Button1: TButton;
    Label10: TLabel;
    Edit2: TEdit;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Edit17: TEdit;
    Label13: TLabel;
    Edit18: TEdit;
    Edit20: TEdit;
    Label17: TLabel;
    Edit19: TEdit;
    Label18: TLabel;
    Label21: TLabel;
    Edit22: TEdit;
    Button15: TButton;
    Label22: TLabel;
    Label14: TLabel;
    Edit21: TEdit;
    Label23: TLabel;
    Edit23: TEdit;
    Label24: TLabel;
    Edit24: TEdit;
    Label25: TLabel;
    Edit25: TEdit;
    Label26: TLabel;
    Edit26: TEdit;
    Button12: TButton;
    Button14: TButton;
    Button13: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    DBGrid1: TDBGrid;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    ActionList1: TActionList;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSource2: TDataSource;
    ADOTable1: TADOTable;
    ADOConnection3: TADOConnection;
    Label44: TLabel;
    DBText2: TDBText;
    Label49: TLabel;
    DBText3: TDBText;
    Button19: TButton;
    Button21: TButton;
    Button20: TButton;
    Button22: TButton;
    GroupBox2: TGroupBox;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    Label19: TLabel;
    Edit15: TEdit;
    Label20: TLabel;
    Edit16: TEdit;
    Button11: TButton;
    Button10: TButton;
    Edit14: TEdit;
    Label16: TLabel;
    Edit13: TEdit;
    Label15: TLabel;
    Button8: TButton;
    Button4: TButton;
    Button7: TButton;
    Button9: TButton;
    Button5: TButton;
    Button6: TButton;
    DBGrid2: TDBGrid;
    Label38: TLabel;
    DBText1: TDBText;
    Label43: TLabel;
    DBEdit5: TDBEdit;
    Label45: TLabel;
    DBEdit7: TDBEdit;
    Label48: TLabel;
    DBEdit10: TDBEdit;
    DBEdit8: TDBEdit;
    Label46: TLabel;
    DBEdit2: TDBEdit;
    Label40: TLabel;
    DBEdit1: TDBEdit;
    Label39: TLabel;
    Label41: TLabel;
    DBEdit3: TDBEdit;
    Label42: TLabel;
    DBEdit4: TDBEdit;
    Label47: TLabel;
    DBEdit9: TDBEdit;
    Button16: TButton;
    Button18: TButton;
    Button17: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form27: TForm27;

implementation

uses Unit39;

{$R *.dfm}

procedure TForm27.Button3Click(Sender: TObject);
begin
form27.close;
end;

procedure TForm27.Button13Click(Sender: TObject);
begin
edit17.Text:='';
edit18.Text:='';
edit19.Text:='';
edit20.Text:='';
edit21.Text:='';
edit22.Text:='';
edit23.Text:='';
edit24.Text:='';
edit25.text:='';
edit26.text:='';
end;

procedure TForm27.Button10Click(Sender: TObject);
begin
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
adoquery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from [列车信息表] ');
adoquery2.Open;
end;

procedure TForm27.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.text:='';
edit10.text:='';
end;

procedure TForm27.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.text:='';
edit10.text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
edit17.Text:='';
edit18.Text:='';
edit19.Text:='';
edit20.Text:='';
edit21.Text:='';
edit22.Text:='';
edit23.Text:='';
edit24.Text:='';
edit25.text:='';
edit26.text:='';
end;

procedure TForm27.Button1Click(Sender: TObject);
begin
if(edit1.text='') then
begin
showmessage('请输入车次');
exit;
end;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 列车信息表 where 车次=:id');
adoquery1.Parameters.ParamByName('id').Value:=trim(edit1.text);
adoquery1.Open;
if adoquery1.Bof and adoquery1.Eof then
begin
adoquery1.sql.Clear;
adoquery1.SQL.Add('insert into 列车信息表(车次,所属铁路,发车时间,到达时间,始发站,目的地,里程,时长,类型,价格)');
adoquery1.SQL.Add(' values(:id,:shuyu,:start,:end,:begin,:finish,:licheng,:time,:kind,:price)');
adoquery1.Parameters.ParamByName('id').value:=trim(edit1.text);
adoquery1.Parameters.ParamByName('shuyu').value:=trim(edit2.text);
adoquery1.Parameters.ParamByName('start').value:=trim(edit3.text);
adoquery1.Parameters.ParamByName('end').value:=trim(edit4.text);
adoquery1.Parameters.ParamByName('begin').value:=trim(edit5.text);
adoquery1.Parameters.ParamByName('finish').value:=trim(edit6.text);
adoquery1.Parameters.ParamByName('licheng').value:=trim(edit7.text);
adoquery1.Parameters.ParamByName('time').value:=trim(edit8.text);
adoquery1.Parameters.ParamByName('kind').value:=trim(edit9.text);
adoquery1.Parameters.ParamByName('price').value:=trim(edit10.text);
adoquery1.ExecSQL;
showmessage('添加列车成功');
end
else
begin
showmessage('车次已经存在');
adoquery1.Close;
exit;
end;
end;

procedure TForm27.Button14Click(Sender: TObject);
begin
form39:=Tform39.create(self);
form39.showmodal;
end;

procedure TForm27.Button12Click(Sender: TObject);
begin
if(edit17.text='') or (edit18.text='') or (edit19.text='') or (edit20.text='') or (edit21.text='') or (edit22.text='') or (edit23.text='') or (edit24.text='') or (edit25.text='') or (edit26.text='') then
begin
showmessage('请输入必填信息');
exit;
end;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 火车票预订表 where 车次=:id');
adoquery1.Parameters.ParamByName('id').Value:=trim(edit1.text);
adoquery1.Open;
adoquery1.sql.Clear;
adoquery1.SQL.Add('insert into 火车票预订表(车次,类型,上车站,抵达地,价格,订票人姓名,身份证号码,联系方式,详细地址,订票时间)');
adoquery1.SQL.Add(' values(:id,:kind,:start,:finish,:price,:name,:peopleid,:tele,:adds,:time)');
adoquery1.Parameters.ParamByName('id').value:=trim(edit17.text);
adoquery1.Parameters.ParamByName('kind').value:=trim(edit18.text);
adoquery1.Parameters.ParamByName('start').value:=trim(edit19.text);
adoquery1.Parameters.ParamByName('finish').value:=trim(edit20.text);
adoquery1.Parameters.ParamByName('price').value:=trim(edit21.text);
adoquery1.Parameters.ParamByName('name').value:=trim(edit22.text);
adoquery1.Parameters.ParamByName('peopleid').value:=trim(edit23.text);
adoquery1.Parameters.ParamByName('tele').value:=trim(edit24.text);
adoquery1.Parameters.ParamByName('adds').value:=trim(edit25.text);
adoquery1.Parameters.ParamByName('time').value:=trim(edit26.text);
adoquery1.ExecSQL;
showmessage('火车订票成功');
adoquery1.Close;
exit;
end;

procedure TForm27.Button22Click(Sender: TObject);
begin
form27.Close;
end;

procedure TForm27.Button8Click(Sender: TObject);
var
 sql:string;
begin
if edit11.text<>'' then
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add('select * from [列车信息表] ');
sql:='where [车次]=:cc';
ADOQuery2.SQL.Add(sql);
ADOQuery2.Parameters.ParamByName('cc').Value:=trim(Edit11.Text);
adoquery2.Open;
end
else
showmessage('请输入车次');
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
end;

procedure TForm27.Button4Click(Sender: TObject);
var
 sql:string;
begin
if edit12.text<>'' then
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add('select * from [列车信息表] ');
sql:='where [所属铁路]=:tl';
ADOQuery2.SQL.Add(sql);
ADOQuery2.Parameters.ParamByName('tl').Value:=trim(Edit12.Text);
adoquery2.Open;
end
else
showmessage('请输入所属铁路');
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
end;

procedure TForm27.Button7Click(Sender: TObject);
var
 sql:string;
begin
if edit15.text<>'' then
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add('select * from [列车信息表] ');
sql:='where [类型]=:lx';
ADOQuery2.SQL.Add(sql);
ADOQuery2.Parameters.ParamByName('lx').Value:=trim(Edit15.Text);
adoquery2.Open;
end
else
showmessage('请输入类型');
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
end;

procedure TForm27.Button9Click(Sender: TObject);
var
 sql:string;
begin
if edit16.text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from [列车信息表] ');
sql:='where [价格]<:jg';
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('jg').Value:=trim(edit16.Text);
adoquery1.Open;
end
else
showmessage('请输入价格');
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
end;

procedure TForm27.Button5Click(Sender: TObject);
var
 sql:string;
begin
if edit13.text<>'' then
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add('select * from [列车信息表] ');
sql:='where [始发站]=:sf';
ADOQuery2.SQL.Add(sql);
ADOQuery2.Parameters.ParamByName('sf').Value:=trim(Edit13.Text);
adoquery2.Open;
end
else
showmessage('请输入始发站');
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
end;

procedure TForm27.Button6Click(Sender: TObject);
var
 sql:string;
begin
if edit14.text<>'' then
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add('select * from [列车信息表] ');
sql:='where [目的地]=:md';
ADOQuery2.SQL.Add(sql);
ADOQuery2.Parameters.ParamByName('md').Value:=trim(Edit14.Text);
adoquery2.Open;
end
else
showmessage('请输入目的地');
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -