unit1.~pas

这是一个平时无事是编写的一个航空售票管理小系统,与大家分享, 有什么问题大家在这里留言,,大家一起讨论

unit Unit1;

interface

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

type
  TDengLu = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
     xingming:String;
    { Public declarations }
  end;

var
  DengLu: TDengLu;
    

implementation

uses Unit2, Unit10;

{$R *.dfm}

procedure TDengLu.Button2Click(Sender: TObject);
begin
DengLu.close;
end;

procedure TDengLu.Button1Click(Sender: TObject);
var
  user,pass,temp:string;
begin
  zongjiemian.N2.Enabled:=false;
  zongjiemian.N5.Enabled:=false;
  zongjiemian.N6.Enabled:=false;
  zongjiemian.N17.Enabled:=false;
  zongjiemian.ToolButton1.Enabled:=false;
  zongjiemian.ToolButton4.Enabled:=false;




user:=edit2.Text;
pass:=edit3.Text;
//使用ADOQUERY组件时,要养成好的习惯,应先将其关闭
//将原来的SQL语句清除后再添加新的SQL语句
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select 编号 from 操作员表 where 操作员姓名='''+user+'''and 操作员密码='''+pass+'''';
adoquery1.Open;
temp:=adoquery1.fieldbyname('编号').AsString;
if temp<>'' then
BEGIN
ZongJieMian.show;
DengLu.Hide;
///////////////// 下面开始设置不同用户不同权限的问题////////////
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select 权限编号 from 权限清单 where 编号='''+edit1.Text+'''and 操作员权限=''添加航班信息''';
adoquery2.Open;
if adoquery2.FieldByName('权限编号').AsString<>'' then
begin
zongjiemian.ToolButton1.Enabled:=true;
zongjiemian.N2.Enabled:=true;
zongjiemian.N6.Enabled:=true;
end;
////////////////////////////////////////////////////////
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select 权限编号 from 权限清单 where 编号='''+edit1.Text+'''and 操作员权限=''更改航班信息''';
adoquery2.Open;
if adoquery2.FieldByName('权限编号').AsString<>'' then
begin
zongjiemian.ToolButton4.Enabled:=true;
zongjiemian.N7.Enabled:=true;
end;
///////////////////////////////////////////////////////
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select 权限编号 from 权限清单 where 编号='''+edit1.Text+'''and 操作员权限=''更改用户权限''';
adoquery2.Open;
if adoquery2.FieldByName('权限编号').AsString<>'' then
begin
zongjiemian.N5.Enabled:=true;
end;
//////////////////////////////////////////////////////
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select 权限编号 from 权限清单 where 编号='''+edit1.Text+'''and 操作员权限=''退票''';
adoquery2.Open;
if adoquery2.FieldByName('权限编号').AsString<>'' then
begin
zongjiemian.N17.Enabled:=true;
end;








end
else
showmessage('用户名或密码错误,请您重新登陆');
end;


/////下面通过两个方法分别实现跳到第三个EDIT,按TAB键和按回车分别实现
procedure TDengLu.Edit1Exit(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 操作员姓名 from 操作员表 where 编号='''+edit1.Text+'''');
adoquery1.Open;
edit2.Text:=adoquery1.fieldbyname('操作员姓名').AsString;
xingming:=edit2.Text;
edit3.Focused;
end;
///////这里是实现按回车时跳到EDIT3
procedure TDengLu.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then{判断是否按了回车}
 //实际上也可以通过调用EDIT1的ONEXIT方法来实现,是一样的.
 begin //不要以为这里代码写重复了,因为这个事件是发生在不同事件下发生的
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select 操作员姓名 from 操作员表 where 编号='''+edit1.Text+'''');
  adoquery1.Open;
  edit2.Text:=adoquery1.fieldbyname('操作员姓名').AsString;
  edit3.SetFocus;
 end;
end;

procedure TDengLu.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 button1.SetFocus;
end;
 //////更改启动界面显示的时间长短/////////////////
procedure TDengLu.FormCreate(Sender: TObject);

 // yanse:array[clBlack ..CM_COLORCHANGED]of String;
 // i:integer;
begin

 //QiDong:=QiDong.Create(self);//win_show是启动界面单元
 QiDong.show;
 QiDong.Update;
 sleep(2000);
// getsystemtime(currtime);
// sec:=currtime.wSecond+3;//3秒后启动界面释放
// while sec>currtime.wSecond do
// getsystemtime(currtime);
 QiDong.Free;


end;

end.