modifytrain.pas

该程序不能实现全程售票

unit ModifyTrain;

interface

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

type
  TModifyTrainFrm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ModifyTrainFrm: TModifyTrainFrm;

implementation
    uses Login, Main;
{$R *.dfm}
procedure TModifyTrainFrm.Button1Click(Sender: TObject);
begin
     with LoginFrm.ADOQuery1 do
     begin
         close;
         sql.clear;
         sql.add('select * from 管理员 where admiid='+''''+LoginFrm.edit1.text+'''');
         open;
         first;
         if recordcount=0 then
           begin
            showmessage('对不起,您没有权限进入此单元，详情请看帮助栏') ;
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            end
           else
            begin
    if edit1.text='' then
       showmessage('请输入车次号！')
    else
       if edit2.text='' then
          showmessage('请输入票价')
    else
       if edit3.text='' then
          showmessage('请输入站点名称！')
       else
           if edit4.text='' then
              showmessage('请输入到达时间！')
       else
           if edit5.text='' then
              showmessage('请输入最大人限！')
       else
           if edit6.text='' then
              showmessage('请输入站点号！')
     else
       begin
         begin
         close;
         sql.clear;
         sql.add('select * from 车次 where trainnum='+''''+edit1.text+'''');
         open;
         first;
         if recordcount<>0 then
           begin
            showmessage('对不起，此趟列车已经存在！请重新选择车次号！');
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            edit5.text:='';
            edit6.text:='';
           end
         else
            begin
            close;
            sql.clear;
            sql.add('insert into 车次 (maxnum,trainnum,price,passed,arrivetime,prove,passnum,admiid,traindate) values('+''''+edit5.text+''''+','+''''+edit1.text+''''+','+''''+edit2.text+''''+','+''''+edit3.text+''''+','+''''+edit4.text+''''+','+''''+edit5.text+''''+','+''''+edit6.text+''''+','+''''+LoginFrm.Edit1.Text+''''+','+''''+edit7.text+''''+')');
            execsql;
            showmessage('新车次添加成功！,请查阅帮助信息一进行完整添加');
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            edit5.Text:='';
            edit6.text:='';
            edit7.text:='';
            end;
         end;
     end;
     end;
     end;
end;

procedure TModifyTrainFrm.Button2Click(Sender: TObject);
begin
 edit1.text:='';
 edit2.text:='';
  edit3.text:='';
   edit4.text:='';
   MainFrm.Show;
end;


procedure TModifyTrainFrm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9','.']) then
   begin
    showmessage('请输入正确的票价');
    key:=#0;
   end
end;


procedure TModifyTrainFrm.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',':']) then
   begin
    showmessage('请输入正确的时间');
    key:=#0;
   end
end;


procedure TModifyTrainFrm.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then
   begin
    showmessage('请输入正确负载');
    key:=#0;
   end
end;

procedure TModifyTrainFrm.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9']) then
   begin
    showmessage('请输入正确站点号');
    key:=#0;
   end
end;

procedure TModifyTrainFrm.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9','-']) then
   begin
    showmessage('请输入正确的日期');
    key:=#0;
   end
end;
end.