bj.~pa

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.