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

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

交通/航空行业

开发平台：

Delphi

UntWuhan.~pas：源码内容
  1. unit UntWuhan;
  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.   TfrmWuhan = 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.   frmWuhan: TfrmWuhan;
  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}
  177. procedure TfrmWuhan.BitBtn12Click(Sender: TObject);
  178. begin
  179.     //if(messageDlg('确定要退出！', mtConfirmation,[mbOKCancel], 0)=mrOK)then
  180.     BitBtn16Click(nil);
  181. end;
  183. procedure TfrmWuhan.N9Click(Sender: TObject);
  184. begin
  185.     if((listBox3.itemIndex>=0) and (Label4.Caption<>listbox3.Items[listBox3.itemIndex]))then
  186.         begin
  187.             Label2.Caption:=listbox3.Items[listBox3.itemIndex];
  188.             startpoint:=Label2.Caption;
  189.         end
  190. end;
  192. procedure TfrmWuhan.N10Click(Sender: TObject);
  193. begin
  194.     if((listBox3.itemIndex>=0) and (Label2.Caption<>listbox3.Items[listBox3.itemIndex]))then
  195.         begin
  196.             Label4.Caption:=listbox3.Items[listBox3.itemIndex];
  197.             despoint:=Label4.Caption;
  198.         end;
  199. end;
  201. procedure TfrmWuhan.N12Click(Sender: TObject);
  202. begin
  203.     listbox3.Items.Delete(listbox3.ItemIndex)
  204. end;
  208. procedure TfrmWuhan.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  209.   Shift: TShiftState; X, Y: Integer);
  210. begin
  211.     if(button=mbRight)then
  212.         begin
  213.     stationName:=(Sender as TBitbtn).Caption;
  214.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  215.         end;
  216. end;
  218. procedure TfrmWuhan.BitBtn7MouseUp(Sender: TObject; Button: TMouseButton;
  219.   Shift: TShiftState; X, Y: Integer);
  220. begin
  221.     if(button=mbRight)then
  222.         begin
  223.     stationName:=(Sender as TBitbtn).Caption;
  224.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  225.         end;
  226. end;
  228. procedure TfrmWuhan.BitBtn6MouseUp(Sender: TObject; Button: TMouseButton;
  229.   Shift: TShiftState; X, Y: Integer);
  230. begin
  231.     if(button=mbRight)then
  232.         begin
  233.     stationName:=(Sender as TBitbtn).Caption;
  234.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  235.         end;
  236. end;
  238. procedure TfrmWuhan.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
  239.   Shift: TShiftState; X, Y: Integer);
  240. begin
  241.     if(button=mbRight)then
  242.         begin
  243.     stationName:=(Sender as TBitbtn).Caption;
  244.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  245.         end;
  246. end;
  248. procedure TfrmWuhan.BitBtn4MouseUp(Sender: TObject; Button: TMouseButton;
  249.   Shift: TShiftState; X, Y: Integer);
  250. begin
  251.     if(button=mbRight)then
  252.         begin
  253.     stationName:=(Sender as TBitbtn).Caption;
  254.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  255.         end;
  256. end;
  258. procedure TfrmWuhan.BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
  259.   Shift: TShiftState; X, Y: Integer);
  260. begin
  261.     if(button=mbRight)then
  262.         begin
  263.     stationName:=(Sender as TBitbtn).Caption;
  264.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  265.         end;
  266. end;
  268. procedure TfrmWuhan.BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
  269.   Shift: TShiftState; X, Y: Integer);
  270. begin
  271.     if(button=mbRight)then
  272.         begin
  273.     stationName:=(Sender as TBitbtn).Caption;
  274.     popupMenu1.Popup((Sender as tbitbtn).left+X,(Sender as tbitbtn).top+Y);
  275.         end;
  276. end;
  278. procedure TfrmWuhan.N1Click(Sender: TObject);
  279. var
  280.     i:integer;
  281.     Flag:boolean;
  282. begin
  283.     //first we judge whether it has been in listBox3
  284.     Flag:=True;
  285.     //showmessage(inttostr(listBox3.Items.Count));
  286.     if(listBox3.Items.Count>=1)then
  287.         for i:=1 to listBox3.Items.Count do
  288.             begin
  289.               if(listBox3.Items[i-1]=StationName)then
  290.                 Flag:=false;
  291.             end;
  292.     if(flag=true)then
  293.         listbox3.Items.Add(StationName);
  294. end;
  297. procedure TfrmWuhan.Button1Click(Sender: TObject);
  298. begin
  299.     N9Click(nil);
  300. end;
  302. procedure TfrmWuhan.Button2Click(Sender: TObject);
  303. begin
  304.     N10Click(nil);
  305. end;
  307. procedure TfrmWuhan.N3Click(Sender: TObject);
  308. begin
  309.     if(despoint<>stationName)then
  310.         begin
  311.     //startName:=stationName;
  312.     startpoint:=stationName;
  313.     Label2.Caption:=startpoint;
  314.     //Label2.Enabled:=false;
  315.     popupMenu1.Items.Items[3].Enabled:=false;
  316.     popupMenu1.Items.Items[4].Enabled:=true;
  317.         end;
  318. end;
  320. procedure TfrmWuhan.N5Click(Sender: TObject);
  321. begin
  322.     if(startpoint<>stationName)then
  323.         begin
  324.             //desName:=stationName;
  325.             despoint:=stationName;
  326.             label4.Caption:=despoint;
  327.             //label4.Enabled:=false;
  328.             popupMenu1.Items.Items[5].Enabled:=true;
  329.             popupMenu1.Items.Items[4].Enabled:=false;
  330.         end;
  331. end;
  333. procedure TfrmWuhan.N6Click(Sender: TObject);
  334. var
  335.     trains:Carrayword;
  336.     i:integer;
  337. begin
  338.     popupMenu1.Items.Items[3].Enabled:=true;
  339.     popupMenu1.Items.Items[4].Enabled:=false;
  340.     popupMenu1.Items.Items[5].Enabled:=false;
  341.     Label2.Enabled:=true;
  342.     label4.Enabled:=true;
  343.     listbox1.Clear;
  344.     listbox4.Clear;
  345.     if((startpoint<>'')and(despoint<>''))then
  346.         begin
  347.             trains:=Carrayword.Create();
  348.             trainclass.getArrive(stationclass.getNo(startpoint),stationclass.getNo(despoint),trains);
  349.             //showmessage(inttostr(trains.Num));
  350.             if (trains.Num>0)then
  351.                 begin
  352.                     for i:=1 to trains.Num do
  353.                         begin
  354.                             listbox1.Items.Add(inttostr(trains.warray[i]));
  355.                         end;
  356.                 end
  357.              else
  358.                 showmessage('没有查到相关信息！');
  359.             trains.Free;
  360.         end
  361.     else
  362.         begin
  363.             showmessage('请选定起点站和终点站！');
  364.         end;
  365. end;
  367. procedure TfrmWuhan.N13Click(Sender: TObject);
  368. begin
  369.     //popupMenu1.Items.Items[3].Enabled:=true;
  370.     bitbtn19.Click(); 
  371. end;
  373. procedure TfrmWuhan.FormCreate(Sender: TObject);
  375. begin
  376.     trainclass:=Ctrain.Create();
  377.     stationclass:=Cstation.Create();
  378.     ticketclass:=Cticket.Create();
  379.     ticketclass.myCtrain:=trainclass;
  380.     trainclass.setQuery(qtrain);
  381.     trainclass.localstation:=4;
  382.     ticketclass.setQuery(qticket);
  383.     ticketclass.settable('ticket4.db');
  384.     ticketclass.localstation:=4;
  385.     stationclass.setQuery(qstation);
  386.     tickets.Num:=0;
  387. end;
  389. procedure TfrmWuhan.FormClose(Sender: TObject; var Action: TCloseAction);
  390. begin
  391.     ticketclass.query.Close;
  392.     stationclass.query.Close;
  393.     trainclass.query.Close;
  394.     ticketclass.Free;
  395.     stationclass.Free;
  396.     trainclass.Free;
  397. end;
  399. procedure TfrmWuhan.BitBtn16Click(Sender: TObject);
  400. begin
  401.     if(Bitbtn11.Enabled=false)then
  402.         BitBtn17Click(nil);
  403.       begin
  404.         Label2.Caption:='';
  405.         Label4.Caption:='';
  406.         Label6.Caption:='';
  407.         Label7.Caption:='';
  408.         Label9.Caption:='';
  409.         Label16.Caption:='';
  410.         Label17.Caption:='';
  411.         listBox1.Items.Clear;
  412.         listBox3.Items.Clear;
  413.         listBox4.Items.Clear;
  414.         //listBox5.Items.Clear;
  415.         bitbtn10.Enabled:=false;
  416.         bitbtn17.Enabled:=false;
  417.       end
  418. end;
  420. procedure TfrmWuhan.BitBtn17Click(Sender: TObject);
  421. begin
  423.     bitbtn11.Enabled:=true;
  424.     //ack ticket falg=false
  425.     ticketclass.ackTicket(stationclass.getNo(Label6.Caption),stationclass.getNo(Label7.Caption),strtoint(label9.Caption),(strtoint(label16.Caption)*128+strtoint(label17.Caption)),ackNo,false);
  426.     bitbtn10.Enabled:=false;
  427.     bitbtn17.Enabled:=false;
  428.     label6.Caption:='';
  429.     label7.Caption:='';
  430.     label9.Caption:='';
  431.     label16.Caption:='';
  432.     label17.Caption:='';
  433. end;
  435. procedure TfrmWuhan.Label2DblClick(Sender: TObject);
  436. begin
  437.     Label2.Caption:='';
  438. end;
  440. procedure TfrmWuhan.Label4DblClick(Sender: TObject);
  441. begin
  442.     Label4.Caption:='';
  443. end;
  445. procedure TfrmWuhan.BitBtn8Click(Sender: TObject);
  446. var
  447.     trains:Carrayword;
  448.     i:integer;
  449. begin
  450.     Label2.Enabled:=true;
  451.     label4.Enabled:=true;
  452.     listbox1.Clear;
  453.     listbox4.Clear;
  454.     if((label2.Caption<>'')and(label4.Caption<>''))then
  455.         begin
  456.             trains:=Carrayword.Create();
  457.             trainclass.getArrive(stationclass.getNo(label2.Caption),stationclass.getNo(label4.Caption),trains);
  458.             //showmessage(inttostr(trains.Num));
  459.             if (trains.Num>0)then
  460.                 begin
  461.                     for i:=1 to trains.Num do
  462.                         begin
  463.                             listbox1.Items.Add(inttostr(trains.warray[i]));
  464.                         end;
  465.                 end
  466.              else
  467.                 showmessage('没有查到相关信息！');
  468.             trains.Free;
  469.         end
  470.     else
  471.         begin
  472.             showmessage('请选定起点站和终点站！');
  473.         end;
  474. end;
  476. procedure TfrmWuhan.BitBtn9Click(Sender: TObject);
  477. var
  478.     stations:Carrayword;
  479.     i:integer;
  480. begin
  481. //consult all info about the checked train
  482.     listbox4.Clear;
  483.     if(listbox1.ItemIndex>=0)then
  484.         begin
  485.             stations:=Carrayword.Create;
  486.             //showmessage(inttostr(listbox1.ItemIndex));
  487.             i:=trainclass.getRoute(strtoint(listBox1.Items[listbox1.ItemIndex]),stations);
  488.             //showmessage(inttostr(stations.Num));
  489.             if(i=0)then
  490.                 begin
  491.                     for i:=1 to stations.Num do
  492.                         begin
  493.                             listbox4.Items.Add(stationclass.getName(stations.warray[i]));
  494.                         end;
  495.                 end
  496.             else
  497.                 begin
  498.                     showmessage('请选定起点站和终点站！');
  499.                 end;
  500.             stations.Free; 
  501.         end
  502.     else
  503.         begin
  504.             showmessage('清首先选定一辆列车！');
  505.         end;
  507. end;
  509. procedure TfrmWuhan.BitBtn11Click(Sender: TObject);
  510. var
  511.     ticketNo:word;
  513. begin
  514.     if(listBox1.ItemIndex>=0)then
  515.         begin
  516.     ticketNo:=0;
  517.     ackNo:=ticketclass.getTicket(stationclass.getNo(label2.Caption),stationclass.getNo(label4.Caption),strtoint(listbox1.Items[listBox1.ItemIndex]),ticketNo);
  518.     //showmessage(inttostr(ticketNo));
  519.     if(ticketNo<>0)then
  520.         begin
  521.             bitbtn11.Enabled:=false;
  522.             bitbtn10.Enabled:=true;
  523.             bitbtn17.Enabled:=true;
  524.             Label6.Caption:=startpoint;
  525.             Label7.Caption:=despoint;
  526.             Label9.Caption:=listbox1.Items[listbox1.ItemIndex];
  527.             label16.Caption:=inttostr(ticketNo div 128);
  528.             label17.Caption:=inttostr(ticketNo mod 128);
  529.         end
  530.     else
  531.         showmessage('没有车票可买了！');
  532.         end;// listBox1.ItemIndex>=0
  533. end;
  535. procedure TfrmWuhan.BitBtn10Click(Sender: TObject);
  536. begin
  537.     bitbtn11.Enabled:=true;
  538.     //record the ticket in listbox5
  539.     tickets.Num:=tickets.Num+1;
  540.     tickets.ticketNo[tickets.Num]:=strtoint(Label16.Caption)*128+strtoint(label17.Caption);
  541.     tickets.trainNo[tickets.Num]:=strtoint(Label9.Caption);
  542.     tickets.SName[tickets.Num]:=Label6.Caption;
  543.     tickets.DName[tickets.Num]:=Label7.Caption;
  544.     tickets.ackNo[tickets.Num]:=ackNo;
  545.     listbox5.Items.Add(tickets.SName[tickets.Num]+'-->'+tickets.DName[tickets.Num]+' '+label9.caption+'次 '+label16.caption+'车厢 '+label17.Caption+'座');
  546.     bitbtn10.Enabled:=false;
  547.     bitbtn17.Enabled:=false;
  548.     label6.Caption:='';
  549.     label7.Caption:='';
  550.     label9.Caption:='';
  551.     label16.Caption:='';
  552.     label17.Caption:='';
  553. end;
  555. procedure TfrmWuhan.N2Click(Sender: TObject);
  556. var
  557.     stations:Carrayword;
  558.     stationNo:word;
  559.     i:integer;
  560. begin
  561.     popupmenu1.Items[1].Enabled:=false;  
  562.     stations:=Carrayword.Create;
  563.     stationNo:=stationclass.getNo(stationName);
  564.     //stationNo:word;var stations:Carrayword
  565.     trainclass.getLink(stationNo,stations);
  566.     //bitbtn1.Brush.Color:=clRed;
  567.     //bitbtn1.Font.Color:=clRed;
  568.     //bitbtn1.Repaint;
  569.     listbox3.Clear;
  570.     for i:=1 to stations.Num do
  571.         begin
  572.             case stations.warray[i] of
  573.                 1:Bitbtn1.Font.Color:=clRed;
  574.                 2:Bitbtn7.Font.Color:=clRed;
  575.                 3:Bitbtn2.Font.Color:=clRed;
  576.                 4:Bitbtn3.Font.Color:=clRed;
  577.                 5:Bitbtn4.Font.Color:=clRed;
  578.                 6:Bitbtn5.Font.Color:=clRed;
  579.                 7:Bitbtn6.Font.Color:=clRed;
  580.             end;
  581.             listbox3.Items.Add(stationclass.getName(stations.warray[i]));  
  582.         end;
  583.     stations.Free;
  584. end;
  586. procedure TfrmWuhan.N8Click(Sender: TObject);
  587. var
  588.     i:integer;
  589. begin
  590.     popupmenu1.Items[1].Enabled:=true;  
  591.     for i:=1 to 7 do
  592.         begin
  593.             bitbtn1.Font.Color:=clBlack;
  594.             bitbtn2.Font.Color:=clBlack;
  595.             bitbtn3.Font.Color:=clBlack;
  596.             bitbtn4.Font.Color:=clBlack;
  597.             bitbtn5.Font.Color:=clBlack;
  598.             bitbtn6.Font.Color:=clBlack;
  599.             bitbtn7.Font.Color:=clBlack;
  600.         end;
  601. end;
  603. procedure TfrmWuhan.BitBtn18Click(Sender: TObject);
  604. var
  605.     stations:Carrayword;
  606.     i:integer;
  607. begin
  608.     if tickets.Num>0 then
  609.         begin
  610.             for i:=1 to tickets.Num do
  611.                 begin
  612.     stations:=Carrayword.Create;
  613.     trainclass.getRoute(tickets.trainNo[i],stations);
  614.     ticketclass.ackTicket(stationclass.getNo(tickets.SName[i]),stationclass.getNo(tickets.DName[i]),tickets.trainNo[i],tickets.ticketNo[i],tickets.ackNo[i],true);
  615.     tickets.Num:=0;
  616.     bitbtn16.Click();
  617.     listBox5.Clear;
  618.                     showmessage('第 '+inttostr(i)+' 张票处理完毕！');
  619.                 end;
  620.         end
  621.     else
  622.         begin
  623.             showmessage('没有车票可以打印！');
  624.         end;
  625.     stations.Free;
  626. end;
  628. procedure TfrmWuhan.Button4Click(Sender: TObject);
  629. begin
  630.     try
  631.         if(ticketclass.addfull(stationclass.getNo(combobox1.Text),strtoint(edit1.Text),strtoint(maskedit1.Text),strtoint(spinEdit1.Text))=0)then
  632.             showmessage('票据加入成功！')
  633.         else
  634.             showmessage('票据加入出错!');
  635.         table1.Refresh; 
  636.     except
  637.         showmessage('请检查输入!');
  638.     end;
  641. end;
  643. procedure TfrmWuhan.BitBtn19Click(Sender: TObject);
  644. begin
  645.     Label2.Caption:='';
  646.     startpoint:='';
  647.     Label4.Caption:='';
  648.     despoint:='';
  649.     listbox1.Clear;
  650.     listbox4.Clear;
  651.     listbox3.Clear;
  652.     bitbtn11.Enabled:=true;
  653.     label6.Caption:='';
  654.     Label7.Caption:='';
  655.     Label9.Caption:='';
  656.     Label16.Caption:='';
  657.     Label17.Caption:='';
  658.     listbox1.Clear;
  659.     listbox4.Clear;
  660.     popupmenu1.Items[3].Enabled:=true;
  661.     popupmenu1.Items[4].Enabled:=false;
  662.     popupmenu1.Items[5].Enabled:=false;
  663. end;
  665. procedure TfrmWuhan.BitBtn15Click(Sender: TObject);
  666. var
  667.     trains:Carrayword;
  668.     i:integer;
  669. begin
  670.     button3.Enabled:=false; 
  671.     listbox2.Clear;
  672.     trains:=Carrayword.Create;
  673.     if(trainclass.getPass(trainclass.localstation,trains)=0)then
  674.         begin
  675.             for i:=1 to trains.Num do
  676.                 begin
  677.                     listbox2.Items.Add(inttostr(trains.warray[i]));
  678.                     listbox2.Items.Add(inttostr(trains.warray[i]+1));
  679.                 end;
  680.         end
  681.     else
  682.         showmessage('ERROR!');
  683.     trains.Free;
  684. end;
  686. procedure TfrmWuhan.BitBtn20Click(Sender: TObject);
  687. begin
  688.     button3.Enabled:=false; 
  689.     listbox2.Clear;
  690.     Memo4.Clear;
  691. end;
  693. procedure TfrmWuhan.BitBtn13Click(Sender: TObject);
  694. var
  695.     trains:Carrayword;
  696.     i:integer;
  697. begin
  698.     button3.Enabled:=true; 
  699.     listbox2.Clear;
  700.     trains:=Carrayword.Create;
  701.     if(trainclass.getStart(trainclass.localstation,trains)<>1)then
  702.         begin
  703.             for i:=1 to trains.Num do
  704.                 begin
  705.                     listbox2.Items.Add(inttostr(trains.warray[i]));
  706.                     listbox2.Items.Add(inttostr(trains.warray[i]+1));
  707.                 end;
  708.         end
  709.     else
  710.         showmessage('ERROR!');
  711.     trains.Free;
  712. end;
  714. procedure TfrmWuhan.Button3Click(Sender: TObject);
  715. begin
  716. if(listbox2.ItemIndex>=0)then
  717.     Edit1.Text:=listbox2.Items[listbox2.Itemindex];  
  718. end;
  720. procedure TfrmWuhan.TabSheet2Show(Sender: TObject);
  721. begin
  722.     table1.Refresh; 
  723. end;
  725. procedure TfrmWuhan.qtrainBeforeDelete(DataSet: TDataSet);
  726. begin
  727.     showmessage('dfhtytr');
  728. end;
  730. end.