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.

146 lines
3.5 KiB
Plaintext

unit u_op_project;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, DB, ADODB, bsSkinCtrls, ExtCtrls, Grids,
Wwdbigrd, Wwdbgrid, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
wwdblook, RxMemDS, DBCtrls;
type
Tfrm_op_project = class(TForm)
t_ch_project: TADOQuery;
t_ch_project1: TDataSource;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
wwDBGrid1: TwwDBGrid;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
DBMemo3: TDBMemo;
DBMemo4: TDBMemo;
DBMemo5: TDBMemo;
Label23: TLabel;
Label24: TLabel;
Label29: TLabel;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Panel3Resize(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure t_ch_projectAfterInsert(DataSet: TDataSet);
procedure t_ch_projectBeforePost(DataSet: TDataSet);
procedure t_ch_projectPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure t_ch_feecurrcharge(Sender: TField);
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_project: Tfrm_op_project;
implementation
uses u_main, u_data_share, my_sys_function;
{$R *.dfm}
procedure Tfrm_op_project.FormShow(Sender: TObject);
begin
{
t_ch_project.SQL.clear;
t_ch_project.sql.add('select * from t_ch_project ');
t_ch_project.SQL.Add(' where '+open_data('8005','¼ÈëÈË','no','no','no','no')
+'order by ·½°¸Ãû³Æ');
t_ch_project.open;
}
end;
procedure Tfrm_op_project.Panel3Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel3.width/5);
bsSkinButton1.width:=i;
bsSkinButton14.width:=i;
bsSkinButton2.width:=i;
bsSkinButton4.width:=i;
end;
procedure Tfrm_op_project.bsSkinButton9Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_project.bsSkinButton1Click(Sender: TObject);
begin
t_ch_project.insert;
end;
procedure Tfrm_op_project.t_ch_feecurrcharge(Sender: TField);
begin
end;
procedure Tfrm_op_project.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_ch_project);
end;
procedure Tfrm_op_project.bsSkinButton4Click(Sender: TObject);
begin
table_delete(t_ch_project);
end;
procedure Tfrm_op_project.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_ch_project);
end;
procedure Tfrm_op_project.t_ch_projectAfterInsert(DataSet: TDataSet);
begin
t_ch_project['¼ÈëÈË']:=employee;
t_ch_project['¼ÈëÈÕÆÚ']:=date;
end;
procedure Tfrm_op_project.t_ch_projectBeforePost(DataSet: TDataSet);
begin
table_before_post(t_ch_project,'·½°¸Ãû³Æ');
table_before_post(t_ch_project,'·ÑÓÃÀàÐÍ');
table_before_post(t_ch_project,'ÒµÎñÖÖÀà');
end;
procedure Tfrm_op_project.t_ch_projectPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
table_post_error_primary('·½°¸Ãû³Æ',E);
table_post_error_primary('·½°¸´úÂë',E);
end;
procedure Tfrm_op_project.Button1Click(Sender: TObject);
begin
frm_op_project.Close;
end;
procedure Tfrm_op_project.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_op_project.free;
frm_op_project:=nil;
end;
end.