unit6.~pas

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

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, ADODB, DB, ComCtrls, ToolWin;

type
  TChaXun = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure OnPosChange(var Msg:TWmWindowPosChanging);
                        MESSAGE wm_windowposchanging;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChaXun: TChaXun;

implementation

{$R *.dfm}

procedure TChaXun.ToolButton1Click(Sender: TObject);
begin
datasource1.DataSet.First;
end;

procedure TChaXun.ToolButton2Click(Sender: TObject);
begin
datasource1.DataSet.Prior;
end;

procedure TChaXun.ToolButton3Click(Sender: TObject);
begin
datasource1.DataSet.Next;
end;

procedure TChaXun.ToolButton4Click(Sender: TObject);
begin
datasource1.DataSet.Last;
end;

procedure TChaXun.ToolButton7Click(Sender: TObject);
begin
datasource1.DataSet.Append;
//setbutton(0);
end;

procedure TChaXun.ToolButton8Click(Sender: TObject);
begin
datasource1.Edit;
//setbutton(0);
end;

procedure TChaXun.ToolButton9Click(Sender: TObject);
begin
if application.MessageBox('是否删除记录?','确认',mb_okcancel)=idok then
datasource1.DataSet.Delete;
end;

procedure TChaXun.ToolButton12Click(Sender: TObject);
begin
datasource1.DataSet.Post;
//setbutton(1);
end;

procedure TChaXun.ToolButton13Click(Sender: TObject);
begin
datasource1.DataSet.Cancel;
//setbutton(1);
end;

procedure TChaXun.ToolButton16Click(Sender: TObject);
begin
close;
end;
/////////这个函数是用来固定窗口位置不再变动/////////////////
procedure TChaXun.OnPosChange(var Msg: TWmWindowPosChanging);
begin
Msg.WindowPos.x:=left;
MSG.WindowPos.y:=TOP;
MSG.Result:=0;
end;

procedure TChaXun.Button1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from '+adotable1.TableName);
 adoquery1.SQL.Add('where('+label3.caption+' like ''%'+edit1.Text+'%'')');
 adoquery1.SQL.Add('and('+label4.caption+' like ''%'+edit2.Text+'%'')');
 adoquery1.SQL.Add('and('+label5.caption+' like ''%'+edit3.Text+'%'')');
 adoquery1.Open;
 ///////////////将查询到的东西复制到下面的DBGRID中去/////////////////////////
 adotable1.Clone(adoquery1,ltunspecified);

 dbgrid1.Columns[0].Width:=70;
 dbgrid1.Columns[1].Width:=80;
 dbgrid1.Columns[2].Width:=80;
 dbgrid1.Columns[3].Width:=80;
// dbgrid1.Columns[4].Width:=80;
// dbgrid1.Columns[5].Width:=600;


end;

end.