You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
2.2 KiB
Plaintext
80 lines
2.2 KiB
Plaintext
11 months ago
|
unit u_ch_fee_view;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls,
|
||
|
|
bsSkinCtrls, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, BusinessSkinForm;
|
||
|
|
|
||
|
|
type
|
||
|
|
Tfrm_ch_fee_view = class(TForm)
|
||
|
|
t_op_gain: TADOQuery;
|
||
|
|
t_op_gain1: TDataSource;
|
||
|
|
t_ch_accept: TADOQuery;
|
||
|
|
t_ch_accept1: TDataSource;
|
||
|
|
t_ch_pay: TADOQuery;
|
||
|
|
t_ch_pay1: TDataSource;
|
||
|
|
Panel2: TPanel;
|
||
|
|
bsSkinStdLabel4: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel2: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel3: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel1: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel5: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel6: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel7: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel8: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel9: TbsSkinStdLabel;
|
||
|
|
bsSkinStdLabel10: TbsSkinStdLabel;
|
||
|
|
bsSkinDBEdit6: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit4: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit1: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit3: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit5: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit2: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit8: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit7: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit9: TbsSkinDBEdit;
|
||
|
|
bsSkinDBEdit10: TbsSkinDBEdit;
|
||
|
|
wwDBGrid1: TwwDBGrid;
|
||
|
|
wwDBGrid2: TwwDBGrid;
|
||
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
||
|
|
procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
|
||
|
|
Field: TField; State: TGridDrawState);
|
||
|
|
procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
|
||
|
|
Field: TField; State: TGridDrawState);
|
||
|
|
procedure FormResize(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frm_ch_fee_view: Tfrm_ch_fee_view;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses my_sys_function;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure Tfrm_ch_fee_view.wwDBGrid1DrawDataCell(Sender: TObject;
|
||
|
|
const Rect: TRect; Field: TField; State: TGridDrawState);
|
||
|
|
begin
|
||
|
|
fee_color(t_ch_accept,wwDBGrid1,Rect,Field);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tfrm_ch_fee_view.wwDBGrid2DrawDataCell(Sender: TObject;
|
||
|
|
const Rect: TRect; Field: TField; State: TGridDrawState);
|
||
|
|
begin
|
||
|
|
fee_color(t_ch_pay,wwDBGrid2,Rect,Field);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tfrm_ch_fee_view.FormResize(Sender: TObject);
|
||
|
|
begin
|
||
|
|
wwDBGrid1.Height:=round((frm_ch_fee_view.Height-panel2.Height)/2);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|