Last Update 2004/01/04
ソースを作成する場合以下の順番で記述すること
１．unit の後にプログラムのコメントを記述します。
記述する内容は
プロジェクト名
プログラム名
注意事項
備考
履歴
２．初めのuses文にはコンポーネント関係の外部ソースを必要に応じて
記述します。
３．初めのuses文の次にtype文があれば記述します。
４．２回目ののuses文には外部ソースを必要に応じて
記述します。
５．コメントをできるだけ記述すること
unit InTehai;
//--------- 2003/07/28 13:51 ---------------------------------------//
// Project Name：金太郎プロジェクト
// ProgramID ：Mst001
// Copyright ：CS
// Release ：
// 処理説明 ：顧客マスタメンテナンス
// 変数 ：
// 特記事項 ：
// 変更履歴 ：
// 2002/08/05 : 新規(中村)
//------------------------------------------------------------------//
interface
type
Win32_FA_Inf = record
dwFileAttributes : LongInt; // ファイル属性end;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ConvDLL, ExtCtrls, MultiButton, NValEdit, Menus, Grids, Registry,
ComCtrls, Db, DBTables, Buttons, MCCBox, CmbGrid,
Clipbrd, BDE, Printers, GridPrn, NValEditC, DBCtrls;
type
TFormTehai = class(TForm)
StatusBarGuid: TStatusBar;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
FormTehai: TFormTehai;
ComWrkFileName : String; // ワークファイル名
implementation
uses
CS_Com1, CsTakaCom1, PreView, HinSearch, TehaiSearch, Kakunin;
const
CnsKeyKensu = 0; // ←注:Ｋｅｙ項目数を設定しておくこと
// CnsMeisaiSu = 7;
ScrDtlTbl : array [0..6] of Scr_Details_Inf = (
( FNm:'EditSeiYMD'; ActP:-1; Act:0 ), // 0
( FNm:'EditBusho'; ActP:-1; Act:0; CCN:'MultiColComboBoxBusho' ), // 1
( FNm:'EditTan'; ActP:-1; Act:0; CCN:'MultiColComboBoxTan' ), // 2
( FNm:'EditSSeiNo'; ActP:-1; Act:0 ), // 3
( FNm:'EditESeiNo'; ActP:-1; Act:0 ), // 4
( FNm:'StringGrid1'; ActP:-1; Act:0 ), // 5
( FNm:'BitBtnWrite'; ActP:-1; Act:0 ) // 6
);
CnsRetuHINCD = 1; // 品番
CnsRetuHINMEI = 2; // 品名
var
ComWrkSwtRead : Boolean; // データ読み込みスイッチ
ComWrkPriBushoCD : String; // 部署コード
ComWrkPriTanCD : String; // 担当者CD
ComWrkPriSCD : String; // 倉庫番号
ComWrkPriMinSeiNo : String; // 未生産最小生産指示No
ComWrkPriMaxSeiNo : String; // 未生産最大生産指示No
{$R *.DFM}
//------------------------------------------------------------------//
// フォーム作成
//------------------------------------------------------------------//
procedure TFormTehai.FormCreate(Sender: TObject);
begin
if FormTehai = Nil then
FormTehai := Self;
Cs_GridNoSet( ComboGrid1 );// StrginGridの固定列に連番を設定する。
Cs_GridImgCopy( ComboGrid1, StringGrid1 ); // StrginGridの外見をコピーする。
Cs_SetStringGridWidth( StringGrid1 );// ストリンググリットの幅をセルの合計値に合わせる
if 0 < ParamCount Then // 引数有り
Cs_Wrk_PrmStr0 := Cs_AUpper( ParamStr(1) ) // 全角半角混在文字列データの半角英文字だけを大文字に変換する。
else
Cs_Wrk_PrmStr0 := '-T';
end;
//------------------------------------------------------------------//
// フォーム終了
//------------------------------------------------------------------//
procedure TFormTehai.FormClose(Sender: TObject);
begin
;
end;
//------------------------------------------------------------------//
// メインフォーム表示処理
//------------------------------------------------------------------//
procedure TFormTehai.FormShow(Sender: TObject);
begin
end;
//------------------------------------------------------------------//
// フォームＲｅｓｉｚｅ処理
//------------------------------------------------------------------//
procedure TFormTehai.FormResize(Sender: TObject);
begin
end;
//------------------------------------------------------------------//
// フォームキーダウン処理
//------------------------------------------------------------------//
procedure TFormTehai.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
end;
//------------------------------------------------------------------//
// フォームキーＰｒｅｓｓ処理
//------------------------------------------------------------------//
procedure TFormTehai.FormKeyPress(Sender: TObject; var Key: Char);
begin
end;
//------------------------------------------------------------------//
// フォームキーＵｐ処理
//------------------------------------------------------------------//
procedure TFormTehai.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
end;
//------------------------------------------------------------------//
// Ｃｌｏｓｅボタン処理
//------------------------------------------------------------------//
procedure TFormTehai.BitBtnCloseClick(Sender: TObject);
begin
end;
//------------------------------------------------------------------//
// ＤｒａｗＣｅｌｌ処理
//------------------------------------------------------------------//
procedure TFormTehai.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
begin
end;
//------------------------------------------------------------------//
// ＳｔｒｉｎｇＧｒｉｄ Ｓｅｌｅｃｔ処理
//
// 特定列でキー入力を許さないための処理、
// GetEditTextでSkipすると表示できない、
// SetEditTextでSkipするとすでに編集が終わっている
// 「NextDtl,SendMessage で →キーを送る」 をここで実行するとループ
//------------------------------------------------------------------//
procedure TFormTehai.StringGrid1SelectCell(Sender: TObject; Col,
Row: Integer; var CanSelect: Boolean);
begin
end;
//------------------------------------------------------------------//
// 項目前処理(Enter処理)
//------------------------------------------------------------------//
procedure TFormTehai.EditSeiYMDEnter(Sender: TObject);
begin
end;
//------------------------------------------------------------------//
// 入力データ確認処理
//------------------------------------------------------------------//
procedure TFormTehai.EditSeiYMDExit(Sender: TObject);
begin
end;
//------------------------------------------------------------------//
// 入力項目確認処理
//------------------------------------------------------------------//
function TFormTehai.CkItem(Sender: TObject) : Boolean;
begin
end;
//------------------------------------------------------------------//
// グリッド内でのＫｅｙＤｏｗｎ処理
//------------------------------------------------------------------//
procedure TFormTehai.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
end;
//------------------------------------------------------------------//
// 初期化、終了コード
//------------------------------------------------------------------//
initialization
{初期化コード}
RegisterClass(TFormTehai);
finalization
{終了時コード}
//--------- End Of Source ------------------------------------------//
end.
