u_mainform.pas

很好地delphi书籍源码

unit U_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, StdCtrls, Grids, DBGrids, Buttons,
  DBActns, ActnList, Menus, RpCon, RpConDS, RpConBDE, RpDefine, RpRave;

type
  TFrmBookTicket = class(TForm)
    ToolBar1: TToolBar;
    AddTB: TToolButton;
    DelTB: TToolButton;
    ExitTB: TToolButton;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    QueryGB: TGroupBox;
    BNameCB: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    TkindCB: TComboBox;
    AddGB: TGroupBox;
    IDCB: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    NameCB: TComboBox;
    DateEdit: TEdit;
    KindCB: TComboBox;
    DesCB: TComboBox;
    OkSB: TSpeedButton;
    AddCancelSB: TSpeedButton;
    ForeEdit: TComboBox;
    AddSB1: TSpeedButton;
    Label10: TLabel;
    BDateEdit: TEdit;
    NoteCB: TComboBox;
    BNoteCB: TComboBox;
    Label11: TLabel;
    ModGB: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    ModSB: TSpeedButton;
    ModCancelSB: TSpeedButton;
    ModSB1: TSpeedButton;
    Label19: TLabel;
    TDateEdit1: TEdit;
    KindCbB: TComboBox;
    DesCbB: TComboBox;
    ForeCbB: TComboBox;
    BDateEdit2: TEdit;
    NoteCbB: TComboBox;
    ModSB2: TSpeedButton;
    AddSB2: TSpeedButton;
    IDCbB: TEdit;
    NameCbB: TEdit;
    PrintTB: TToolButton;
    UserTB: TToolButton;
    ModTB: TToolButton;
    RvProject1: TRvProject;
    RvQueryConnection1: TRvQueryConnection;
    procedure ChooseDateTimeSB(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OkSBClick(Sender: TObject);
    procedure AddTBClick(Sender: TObject);
    procedure AddCancelSBClick(Sender: TObject);
    procedure ExitTBClick(Sender: TObject);
    procedure DelTBClick(Sender: TObject);
    procedure TkindCBChange(Sender: TObject);
    procedure BNoteCBChange(Sender: TObject);
    procedure BNameCBChange(Sender: TObject);
    procedure ModSBClick(Sender: TObject);
    procedure ModCancelSBClick(Sender: TObject);
    procedure ModTBClick(Sender: TObject);
    procedure UserTBClick(Sender: TObject);
    procedure PrintTBClick(Sender: TObject);
  private
    procedure SelectAll;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBookTicket: TFrmBookTicket;
  const Title:array[0..7] of string=('客户编号','客户姓名','交通工具','车票时间',
  '预付押金','目的地','订票时间','备注');
  function GetMyDateTime : TDateTime; stdcall; external 'FormDll.dll';

implementation

uses U_DataModule, U_LoginForm, U_UserForm,RvDLADO;

{$R *.dfm}

procedure TFrmBookTicket.FormCreate(Sender: TObject);
begin
  if GuestKind='操作' then
  else
    ToolBar1.Visible:=false;
  SelectAll;
end;

procedure TFrmBookTicket.OkSBClick(Sender: TObject);
var
  SQLStr:string;
begin
 SQLStr:='Insert into tbBookTicket Values('+Trim(IDCB.Text)+','''
          +NameCB.Text+''','''+KindCB.Text+''','''+DateEdit.Text+''','''
          +BDateEdit.Text+''','+ForeEdit.Text+','''+DesCB.Text+''','''
          +NoteCB.Text+''')';
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add(SQLStr);
    ExecSQL;
  end;
  SelectAll;
  AddGB.Visible:=false;
end;

procedure TFrmBookTicket.AddTBClick(Sender: TObject);
begin
  AddGB.Left:=10;
  AddGB.Top:=20;
  AddGB.Visible:=true;
end;

procedure TFrmBookTicket.SelectAll;
var
  i:byte;
begin
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * from tbBookTicket');
{    SQL.Add('SELECT  GuestID as 客户编号,GuestName as 客户姓名,TKind 交通工具,');
    SQL.Add('TDate as 车票时间, Foregift as 预付押金, DesTown as 目的地,');
    SQL.Add('BDate as 订票时间, Note as 备注  From tbBookTicket'); }
    Open;
  end;
  for i:=0 to 7 do
    DBGrid1.Columns[i].Title.Caption:=Title[i];
end;

procedure TFrmBookTicket.AddCancelSBClick(Sender: TObject);
begin
  AddGB.Visible:=false;
end;

procedure TFrmBookTicket.ExitTBClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmBookTicket.DelTBClick(Sender: TObject);
begin
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('DELETE  tbBookTicket WHERE Note=''结束''');
    ExecSQL;
  end;
  SelectAll;
end;

procedure TFrmBookTicket.TkindCBChange(Sender: TObject);
var
  i:byte;
