bj.pas

delphi6.0版本的主要用于学样、网吧的计费系统的源码

unit BJ;

interface

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

type
  TBJForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    row: integer;
    { Public declarations }
  end;

var
  BJForm: TBJForm;

implementation

uses datamodule;

{$R *.dfm}

procedure TBJForm.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TBJForm.Button1Click(Sender: TObject);
var
  query: Tadoquery;
  sql: string;
  Fname: string;
begin
  if inputquery('输入班级名称', '', Fname) then
  begin
    if Fname = '' then exit;
    query := Tadoquery.Create(self);
    query.Connection := dmfm.ADOConnection;

    sql := format('select * from tbj where fname=''%s''', [Fname]);
    query.close;
    query.sql.text := sql;
    query.open;
    if not query.IsEmpty then
    begin
      messagebox(handle, '班级名称已经存在', '提示', mb_iconwarning);
      exit;
    end;

    sql := format('insert tbj(Fname) values(''%s'')', [Fname]);
    query.close;
    query.sql.text := sql;
    query.ExecSQL;

    query.Destroy;
    formshow(sender);
  end;
end;

procedure TBJForm.FormShow(Sender: TObject);
var
  query: Tadoquery;
  sql: string;
  i: integer;
begin
  query := Tadoquery.Create(self);
  query.Connection := dmfm.ADOConnection;
  sql := 'select * from Tbj order by fname';
  query.close;
  query.sql.text := sql;
  query.open;
  listview1.Items.Clear;
  i := 0;
  while not query.eof do
  begin
    listview1.Items.Add();
    listview1.Items[i].Caption := query.fieldbyname('fname').AsString;
    listview1.Items[i].SubItems.Add(query.fieldbyname('id').AsString);
    query.next;
    i := i + 1;
  end;

  query.Destroy;
  row := 0;
  listview1.SetFocus;

end;

procedure TBJForm.Button2Click(Sender: TObject);
var
  query: Tadoquery;
  sql: string;
  Fname: string;
begin
  if listview1.ItemIndex = -1 then exit;
  if messagebox(handle, '你真的要删除此班级吗？', '提示', mb_iconwarning + mb_yesno) = idno then exit;

  query := Tadoquery.Create(self);
  query.Connection := dmfm.ADOConnection;

  sql := format('select * from cardtb  where class=%s', [listview1.Selected.SubItems[0]]);
  query.close;
  query.sql.text := sql;
  query.open;
  if not query.IsEmpty then
  begin
    messagebox(handle, '班级已经存在学生,不能删除', '提示', mb_iconwarning);
    exit;
  end;

  sql := format('delete tbj where ID=%s ', [listview1.Selected.SubItems[0]]);
  query.close;
  query.sql.text := sql;
  query.ExecSQL;

  query.Destroy;
  formshow(sender);
end;

procedure TBJForm.Button3Click(Sender: TObject);
var
  query: Tadoquery;
  sql: string;
  Fname: string;
begin
  if listview1.ItemIndex = -1 then exit;

  query := Tadoquery.Create(self);
  query.Connection := dmfm.ADOConnection;

  Fname := listview1.Selected.Caption;
  if not inputquery('输入班级名称', '', Fname) then exit;

  sql := format('update tbj  set fname=''%s''  where ID=%s', [Fname, listview1.Selected.SubItems[0]]);
  query.close;
  query.sql.text := sql;
  query.ExecSQL;

  query.Destroy;
  formshow(sender);
end;

end.