u_form3.~pas

很好地delphi书籍源码

unit U_Form3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, ImgList, DBActns,
  ActnList, ComCtrls, ToolWin;

type
  TForm3 = class(TForm)
    ToolBar1: TToolBar;
    DSAppendTB: TToolButton;
    DSEditTB: TToolButton;
    DSDeleteTB: TToolButton;
    ActionList1: TActionList;
    DSAppend: TDataSetInsert;
    DSEdit: TDataSetEdit;
    DSDelete: TDataSetDelete;
    DSPost: TDataSetPost;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    NationCB: TComboBox;
    TeamNameCB1: TComboBox;
    TeamNameCB2: TComboBox;
    ToolButton1: TToolButton;
    Return: TAction;
    DSPostTB: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure DSAppendExecute(Sender: TObject);
    procedure ReturnExecute(Sender: TObject);
    procedure NationCBChange(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses U_DataModule, U_Form1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var
  i:byte;
begin
  DBGrid1.Columns[0].Visible:=false;
  for i:=1 to High(Nation) do
    NationCB.Items.Add(Nation[i]);
  with DM.MatchTable do
   if IsEmpty then
    begin
      Append;
      FieldByName('轮次').AsInteger:=1;
      FieldByName('场次').AsInteger:=0;
      FieldByName('主队').AsString:='----';
      FieldByName('客队').AsString:='----';
      post;
    end;
end;

procedure TForm3.DSAppendExecute(Sender: TObject);
var
  i,j:Word;
begin
  if (TeamNameCB1.Text='') or (TeamNameCB2.Text='') then
  begin
    Showmessage('主队和客队信息不能空着');
    exit;
  end;
  with DM.MatchTable do
  begin
    Last;
    i:= FieldByName('轮次').AsInteger;
    j:= FieldByName('场次').AsInteger;
    if j<13 then inc(j)
    else begin
      inc(i);
      j:=1;
    end;
    Append;
    FieldByName('轮次').AsInteger:=i;
    FieldByName('场次').AsInteger:=j;
    FieldByName('主队').AsString:=TeamNameCB1.Text;
    FieldByName('客队').AsString:=TeamNameCB2.Text;
  end;
end;

procedure TForm3.ReturnExecute(Sender: TObject);
begin
  Form1.Show;
  Close;
end;

procedure TForm3.NationCBChange(Sender: TObject);
begin
 with DM.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT 球队名称 FROM  球队.db where  联赛名称="'+NationCB.Text+'"');
    Open;
    First;
    TeamNameCB1.Items.Clear;
    TeamNameCB2.Items.Clear;
    while not Eof do
    begin
      TeamNameCB1.Items.add(FieldByName('球队名称').AsString);
      TeamNameCB2.Items.add(FieldByName('球队名称').AsString);
      next;
    end;
    TeamNameCB1.ItemIndex:=0;
    TeamNameCB2.ItemIndex:=0;
  end;

end;

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  M,N:integer;
begin
 M:=DM.MatchTable.FieldByName('轮次').AsInteger;
 if Column.Title.Column.Index=1 then
 begin
   if M mod 2 =1 then
   DBGrid1.Canvas.Brush.Color := clInfoBk
   else
   DBGrid1.Canvas.Brush.Color := clAqua;
 end;
 DBGrid1.DefaultDrawDatacell(Rect,Column.field,state);
end;

end.