lp.pas

DBchart的高级使用

unit lp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Grids, DBGrids, Db, ExtCtrls, GradBtn,
  DBCtrls, DBTables;

type
  Tf_lp = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    GradBtn1: TGradBtn;
    ComboBox1: TComboBox;
    GradBtn2: TGradBtn;
    GradBtn3: TGradBtn;
    GradBtn4: TGradBtn;
    DBNavigator1: TDBNavigator;
    RadioGroup1: TRadioGroup;
    Table1: TTable;
    RadioGroup2: TRadioGroup;
    procedure GradBtn1Click(Sender: TObject);
    procedure GradBtn4Click(Sender: TObject);
    procedure GradBtn3Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure GradBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_lp: Tf_lp;

implementation
uses
datamd;
{$R *.DFM}

procedure Tf_lp.GradBtn1Click(Sender: TObject);
var
flag,exist:boolean;
begin
   exist:=false;
  if combobox1.Text<> '' then
  begin
  flag:=false;
  with Table1 do
  begin
    first;
    while not eof do
      begin
        if fields[0].AsString=combobox1.Text then
        begin
        edit;
        fields[1].AsInteger:=fields[1].AsInteger+1;
        post;
        flag:=true;
        end;
        next;
      end;
     if flag=false then
     begin
        with datamd.DataModule1.importdb do
        begin
        open;
        first;
        while not eof do
        begin
         if fields[1].asstring=combobox1.Text then
         exist:=true;
         next;
        end;
        end;
        if  not exist then
        showmessage('另选人不在库中!请另填!')
        else
          begin
            table1.appendrecord([combobox1.text,1]);
            combobox1.Items.Append( combobox1.text);
          end;
      end;
     end;
    end;
     gradbtn2.Enabled:=true;
 end;

procedure Tf_lp.GradBtn4Click(Sender: TObject);
begin
  close;
end;

procedure Tf_lp.GradBtn3Click(Sender: TObject);
begin
  table1.Delete;
end;

procedure Tf_lp.RadioGroup1Click(Sender: TObject);
begin
  combobox1.Items.Clear;
  table1.Close;
  if radiogroup1.ItemIndex=0 then
    begin
    table1.TableName:='ldlx';
    radiogroup2.Enabled:=true;
    end
  else
    begin
    table1.tablename:='cwlx';
    radiogroup2.Enabled:=false;
    end;
  table1.open;
  table1.First;
  while not table1.Eof do
  begin
  combobox1.Items.Append(table1.Fields[0].AsString);
  table1.Next;
  end;

end;

procedure Tf_lp.GradBtn2Click(Sender: TObject);
begin
  table1.Edit;
  if table1.Fields[1].AsInteger<>0 then
  table1.Fields[1].AsInteger:=table1.Fields[1].AsInteger-1
  else
  showmessage('选票为零!');

  table1.Post;
end;

procedure Tf_lp.FormCreate(Sender: TObject);
begin
  table1.Open;
end;

procedure Tf_lp.RadioGroup2Click(Sender: TObject);
begin
  table1.edit;
  table1.Fields[2].AsString:=radiogroup2.Items[radiogroup2.itemindex];
  table1.Post;
  table1.Refresh;
end;

procedure Tf_lp.FormShow(Sender: TObject);
begin
  table1.Open;
end;

end.