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.