kc.~pa

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

unit KC;

interface

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

type
  TKCForm = class(TForm)
    Button1 : TButton;
    Button2 : TButton;
    Button3 : TButton;
    Button4 : TButton;
    PageControl1 : TPageControl;
    TabSheet1 : TTabSheet;
    ListBox1 : TListBox;
    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
  KCForm : TKCForm;

implementation

uses datamodule;

{$R *.dfm}

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

procedure TKCForm.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 tkc 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 tkc(Fname) values(''%s'')', [Fname]);
      query.close;
      query.sql.text := sql;
      query.ExecSQL;

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

procedure TKCForm.FormShow(Sender : TObject);
var
  query : Tadoquery;
  sql : string;
begin
  query := Tadoquery.Create(self);
  query.Connection := dmfm.ADOConnection;
  sql := 'select * from Tkc order by fname';
  query.close;
  query.sql.text := sql;
  query.open;
  listbox1.Items.Clear;
  while not query.eof do
    begin
      listbox1.Items.Add(trim(query.fieldbyname('Fname').AsString));
      query.next;
    end;

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

end;

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

  query := Tadoquery.Create(self);
  query.Connection := dmfm.ADOConnection;
  sql := 'select * from Tkcap where fkcname=''' + listbox1.items[listbox1.itemindex] + '''';
  query.close;
  query.sql.text := sql;
  query.Open;
  if not query.IsEmpty then
    begin
      messagebox(handle, '此课程已安排过上机，不能删除', '警告', mb_iconwarning);
      exit;
    end;

  sql := format('delete tkc where fname=''%s'' ', [listbox1.items[listbox1.itemindex]]);
  query.close;
  query.sql.text := sql;
  query.ExecSQL;

  query.Destroy;
  formshow(sender);
end;

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

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

  Fname := listbox1.items[listbox1.itemindex];

  sql := 'select * from Tkcap where fkcname=''' + listbox1.items[listbox1.itemindex] + '''';
  query.close;
  query.sql.text := sql;
  query.Open;
  if not query.IsEmpty then
    begin
      messagebox(handle, '此课程已安排过上机，不能删除', '警告', mb_iconwarning);
      exit;
    end;

  if not inputquery('输入课程名称', '', Fname) then exit;

  sql := format('update tkc  set fname=''%s''  where fname=''%s''', [Fname, listbox1.items[listbox1.itemindex]]);
  query.close;
  query.sql.text := sql;
  query.ExecSQL;

  query.Destroy;
  formshow(sender);
end;

end.