begin
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * from tbBookTicket where TKind like '''+TkindCB.Text+'%''');
{    SQL.Add('SELECT GuestID as 客户编号,GuestName as 客户姓名,TKind 交通工具,');
    SQL.Add('TDate as 车票日期, Foregift as 预付押金, DesTown as 目的地,');
    SQL.Add('Note as 备注  From tbBookTicket where TKind like '''+TkindCB.Text+'%'''); }
    Open;
  end;
  for i:=0 to 7 do
    DBGrid1.Columns[i].Title.Caption:=Title[i];
end;

procedure TFrmBookTicket.BNoteCBChange(Sender: TObject);
var
  i:byte;
begin
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
     SQL.Add('SELECT * from tbBookTicket where Note like '''+BNoteCB.Text+'%''');
{    SQL.Add('SELECT GuestID as 客户编号,GuestName as 客户姓名,TKind 交通工具,');
    SQL.Add('TDate as 车票日期, Foregift as 预付押金, DesTown as 目的地,');
    SQL.Add('Note as 备注  From tbBookTicket where Note like '''+BNoteCB.Text+'%''');}
    Open;
  end;
  for i:=0 to 7 do
    DBGrid1.Columns[i].Title.Caption:=Title[i];
end;

procedure TFrmBookTicket.BNameCBChange(Sender: TObject);
var
  i:byte;
begin
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * from tbBookTicket where GuestName like '''+BNameCB.Text+'%''');
{    SQL.Add('SELECT GuestID as 客户编号,GuestName as 客户姓名,TKind 交通工具,');
    SQL.Add('TDate as 车票日期, Foregift as 预付押金, DesTown as 目的地,');
    SQL.Add('Note as 备注  From tbBookTicket where GuestName like '''+BNameCB.Text+'%'''); }
    Open;
  end;
  for i:=0 to 7 do
    DBGrid1.Columns[i].Title.Caption:=Title[i];
end;

procedure TFrmBookTicket.ModSBClick(Sender: TObject);
var
  SQLStr:string;
begin

  SQLStr:='UPDATE  tbBookTicket SET '
         +' TKind='''+KindCbB.Text +''','
         +' TDate='''+TDateEdit1.Text +''','
         +' Foregift='+ForeCbB.Text +','
         +' DesTown='''+DesCbB.Text+''','
         +' BDate='''+BDateEdit2.Text+''','
         +' Note='''+NoteCbB.Text+''' where GuestName='''+NameCbB.Text+'''';
  with DataModule1.Query1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add(SQLStr);
    ExecSQL;
  end;
  SelectAll;
  ModGB.Visible:=false;
end;
procedure TFrmBookTicket.ModCancelSBClick(Sender: TObject);
begin
  ModGB.Visible:=false;
end;


//procedure TFrmBookTicket.ToolButton2Click(Sender: TObject);
{var
 DynamicForm:TDynamicForm;
 GridPrint:TGridPrint;
begin
  DynamicForm:=TDynamicForm.Create(Application);
  with DynamicForm do
  begin
//  DynamicForm.QuickRep.Page.Orientation:=poLandscape;
    GridPrint:=TGridPrint.Create(QuickRep,DBGrid1,TitleB,HeaderB,DetailB,
                      '订票信息表');
    GridPrint.DoPreview();
    GridPrint.Free;
  end;}
//end;

procedure TFrmBookTicket.ModTBClick(Sender: TObject);
begin
  if DataModule1.Query1.RecordCount=0 then exit;
  ModGB.Left:=30;
  ModGB.Top:=30;
  with DataModule1.Query1 do
  begin
    IDCbB.Text    :=Fields[0].Value;
    NameCbB.Text  :=Fields[1].Value;
    KindCbB.Text  :=Fields[2].Value;
    TDateEdit1.Text :=Fields[3].Value;
    BDateEdit2.Text:=Fields[4].Value;
    ForeCbB.Text   :=Fields[5].Value;
    DesCbB.Text:=Fields[6].Value;
    NoteCbB.Text  :=Fields[7].Value;
  end;
  ModGB.Visible:=true;
end;

procedure TFrmBookTicket.ChooseDateTimeSB(Sender: TObject);
var
  Temp:TSpeedButton;
begin
  if  (Sender is TSpeedButton) then
    Temp:=(Sender as TSpeedButton)
  else
    exit;
  case Temp.Tag of
   1: DateEdit.Text:=DateTimeToStr(GetMyDateTime);
   2: BDateEdit.Text:=DateTimeToStr(GetMyDateTime);
   3: TDateEdit1.Text:=DateTimeToStr(GetMyDateTime);
   4: BDateEdit2.Text:=DateTimeToStr(GetMyDateTime);
  end;
end;

procedure TFrmBookTicket.UserTBClick(Sender: TObject);
begin
  FrmUser:=TFrmUser.Create(Application);
  FrmUser.ShowModal;
  FrmUser.Free;
end;

procedure TFrmBookTicket.PrintTBClick(Sender: TObject);
begin
  RvProject1.Execute;
end;

end.