unit4.~pas

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

unit Unit4;

interface

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

type
  Tfrm_model = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button2: TButton;
    Label2: TLabel;
    lbl_date: TLabel;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner4: TStringField;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_model: Tfrm_model;
  id:integer;

implementation

uses Unit2;

{$R *.DFM}

procedure Tfrm_model.Button1Click(Sender: TObject);
begin
  table1.Append;
  table1.FieldByName('序号').asstring:=inttostr(id);
end;

procedure Tfrm_model.Button4Click(Sender: TObject);
begin
 table1.post;
 frm_sys.show;
 self.close;
end;

procedure Tfrm_model.Button3Click(Sender: TObject);
begin
if table1.recordcount>0 then
  begin
    if messagedlg('真的要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
       table1.delete;
  end
else
    messagedlg('无记录可删除!',mtwarning,[mbyes],0);
end;

procedure Tfrm_model.Button2Click(Sender: TObject);
begin

    table1.Insert;
    table1.FieldByName('序号').asstring:=inttostr(id);

end;

procedure Tfrm_model.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (table1.recno=table1.recordcount) and (key=vk_down) then key:=0;
end;

procedure Tfrm_model.FormCreate(Sender: TObject);
begin
   id:=table1.RecordCount;
   id:=id+1;
   lbl_date.Caption:=datetostr(date());
end;

procedure Tfrm_model.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   With dbgrid1 do begin
    If Odd(table1.FieldByName('序号').asinteger) then begin
      Canvas.Brush.Color:=$02E0E8F0;
      Canvas.Font.Color:=$02003300;
    end
    else begin
      Canvas.Brush.Color:=$02E8F8F8;
      Canvas.Font.Color:=$02330000;
    end;
    //If DataCol=7 then
      //if Column.Field.AsCurrency<0 then Canvas.Font.Color:=$020000CC;
    If State=[gdSelected] then begin
      Canvas.Brush.Color:=$02445511;
      Canvas.Font.Color:=clWhite;
    end;
    DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;


procedure Tfrm_model.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;

end.