unit8.~pas

这是个才财务管理系统！可能是哪个语言！但是我不认识！

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls;

type
  Tfrm_pass = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    Query1: TQuery;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  frm_pass: Tfrm_pass;

implementation

uses Unit9, Unit19;

{$R *.DFM}

procedure Tfrm_pass.Button1Click(Sender: TObject);
begin
table1.Append;
table1.FieldByName('口令').asstring:='123';
table1.Post;
end;

procedure Tfrm_pass.Button2Click(Sender: TObject);
begin

  if (table1.RecordCount>1) and (table1.fieldbyname('权限').asstring<>'管理') then
    begin
      if messagedlg('真的要删除吗？',mtConfirmation,[mbyes,mbno],0)=mryes  then
         table1.delete;
    end
  else
    messagedlg('无记录可删除！',mtWarning,[mbyes],0);

end;

procedure Tfrm_pass.Button4Click(Sender: TObject);
begin
table1.edit;
table1.Post;
self.close;
end;

procedure Tfrm_pass.Table1AfterPost(DataSet: TDataSet);
begin
table1.Refresh;
dbgrid1.Refresh;
end;

procedure Tfrm_pass.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  { If table1.FieldByName('选择').AsBoolean then
    begin
      dbgrid1.Canvas.Brush.Color:=$02554411;
      dbgrid1.Canvas.Font.Color:=$02FFFFFF;
    end
    else begin
      If Odd(table1.FieldByName('序号').AsInteger)
        then dbgrid1.Canvas.Brush.Color:=$02E0E8F0
        else dbgrid1.Canvas.Brush.Color:=$02E8F8F8;
     dbgrid1.Canvas.Font.Color:=$02330000;
     end;
   dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
   }
end;

procedure Tfrm_pass.DBGrid1CellClick(Column: TColumn);
begin
with table1 do
 { begin
    if RecordCount<1 then Exit;
    if State<>dsEdit then Edit;
    if FieldByName('选择').AsBoolean
      then FieldByName('选择').AsBoolean := False
      else FieldByName('选择').AsBoolean := True;
    Post;
  end; }
end;

procedure Tfrm_pass.Button3Click(Sender: TObject);
begin
  author.show;
end;

end.