开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 交通/航空行业 > 查看源码
untBeijing.~pas
资源名称：DS-1.ZIP　[点击查看]
上传用户：wysk38707
上传日期：2007-06-18
资源大小：801k
文件大小：21k
源码类别：

交通/航空行业

开发平台：

Delphi

untBeijing.~pas：源码内容
  1. unit untBeijing;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg, ComCtrls, Menus,main, DB,
  8.   DBTables, Grids, DBGrids, DBCtrls, Spin, Mask;
  10. type
  11.   TfrmBeijing = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     Image1: TImage;
  16.     BitBtn1: TBitBtn;
  17.     BitBtn2: TBitBtn;
  18.     BitBtn3: TBitBtn;
  19.     BitBtn4: TBitBtn;
  20.     BitBtn5: TBitBtn;
  21.     BitBtn6: TBitBtn;
  22.     BitBtn7: TBitBtn;
  23.     Panel1: TPanel;
  24.     Label1: TLabel;
  25.     Button1: TButton;
  26.     Label2: TLabel;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     Button2: TButton;
  30.     BitBtn8: TBitBtn;
  31.     GroupBox1: TGroupBox;
  32.     ListBox1: TListBox;
  33.     BitBtn9: TBitBtn;
  34.     GroupBox2: TGroupBox;
  35.     BitBtn11: TBitBtn;
  36.     GroupBox3: TGroupBox;
  37.     GroupBox4: TGroupBox;
  38.     BitBtn12: TBitBtn;
  39.     Label5: TLabel;
  40.     Label6: TLabel;
  41.     Label7: TLabel;
  42.     Label8: TLabel;
  43.     Label9: TLabel;
  44.     Label10: TLabel;
  45.     Label11: TLabel;
  46.     Label12: TLabel;
  47.     Label13: TLabel;
  48.     Label14: TLabel;
  49.     Label15: TLabel;
  50.     Label16: TLabel;
  51.     Label17: TLabel;
  52.     Label18: TLabel;
  53.     PopupMenu1: TPopupMenu;
  54.     N1: TMenuItem;
  55.     N2: TMenuItem;
  56.     N3: TMenuItem;
  57.     N4: TMenuItem;
  58.     N5: TMenuItem;
  59.     N6: TMenuItem;
  60.     N7: TMenuItem;
  61.     N8: TMenuItem;
  62.     GroupBox5: TGroupBox;
  63.     ListBox2: TListBox;
  64.     Label19: TLabel;
  65.     BitBtn13: TBitBtn;
  66.     BitBtn14: TBitBtn;
  67.     Memo4: TMemo;
  68.     GroupBox6: TGroupBox;
  69.     Button3: TButton;
  70.     Label20: TLabel;
  71.     Edit1: TEdit;
  72.     GroupBox7: TGroupBox;
  73.     GroupBox9: TGroupBox;
  74.     BitBtn15: TBitBtn;
  75.     PopupMenu2: TPopupMenu;
  76.     N9: TMenuItem;
  77.     N10: TMenuItem;
  78.     N11: TMenuItem;
  79.     N12: TMenuItem;
  80.     ListBox3: TListBox;
  81.     ListBox4: TListBox;
  82.     ListBox5: TListBox;
  83.     N13: TMenuItem;
  84.     qstation: TQuery;
  85.     qtrain: TQuery;
  86.     qticket: TQuery;
  87.     BitBtn16: TBitBtn;
  88.     BitBtn10: TBitBtn;
  89.     BitBtn17: TBitBtn;
  90.     BitBtn18: TBitBtn;
  91.     BitBtn19: TBitBtn;
  92.     BitBtn20: TBitBtn;
  93.     DataSource1: TDataSource;
  94.     DBGrid1: TDBGrid;
  95.     DBNavigator1: TDBNavigator;
  96.     Table1: TTable;
  97.     Label21: TLabel;
  98.     MaskEdit1: TMaskEdit;
  99.     Label22: TLabel;
  100.     SpinEdit1: TSpinEdit;
  101.     Button4: TButton;
  102.     ComboBox1: TComboBox;
  103.     Label23: TLabel;
  104.     procedure BitBtn12Click(Sender: TObject);
  105.     procedure N9Click(Sender: TObject);
  106.     procedure N10Click(Sender: TObject);
  107.     procedure N12Click(Sender: TObject);
  108.     //procedure Button1Click(Sender: TObject);
  109.     //procedure Button2Click(Sender: TObject);
  110.     procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  111.       Shift: TShiftState; X, Y: Integer);
  112.     //procedure BitBtn1Click(Sender: TObject);
  113.     procedure BitBtn7MouseUp(Sender: TObject; Button: TMouseButton;
  114.       Shift: TShiftState; X, Y: Integer);
  115.     procedure BitBtn6MouseUp(Sender: TObject; Button: TMouseButton;
  116.       Shift: TShiftState; X, Y: Integer);
  117.     procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
  118.       Shift: TShiftState; X, Y: Integer);
  119.     procedure BitBtn4MouseUp(Sender: TObject; Button: TMouseButton;
  120.       Shift: TShiftState; X, Y: Integer);
  121.     procedure BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
  122.       Shift: TShiftState; X, Y: Integer);
  123.     procedure BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
  124.       Shift: TShiftState; X, Y: Integer);
  125.     procedure N1Click(Sender: TObject);
  126.     procedure Button1Click(Sender: TObject);
  127.     procedure Button2Click(Sender: TObject);
  128.     procedure N3Click(Sender: TObject);
  129.     procedure N5Click(Sender: TObject);
  130.     procedure N6Click(Sender: TObject);
  131.     procedure N13Click(Sender: TObject);
  132.     procedure FormCreate(Sender: TObject);
  133.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  134.     procedure BitBtn16Click(Sender: TObject);
  135.     procedure BitBtn17Click(Sender: TObject);
  136.     procedure Label2DblClick(Sender: TObject);
  137.     procedure Label4DblClick(Sender: TObject);
  138.     procedure BitBtn8Click(Sender: TObject);
  139.     procedure BitBtn9Click(Sender: TObject);
  140.     procedure BitBtn11Click(Sender: TObject);
  141.     procedure BitBtn10Click(Sender: TObject);
  142.     procedure N2Click(Sender: TObject);
  143.     procedure N8Click(Sender: TObject);
  144.     procedure BitBtn18Click(Sender: TObject);
  145.     procedure Button4Click(Sender: TObject);
  146.     procedure BitBtn19Click(Sender: TObject);
  147.     procedure BitBtn15Click(Sender: TObject);
  148.     procedure BitBtn20Click(Sender: TObject);
  149.     procedure BitBtn13Click(Sender: TObject);
  150.     procedure Button3Click(Sender: TObject);
  151.     procedure TabSheet2Show(Sender: TObject);
  152.     procedure qtrainBeforeDelete(DataSet: TDataSet);
  153.   private
  154.     { Private declarations }
  155.   public
  156.     { Public declarations }
  157.   end;
  159. var
  160.   frmBeijing: TfrmBeijing;
  161.   //variants for interface design
  162.   stationName:string;
  163.   //startName:string;
  164.   //desName:string;
  165.   startpoint:string;
  166.   despoint:string;
  167.   //variants for inner class
  168.   stationclass:Cstation;
  169.   ticketclass:Cticket;
  170.   trainclass:Ctrain;
  171.   tickets:ticketRec;
  172.   ackNo:word;
  173. implementation
  175. {$R *.dfm}
  176. uses
  177.     untchangsha,untchengdu,untchongqing,untwuhan,untzhuzhou,untguangzhou;
  178. procedure TfrmBeijing.BitBtn12Click(Sender: TObject);
  179. begin
  180.     //if(messageDlg('确定要退出！', mtConfirmation,[mbOKCancel], 0)=mrOK)then
  181.     BitBtn16Click(nil);
  182. end;
  184. procedure TfrmBeijing.N9Click(Sender: TObject);
  185. begin
  186.     if((listBox3.itemIndex>=0) and (Label4.Caption<>listbox3.Items[listBox3.itemIndex]))then
  187.         begin
  188.             Label2.Caption:=listbox3.Items[listBox3.itemIndex];
  189.             startpoint:=Label2.Caption;
  190.         end
  191. end;
  193. procedure TfrmBeijing.N10Click(Sender: TObject);
  194. begin
  195.     if((listBox3.itemIndex>=0) and (Label2.Caption<>listbox3.Items[listBox3.itemIndex]))then
  196.         begin
  197.             Label4.Caption:=listbox3.Items[listBox3.itemIndex];
  198.             despoint:=Label4.Caption;
  199.         end;
  200. end;
  202. procedure TfrmBeijing.N12Click(Sender: TObject);
  203. begin
  204.     listbox3.Items.Delete(listbox3.ItemIndex)
  205. end;
  209. procedure TfrmBeijing.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  210.   Shift: TShiftState; X, Y: Integer);
  211. begin
  212.     if(button=mbRight)then
  213.         begin
  214.     stationName:=(Sender as TBitbtn).Caption;
  215.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  216.         end;
  217. end;
  219. procedure TfrmBeijing.BitBtn7MouseUp(Sender: TObject; Button: TMouseButton;
  220.   Shift: TShiftState; X, Y: Integer);
  221. begin
  222.     if(button=mbRight)then
  223.         begin
  224.     stationName:=(Sender as TBitbtn).Caption;
  225.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  226.         end;
  227. end;
  229. procedure TfrmBeijing.BitBtn6MouseUp(Sender: TObject; Button: TMouseButton;
  230.   Shift: TShiftState; X, Y: Integer);
  231. begin
  232.     if(button=mbRight)then
  233.         begin
  234.     stationName:=(Sender as TBitbtn).Caption;
  235.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  236.         end;
  237. end;
  239. procedure TfrmBeijing.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
  240.   Shift: TShiftState; X, Y: Integer);
  241. begin
  242.     if(button=mbRight)then
  243.         begin
  244.     stationName:=(Sender as TBitbtn).Caption;
  245.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  246.         end;
  247. end;
  249. procedure TfrmBeijing.BitBtn4MouseUp(Sender: TObject; Button: TMouseButton;
  250.   Shift: TShiftState; X, Y: Integer);
  251. begin
  252.     if(button=mbRight)then
  253.         begin
  254.     stationName:=(Sender as TBitbtn).Caption;
  255.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  256.         end;
  257. end;
  259. procedure TfrmBeijing.BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
  260.   Shift: TShiftState; X, Y: Integer);
  261. begin
  262.     if(button=mbRight)then
  263.         begin
  264.     stationName:=(Sender as TBitbtn).Caption;
  265.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  266.         end;
  267. end;
  269. procedure TfrmBeijing.BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
  270.   Shift: TShiftState; X, Y: Integer);
  271. begin
  272.     if(button=mbRight)then
  273.         begin
  274.     stationName:=(Sender as TBitbtn).Caption;
  275.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  276.         end;
  277. end;
  279. procedure TfrmBeijing.N1Click(Sender: TObject);
  280. var
  281.     i:integer;
  282.     Flag:boolean;
  283. begin
  284.     //first we judge whether it has been in listBox3
  285.     Flag:=True;
  286.     //showmessage(inttostr(listBox3.Items.Count));
  287.     if(listBox3.Items.Count>=1)then
  288.         for i:=1 to listBox3.Items.Count do
  289.             begin
  290.               if(listBox3.Items[i-1]=StationName)then
  291.                 Flag:=false;
  292.             end;
  293.     if(flag=true)then
  294.         listbox3.Items.Add(StationName);
  295. end;
  298. procedure TfrmBeijing.Button1Click(Sender: TObject);
  299. begin
  300.     N9Click(nil);
  301. end;
  303. procedure TfrmBeijing.Button2Click(Sender: TObject);
  304. begin
  305.     N10Click(nil);
  306. end;
  308. procedure TfrmBeijing.N3Click(Sender: TObject);
  309. begin
  310.     if(despoint<>stationName)then
  311.         begin
  312.     //startName:=stationName;
  313.     startpoint:=stationName;
  314.     Label2.Caption:=startpoint;
  315.     //Label2.Enabled:=false;
  316.     popupMenu1.Items.Items[3].Enabled:=false;
  317.     popupMenu1.Items.Items[4].Enabled:=true;
  318.         end;
  319. end;
  321. procedure TfrmBeijing.N5Click(Sender: TObject);
  322. begin
  323.     if(startpoint<>stationName)then
  324.         begin
  325.             //desName:=stationName;
  326.             despoint:=stationName;
  327.             label4.Caption:=despoint;
  328.             //label4.Enabled:=false;
  329.             popupMenu1.Items.Items[5].Enabled:=true;
  330.             popupMenu1.Items.Items[4].Enabled:=false;
  331.         end;
  332. end;
  334. procedure TfrmBeijing.N6Click(Sender: TObject);
  335. var
  336.     trains:Carrayword;
  337.     i:integer;
  338. begin
  339.     popupMenu1.Items.Items[3].Enabled:=true;
  340.     popupMenu1.Items.Items[4].Enabled:=false;
  341.     popupMenu1.Items.Items[5].Enabled:=false;
  342.     Label2.Enabled:=true;
  343.     label4.Enabled:=true;
  344.     listbox1.Clear;
  345.     listbox4.Clear;
  346.     if((startpoint<>'')and(despoint<>''))then
  347.         begin
  348.             trains:=Carrayword.Create();
  349.             trainclass.getArrive(stationclass.getNo(startpoint),stationclass.getNo(despoint),trains);
  350.             //showmessage(inttostr(trains.Num));
  351.             if (trains.Num>0)then
  352.                 begin
  353.                     for i:=1 to trains.Num do
  354.                         begin
  355.                             listbox1.Items.Add(inttostr(trains.warray[i]));
  356.                         end;
  357.                 end
  358.              else
  359.                 showmessage('没有查到相关信息！');
  360.             trains.Free;
  361.         end
  362.     else
  363.         begin
  364.             showmessage('请选定起点站和终点站！');
  365.         end;
  366. end;
  368. procedure TfrmBeijing.N13Click(Sender: TObject);
  369. begin
  370.     //popupMenu1.Items.Items[3].Enabled:=true;
  371.     bitbtn19.Click(); 
  372. end;
  374. procedure TfrmBeijing.FormCreate(Sender: TObject);
  376. begin
  377.     trainclass:=Ctrain.Create();
  378.     stationclass:=Cstation.Create();
  379.     ticketclass:=Cticket.Create();
  380.     ticketclass.myCtrain:=trainclass;
  381.     trainclass.setQuery(qtrain);
  382.     trainclass.localstation:=3;
  383.     ticketclass.setQuery(qticket);
  384.     ticketclass.settable('ticket3.db');
  385.     ticketclass.localstation:=3;
  386.     stationclass.setQuery(qstation);
  387.     tickets.Num:=0;
  388. end;
  390. procedure TfrmBeijing.FormClose(Sender: TObject; var Action: TCloseAction);
  391. begin
  392.     ticketclass.query.Close;
  393.     stationclass.query.Close;
  394.     trainclass.query.Close;
  395.     ticketclass.Free;
  396.     stationclass.Free;
  397.     trainclass.Free;
  398. end;
  400. procedure TfrmBeijing.BitBtn16Click(Sender: TObject);
  401. begin
  402.     if(Bitbtn11.Enabled=false)then
  403.         BitBtn17Click(nil);
  404.       begin
  405.         Label2.Caption:='';
  406.         Label4.Caption:='';
  407.         Label6.Caption:='';
  408.         Label7.Caption:='';
  409.         Label9.Caption:='';
  410.         Label16.Caption:='';
  411.         Label17.Caption:='';
  412.         listBox1.Items.Clear;
  413.         listBox3.Items.Clear;
  414.         listBox4.Items.Clear;
  415.         //listBox5.Items.Clear;
  416.         bitbtn10.Enabled:=false;
  417.         bitbtn17.Enabled:=false;
  418.       end
  419. end;
  421. procedure TfrmBeijing.BitBtn17Click(Sender: TObject);
  422. begin
  424.     bitbtn11.Enabled:=true;
  425.     //ack ticket falg=false
  426.     ticketclass.ackTicket(stationclass.getNo(Label6.Caption),stationclass.getNo(Label7.Caption),strtoint(label9.Caption),(strtoint(label16.Caption)*128+strtoint(label17.Caption)),ackNo,false);
  427.     bitbtn10.Enabled:=false;
  428.     bitbtn17.Enabled:=false;
  429.     label6.Caption:='';
  430.     label7.Caption:='';
  431.     label9.Caption:='';
  432.     label16.Caption:='';
  433.     label17.Caption:='';
  434. end;
  436. procedure TfrmBeijing.Label2DblClick(Sender: TObject);
  437. begin
  438.     Label2.Caption:='';
  439. end;
  441. procedure TfrmBeijing.Label4DblClick(Sender: TObject);
  442. begin
  443.     Label4.Caption:='';
  444. end;
  446. procedure TfrmBeijing.BitBtn8Click(Sender: TObject);
  447. var
  448.     trains:Carrayword;
  449.     i:integer;
  450. begin
  451.     Label2.Enabled:=true;
  452.     label4.Enabled:=true;
  453.     listbox1.Clear;
  454.     listbox4.Clear;
  455.     if((label2.Caption<>'')and(label4.Caption<>''))then
  456.         begin
  457.             trains:=Carrayword.Create();
  458.             trainclass.getArrive(stationclass.getNo(label2.Caption),stationclass.getNo(label4.Caption),trains);
  459.             //showmessage(inttostr(trains.Num));
  460.             if (trains.Num>0)then
  461.                 begin
  462.                     for i:=1 to trains.Num do
  463.                         begin
  464.                             listbox1.Items.Add(inttostr(trains.warray[i]));
  465.                         end;
  466.                 end
  467.              else
  468.                 showmessage('没有查到相关信息！');
  469.             trains.Free;
  470.         end
  471.     else
  472.         begin
  473.             showmessage('请选定起点站和终点站！');
  474.         end;
  475. end;
  477. procedure TfrmBeijing.BitBtn9Click(Sender: TObject);
  478. var
  479.     stations:Carrayword;
  480.     i:integer;
  481. begin
  482. //consult all info about the checked train
  483.     listbox4.Clear;
  484.     if(listbox1.ItemIndex>=0)then
  485.         begin
  486.             stations:=Carrayword.Create;
  487.             //showmessage(inttostr(listbox1.ItemIndex));
  488.             i:=trainclass.getRoute(strtoint(listBox1.Items[listbox1.ItemIndex]),stations);
  489.             //showmessage(inttostr(stations.Num));
  490.             if(i=0)then
  491.                 begin
  492.                     for i:=1 to stations.Num do
  493.                         begin
  494.                             listbox4.Items.Add(stationclass.getName(stations.warray[i]));
  495.                         end;
  496.                 end
  497.             else
  498.                 begin
  499.                     showmessage('请选定起点站和终点站！');
  500.                 end;
  501.             stations.Free; 
  502.         end
  503.     else
  504.         begin
  505.             showmessage('清首先选定一辆列车！');
  506.         end;
  508. end;
  510. procedure TfrmBeijing.BitBtn11Click(Sender: TObject);
  511. var
  512.     ticketNo:word;
  514. begin
  515.     if(listBox1.ItemIndex>=0)then
  516.         begin
  517.     ticketNo:=0;
  518.     ackNo:=ticketclass.getTicket(stationclass.getNo(label2.Caption),stationclass.getNo(label4.Caption),strtoint(listbox1.Items[listBox1.ItemIndex]),ticketNo);
  519.     //showmessage(inttostr(ticketNo));
  520.     if(ticketNo<>0)then
  521.         begin
  522.             bitbtn11.Enabled:=false;
  523.             bitbtn10.Enabled:=true;
  524.             bitbtn17.Enabled:=true;
  525.             Label6.Caption:=startpoint;
  526.             Label7.Caption:=despoint;
  527.             Label9.Caption:=listbox1.Items[listbox1.ItemIndex];
  528.             label16.Caption:=inttostr(ticketNo div 128);
  529.             label17.Caption:=inttostr(ticketNo mod 128);
  530.         end
  531.     else
  532.         showmessage('没有车票可买了！');
  533.         end;// listBox1.ItemIndex>=0
  534. end;
  536. procedure TfrmBeijing.BitBtn10Click(Sender: TObject);
  537. begin
  538.     bitbtn11.Enabled:=true;
  539.     //record the ticket in listbox5
  540.     tickets.Num:=tickets.Num+1;
  541.     tickets.ticketNo[tickets.Num]:=strtoint(Label16.Caption)*128+strtoint(label17.Caption);
  542.     tickets.trainNo[tickets.Num]:=strtoint(Label9.Caption);
  543.     tickets.SName[tickets.Num]:=Label6.Caption;
  544.     tickets.DName[tickets.Num]:=Label7.Caption;
  545.     tickets.ackNo[tickets.Num]:=ackNo;
  546.     listbox5.Items.Add(tickets.SName[tickets.Num]+'-->'+tickets.DName[tickets.Num]+' '+label9.caption+'次 '+label16.caption+'车厢 '+label17.Caption+'座');
  547.     bitbtn10.Enabled:=false;
  548.     bitbtn17.Enabled:=false;
  549.     label6.Caption:='';
  550.     label7.Caption:='';
  551.     label9.Caption:='';
  552.     label16.Caption:='';
  553.     label17.Caption:='';
  554. end;
  556. procedure TfrmBeijing.N2Click(Sender: TObject);
  557. var
  558.     stations:Carrayword;
  559.     stationNo:word;
  560.     i:integer;
  561. begin
  562.     popupmenu1.Items[1].Enabled:=false;  
  563.     stations:=Carrayword.Create;
  564.     stationNo:=stationclass.getNo(stationName);
  565.     //stationNo:word;var stations:Carrayword
  566.     trainclass.getLink(stationNo,stations);
  567.     //bitbtn1.Brush.Color:=clRed;
  568.     //bitbtn1.Font.Color:=clRed;
  569.     //bitbtn1.Repaint;
  570.     listbox3.Clear;
  571.     for i:=1 to stations.Num do
  572.         begin
  573.             case stations.warray[i] of
  574.                 1:Bitbtn1.Font.Color:=clRed;
  575.                 2:Bitbtn7.Font.Color:=clRed;
  576.                 3:Bitbtn2.Font.Color:=clRed;
  577.                 4:Bitbtn3.Font.Color:=clRed;
  578.                 5:Bitbtn4.Font.Color:=clRed;
  579.                 6:Bitbtn5.Font.Color:=clRed;
  580.                 7:Bitbtn6.Font.Color:=clRed;
  581.             end;
  582.             listbox3.Items.Add(stationclass.getName(stations.warray[i]));
  583.         end;
  584.     stations.Free;
  585. end;
  587. procedure TfrmBeijing.N8Click(Sender: TObject);
  588. var
  589.     i:integer;
  590. begin
  591.     popupmenu1.Items[1].Enabled:=true;  
  592.     for i:=1 to 7 do
  593.         begin
  594.             bitbtn1.Font.Color:=clBlack;
  595.             bitbtn2.Font.Color:=clBlack;
  596.             bitbtn3.Font.Color:=clBlack;
  597.             bitbtn4.Font.Color:=clBlack;
  598.             bitbtn5.Font.Color:=clBlack;
  599.             bitbtn6.Font.Color:=clBlack;
  600.             bitbtn7.Font.Color:=clBlack;
  601.         end;
  602. end;
  604. procedure TfrmBeijing.BitBtn18Click(Sender: TObject);
  605. var
  606.     stations:Carrayword;
  607.     i:integer;
  608. begin
  609.     if tickets.Num>0 then
  610.         begin
  611.             for i:=1 to tickets.Num do
  612.                 begin
  613.     stations:=Carrayword.Create;
  614.     trainclass.getRoute(tickets.trainNo[i],stations);
  615.     ticketclass.ackTicket(stationclass.getNo(tickets.SName[i]),stationclass.getNo(tickets.DName[i]),tickets.trainNo[i],tickets.ticketNo[i],tickets.ackNo[i],true);
  616.     tickets.Num:=0;
  617.     bitbtn16.Click();
  618.     listBox5.Clear;
  619.                     showmessage('第 '+inttostr(i)+' 张票处理完毕！');
  620.                 end;
  621.         end
  622.     else
  623.         begin
  624.             showmessage('没有车票可以打印！');
  625.         end;
  626.     stations.Free;
  627. end;
  629. procedure TfrmBeijing.Button4Click(Sender: TObject);
  630. begin
  631.     try
  632.         if(ticketclass.addfull(stationclass.getNo(combobox1.Text),strtoint(edit1.Text),strtoint(maskedit1.Text),strtoint(spinEdit1.Text))=0)then
  633.             showmessage('票据加入成功！')
  634.         else
  635.             showmessage('票据加入出错!');
  636.         table1.Refresh; 
  637.     except
  638.         showmessage('请检查输入!');
  639.     end;
  642. end;
  644. procedure TfrmBeijing.BitBtn19Click(Sender: TObject);
  645. begin
  646.     Label2.Caption:='';
  647.     startpoint:='';
  648.     Label4.Caption:='';
  649.     despoint:='';
  650.     listbox1.Clear;
  651.     listbox4.Clear;
  652.     listbox3.Clear;
  653.     bitbtn11.Enabled:=true;
  654.     label6.Caption:='';
  655.     Label7.Caption:='';
  656.     Label9.Caption:='';
  657.     Label16.Caption:='';
  658.     Label17.Caption:='';
  659.     listbox1.Clear;
  660.     listbox4.Clear;
  661.     popupmenu1.Items[3].Enabled:=true;
  662.     popupmenu1.Items[4].Enabled:=false;
  663.     popupmenu1.Items[5].Enabled:=false;
  664. end;
  666. procedure TfrmBeijing.BitBtn15Click(Sender: TObject);
  667. var
  668.     trains:Carrayword;
  669.     i:integer;
  670. begin
  671.     button3.Enabled:=false;
  672.     listbox2.Clear;
  673.     trains:=Carrayword.Create;
  674.     if(trainclass.getPass(trainclass.localstation,trains)=0)then
  675.         begin
  676.             for i:=1 to trains.Num do
  677.                 begin
  678.                     listbox2.Items.Add(inttostr(trains.warray[i]));
  679.                     listbox2.Items.Add(inttostr(trains.warray[i]+1));
  680.                 end;
  681.         end
  682.     else
  683.         showmessage('ERROR!');
  684.     trains.Free; 
  685. end;
  687. procedure TfrmBeijing.BitBtn20Click(Sender: TObject);
  688. begin
  689.     button3.Enabled:=false;
  690.     listbox2.Clear;
  691.     Memo4.Clear;
  692. end;
  694. procedure TfrmBeijing.BitBtn13Click(Sender: TObject);
  695. var
  696.     trains:Carrayword;
  697.     i:integer;
  698. begin
  699.     button3.Enabled:=true; 
  700.     listbox2.Clear;
  701.     trains:=Carrayword.Create;
  702.     if(trainclass.getStart(trainclass.localstation,trains)<>1)then
  703.         begin
  704.             for i:=1 to trains.Num do
  705.                 begin
  706.                     listbox2.Items.Add(inttostr(trains.warray[i]));
  707.                     listbox2.Items.Add(inttostr(trains.warray[i]+1));
  708.                 end;
  709.         end
  710.     else
  711.         showmessage('ERROR!');
  712.     trains.Free;
  713. end;
  715. procedure TfrmBeijing.Button3Click(Sender: TObject);
  716. begin
  717. if(listbox2.ItemIndex>=0)then
  718.     Edit1.Text:=listbox2.Items[listbox2.Itemindex];  
  719. end;
  721. procedure TfrmBeijing.TabSheet2Show(Sender: TObject);
  722. begin
  723.     table1.Refresh; 
  724. end;
  726. procedure TfrmBeijing.qtrainBeforeDelete(DataSet: TDataSet);
  727. begin
  728.     showmessage('dfhtytr');
  729. end;
  731. end.